0000: 2f 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e /*. * Encryption
0010: 20 46 75 6e 63 74 69 6f 6e 73 20 4d 6f 64 75 6c Functions Modul
0020: 65 0a 20 2a 0a 20 2a 20 54 68 69 73 20 6d 6f 64 e. *. * This mod
0030: 75 6c 65 20 70 72 6f 76 69 64 65 73 20 63 6f 6d ule provides com
0040: 6d 61 6e 64 73 20 74 68 61 74 20 63 61 6e 20 62 mands that can b
0050: 65 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70 e used to encryp
0060: 74 20 6f 72 20 64 65 63 72 79 70 74 20 64 61 74 t or decrypt dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 ude <tcl.h>.#inc
00e0: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 lude <stdio.h>.#
00f0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0100: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 h>.#include <ope
0110: 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 23 69 66 20 nssl/evp.h>.#if
0120: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
0130: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
0140: 30 30 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 0000L.#include <
0150: 6f 70 65 6e 73 73 6c 2f 70 61 72 61 6d 73 2e 68 openssl/params.h
0160: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 4d 61 63 >.#endif../* Mac
0170: 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ros */.#define B
0180: 55 46 46 45 52 5f 53 49 5a 45 09 33 32 37 36 38 UFFER_SIZE.32768
0190: 0a 23 64 65 66 69 6e 65 20 43 48 41 4e 5f 45 4f .#define CHAN_EO
01a0: 46 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 52 F.0x10.#define R
01b0: 45 41 44 5f 44 45 4c 41 59 09 35 0a 0a 2f 2a 20 EAD_DELAY.5../*
01c0: 45 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 Encryption funct
01d0: 69 6f 6e 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ions */.#define
01e0: 54 59 50 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 TYPE_MD..0x010.#
01f0: 64 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 define TYPE_HMAC
0200: 09 30 78 30 32 30 0a 23 64 65 66 69 6e 65 20 54 .0x020.#define T
0210: 59 50 45 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 YPE_CMAC.0x040.#
0220: 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 define TYPE_MAC.
0230: 30 78 30 38 30 0a 23 64 65 66 69 6e 65 20 54 59 0x080.#define TY
0240: 50 45 5f 45 4e 43 52 59 50 54 09 30 78 31 30 30 PE_ENCRYPT.0x100
0250: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 44 45 .#define TYPE_DE
0260: 43 52 59 50 54 09 30 78 32 30 30 0a 23 64 65 66 CRYPT.0x200.#def
0270: 69 6e 65 20 54 59 50 45 5f 53 49 47 4e 09 30 78 ine TYPE_SIGN.0x
0280: 34 30 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 400.#define TYPE
0290: 5f 56 45 52 49 46 59 09 30 78 38 30 30 0a 0a 2f _VERIFY.0x800../
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 ***/../*. * This
02f0: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
0300: 65 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 es the per-insta
0310: 6e 63 65 20 73 74 61 74 65 20 6f 66 20 61 20 65 nce state of a e
0320: 6e 63 72 79 70 74 20 6f 70 65 72 61 74 69 6f 6e ncrypt operation
0330: 2e 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 .. */.typedef st
0340: 72 75 63 74 20 45 6e 63 72 79 70 74 53 74 61 74 ruct EncryptStat
0350: 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c e {..Tcl_Channel
0360: 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 73 20 73 self;./* This s
0370: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0380: 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e ..Tcl_TimerToken
0390: 20 74 69 6d 65 72 3b 09 2f 2a 20 54 69 6d 65 72 timer;./* Timer
03a0: 20 66 6f 72 20 72 65 61 64 20 65 76 65 6e 74 73 for read events
03b0: 20 2a 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b */...int flags;
03c0: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
03d0: 20 66 6c 61 67 73 20 2a 2f 0a 09 69 6e 74 20 77 flags */..int w
03e0: 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a 20 43 75 atchMask;../* Cu
03f0: 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 20 rrent WatchProc
0400: 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 mask */..int mod
0410: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
0420: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
0430: 61 6e 6e 65 6c 20 2a 2f 0a 09 69 6e 74 20 74 79 annel */..int ty
0440: 70 65 3b 09 09 2f 2a 20 4f 70 65 72 61 74 69 6f pe;../* Operatio
0450: 6e 20 74 79 70 65 20 2a 2f 0a 0a 09 54 63 6c 5f n type */...Tcl_
0460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
0470: 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 /* Current inter
0480: 70 72 65 74 65 72 20 2a 2f 0a 09 45 56 50 5f 43 preter */..EVP_C
0490: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 3b 09 IPHER_CTX *ctx;.
04a0: 2f 2a 20 43 69 70 68 65 72 20 43 6f 6e 74 65 78 /* Cipher Contex
04b0: 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e t */..Tcl_Comman
04c0: 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d d token;./* Comm
04d0: 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 45 and token */.} E
04e0: 6e 63 72 79 70 74 53 74 61 74 65 3b 0a 0a 0a 2f ncryptState;.../
04f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
0540: 63 72 79 70 74 53 74 61 74 65 4e 65 77 20 2d 2d cryptStateNew --
0550: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
0560: 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 70 tion creates a p
0570: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0580: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
0590: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
05a0: 20 2a 09 53 74 61 74 65 20 73 74 72 75 63 74 75 *.State structu
05b0: 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a 0a 20 2a re pointer. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
05d0: 2a 09 43 72 65 61 74 65 73 20 73 74 72 75 63 74 *.Creates struct
05e0: 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ure. *. *-------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0630: 0a 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 45 .EncryptState *E
0640: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 54 ncryptStateNew(T
0650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0660: 70 2c 20 69 6e 74 20 74 79 70 65 29 20 7b 0a 20 p, int type) {.
0670: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
0680: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
0690: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6b 61 ryptState *) cka
06a0: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
06b0: 73 69 7a 65 6f 66 28 45 6e 63 72 79 70 74 53 74 sizeof(EncryptSt
06c0: 61 74 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 ate));.. if (
06d0: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
06e0: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
06f0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0700: 45 6e 63 72 79 70 74 53 74 61 74 65 29 29 3b 0a EncryptState));.
0710: 09 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 .statePtr->self.
0720: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 = NULL;../* This
0730: 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 socket channel
0740: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
0750: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 mer = NULL;../*
0760: 54 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 Timer to flush d
0770: 61 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 ata */..statePtr
0780: 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a ->flags = 0;../*
0790: 20 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 Chan config fla
07a0: 67 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d gs */..statePtr-
07b0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 >watchMask = 0;.
07c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
07d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 Proc mask */..st
07e0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 atePtr->mode.= 0
07f0: 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f ;../* Current mo
0800: 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 de of parent cha
0810: 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 nnel */..statePt
0820: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 09 r->type = type;.
0830: 09 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 74 79 ./* Operation ty
0840: 70 65 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d pe */..statePtr-
0850: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0860: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0870: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0880: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0890: 4c 3b 09 09 2f 2a 20 43 69 70 68 65 72 20 43 6f L;../* Cipher Co
08a0: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
08b0: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
08c0: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
08d0: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
08e0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
08f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0940: 0a 20 2a 20 45 6e 63 72 79 70 74 53 74 61 74 65 . * EncryptState
0950: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
0960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 is function dele
0970: 74 65 73 20 61 20 73 74 61 74 65 20 64 61 74 61 tes a state data
0980: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0990: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
09a0: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
09b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
09c0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
09d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0a20: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
0a30: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 (EncryptState *s
0a40: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 tatePtr) {. i
0a50: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 f (statePtr == (
0a60: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
0a70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
0a80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
0a90: 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 emove pending ti
0aa0: 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 mer */. if (s
0ab0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
0ac0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
0ad0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
0ae0: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
0af0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
0b00: 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 er);. }..
0b10: 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 20 /* Free context
0b20: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20 structures */.
0b30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0b40: 63 74 78 20 21 3d 20 28 45 56 50 5f 43 49 50 48 ctx != (EVP_CIPH
0b50: 45 52 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 ER_CTX *) NULL)
0b60: 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 {..EVP_CIPHER_CT
0b70: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
0b80: 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 >ctx);. }.
0b90: 20 63 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 ckfree(statePtr
0ba0: 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a );.}../*********
0bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
0bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0c40: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d yptInitialize --
0c50: 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a . *. *.Initializ
0c60: 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 e an encryption
0c70: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0c80: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0c90: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ca0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0cb0: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0cc0: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0cd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0ce0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0cf0: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0d00: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0d10: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0d60: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
0d70: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
0d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c nterp, int type,
0d90: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
0da0: 2a 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 **ctx,..Tcl_Obj
0db0: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
0dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
0dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 _Obj *ivObj, int
0de0: 20 70 61 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 padding) {.
0df0: 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 45 52 const EVP_CIPHER
0e00: 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 20 76 6f *cipher;. vo
0e10: 69 64 20 2a 6b 65 79 53 74 72 69 6e 67 20 3d 20 id *keyString =
0e20: 4e 55 4c 4c 2c 20 2a 69 76 53 74 72 69 6e 67 20 NULL, *ivString
0e30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
0e40: 53 69 7a 65 20 6b 65 79 5f 6c 65 6e 20 3d 20 30 Size key_len = 0
0e50: 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 , iv_len = 0;.
0e60: 20 20 69 6e 74 20 72 65 73 2c 20 6d 61 78 3b 0a int res, max;.
0e70: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
0e80: 72 20 6b 65 79 5b 45 56 50 5f 4d 41 58 5f 4b 45 r key[EVP_MAX_KE
0e90: 59 5f 4c 45 4e 47 54 48 5d 2c 20 69 76 5b 45 56 Y_LENGTH], iv[EV
0ea0: 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 5d P_MAX_IV_LENGTH]
0eb0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
0ec0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
0ed0: 2a 20 49 6e 69 74 20 62 75 66 66 65 72 73 20 2a * Init buffers *
0ee0: 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 /. memset(key
0ef0: 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 , 0, EVP_MAX_KEY
0f00: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 _LENGTH);. me
0f10: 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f mset(iv, 0, EVP_
0f20: 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a MAX_IV_LENGTH);.
0f30: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 70 68 . /* Get ciph
0f40: 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 68 65 72 er */. cipher
0f50: 20 3d 20 55 74 69 6c 5f 47 65 74 43 69 70 68 65 = Util_GetCiphe
0f60: 72 28 69 6e 74 65 72 70 2c 20 63 69 70 68 65 72 r(interp, cipher
0f70: 4f 62 6a 2c 20 31 29 3b 0a 20 20 20 20 69 66 20 Obj, 1);. if
0f80: 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 (cipher == NULL)
0f90: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
0fa0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
0fb0: 20 2f 2a 20 20 47 65 74 20 6b 65 79 20 2d 20 4f /* Get key - O
0fc0: 6e 6c 79 20 73 75 70 70 6f 72 74 20 69 6e 74 65 nly support inte
0fd0: 72 6e 61 6c 6c 79 20 64 65 66 69 6e 65 64 20 63 rnally defined c
0fe0: 69 70 68 65 72 20 6c 65 6e 67 74 68 73 2e 0a 09 ipher lengths...
0ff0: 43 75 73 74 6f 6d 20 63 69 70 68 65 72 73 20 63 Custom ciphers c
1000: 61 6e 20 62 65 20 75 70 20 74 6f 20 73 69 7a 65 an be up to size
1010: 5f 74 20 62 79 74 65 73 2e 20 2a 2f 0a 20 20 20 _t bytes. */.
1020: 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 max = EVP_CIPHE
1030: 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 R_key_length(cip
1040: 68 65 72 29 3b 0a 20 20 20 20 6b 65 79 53 74 72 her);. keyStr
1050: 69 6e 67 20 3d 20 55 74 69 6c 5f 47 65 74 4b 65 ing = Util_GetKe
1060: 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4f 62 6a y(interp, keyObj
1070: 2c 20 26 6b 65 79 5f 6c 65 6e 2c 20 22 6b 65 79 , &key_len, "key
1080: 22 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 20 20 20 ", max, 0);.
1090: 69 66 20 28 6b 65 79 53 74 72 69 6e 67 20 21 3d if (keyString !=
10a0: 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 63 70 79 NULL) {..memcpy
10b0: 28 28 76 6f 69 64 20 2a 29 20 6b 65 79 2c 20 6b ((void *) key, k
10c0: 65 79 53 74 72 69 6e 67 2c 20 28 73 69 7a 65 5f eyString, (size_
10d0: 74 29 20 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 t) key_len);.
10e0: 20 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 79 4f } else if (keyO
10f0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 20 7b 0a 09 bj != NULL) {..
1100: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1110: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
1120: 20 47 65 74 20 49 56 20 2a 2f 0a 20 20 20 20 6d Get IV */. m
1130: 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f ax = EVP_CIPHER_
1140: 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 68 65 72 iv_length(cipher
1150: 29 3b 0a 20 20 20 20 69 76 53 74 72 69 6e 67 20 );. ivString
1160: 3d 20 55 74 69 6c 5f 47 65 74 49 56 28 69 6e 74 = Util_GetIV(int
1170: 65 72 70 2c 20 69 76 4f 62 6a 2c 20 26 69 76 5f erp, ivObj, &iv_
1180: 6c 65 6e 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 20 len, max, 0);.
1190: 20 20 69 66 20 28 69 76 53 74 72 69 6e 67 20 21 if (ivString !
11a0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 63 70 = NULL) {..memcp
11b0: 79 28 28 76 6f 69 64 20 2a 29 20 69 76 2c 20 69 y((void *) iv, i
11c0: 76 53 74 72 69 6e 67 2c 20 28 73 69 7a 65 5f 74 vString, (size_t
11d0: 29 20 69 76 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d ) iv_len);. }
11e0: 20 65 6c 73 65 20 69 66 20 28 69 76 4f 62 6a 20 else if (ivObj
11f0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 != NULL) {..retu
1200: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1210: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 }.. /* Crea
1220: 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 te context */.
1230: 20 20 69 66 28 28 2a 63 74 78 20 3d 20 45 56 50 if((*ctx = EVP
1240: 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e 65 77 28 _CIPHER_CTX_new(
1250: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 )) == NULL) {..T
1260: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1270: 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 interp, "Memory
1280: 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 allocation error
1290: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
12a0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
12b0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
12c0: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 /* Initialize t
12d0: 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a he operation */.
12e0: 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 if (type ==
12f0: 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a TYPE_ENCRYPT) {.
1300: 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 .res = EVP_Encry
1310: 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 ptInit_ex(*ctx,
1320: 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 4e 55 cipher, NULL, NU
1330: 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d LL, NULL);. }
1340: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1350: 56 50 5f 44 65 63 72 79 70 74 49 6e 69 74 5f 65 VP_DecryptInit_e
1360: 78 28 2a 63 74 78 2c 20 63 69 70 68 65 72 2c 20 x(*ctx, cipher,
1370: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c NULL, NULL, NULL
1380: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 );. }.. if
1390: 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 (!res) {..Tcl_Ap
13a0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
13b0: 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 66 p, "Initialize f
13c0: 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f 45 52 ailed: ", GET_ER
13d0: 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 R_REASON(), (cha
13e0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
13f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1400: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 54 75 72 }.. /* Tur
1410: 6e 20 6f 66 66 20 50 4b 43 53 23 37 20 70 61 64 n off PKCS#7 pad
1420: 64 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 20 28 ding */. if (
1430: 21 70 61 64 64 69 6e 67 29 20 7b 0a 09 45 56 50 !padding) {..EVP
1440: 5f 43 49 50 48 45 52 5f 43 54 58 5f 73 65 74 5f _CIPHER_CTX_set_
1450: 70 61 64 64 69 6e 67 28 2a 63 74 78 2c 20 70 61 padding(*ctx, pa
1460: 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d 0a 0a 20 dding);. }..
1470: 20 20 20 2f 2a 20 53 65 74 20 6b 65 79 20 61 6e /* Set key an
1480: 64 20 49 56 20 2a 2f 0a 20 20 20 20 69 66 20 28 d IV */. if (
1490: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
14a0: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
14b0: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 VP_EncryptInit_e
14c0: 78 28 2a 63 74 78 2c 20 4e 55 4c 4c 2c 20 4e 55 x(*ctx, NULL, NU
14d0: 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b 0a 20 20 LL, key, iv);.
14e0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 } else {..res
14f0: 3d 20 45 56 50 5f 44 65 63 72 79 70 74 49 6e 69 = EVP_DecryptIni
1500: 74 5f 65 78 28 2a 63 74 78 2c 20 4e 55 4c 4c 2c t_ex(*ctx, NULL,
1510: 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b NULL, key, iv);
1520: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 28 21 . }.. if(!
1530: 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 res) {..Tcl_Appe
1540: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1550: 20 22 53 65 74 20 6b 65 79 20 61 6e 64 20 49 56 "Set key and IV
1560: 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f failed: ", GET_
1570: 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 ERR_REASON(), (c
1580: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
1590: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
15a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 45 . }.. /* E
15b0: 72 61 73 65 20 62 75 66 66 65 72 73 20 2a 2f 0a rase buffers */.
15c0: 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 2c 20 memset(key,
15d0: 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 5f 4c 0, EVP_MAX_KEY_L
15e0: 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 6d 73 ENGTH);. mems
15f0: 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f 4d 41 et(iv, 0, EVP_MA
1600: 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 X_IV_LENGTH);.
1610: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1620: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1670: 20 2a 20 45 6e 63 72 79 70 74 55 70 64 61 74 65 * EncryptUpdate
1680: 20 2d 2d 0a 20 2a 0a 20 2a 09 55 70 64 61 74 65 --. *. *.Update
1690: 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 an encryption f
16a0: 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 61 74 unction with dat
16b0: 61 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a a. *. * Returns:
16c0: 0a 20 2a 09 31 20 69 66 20 73 75 63 63 65 73 73 . *.1 if success
16d0: 66 75 6c 20 6f 72 20 30 20 66 6f 72 20 66 61 69 ful or 0 for fai
16e0: 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 lure. *. * Side
16f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
1700: 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 encrypted data
1710: 74 6f 20 62 75 66 66 65 72 20 6f 72 20 73 65 74 to buffer or set
1720: 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f s result to erro
1730: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
1790: 70 74 55 70 64 61 74 65 28 54 63 6c 5f 49 6e 74 ptUpdate(Tcl_Int
17a0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
17b0: 20 74 79 70 65 2c 20 45 56 50 5f 43 49 50 48 45 type, EVP_CIPHE
17c0: 52 5f 43 54 58 20 2a 63 74 78 2c 20 75 6e 73 69 R_CTX *ctx, unsi
17d0: 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 gned char *out_b
17e0: 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 uf,..int *out_le
17f0: 6e 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 n, unsigned char
1800: 20 2a 64 61 74 61 2c 20 54 63 6c 5f 53 69 7a 65 *data, Tcl_Size
1810: 20 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 20 20 20 data_len) {.
1820: 20 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 int res;.. d
1830: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
1840: 3b 0a 0a 20 20 20 20 2f 2a 20 45 6e 63 72 79 70 ;.. /* Encryp
1850: 74 2f 64 65 63 72 79 70 74 20 64 61 74 61 20 2a t/decrypt data *
1860: 2f 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d /. if (type =
1870: 3d 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 = TYPE_ENCRYPT)
1880: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 {..res = EVP_Enc
1890: 72 79 70 74 55 70 64 61 74 65 28 63 74 78 2c 20 ryptUpdate(ctx,
18a0: 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 6e out_buf, out_len
18b0: 2c 20 64 61 74 61 2c 20 28 69 6e 74 29 20 64 61 , data, (int) da
18c0: 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 ta_len);. } e
18d0: 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 lse {..res = EVP
18e0: 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 28 63 _DecryptUpdate(c
18f0: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 tx, out_buf, out
1900: 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 28 69 6e 74 _len, data, (int
1910: 29 20 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 ) data_len);.
1920: 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 }.. if (res)
1930: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f {..return TCL_O
1940: 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a K;. } else {.
1950: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1960: 74 28 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 t(interp, "Updat
1970: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 e failed: ", GET
1980: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
1990: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
19a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19b0: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a ;. }.}../*. *
19c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a00: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
1a10: 74 46 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a tFinalize --. *.
1a20: 20 2a 09 46 69 6e 61 6c 69 7a 65 20 61 6e 20 65 *.Finalize an e
1a30: 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 ncryption functi
1a40: 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 on. *. * Returns
1a50: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
1a60: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
1a70: 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 6c 75 _ERROR for failu
1a80: 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 73 re with result s
1a90: 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 6d et. *.to error m
1aa0: 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 essage.. *. * Si
1ab0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 de effects:. *.A
1ac0: 64 64 73 20 65 6e 63 72 79 70 74 65 64 20 64 61 dds encrypted da
1ad0: 74 61 20 74 6f 20 62 75 66 66 65 72 20 6f 72 20 ta to buffer or
1ae0: 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 65 sets result to e
1af0: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
1b00: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b40: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
1b50: 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 54 63 cryptFinalize(Tc
1b60: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1b70: 2c 20 69 6e 74 20 74 79 70 65 2c 20 45 56 50 5f , int type, EVP_
1b80: 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 2c CIPHER_CTX *ctx,
1b90: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
1ba0: 6f 75 74 5f 62 75 66 2c 0a 09 69 6e 74 20 2a 6f out_buf,..int *o
1bb0: 75 74 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 69 6e ut_len) {. in
1bc0: 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 72 69 t res;.. dpri
1bd0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
1be0: 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 /* Finalize
1bf0: 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 data */. if (
1c00: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
1c10: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
1c20: 56 50 5f 45 6e 63 72 79 70 74 46 69 6e 61 6c 5f VP_EncryptFinal_
1c30: 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c ex(ctx, out_buf,
1c40: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d out_len);. }
1c50: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1c60: 56 50 5f 44 65 63 72 79 70 74 46 69 6e 61 6c 5f VP_DecryptFinal_
1c70: 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c ex(ctx, out_buf,
1c80: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d out_len);. }
1c90: 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 20 7b .. if (res) {
1ca0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
1cb0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
1cc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1cd0: 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a interp, "Finaliz
1ce0: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 e failed: ", GET
1cf0: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
1d00: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
1d10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1d20: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a ;. }.}../****
1d30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
1d70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
1dc0: 20 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 EncryptBlockMod
1dd0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eProc --. *. *.T
1de0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
1df0: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
1e00: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a eneric IO level.
1e10: 20 2a 09 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 *.to set blocki
1e20: 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 ng and nonblocki
1e30: 6e 67 20 6d 6f 64 65 73 2e 0a 20 2a 0a 20 2a 20 ng modes.. *. *
1e40: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 Returns:. *.0 if
1e50: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
1e60: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
1e70: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
1e80: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1e90: 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 69 63 *.Sets the devic
1ea0: 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 e into blocking
1eb0: 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d or nonblocking m
1ec0: 6f 64 65 2e 0a 20 2a 09 43 61 6e 20 63 61 6c 6c ode.. *.Can call
1ed0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 Tcl_SetChannelE
1ee0: 72 72 6f 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d rror.. *. *-----
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1f30: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
1f40: 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 cryptBlockModePr
1f50: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
1f60: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 6f ientData, int mo
1f70: 64 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 de) {. Encryp
1f80: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
1f90: 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 = (EncryptState
1fa0: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
1fb0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
1fc0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
1fd0: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 (mode == TCL_MOD
1fe0: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b E_NONBLOCKING) {
1ff0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2000: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 s |= TLS_TCL_ASY
2010: 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b NC;. } else {
2020: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2030: 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 s &= ~(TLS_TCL_A
2040: 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 SYNC);. }.
2050: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
2060: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
20b0: 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 20 2d 2d ryptCloseProc --
20c0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
20d0: 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 tion is invoked
20e0: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
20f0: 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f O level to perfo
2100: 72 6d 0a 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 rm. *.channel-ty
2110: 70 65 20 73 70 65 63 69 66 69 63 20 63 6c 65 61 pe specific clea
2120: 6e 75 70 20 77 68 65 6e 20 74 68 65 20 63 68 61 nup when the cha
2130: 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 2e 20 nnel is closed.
2140: 41 6c 6c 0a 20 2a 09 71 75 65 75 65 64 20 6f 75 All. *.queued ou
2150: 74 70 75 74 20 69 73 20 66 6c 75 73 68 65 64 20 tput is flushed
2160: 70 72 69 6f 72 20 74 6f 20 63 61 6c 6c 69 6e 67 prior to calling
2170: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a this function..
2180: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
2190: 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 75 *.0 if successfu
21a0: 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 l or POSIX error
21b0: 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e code if failed.
21c0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
21d0: 63 74 73 3a 0a 20 2a 09 44 65 6c 65 74 65 73 20 cts:. *.Deletes
21e0: 73 74 6f 72 65 64 20 73 74 61 74 65 20 64 61 74 stored state dat
21f0: 61 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d a.. *. *--------
2200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2240: 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 int EncryptClose
2250: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
2260: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
2270: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
2280: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
2290: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
22a0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
22b0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
22c0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
22d0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 63 ");.. /* Canc
22e0: 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 72 2c el active timer,
22f0: 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 if any */. i
2300: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
2310: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
2320: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 Token) NULL) {..
2330: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 Tcl_DeleteTimerH
2340: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d andler(statePtr-
2350: 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 >timer);..stateP
2360: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
2370: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
2380: 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a L;. }.. /*
2390: 20 4f 75 74 70 75 74 20 72 65 6d 61 69 6e 69 6e Output remainin
23a0: 67 20 64 61 74 61 2c 20 69 66 20 61 6e 79 20 2a g data, if any *
23b0: 2f 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74 /. if (!(stat
23c0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 ePtr->flags & CH
23d0: 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 54 63 6c 5f AN_EOF)) {..Tcl_
23e0: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d Channel parent =
23f0: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
2400: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
2410: 3e 73 65 6c 66 29 3b 0a 09 69 6e 74 20 6f 75 74 >self);..int out
2420: 5f 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 _len;..unsigned
2430: 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 45 56 50 char out_buf[EVP
2440: 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 _MAX_BLOCK_LENGT
2450: 48 5d 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a H];.../* Finaliz
2460: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 e function */..i
2470: 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 f (EncryptFinali
2480: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
2490: 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 Ptr->type, state
24a0: 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 Ptr->ctx, out_bu
24b0: 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 f, &out_len) ==
24c0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 69 TCL_OK) {.. i
24d0: 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 f (out_len > 0)
24e0: 7b 0a 09 09 54 63 6c 5f 53 69 7a 65 20 6c 65 6e {...Tcl_Size len
24f0: 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 = Tcl_WriteRaw(
2500: 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 74 20 63 parent, (const c
2510: 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 har *) out_buf,
2520: 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c (Tcl_Size) out_l
2530: 65 6e 29 3b 0a 09 09 69 66 20 28 6c 65 6e 20 3c en);...if (len <
2540: 20 30 29 20 7b 0a 09 09 20 20 20 20 72 65 74 75 0) {... retu
2550: 72 6e 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 rn Tcl_GetErrno(
2560: 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d );...}.. }..}
2570: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2f 2a 20 else {.. /*
2580: 45 72 72 6f 72 20 2a 2f 0a 09 7d 0a 0a 09 73 74 Error */..}...st
2590: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
25a0: 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d CHAN_EOF;. }
25b0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 .. /* Clean-u
25c0: 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 p */. Encrypt
25d0: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
25e0: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 tr);. return
25f0: 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 65 0;.}../*. * Same
2600: 20 61 73 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 as EncryptClose
2610: 50 72 6f 63 20 62 75 74 20 77 69 74 68 20 69 6e Proc but with in
2620: 64 69 76 69 64 75 61 6c 20 72 65 61 64 20 61 6e dividual read an
2630: 64 20 77 72 69 74 65 20 63 6c 6f 73 65 20 63 6f d write close co
2640: 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 69 63 ntrol. */.static
2650: 20 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 int EncryptClos
2660: 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 e2Proc(ClientDat
2670: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
2680: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
2690: 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 7b rp, int flags) {
26a0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
26b0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
26c0: 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 ((flags & (TCL_C
26d0: 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 43 4c 5f LOSE_READ | TCL_
26e0: 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d CLOSE_WRITE)) ==
26f0: 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 45 6e 0) {..return En
2700: 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 69 cryptCloseProc(i
2710: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
2720: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
2730: 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d return EINVAL;.}
2740: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2790: 0a 20 2a 20 45 6e 63 72 79 70 74 49 6e 70 75 74 . * EncryptInput
27a0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
27b0: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
27c0: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
27d0: 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 read data from
27e0: 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 0a 20 2a transform and. *
27f0: 09 70 6c 61 63 65 20 69 6e 20 62 75 66 2e 20 54 .place in buf. T
2800: 72 61 6e 73 66 6f 72 6d 20 67 65 74 73 20 64 61 ransform gets da
2810: 74 61 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 65 ta from the unde
2820: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a rlying channel..
2830: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
2840: 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 72 65 *.Total bytes re
2850: 61 64 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e 20 ad or -1 for an
2860: 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 68 error along with
2870: 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 0a 20 a POSIX error.
2880: 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 43 *.code in errorC
2890: 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 47 41 odePtr. Use EAGA
28a0: 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 IN for nonblocki
28b0: 6e 67 20 61 6e 64 20 6e 6f 20 64 61 74 61 2e 0a ng and no data..
28c0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
28d0: 74 73 3a 0a 20 2a 09 52 65 61 64 20 64 61 74 61 ts:. *.Read data
28e0: 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d 20 from transform
28f0: 61 6e 64 20 77 72 69 74 65 20 74 6f 20 62 75 66 and write to buf
2900: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
2950: 0a 69 6e 74 20 45 6e 63 72 79 70 74 49 6e 70 75 .int EncryptInpu
2960: 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 tProc(ClientData
2970: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 68 61 clientData, cha
2980: 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 52 65 r *buf, int toRe
2990: 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f ad, int *errorCo
29a0: 64 65 50 74 72 29 20 7b 0a 20 20 20 20 45 6e 63 dePtr) {. Enc
29b0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
29c0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
29d0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
29e0: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
29f0: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 69 el parent;. i
2a00: 6e 74 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 nt out_len;.
2a10: 54 63 6c 5f 53 69 7a 65 20 72 65 61 64 3b 0a 20 Tcl_Size read;.
2a20: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
2a30: 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 20 2a = 0;. char *
2a40: 69 6e 5f 62 75 66 3b 0a 20 20 20 20 0a 20 20 20 in_buf;. .
2a50: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
2a60: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 ");.. /* Abor
2a70: 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f 20 t if nothing to
2a80: 70 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 69 process */. i
2a90: 66 20 28 74 6f 52 65 61 64 20 3c 3d 20 30 20 7c f (toRead <= 0 |
2aa0: 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 | statePtr->self
2ab0: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
2ac0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
2ad0: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
2ae0: 2f 2a 20 47 65 74 20 62 79 74 65 73 20 66 72 6f /* Get bytes fro
2af0: 6d 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 m underlying cha
2b00: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 6e 5f 62 nnel */. in_b
2b10: 75 66 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 28 uf = Tcl_Alloc((
2b20: 54 63 6c 5f 53 69 7a 65 29 20 74 6f 52 65 61 64 Tcl_Size) toRead
2b30: 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 );. parent =
2b40: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
2b50: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
2b60: 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 20 self);. read
2b70: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 70 61 = Tcl_ReadRaw(pa
2b80: 72 65 6e 74 2c 20 69 6e 5f 62 75 66 2c 20 28 54 rent, in_buf, (T
2b90: 63 6c 5f 53 69 7a 65 29 20 74 6f 52 65 61 64 29 cl_Size) toRead)
2ba0: 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 ;.. /* Update
2bb0: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
2bc0: 20 69 66 20 28 72 65 61 64 20 3e 20 30 29 20 7b if (read > 0) {
2bd0: 0a 09 2f 2a 20 48 61 76 65 20 64 61 74 61 20 2d ../* Have data -
2be0: 20 55 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e Update function
2bf0: 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 */..if (Encrypt
2c00: 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2d Update(statePtr-
2c10: 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 >interp, statePt
2c20: 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 r->type, statePt
2c30: 72 2d 3e 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 r->ctx, (unsigne
2c40: 64 20 63 68 61 72 20 2a 29 20 62 75 66 2c 0a 09 d char *) buf,..
2c50: 09 26 6f 75 74 5f 6c 65 6e 2c 20 28 75 6e 73 69 .&out_len, (unsi
2c60: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 69 6e 5f gned char *) in_
2c70: 62 75 66 2c 20 72 65 61 64 29 20 3d 3d 20 54 43 buf, read) == TC
2c80: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 2f 2a 20 L_OK) {.. /*
2c90: 49 66 20 68 61 76 65 20 64 61 74 61 2c 20 70 75 If have data, pu
2ca0: 74 20 69 6e 20 62 75 66 2c 20 6f 74 68 65 72 77 t in buf, otherw
2cb0: 69 73 65 20 74 65 6c 6c 20 54 43 4c 20 74 6f 20 ise tell TCL to
2cc0: 74 72 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 try again */..
2cd0: 20 20 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 if (out_len >
2ce0: 30 29 20 7b 0a 09 09 72 65 61 64 20 3d 20 28 54 0) {...read = (T
2cf0: 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e cl_Size) out_len
2d00: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
2d10: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2d20: 3d 20 45 41 47 41 49 4e 3b 0a 09 09 72 65 61 64 = EAGAIN;...read
2d30: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 7d 0a 09 7d = -1;.. }..}
2d40: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c else {.. Tcl
2d50: 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 _SetChannelError
2d60: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c (statePtr->self,
2d70: 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 Tcl_ObjPrintf("
2d80: 55 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 Update failed: %
2d90: 73 22 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 s", GET_ERR_REAS
2da0: 4f 4e 28 29 29 29 3b 0a 09 20 20 20 20 2a 65 72 ON()));.. *er
2db0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4e rorCodePtr = EIN
2dc0: 56 41 4c 3b 0a 09 20 20 20 20 72 65 61 64 20 3d VAL;.. read =
2dd0: 20 30 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 0;..}.. } el
2de0: 73 65 20 69 66 20 28 72 65 61 64 20 3c 20 30 29 se if (read < 0)
2df0: 20 7b 0a 09 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a {../* Error */.
2e00: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
2e10: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
2e20: 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
2e30: 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 (!(statePtr->fla
2e40: 67 73 20 26 20 43 48 41 4e 5f 45 4f 46 29 29 20 gs & CHAN_EOF))
2e50: 7b 0a 09 2f 2a 20 45 4f 46 20 2d 20 46 69 6e 61 {../* EOF - Fina
2e60: 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e 20 61 6e lize function an
2e70: 64 20 70 75 74 20 61 6e 79 20 72 65 6d 61 69 6e d put any remain
2e80: 69 6e 67 20 64 61 74 61 20 69 6e 20 62 75 66 20 ing data in buf
2e90: 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 46 */..if (EncryptF
2ea0: 69 6e 61 6c 69 7a 65 28 73 74 61 74 65 50 74 72 inalize(statePtr
2eb0: 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 ->interp, stateP
2ec0: 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 tr->type, stateP
2ed0: 74 72 2d 3e 63 74 78 2c 20 28 75 6e 73 69 67 6e tr->ctx, (unsign
2ee0: 65 64 20 63 68 61 72 20 2a 29 20 62 75 66 2c 20 ed char *) buf,
2ef0: 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c &out_len) == TCL
2f00: 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 72 65 61 64 _OK) {.. read
2f10: 20 3d 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 = (Tcl_Size) ou
2f20: 74 5f 6c 65 6e 3b 0a 09 7d 20 65 6c 73 65 20 7b t_len;..} else {
2f30: 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 .. Tcl_SetCha
2f40: 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 nnelError(stateP
2f50: 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 tr->self, Tcl_Ob
2f60: 6a 50 72 69 6e 74 66 28 22 46 69 6e 61 6c 69 7a jPrintf("Finaliz
2f70: 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 47 e failed: %s", G
2f80: 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 29 ET_ERR_REASON())
2f90: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
2fa0: 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a dePtr = EINVAL;.
2fb0: 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b 0a 09 . read = 0;..
2fc0: 7d 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c }...statePtr->fl
2fd0: 61 67 73 20 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b ags |= CHAN_EOF;
2fe0: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 46 . }. Tcl_F
2ff0: 72 65 65 28 69 6e 5f 62 75 66 29 3b 0a 20 20 20 ree(in_buf);.
3000: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 return (int) re
3010: 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ad;.}../*. *----
3020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3060: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
3070: 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a OutputProc --. *
3080: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 . *.Called by th
3090: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 e generic IO sys
30a0: 74 65 6d 20 74 6f 20 77 72 69 74 65 20 64 61 74 tem to write dat
30b0: 61 20 69 6e 20 62 75 66 20 74 6f 20 74 72 61 6e a in buf to tran
30c0: 73 66 6f 72 6d 2e 0a 20 2a 09 54 68 65 20 74 72 sform.. *.The tr
30d0: 61 6e 73 66 6f 72 6d 20 77 72 69 74 65 73 20 74 ansform writes t
30e0: 68 65 20 72 65 73 75 6c 74 20 74 6f 20 74 68 65 he result to the
30f0: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e underlying chan
3100: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 nel.. *. * Retur
3110: 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 62 79 74 ns:. *.Total byt
3120: 65 73 20 77 72 69 74 74 65 6e 20 6f 72 20 2d 31 es written or -1
3130: 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 6c for an error al
3140: 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 49 58 ong with a POSIX
3150: 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 69 error. *.code i
3160: 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2e 20 n errorCodePtr.
3170: 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 20 6e Use EAGAIN for n
3180: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 63 onblocking and c
3190: 61 6e 27 74 20 77 72 69 74 65 20 64 61 74 61 2e an't write data.
31a0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
31b0: 63 74 73 3a 0a 20 2a 09 47 65 74 20 64 61 74 61 cts:. *.Get data
31c0: 20 66 72 6f 6d 20 62 75 66 20 61 6e 64 20 75 70 from buf and up
31d0: 64 61 74 65 20 65 6e 63 72 79 70 74 69 6f 6e 0a date encryption.
31e0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
31f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3230: 20 69 6e 74 20 45 6e 63 72 79 70 74 4f 75 74 70 int EncryptOutp
3240: 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 utProc(ClientDat
3250: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 6f a clientData, co
3260: 6e 73 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 nst char *buf, i
3270: 6e 74 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 nt toWrite, int
3280: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b *errorCodePtr) {
3290: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
32a0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
32b0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
32c0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 lientData;. i
32d0: 6e 74 20 77 72 69 74 65 20 3d 20 30 2c 20 6f 75 nt write = 0, ou
32e0: 74 5f 6c 65 6e 3b 0a 20 20 20 20 2a 65 72 72 6f t_len;. *erro
32f0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 rCodePtr = 0;.
3300: 20 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 3b char *out_buf;
3310: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
3320: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
3330: 20 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 69 6e Abort if nothin
3340: 67 20 74 6f 20 70 72 6f 63 65 73 73 20 2a 2f 0a g to process */.
3350: 20 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 if (toWrite
3360: 3c 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 74 72 <= 0 || statePtr
3370: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
3380: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
3390: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
33a0: 0a 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 .. out_buf =
33b0: 54 63 6c 5f 41 6c 6c 6f 63 28 28 54 63 6c 5f 53 Tcl_Alloc((Tcl_S
33c0: 69 7a 65 29 20 74 6f 57 72 69 74 65 2b 45 56 50 ize) toWrite+EVP
33d0: 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 _MAX_BLOCK_LENGT
33e0: 48 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 H);.. /* Upda
33f0: 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 te function */.
3400: 20 20 20 69 66 20 28 45 6e 63 72 79 70 74 55 70 if (EncryptUp
3410: 64 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 69 date(statePtr->i
3420: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
3430: 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d >type, statePtr-
3440: 3e 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 20 >ctx, (unsigned
3450: 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c char *) out_buf,
3460: 0a 09 20 20 20 20 26 6f 75 74 5f 6c 65 6e 2c 20 .. &out_len,
3470: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
3480: 29 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 ) buf, (Tcl_Size
3490: 29 20 74 6f 57 72 69 74 65 29 20 3d 3d 20 54 43 ) toWrite) == TC
34a0: 4c 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 66 20 68 L_OK) {../* If h
34b0: 61 76 65 20 64 61 74 61 2c 20 6f 75 74 70 75 74 ave data, output
34c0: 20 69 74 2c 20 6f 74 68 65 72 77 69 73 65 20 74 it, otherwise t
34d0: 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 79 20 61 ell TCL to try a
34e0: 67 61 69 6e 20 2a 2f 0a 09 69 66 20 28 6f 75 74 gain */..if (out
34f0: 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 20 20 _len > 0) {..
3500: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
3510: 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 ent = Tcl_GetSta
3520: 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 ckedChannel(stat
3530: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 09 20 20 ePtr->self);..
3540: 20 20 77 72 69 74 65 20 3d 20 28 69 6e 74 29 20 write = (int)
3550: 54 63 6c 5f 57 72 69 74 65 52 61 77 28 70 61 72 Tcl_WriteRaw(par
3560: 65 6e 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 ent, (const char
3570: 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 28 54 63 *) out_buf, (Tc
3580: 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 l_Size) out_len)
3590: 3b 0a 09 20 20 20 20 77 72 69 74 65 20 3d 20 74 ;.. write = t
35a0: 6f 57 72 69 74 65 3b 0a 09 7d 20 65 6c 73 65 20 oWrite;..} else
35b0: 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 {.. *errorCod
35c0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
35d0: 20 20 20 20 77 72 69 74 65 20 3d 20 2d 31 3b 0a write = -1;.
35e0: 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b .}.. } else {
35f0: 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c ..Tcl_SetChannel
3600: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e Error(statePtr->
3610: 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 self, Tcl_ObjPri
3620: 6e 74 66 28 22 55 70 64 61 74 65 20 66 61 69 6c ntf("Update fail
3630: 65 64 3a 20 25 73 22 2c 20 47 45 54 5f 45 52 52 ed: %s", GET_ERR
3640: 5f 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 2a 65 _REASON()));..*e
3650: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 rrorCodePtr = EI
3660: 4e 56 41 4c 3b 0a 09 77 72 69 74 65 20 3d 20 30 NVAL;..write = 0
3670: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f ;. }. Tcl_
3680: 46 72 65 65 28 6f 75 74 5f 62 75 66 29 3b 0a 20 Free(out_buf);.
3690: 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 65 3b return write;
36a0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
36b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
36f0: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 53 65 74 *. * EncryptSet
3700: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a OptionProc --. *
3710: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 . *.Called by th
3720: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 e generic IO sys
3730: 74 65 6d 20 74 6f 20 73 65 74 20 63 68 61 6e 6e tem to set chann
3740: 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 20 74 el option name t
3750: 6f 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 o value.. *. * R
3760: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
3770: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
3780: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 or TCL_ERROR if
3790: 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 74 failed along wit
37a0: 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d 65 h an error. *.me
37b0: 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 20 ssage in interp
37c0: 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f and Tcl_SetErrno
37d0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
37e0: 65 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 73 ects:. *.Updates
37f0: 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 channel option
3800: 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a to new value.. *
3810: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
3860: 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 atic int Encrypt
3870: 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c SetOptionProc(Cl
3880: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
3890: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
38a0: 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 *interp, const c
38b0: 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c har *optionName,
38c0: 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 ..const char *op
38d0: 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 20 tionValue) {.
38e0: 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 EncryptState *s
38f0: 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 tatePtr = (Encry
3900: 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e ptState *) clien
3910: 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 tData;. Tcl_C
3920: 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 hannel parent;.
3930: 20 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74 Tcl_DriverSet
3940: 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f OptionProc *setO
3950: 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 ptionProc;..
3960: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
3970: 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 );.. /* Abort
3980: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
3990: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
39a0: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
39b0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
39c0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
39d0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
39e0: 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 69 /* Delegate opti
39f0: 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 2a ons downstream *
3a00: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
3a10: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
3a20: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
3a30: 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f 70 74 elf);. setOpt
3a40: 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 ionProc = Tcl_Ch
3a50: 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 72 annelSetOptionPr
3a60: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
3a70: 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a lType(parent));.
3a80: 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f if (setOptio
3a90: 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b nProc != NULL) {
3aa0: 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 ..return (*setOp
3ab0: 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 tionProc)(Tcl_Ge
3ac0: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
3ad0: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e Data(parent), in
3ae0: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
3af0: 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a , optionValue);.
3b00: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
3b10: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 41 l_SetErrno(EINVA
3b20: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f L);..return Tcl_
3b30: 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e BadChannelOption
3b40: 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e (interp, optionN
3b50: 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 ame, NULL);.
3b60: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
3b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bb0: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 47 65 . *. * EncryptGe
3bc0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 tOptionProc --.
3bd0: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
3be0: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 he generic IO sy
3bf0: 73 74 65 6d 20 74 6f 20 67 65 74 20 63 68 61 6e stem to get chan
3c00: 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 27 nel option name'
3c10: 73 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 s value.. *. * R
3c20: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
3c30: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
3c40: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 or TCL_ERROR if
3c50: 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 74 failed along wit
3c60: 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d 65 h an error. *.me
3c70: 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 20 ssage in interp
3c80: 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f and Tcl_SetErrno
3c90: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3ca0: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 ects:. *.Sets re
3cb0: 73 75 6c 74 20 74 6f 20 6f 70 74 69 6f 6e 27 73 sult to option's
3cc0: 20 76 61 6c 75 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d value. *. *----
3cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d10: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
3d20: 74 20 45 6e 63 72 79 70 74 47 65 74 4f 70 74 69 t EncryptGetOpti
3d30: 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 onProc(ClientDat
3d40: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
3d50: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3d60: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 , const char *op
3d70: 74 69 6f 6e 4e 61 6d 65 2c 0a 09 54 63 6c 5f 44 tionName,..Tcl_D
3d80: 53 74 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 String *optionVa
3d90: 6c 75 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 lue) {. Encry
3da0: 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ptState *statePt
3db0: 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 r = (EncryptStat
3dc0: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
3dd0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
3de0: 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c parent;. Tcl
3df0: 5f 44 72 69 76 65 72 47 65 74 4f 70 74 69 6f 6e _DriverGetOption
3e00: 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 Proc *getOptionP
3e10: 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 roc;.. dprint
3e20: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
3e30: 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f /* Abort if no
3e40: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
3e50: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
3e60: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
3e70: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
3e80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3e90: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c }.. /* Del
3ea0: 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f egate options do
3eb0: 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 wnstream */.
3ec0: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
3ed0: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
3ee0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
3ef0: 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f getOptionPro
3f00: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 c = Tcl_ChannelG
3f10: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c etOptionProc(Tcl
3f20: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
3f30: 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 parent));. if
3f40: 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 (getOptionProc
3f50: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 != NULL) {..retu
3f60: 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 rn (*getOptionPr
3f70: 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e oc)(Tcl_GetChann
3f80: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 elInstanceData(p
3f90: 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 arent), interp,
3fa0: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 optionName, opti
3fb0: 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 onValue);. }
3fc0: 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e else if (optionN
3fd0: 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e ame == (char*) N
3fe0: 55 4c 4c 29 20 7b 0a 09 2f 2a 20 52 65 71 75 65 ULL) {../* Reque
3ff0: 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 st is query for
4000: 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 all options, thi
4010: 73 20 69 73 20 6f 6b 2e 20 2a 2f 0a 09 72 65 74 s is ok. */..ret
4020: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 urn TCL_OK;.
4030: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 65 } else {..Tcl_Se
4040: 74 45 72 72 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a tErrno(EINVAL);.
4050: 09 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 .return Tcl_BadC
4060: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
4070: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
4080: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a NULL);. }.}.
4090: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
40a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
40e0: 20 2a 20 45 6e 63 72 79 70 74 54 69 6d 65 72 48 * EncryptTimerH
40f0: 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 andler --. *. *.
4100: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f Called by the no
4110: 74 69 66 69 65 72 20 76 69 61 20 74 69 6d 65 72 tifier via timer
4120: 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 70 65 to flush out pe
4130: 6e 64 69 6e 67 20 69 6e 70 75 74 20 64 61 74 61 nding input data
4140: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
4150: 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 . *.Nothing. *.
4160: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4170: 20 2a 09 4d 61 79 20 63 61 6c 6c 20 54 63 6c 5f *.May call Tcl_
4180: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 0a 20 2a NotifyChannel. *
4190: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
41e0: 61 74 69 63 20 76 6f 69 64 20 45 6e 63 72 79 70 atic void Encryp
41f0: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 43 6c tTimerHandler(Cl
4200: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
4210: 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 ata) {. Encry
4220: 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ptState *statePt
4230: 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 r = (EncryptStat
4240: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
4250: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
4260: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
4270: 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 Abort if no cha
4280: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 nnel */. if (
4290: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
42a0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
42b0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
42c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
42d0: 6c 65 61 72 20 74 69 6d 65 72 20 74 6f 6b 65 6e lear timer token
42e0: 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 */. statePtr
42f0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
4300: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
4310: 0a 0a 20 20 20 20 2f 2a 20 46 69 72 65 20 65 76 .. /* Fire ev
4320: 65 6e 74 20 69 66 20 74 68 65 72 65 20 69 73 20 ent if there is
4330: 70 65 6e 64 69 6e 67 20 64 61 74 61 2c 20 73 6b pending data, sk
4340: 69 70 20 6f 74 68 65 72 77 69 73 65 20 2a 2f 0a ip otherwise */.
4350: 20 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 if ((statePt
4360: 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 26 20 54 r->watchMask & T
4370: 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 20 CL_READABLE) &&
4380: 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 (Tcl_InputBuffer
4390: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ed(statePtr->sel
43a0: 66 29 20 3e 20 30 29 29 20 7b 0a 09 54 63 6c 5f f) > 0)) {..Tcl_
43b0: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 NotifyChannel(st
43c0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 43 atePtr->self, TC
43d0: 4c 5f 52 45 41 44 41 42 4c 45 29 3b 0a 20 20 20 L_READABLE);.
43e0: 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d }.}../*. *-----
43f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4430: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 57 -. *. * EncryptW
4440: 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 atchProc --. *.
4450: 2a 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 *.Initialize the
4460: 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 notifier to wat
4470: 63 68 20 66 6f 72 20 65 76 65 6e 74 73 20 66 72 ch for events fr
4480: 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e om this channel.
4490: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
44a0: 20 2a 09 4e 6f 74 68 69 6e 67 20 28 63 61 6e 27 *.Nothing (can'
44b0: 74 20 72 65 74 75 72 6e 20 65 72 72 6f 72 20 6d t return error m
44c0: 65 73 73 61 67 65 73 29 0a 20 2a 0a 20 2a 20 53 essages). *. * S
44d0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
44e0: 43 6f 6e 66 69 67 75 72 65 20 6e 6f 74 69 66 69 Configure notifi
44f0: 65 72 20 73 6f 20 66 75 74 75 72 65 20 65 76 65 er so future eve
4500: 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e nts on the chann
4510: 65 6c 20 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 el will be seen
4520: 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d by Tcl.. *. *---
4530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4570: 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 45 6e 63 ---. */.void Enc
4580: 72 79 70 74 57 61 74 63 68 50 72 6f 63 28 43 6c ryptWatchProc(Cl
4590: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
45a0: 61 74 61 2c 20 69 6e 74 20 6d 61 73 6b 29 20 7b ata, int mask) {
45b0: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
45c0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
45d0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
45e0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 lientData;. T
45f0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e cl_Channel paren
4600: 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 t;. Tcl_Drive
4610: 72 57 61 74 63 68 50 72 6f 63 20 2a 77 61 74 63 rWatchProc *watc
4620: 68 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 69 hProc;.. dpri
4630: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
4640: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
4650: 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 no channel */.
4660: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
4670: 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 self == (Tcl_Cha
4680: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
4690: 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 eturn;. }..
46a0: 20 20 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 64 /* Store OR-ed
46b0: 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 combination of
46c0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 TCL_READABLE, TC
46d0: 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 L_WRITABLE and T
46e0: 43 4c 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f 0a CL_EXCEPTION */.
46f0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 statePtr->wa
4700: 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a tchMask = mask;.
4710: 0a 20 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 74 . /* Propagat
4720: 65 20 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 70 e mask info to p
4730: 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f arent channel */
4740: 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 . parent = Tc
4750: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e l_GetStackedChan
4760: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
4770: 6c 66 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 lf);. watchPr
4780: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
4790: 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 WatchProc(Tcl_Ge
47a0: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 tChannelType(par
47b0: 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 63 68 ent));. watch
47c0: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
47d0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
47e0: 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a parent), mask);.
47f0: 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 70 . /* Remove p
4800: 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f 0a ending timer */.
4810: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
4820: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
4830: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
4840: 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 ) {..Tcl_DeleteT
4850: 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 imerHandler(stat
4860: 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 ePtr->timer);..s
4870: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
4880: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
4890: 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 ) NULL;. }..
48a0: 20 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 69 /* If there i
48b0: 73 20 64 61 74 61 20 70 65 6e 64 69 6e 67 2c 20 s data pending,
48c0: 73 65 74 20 6e 65 77 20 74 69 6d 65 72 20 74 6f set new timer to
48d0: 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 call Tcl_Notify
48e0: 43 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 Channel */. i
48f0: 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 f ((mask & TCL_R
4900: 45 41 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c EADABLE) && (Tcl
4910: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
4920: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
4930: 20 30 29 29 20 7b 0a 09 73 74 61 74 65 50 74 72 0)) {..statePtr
4940: 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 ->timer = Tcl_Cr
4950: 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 eateTimerHandler
4960: 28 52 45 41 44 5f 44 45 4c 41 59 2c 20 45 6e 63 (READ_DELAY, Enc
4970: 72 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 ryptTimerHandler
4980: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
4990: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a tatePtr);. }.
49a0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
49f0: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 47 65 74 48 *. * EncryptGetH
4a00: 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a andleProc --. *.
4a10: 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 *.Called from T
4a20: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e cl_GetChannelHan
4a30: 64 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 20 dle to retrieve
4a40: 4f 53 20 73 70 65 63 69 66 69 63 20 66 69 6c 65 OS specific file
4a50: 20 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f 6d 20 handle. *.from
4a60: 69 6e 73 69 64 65 20 74 68 69 73 20 63 68 61 6e inside this chan
4a70: 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 6f nel. Not used fo
4a80: 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e r transformation
4a90: 73 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 s?. *. * Returns
4aa0: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f 72 20 :. *.TCL_OK for
4ab0: 73 75 63 63 65 73 73 20 6f 72 20 54 43 4c 5f 45 success or TCL_E
4ac0: 52 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 20 6f RROR for error o
4ad0: 72 20 69 66 20 6e 6f 74 20 73 75 70 70 6f 72 74 r if not support
4ae0: 65 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 63 74 ed. If. *.direct
4af0: 69 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 41 ion is TCL_READA
4b00: 42 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 6c 65 BLE, sets handle
4b10: 50 74 72 20 74 6f 20 74 68 65 20 68 61 6e 64 6c Ptr to the handl
4b20: 65 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 69 6e e used for. *.in
4b30: 70 75 74 2c 20 6f 72 20 69 66 20 54 43 4c 5f 57 put, or if TCL_W
4b40: 52 49 54 41 42 4c 45 20 73 65 74 73 20 74 6f 20 RITABLE sets to
4b50: 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 20 the handle used
4b60: 66 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a 0a 20 for output.. *.
4b70: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4b80: 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d *.None. *. *---
4b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4bd0: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
4be0: 79 70 74 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 yptGetHandleProc
4bf0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
4c00: 6e 74 44 61 74 61 2c 20 69 6e 74 20 64 69 72 65 ntData, int dire
4c10: 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 ction, ClientDat
4c20: 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b 0a a *handlePtr) {.
4c30: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
4c40: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
4c50: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
4c60: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 ientData;. Tc
4c70: 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 l_Channel parent
4c80: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
4c90: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
4ca0: 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 * Abort if no ch
4cb0: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
4cc0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 (statePtr->self
4cd0: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
4ce0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
4cf0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4d00: 7d 0a 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 }.. parent =
4d10: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
4d20: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
4d30: 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 74 75 72 self);. retur
4d40: 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c n Tcl_GetChannel
4d50: 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 2c 20 64 Handle(parent, d
4d60: 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 irection, handle
4d70: 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d Ptr);.}../*. *--
4d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4dc0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
4dd0: 70 74 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a ptNotifyProc --.
4de0: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
4df0: 54 63 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 Tcl to inform us
4e00: 20 6f 66 20 61 63 74 69 76 69 74 79 20 6f 6e 20 of activity on
4e10: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
4e20: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
4e30: 74 75 72 6e 73 3a 0a 20 2a 09 55 6e 63 68 61 6e turns:. *.Unchan
4e40: 67 65 64 20 69 6e 74 65 72 65 73 74 4d 61 73 6b ged interestMask
4e50: 20 77 68 69 63 68 20 69 73 20 61 6e 20 4f 52 2d which is an OR-
4e60: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
4e70: 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f f TCL_READABLE o
4e80: 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 0a 20 r TCL_WRITABLE.
4e90: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
4ea0: 73 3a 0a 20 2a 09 43 61 6e 63 65 6c 73 20 61 6e s:. *.Cancels an
4eb0: 79 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 2e y pending timer.
4ec0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
4ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4f10: 0a 69 6e 74 20 45 6e 63 72 79 70 74 4e 6f 74 69 .int EncryptNoti
4f20: 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 fyProc(ClientDat
4f30: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e a clientData, in
4f40: 74 20 69 6e 74 65 72 65 73 74 4d 61 73 6b 29 20 t interestMask)
4f50: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
4f60: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
4f70: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
4f80: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
4f90: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
4fa0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 70 ");.. /* Skip
4fb0: 20 74 69 6d 65 72 20 65 76 65 6e 74 20 61 73 20 timer event as
4fc0: 72 65 64 75 6e 64 61 6e 74 20 2a 2f 0a 20 20 20 redundant */.
4fd0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
4fe0: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
4ff0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
5000: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
5010: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
5020: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
5030: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
5040: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
5050: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ULL;. }. r
5060: 65 74 75 72 6e 20 69 6e 74 65 72 65 73 74 4d 61 eturn interestMa
5070: 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 0a 20 2a 20 sk;.}../*. *. *
5080: 43 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 72 Channel type str
5090: 75 63 74 75 72 65 20 64 65 66 69 6e 69 74 69 6f ucture definitio
50a0: 6e 20 66 6f 72 20 65 6e 63 72 79 70 74 69 6f 6e n for encryption
50b0: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 transformations
50c0: 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 .. *. */.static
50d0: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 const Tcl_Channe
50e0: 6c 54 79 70 65 20 65 6e 63 72 79 70 74 43 68 61 lType encryptCha
50f0: 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 nnelType = {.
5100: 20 22 65 6e 63 72 79 70 74 69 6f 6e 22 2c 09 09 "encryption",..
5110: 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a 2f 0a /* Type name */.
5120: 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f TCL_CHANNEL_
5130: 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 76 35 VERSION_5,./* v5
5140: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5150: 45 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 EncryptCloseProc
5160: 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f 63 ,../* Close proc
5170: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 49 */. EncryptI
5180: 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e nputProc,../* In
5190: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 put proc */.
51a0: 45 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 6f EncryptOutputPro
51b0: 63 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 c,../* Output pr
51c0: 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 oc */. NULL,.
51d0: 09 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a ../* Seek proc *
51e0: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 53 65 74 /. EncryptSet
51f0: 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 53 OptionProc,./* S
5200: 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a et option proc *
5210: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 65 74 /. EncryptGet
5220: 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 OptionProc,./* G
5230: 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a et option proc *
5240: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 57 61 74 /. EncryptWat
5250: 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 chProc,../* Init
5260: 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 ialize notifier
5270: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 65 */. EncryptGe
5280: 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 2f 2a 20 tHandleProc,./*
5290: 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f Get OS handles o
52a0: 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f ut of channel */
52b0: 0a 20 20 20 20 45 6e 63 72 79 70 74 43 6c 6f 73 . EncryptClos
52c0: 65 32 50 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f 73 e2Proc,../* clos
52d0: 65 32 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 6e e2proc */. En
52e0: 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 cryptBlockModePr
52f0: 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f 63 6b oc,./* Set block
5300: 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 ing/nonblocking
5310: 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c mode*/. NULL,
5320: 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f 63 .../* Flush proc
5330: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 4e */. EncryptN
5340: 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 otifyProc,../* H
5350: 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 andling of event
5360: 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f s bubbling up */
5370: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
5380: 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 2a Wide seek proc *
5390: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
53a0: 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 2a Thread action *
53b0: 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 /. NULL.../*
53c0: 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a Truncate */.};..
53d0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
53e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5420: 2a 20 45 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c * EncryptChannel
5430: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
5440: 09 43 72 65 61 74 65 20 61 20 73 74 61 63 6b 65 .Create a stacke
5450: 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20 d channel for a
5460: 6d 65 73 73 61 67 65 20 65 6e 63 72 79 70 74 69 message encrypti
5470: 6f 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f on transformatio
5480: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 n.. *. * Returns
5490: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
54a0: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
54b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
54c0: 41 64 64 73 20 74 72 61 6e 73 66 6f 72 6d 20 74 Adds transform t
54d0: 6f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 20 73 65 o channel and se
54e0: 74 73 20 72 65 73 75 6c 74 20 74 6f 20 63 68 61 ts result to cha
54f0: 6e 6e 65 6c 20 69 64 20 6f 72 20 65 72 72 6f 72 nnel id or error
5500: 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d message.. *. *-
5510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5550: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
5560: 20 69 6e 74 20 45 6e 63 72 79 70 74 43 68 61 6e int EncryptChan
5570: 6e 65 6c 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 nelHandler(Tcl_I
5580: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
5590: 6e 74 20 74 79 70 65 2c 20 63 6f 6e 73 74 20 63 nt type, const c
55a0: 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 0a 09 54 har *channel,..T
55b0: 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 cl_Obj *cipherOb
55c0: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 j, Tcl_Obj *dige
55d0: 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a stObj, Tcl_Obj *
55e0: 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 keyObj, Tcl_Obj
55f0: 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 64 64 *ivObj, int padd
5600: 69 6e 67 29 20 7b 0a 20 20 20 20 69 6e 74 20 6d ing) {. int m
5610: 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f ode; /* OR-ed co
5620: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c mbination of TCL
5630: 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 54 43 _READABLE and TC
5640: 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 20 L_WRITABLE */.
5650: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 Tcl_Channel ch
5660: 61 6e 3b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 an;. EncryptS
5670: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a tate *statePtr;.
5680: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
5690: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
56a0: 56 61 6c 69 64 61 74 65 20 61 72 67 73 20 2a 2f Validate args */
56b0: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c . if (channel
56c0: 20 3d 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 == (const char
56d0: 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f *) NULL) {..Tcl_
56e0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
56f0: 65 72 70 2c 20 22 4e 6f 20 63 68 61 6e 6e 65 6c erp, "No channel
5700: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
5710: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
5720: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
5730: 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 /* Get channel
5740: 49 64 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d Id */. chan =
5750: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 Tcl_GetChannel(
5760: 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 2c interp, channel,
5770: 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 &mode);. if
5780: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 (chan == (Tcl_Ch
5790: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
57a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
57b0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
57c0: 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 Make sure to ope
57d0: 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d rate on the topm
57e0: 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ost channel */.
57f0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
5800: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
5810: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 69 );.. /* Confi
5820: 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a gure channel */.
5830: 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e Tcl_SetChann
5840: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c elOption(interp,
5850: 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 chan, "-transla
5860: 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 tion", "binary")
5870: 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 ;. if (Tcl_Ge
5880: 74 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 tChannelBufferSi
5890: 7a 65 28 63 68 61 6e 29 20 3c 20 45 56 50 5f 4d ze(chan) < EVP_M
58a0: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 AX_BLOCK_LENGTH)
58b0: 20 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e {..Tcl_SetChann
58c0: 65 6c 42 75 66 66 65 72 53 69 7a 65 28 63 68 61 elBufferSize(cha
58d0: 6e 2c 20 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b n, EVP_MAX_BLOCK
58e0: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 7d 0a _LENGTH);. }.
58f0: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 73 . /* Create s
5900: 74 61 74 65 20 64 61 74 61 20 73 74 72 75 63 74 tate data struct
5910: 75 72 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ure */. if ((
5920: 73 74 61 74 65 50 74 72 20 3d 20 45 6e 63 72 79 statePtr = Encry
5930: 70 74 53 74 61 74 65 4e 65 77 28 69 6e 74 65 72 ptStateNew(inter
5940: 70 2c 20 74 79 70 65 29 29 20 3d 3d 20 4e 55 4c p, type)) == NUL
5950: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
5960: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5970: 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f Memory allocatio
5980: 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 n error", (char
5990: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
59a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
59b0: 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d }. statePtr-
59c0: 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a 20 20 >self = chan;.
59d0: 20 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 statePtr->mode
59e0: 20 3d 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 2f 2a = mode;.. /*
59f0: 20 49 6e 69 74 69 61 6c 69 7a 65 20 66 75 6e 63 Initialize func
5a00: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 tion */. if (
5a10: 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a EncryptInitializ
5a20: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
5a30: 26 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 &statePtr->ctx,
5a40: 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 cipherObj, keyOb
5a50: 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 6e j, ivObj, paddin
5a60: 67 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a g) != TCL_OK) {.
5a70: 09 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 .EncryptStateFre
5a80: 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 e(statePtr);..re
5a90: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5aa0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 }.. /* St
5ab0: 61 63 6b 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ack channel */.
5ac0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c statePtr->sel
5ad0: 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 f = Tcl_StackCha
5ae0: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 26 65 6e nnel(interp, &en
5af0: 63 72 79 70 74 43 68 61 6e 6e 65 6c 54 79 70 65 cryptChannelType
5b00: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
5b10: 74 61 74 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 tatePtr, mode, c
5b20: 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 73 74 han);. if (st
5b30: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
5b40: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
5b50: 4c 4c 29 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 LL) {..EncryptSt
5b60: 61 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 ateFree(statePtr
5b70: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
5b80: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
5b90: 20 64 70 72 69 6e 74 66 28 22 43 72 65 61 74 65 dprintf("Create
5ba0: 64 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 64 20 d channel named
5bb0: 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e %s", Tcl_GetChan
5bc0: 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 nelName(statePtr
5bd0: 2d 3e 73 65 6c 66 29 29 3b 0a 0a 20 20 20 20 2f ->self));.. /
5be0: 2a 20 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 * Set result to
5bf0: 63 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 channel Id */.
5c00: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
5c10: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
5c20: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
5c30: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ame(statePtr->se
5c40: 6c 66 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c lf), TCL_VOLATIL
5c50: 45 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 E);. return T
5c60: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a CL_OK;.}../*****
5c70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5c80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5c90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ca0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
5cb0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
5cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
5d00: 45 6e 63 72 79 70 74 49 6e 73 74 61 6e 63 65 4f EncryptInstanceO
5d10: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 48 bjCmd --. *. *.H
5d20: 61 6e 64 6c 65 72 20 66 6f 72 20 65 6e 63 72 79 andler for encry
5d30: 70 74 2f 64 65 63 72 79 70 74 20 63 6f 6d 6d 61 pt/decrypt comma
5d40: 6e 64 20 69 6e 73 74 61 6e 63 65 73 2e 20 55 73 nd instances. Us
5d50: 65 64 20 74 6f 20 75 70 64 61 74 65 0a 20 2a 09 ed to update. *.
5d60: 61 6e 64 20 66 69 6e 61 6c 69 7a 65 20 64 61 74 and finalize dat
5d70: 61 20 66 6f 72 20 65 6e 63 72 79 70 74 2f 64 65 a for encrypt/de
5d80: 63 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 2e 0a crypt function..
5d90: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
5da0: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
5db0: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
5dc0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 effects:. *.Add
5dd0: 73 20 64 61 74 61 20 74 6f 20 65 6e 63 72 79 70 s data to encryp
5de0: 74 2f 64 65 63 72 79 70 74 20 66 75 6e 63 74 69 t/decrypt functi
5df0: 6f 6e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d on. *. *--------
5e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
5e40: 69 6e 74 20 45 6e 63 72 79 70 74 49 6e 73 74 61 int EncryptInsta
5e50: 6e 63 65 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 nceObjCmd(Client
5e60: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
5e70: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
5e80: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
5e90: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
5ea0: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 45 6e 63 72 jv[]) {. Encr
5eb0: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
5ec0: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
5ed0: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
5ee0: 3b 0a 20 20 20 20 69 6e 74 20 66 6e 2c 20 6f 75 ;. int fn, ou
5ef0: 74 5f 6c 65 6e 3b 0a 20 20 20 20 54 63 6c 5f 53 t_len;. Tcl_S
5f00: 69 7a 65 20 64 61 74 61 5f 6c 65 6e 20 3d 20 30 ize data_len = 0
5f10: 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 ;. unsigned c
5f20: 68 61 72 20 2a 64 61 74 61 20 3d 20 4e 55 4c 4c har *data = NULL
5f30: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 ;. Tcl_Obj *r
5f40: 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 75 6e esultObj;. un
5f50: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 signed char *out
5f60: 5f 62 75 66 3b 0a 20 20 20 20 73 74 61 74 69 63 _buf;. static
5f70: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 69 6e 73 const char *ins
5f80: 74 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 3d 20 7b tance_fns [] = {
5f90: 20 22 66 69 6e 61 6c 69 7a 65 22 2c 20 22 75 70 "finalize", "up
5fa0: 64 61 74 65 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 0a date", NULL };..
5fb0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
5fc0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 led");.. /* V
5fd0: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e alidate arg coun
5fe0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a t */. if (obj
5ff0: 63 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 c < 2 || objc >
6000: 33 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 3) {..Tcl_WrongN
6010: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
6020: 2c 20 6f 62 6a 76 2c 20 22 66 75 6e 63 74 69 6f , objv, "functio
6030: 6e 20 3f 64 61 74 61 3f 22 29 3b 0a 09 72 65 74 n ?data?");..ret
6040: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6050: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
6060: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
6070: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
6080: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c xFromObj(interp,
6090: 20 6f 62 6a 76 5b 31 5d 2c 20 69 6e 73 74 61 6e objv[1], instan
60a0: 63 65 5f 66 6e 73 2c 20 22 66 75 6e 63 74 69 6f ce_fns, "functio
60b0: 6e 22 2c 20 30 2c 20 26 66 6e 29 20 21 3d 20 54 n", 0, &fn) != T
60c0: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
60d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
60e0: 7d 0a 0a 20 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 }.. /* Alloca
60f0: 74 65 20 73 74 6f 72 61 67 65 20 66 6f 72 20 72 te storage for r
6100: 65 73 75 6c 74 2e 20 53 69 7a 65 20 73 68 6f 75 esult. Size shou
6110: 6c 64 20 62 65 20 64 61 74 61 20 73 69 7a 65 20 ld be data size
6120: 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 2e 20 2a 2f + block size. */
6130: 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d . resultObj =
6140: 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 Tcl_NewObj();.
6150: 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a if (resultObj
6160: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
6170: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
6180: 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c terp, "Memory al
6190: 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c location error",
61a0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
61b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
61c0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
61d0: 2a 20 44 6f 20 66 75 6e 63 74 69 6f 6e 20 2a 2f * Do function */
61e0: 0a 20 20 20 20 69 66 20 28 66 6e 29 20 7b 0a 09 . if (fn) {..
61f0: 2f 2a 20 47 65 74 20 64 61 74 61 20 6f 72 20 72 /* Get data or r
6200: 65 74 75 72 6e 20 65 72 72 6f 72 20 69 66 20 6e eturn error if n
6210: 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 6f 62 6a 63 one */..if (objc
6220: 20 3d 3d 20 33 29 20 7b 0a 09 20 20 20 20 64 61 == 3) {.. da
6230: 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 ta = Tcl_GetByte
6240: 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a ArrayFromObj(obj
6250: 76 5b 32 5d 2c 20 26 64 61 74 61 5f 6c 65 6e 29 v[2], &data_len)
6260: 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ;..} else {..
6270: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 Tcl_WrongNumArg
6280: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
6290: 76 2c 20 22 75 70 64 61 74 65 20 64 61 74 61 22 v, "update data"
62a0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
62b0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f CL_ERROR;..}.../
62c0: 2a 20 41 6c 6c 6f 63 61 74 65 20 6f 75 74 70 75 * Allocate outpu
62d0: 74 20 62 75 66 66 65 72 20 2a 2f 0a 09 6f 75 74 t buffer */..out
62e0: 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 _buf = Tcl_SetBy
62f0: 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 teArrayLength(re
6300: 73 75 6c 74 4f 62 6a 2c 20 64 61 74 61 5f 6c 65 sultObj, data_le
6310: 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f n+EVP_MAX_BLOCK_
6320: 4c 45 4e 47 54 48 29 3b 0a 09 69 66 20 28 64 61 LENGTH);..if (da
6330: 74 61 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 ta == NULL || ou
6340: 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b t_buf == NULL) {
6350: 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 .. Tcl_DecrRe
6360: 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a fCount(resultObj
6370: 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 );.. Tcl_Appe
6380: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
6390: 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 "Memory allocat
63a0: 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 ion error", (cha
63b0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 r *) NULL);..
63c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
63d0: 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 55 70 64 61 74 R;..}.../* Updat
63e0: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 e function */..i
63f0: 66 20 28 45 6e 63 72 79 70 74 55 70 64 61 74 65 f (EncryptUpdate
6400: 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 (interp, statePt
6410: 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 r->type, statePt
6420: 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c r->ctx, out_buf,
6430: 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c &out_len, data,
6440: 20 64 61 74 61 5f 6c 65 6e 29 20 3d 3d 20 54 43 data_len) == TC
6450: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 6f 75 74 L_OK) {.. out
6460: 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 _buf = Tcl_SetBy
6470: 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 teArrayLength(re
6480: 73 75 6c 74 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 sultObj, (Tcl_Si
6490: 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 ze) out_len);..
64a0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
64b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
64c0: 6c 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 ltObj);..} else
64d0: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 {.. Tcl_DecrR
64e0: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 efCount(resultOb
64f0: 6a 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 j);.. return
6500: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 20 TCL_ERROR;..}..
6510: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f 2a 20 } else {../*
6520: 41 6c 6c 6f 63 61 74 65 20 6f 75 74 70 75 74 20 Allocate output
6530: 62 75 66 66 65 72 20 2a 2f 0a 09 6f 75 74 5f 62 buffer */..out_b
6540: 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 uf = Tcl_SetByte
6550: 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 ArrayLength(resu
6560: 6c 74 4f 62 6a 2c 20 45 56 50 5f 4d 41 58 5f 42 ltObj, EVP_MAX_B
6570: 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b 0a 09 69 LOCK_LENGTH);..i
6580: 66 20 28 6f 75 74 5f 62 75 66 20 3d 3d 20 4e 55 f (out_buf == NU
6590: 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 LL) {.. Tcl_D
65a0: 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 ecrRefCount(resu
65b0: 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 54 63 6c ltObj);.. Tcl
65c0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
65d0: 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c terp, "Memory al
65e0: 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c location error",
65f0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
6600: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
6610: 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 _ERROR;..}.../*
6620: 46 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f Finalize functio
6630: 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 n */..if (Encryp
6640: 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 tFinalize(interp
6650: 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 70 65 , statePtr->type
6660: 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c , statePtr->ctx,
6670: 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c out_buf, &out_l
6680: 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b en) == TCL_OK) {
6690: 0a 09 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 .. out_buf =
66a0: 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 Tcl_SetByteArray
66b0: 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a Length(resultObj
66c0: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 , (Tcl_Size) out
66d0: 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f _len);.. Tcl_
66e0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
66f0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
6700: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
6710: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
6720: 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 (resultObj);..
6730: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6740: 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 OR;..}.../* Clea
6750: 6e 2d 75 70 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c n-up */..Tcl_Del
6760: 65 74 65 43 6f 6d 6d 61 6e 64 46 72 6f 6d 54 6f eteCommandFromTo
6770: 6b 65 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 74 ken(interp, stat
6780: 65 50 74 72 2d 3e 74 6f 6b 65 6e 29 3b 0a 20 20 ePtr->token);.
6790: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 }. return T
67a0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d CL_OK;.}../*. *-
67b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67f0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
6800: 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e CommandDeleteHan
6810: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 dler --. *. *. C
6820: 61 6c 6c 62 61 63 6b 20 74 6f 20 63 6c 65 61 6e allback to clean
6830: 2d 75 70 20 77 68 65 6e 20 65 6e 63 72 79 70 74 -up when encrypt
6840: 2f 64 65 63 72 79 70 74 20 63 6f 6d 6d 61 6e 64 /decrypt command
6850: 20 69 73 20 64 65 6c 65 74 65 64 2e 0a 20 2a 0a is deleted.. *.
6860: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e * Returns:. *.N
6870: 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 othing. *. * Sid
6880: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 e effects:. *.De
6890: 73 74 72 6f 79 73 20 73 74 61 74 65 20 69 6e 66 stroys state inf
68a0: 6f 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 o structure. *.
68b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
68c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68f0: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 45 6e ----. */.void En
6900: 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 cryptCommandDele
6910: 74 65 48 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 teHandler(Client
6920: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 Data clientData)
6930: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
6940: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
6950: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
6960: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
6970: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
6980: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 d");.. /* Cle
6990: 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 45 6e 63 an-up */. Enc
69a0: 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 ryptStateFree(st
69b0: 61 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 atePtr);.}../*.
69c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
69d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a00: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
6a10: 70 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 ptCommandHandler
6a20: 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 72 65 61 74 --. *. *. Creat
6a30: 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 61 64 64 e command to add
6a40: 20 64 61 74 61 20 74 6f 20 65 6e 63 72 79 70 74 data to encrypt
6a50: 2f 64 65 63 72 79 70 74 20 66 75 6e 63 74 69 6f /decrypt functio
6a60: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 n.. *. * Returns
6a70: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
6a80: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
6a90: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
6aa0: 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 20 Creates command
6ab0: 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 or error message
6ac0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
6ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
6b10: 74 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 t EncryptCommand
6b20: 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 Handler(Tcl_Inte
6b30: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
6b40: 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 type, Tcl_Obj *c
6b50: 6d 64 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a mdObj, Tcl_Obj *
6b60: 63 69 70 68 65 72 4f 62 6a 2c 0a 09 54 63 6c 5f cipherObj,..Tcl_
6b70: 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 Obj *digestObj,
6b80: 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c Tcl_Obj *keyObj,
6b90: 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 2c Tcl_Obj *ivObj,
6ba0: 20 69 6e 74 20 70 61 64 64 69 6e 67 29 20 7b 0a int padding) {.
6bb0: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
6bc0: 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 *statePtr;.
6bd0: 63 68 61 72 20 2a 63 6d 64 4e 61 6d 65 20 3d 20 char *cmdName =
6be0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 63 6d Tcl_GetString(cm
6bf0: 64 4f 62 6a 29 3b 0a 0a 20 20 20 20 64 70 72 69 dObj);.. dpri
6c00: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
6c10: 20 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 if ((statePt
6c20: 72 20 3d 20 45 6e 63 72 79 70 74 53 74 61 74 65 r = EncryptState
6c30: 4e 65 77 28 69 6e 74 65 72 70 2c 20 74 79 70 65 New(interp, type
6c40: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 )) == NULL) {..T
6c50: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6c60: 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 interp, "Memory
6c70: 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 allocation error
6c80: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
6c90: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
6ca0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
6cb0: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 66 /* Initialize f
6cc0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
6cd0: 66 20 28 45 6e 63 72 79 70 74 49 6e 69 74 69 61 f (EncryptInitia
6ce0: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 lize(interp, typ
6cf0: 65 2c 20 26 73 74 61 74 65 50 74 72 2d 3e 63 74 e, &statePtr->ct
6d00: 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 x, cipherObj, ke
6d10: 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 yObj, ivObj, pad
6d20: 64 69 6e 67 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 ding) != TCL_OK)
6d30: 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 {..EncryptState
6d40: 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a Free(statePtr);.
6d50: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
6d60: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
6d70: 20 43 72 65 61 74 65 20 69 6e 73 74 61 6e 63 65 Create instance
6d80: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 20 20 command */.
6d90: 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 statePtr->token
6da0: 3d 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 = Tcl_CreateObjC
6db0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 63 ommand(interp, c
6dc0: 6d 64 4e 61 6d 65 2c 20 45 6e 63 72 79 70 74 49 mdName, EncryptI
6dd0: 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 nstanceObjCmd,..
6de0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
6df0: 74 65 50 74 72 2c 20 45 6e 63 72 79 70 74 43 6f tePtr, EncryptCo
6e00: 6d 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c mmandDeleteHandl
6e10: 65 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 74 er);.. /* Ret
6e20: 75 72 6e 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 urn command name
6e30: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f */. Tcl_SetO
6e40: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
6e50: 20 63 6d 64 4f 62 6a 29 3b 0a 20 20 20 20 72 65 cmdObj);. re
6e60: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
6e70: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
6e80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6ea0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6eb0: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ****/../*. *----
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6f00: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 44 61 74 *. * EncryptDat
6f10: 61 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 aHandler --. *.
6f20: 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 *.Perform encryp
6f30: 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e tion function on
6f40: 20 61 20 62 6c 6f 63 6b 20 6f 66 20 64 61 74 61 a block of data
6f50: 20 61 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 and return resu
6f60: 6c 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e lt.. *. * Return
6f70: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
6f80: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
6f90: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
6fa0: 09 53 65 74 73 20 72 65 73 75 6c 74 20 6f 72 20 .Sets result or
6fb0: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a error message. *
6fc0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
6fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7000: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 ------. */.int E
7010: 6e 63 72 79 70 74 44 61 74 61 48 61 6e 64 6c 65 ncryptDataHandle
7020: 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e r(Tcl_Interp *in
7030: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 terp, int type,
7040: 54 63 6c 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a Tcl_Obj *dataObj
7050: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 , Tcl_Obj *ciphe
7060: 72 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a rObj,..Tcl_Obj *
7070: 64 69 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f digestObj, Tcl_O
7080: 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f bj *keyObj, Tcl_
7090: 4f 62 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 Obj *ivObj, int
70a0: 70 61 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 45 padding) {. E
70b0: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 VP_CIPHER_CTX *c
70c0: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 tx = NULL;. i
70d0: 6e 74 20 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 nt out_len = 0,
70e0: 6c 65 6e 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 len = 0, res = T
70f0: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 54 63 6c 5f 53 CL_OK;. Tcl_S
7100: 69 7a 65 20 64 61 74 61 5f 6c 65 6e 20 3d 20 30 ize data_len = 0
7110: 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 ;. unsigned c
7120: 68 61 72 20 2a 64 61 74 61 2c 20 2a 6f 75 74 5f har *data, *out_
7130: 62 75 66 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a buf;. Tcl_Obj
7140: 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 *resultObj;..
7150: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
7160: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 d");.. /* Get
7170: 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 data */. if
7180: 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c (dataObj != NULL
7190: 29 20 7b 0a 09 64 61 74 61 20 3d 20 54 63 6c 5f ) {..data = Tcl_
71a0: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
71b0: 4f 62 6a 28 64 61 74 61 4f 62 6a 2c 20 26 64 61 Obj(dataObj, &da
71c0: 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 ta_len);. } e
71d0: 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e lse {..Tcl_Appen
71e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
71f0: 22 4e 6f 20 64 61 74 61 22 2c 20 28 63 68 61 72 "No data", (char
7200: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 *) NULL);..retu
7210: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7220: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 6c 6c 6f }.. /* Allo
7230: 63 61 74 65 20 73 74 6f 72 61 67 65 20 66 6f 72 cate storage for
7240: 20 72 65 73 75 6c 74 2e 20 53 69 7a 65 20 73 68 result. Size sh
7250: 6f 75 6c 64 20 62 65 20 64 61 74 61 20 73 69 7a ould be data siz
7260: 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 2e 20 e + block size.
7270: 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a */. resultObj
7280: 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b = Tcl_NewObj();
7290: 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 54 . out_buf = T
72a0: 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c cl_SetByteArrayL
72b0: 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c ength(resultObj,
72c0: 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 5f 4d 41 data_len+EVP_MA
72d0: 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b X_BLOCK_LENGTH);
72e0: 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f . if (resultO
72f0: 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 bj == NULL || ou
7300: 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b t_buf == NULL) {
7310: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
7320: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f lt(interp, "Memo
7330: 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 ry allocation er
7340: 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ror", (char *) N
7350: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
7360: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
7370: 20 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 6f /* Perform o
7380: 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 peration */.
7390: 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 74 69 if (EncryptIniti
73a0: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 alize(interp, ty
73b0: 70 65 2c 20 26 63 74 78 2c 20 63 69 70 68 65 72 pe, &ctx, cipher
73c0: 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f Obj, keyObj, ivO
73d0: 62 6a 2c 20 70 61 64 64 69 6e 67 29 20 21 3d 20 bj, padding) !=
73e0: 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 TCL_OK ||..Encry
73f0: 70 74 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c ptUpdate(interp,
7400: 20 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f type, ctx, out_
7410: 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 buf, &out_len, d
7420: 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 20 21 ata, data_len) !
7430: 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 = TCL_OK ||..Enc
7440: 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 ryptFinalize(int
7450: 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 erp, type, ctx,
7460: 6f 75 74 5f 62 75 66 2b 6f 75 74 5f 6c 65 6e 2c out_buf+out_len,
7470: 20 26 6c 65 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b &len) != TCL_OK
7480: 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 ) {..res = TCL_E
7490: 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 RROR;..goto done
74a0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f 75 74 5f ;. }. out_
74b0: 6c 65 6e 20 2b 3d 20 6c 65 6e 3b 0a 0a 64 6f 6e len += len;..don
74c0: 65 3a 0a 20 20 20 20 2f 2a 20 53 65 74 20 6f 75 e:. /* Set ou
74d0: 74 70 75 74 20 72 65 73 75 6c 74 20 2a 2f 0a 20 tput result */.
74e0: 20 20 20 69 66 20 28 72 65 73 20 3d 3d 20 54 43 if (res == TC
74f0: 4c 5f 4f 4b 29 20 7b 0a 09 6f 75 74 5f 62 75 66 L_OK) {..out_buf
7500: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 = Tcl_SetByteAr
7510: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 rayLength(result
7520: 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 Obj, (Tcl_Size)
7530: 6f 75 74 5f 6c 65 6e 29 3b 0a 09 54 63 6c 5f 53 out_len);..Tcl_S
7540: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
7550: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
7560: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
7570: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 l_DecrRefCount(r
7580: 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 2f 2a 20 52 esultObj);../* R
7590: 65 73 75 6c 74 20 69 73 20 65 72 72 6f 72 20 6d esult is error m
75a0: 65 73 73 61 67 65 20 2a 2f 0a 20 20 20 20 7d 0a essage */. }.
75b0: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 20 75 70 . /* Clean up
75c0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 74 78 20 */. if (ctx
75d0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f != NULL) {..EVP_
75e0: 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 CIPHER_CTX_free(
75f0: 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ctx);. }.
7600: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
7610: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7620: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7630: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7640: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7650: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
7660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
76a0: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 46 69 6c 65 *. * EncryptFile
76b0: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
76c0: 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 .Perform encrypt
76d0: 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 ion function on
76e0: 61 20 62 6c 6f 63 6b 20 6f 66 20 64 61 74 61 2c a block of data,
76f0: 20 77 72 69 74 65 20 69 74 20 74 6f 20 61 0a 20 write it to a.
7700: 2a 09 66 69 6c 65 2c 20 74 68 65 6e 20 72 65 74 *.file, then ret
7710: 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 2e 0a urn the result..
7720: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
7730: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
7740: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
7750: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 6e 63 effects:. *.Enc
7760: 72 79 70 74 73 20 6f 72 20 64 65 63 72 79 70 74 rypts or decrypt
7770: 73 20 69 6e 46 69 6c 65 20 64 61 74 61 20 74 6f s inFile data to
7780: 20 6f 75 74 46 69 6c 65 20 61 6e 64 20 73 65 74 outFile and set
7790: 73 20 72 65 73 75 6c 74 20 74 6f 0a 20 2a 09 73 s result to. *.s
77a0: 69 7a 65 20 6f 66 20 6f 75 74 46 69 6c 65 2c 20 ize of outFile,
77b0: 6f 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 or an error mess
77c0: 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d age.. *. *------
77d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
7810: 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 69 6c /.int EncryptFil
7820: 65 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 eHandler(Tcl_Int
7830: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
7840: 20 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a type, Tcl_Obj *
7850: 69 6e 46 69 6c 65 4f 62 6a 2c 20 54 63 6c 5f 4f inFileObj, Tcl_O
7860: 62 6a 20 2a 6f 75 74 46 69 6c 65 4f 62 6a 2c 0a bj *outFileObj,.
7870: 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 .Tcl_Obj *cipher
7880: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 Obj, Tcl_Obj *di
7890: 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a gestObj, Tcl_Obj
78a0: 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 *keyObj, Tcl_Ob
78b0: 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 j *ivObj, int pa
78c0: 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 45 56 50 dding) {. EVP
78d0: 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 _CIPHER_CTX *ctx
78e0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 = NULL;. int
78f0: 20 74 6f 74 61 6c 20 3d 20 30 2c 20 72 65 73 2c total = 0, res,
7900: 20 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 out_len = 0, le
7910: 6e 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e n;. Tcl_Chann
7920: 65 6c 20 69 6e 20 3d 20 4e 55 4c 4c 2c 20 6f 75 el in = NULL, ou
7930: 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e t = NULL;. un
7940: 73 69 67 6e 65 64 20 63 68 61 72 20 69 6e 5f 62 signed char in_b
7950: 75 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 5d 3b uf[BUFFER_SIZE];
7960: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 . unsigned ch
7970: 61 72 20 6f 75 74 5f 62 75 66 5b 42 55 46 46 45 ar out_buf[BUFFE
7980: 52 5f 53 49 5a 45 2b 45 56 50 5f 4d 41 58 5f 42 R_SIZE+EVP_MAX_B
7990: 4c 4f 43 4b 5f 4c 45 4e 47 54 48 5d 3b 0a 0a 20 LOCK_LENGTH];..
79a0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
79b0: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 4f 70 ed");.. /* Op
79c0: 65 6e 20 69 6e 70 75 74 20 66 69 6c 65 20 2a 2f en input file */
79d0: 0a 20 20 20 20 69 66 20 28 28 69 6e 20 3d 20 54 . if ((in = T
79e0: 63 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 cl_FSOpenFileCha
79f0: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 69 6e 46 nnel(interp, inF
7a00: 69 6c 65 4f 62 6a 2c 20 22 72 62 22 2c 20 30 34 ileObj, "rb", 04
7a10: 34 34 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 44)) == (Tcl_Cha
7a20: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
7a30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7a40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f . }.. /* O
7a50: 70 65 6e 20 6f 75 74 70 75 74 20 66 69 6c 65 20 pen output file
7a60: 2a 2f 0a 20 20 20 20 69 66 20 28 28 6f 75 74 20 */. if ((out
7a70: 3d 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 = Tcl_FSOpenFile
7a80: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
7a90: 6f 75 74 46 69 6c 65 4f 62 6a 2c 20 22 77 62 22 outFileObj, "wb"
7aa0: 2c 20 30 36 34 34 29 29 20 3d 3d 20 28 54 63 6c , 0644)) == (Tcl
7ab0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
7ac0: 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 {..Tcl_Close(int
7ad0: 65 72 70 2c 20 69 6e 29 3b 0a 09 72 65 74 75 72 erp, in);..retur
7ae0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7af0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 }.. /* Initi
7b00: 61 6c 69 7a 65 20 6f 70 65 72 61 74 69 6f 6e 20 alize operation
7b10: 2a 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 */. if ((res
7b20: 3d 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c = EncryptInitial
7b30: 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 ize(interp, type
7b40: 2c 20 26 63 74 78 2c 20 63 69 70 68 65 72 4f 62 , &ctx, cipherOb
7b50: 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a j, keyObj, ivObj
7b60: 2c 20 70 61 64 64 69 6e 67 29 29 20 21 3d 20 54 , padding)) != T
7b70: 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 CL_OK) {..goto d
7b80: 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 one;. }..
7b90: 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 /* Read file dat
7ba0: 61 20 66 72 6f 6d 20 69 6e 46 69 6c 65 2c 20 65 a from inFile, e
7bb0: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 69 ncrypt/decrypt i
7bc0: 74 2c 20 74 68 65 6e 20 6f 75 74 70 75 74 20 74 t, then output t
7bd0: 6f 20 6f 75 74 46 69 6c 65 20 2a 2f 0a 20 20 20 o outFile */.
7be0: 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f 66 while (!Tcl_Eof
7bf0: 28 69 6e 29 29 20 7b 0a 09 54 63 6c 5f 53 69 7a (in)) {..Tcl_Siz
7c00: 65 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 65 61 e read = Tcl_Rea
7c10: 64 52 61 77 28 69 6e 2c 20 28 63 68 61 72 20 2a dRaw(in, (char *
7c20: 29 20 69 6e 5f 62 75 66 2c 20 42 55 46 46 45 52 ) in_buf, BUFFER
7c30: 5f 53 49 5a 45 29 3b 0a 09 69 66 20 28 72 65 61 _SIZE);..if (rea
7c40: 64 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 d > 0) {.. if
7c50: 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 74 ((res = Encrypt
7c60: 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 Update(interp, t
7c70: 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 ype, ctx, out_bu
7c80: 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f f, &out_len, in_
7c90: 62 75 66 2c 20 72 65 61 64 29 29 20 3d 3d 20 54 buf, read)) == T
7ca0: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 6f CL_OK) {...if (o
7cb0: 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 ut_len > 0) {...
7cc0: 20 20 20 20 6c 65 6e 20 3d 20 28 69 6e 74 29 20 len = (int)
7cd0: 54 63 6c 5f 57 72 69 74 65 52 61 77 28 6f 75 74 Tcl_WriteRaw(out
7ce0: 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 , (const char *)
7cf0: 20 6f 75 74 5f 62 75 66 2c 20 28 54 63 6c 5f 53 out_buf, (Tcl_S
7d00: 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 ize) out_len);..
7d10: 09 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 3d 20 . if (len >=
7d20: 30 29 20 7b 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 0) {....total +=
7d30: 20 6c 65 6e 3b 0a 09 09 20 20 20 20 7d 20 65 6c len;... } el
7d40: 73 65 20 7b 0a 09 09 09 54 63 6c 5f 41 70 70 65 se {....Tcl_Appe
7d50: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
7d60: 20 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 22 "Write error: "
7d70: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 , Tcl_ErrnoMsg(T
7d80: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 cl_GetErrno()),
7d90: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
7da0: 09 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 ...res = TCL_ERR
7db0: 4f 52 3b 0a 09 09 09 67 6f 74 6f 20 64 6f 6e 65 OR;....goto done
7dc0: 3b 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 ;... }...}..
7dd0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 67 6f } else {...go
7de0: 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a to done;.. }.
7df0: 09 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 .} else if (read
7e00: 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c < 0) {.. Tcl
7e10: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
7e20: 74 65 72 70 2c 20 22 52 65 61 64 20 65 72 72 6f terp, "Read erro
7e30: 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d r: ", Tcl_ErrnoM
7e40: 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 sg(Tcl_GetErrno(
7e50: 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c )), (char *) NUL
7e60: 4c 29 3b 0a 09 20 20 20 20 72 65 73 20 3d 20 54 L);.. res = T
7e70: 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 67 CL_ERROR;.. g
7e80: 6f 74 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 oto done;..}.
7e90: 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c }.. /* Final
7ea0: 69 7a 65 20 64 61 74 61 20 61 6e 64 20 77 72 69 ize data and wri
7eb0: 74 65 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 te any remaining
7ec0: 20 64 61 74 61 20 69 6e 20 62 6c 6f 63 6b 20 2a data in block *
7ed0: 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d /. if ((res =
7ee0: 20 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 EncryptFinalize
7ef0: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 (interp, type, c
7f00: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 tx, out_buf, &ou
7f10: 74 5f 6c 65 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f t_len)) == TCL_O
7f20: 4b 29 20 7b 0a 09 69 66 20 28 6f 75 74 5f 6c 65 K) {..if (out_le
7f30: 6e 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 6c 65 n > 0) {.. le
7f40: 6e 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f 57 72 n = (int) Tcl_Wr
7f50: 69 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e iteRaw(out, (con
7f60: 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 st char *) out_b
7f70: 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f uf, (Tcl_Size) o
7f80: 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 69 66 ut_len);.. if
7f90: 20 28 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 (len >= 0) {...
7fa0: 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 20 total += len;..
7fb0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 } else {...Tc
7fc0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7fd0: 6e 74 65 72 70 2c 20 22 57 72 69 74 65 20 65 72 nterp, "Write er
7fe0: 72 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e ror: ", Tcl_Errn
7ff0: 6f 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e oMsg(Tcl_GetErrn
8000: 6f 28 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e o()), (char *) N
8010: 55 4c 4c 29 3b 0a 09 09 72 65 73 20 3d 20 54 43 ULL);...res = TC
8020: 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 L_ERROR;...goto
8030: 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a done;.. }..}.
8040: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c .Tcl_SetObjResul
8050: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
8060: 77 49 6e 74 4f 62 6a 28 74 6f 74 61 6c 29 29 3b wIntObj(total));
8070: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 67 . } else {..g
8080: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a oto done;. }.
8090: 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 6c .done:. /* Cl
80a0: 65 61 6e 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 ean up */. if
80b0: 20 28 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a (in != NULL) {.
80c0: 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 .Tcl_Close(inter
80d0: 70 2c 20 69 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 p, in);. }.
80e0: 20 20 69 66 20 28 6f 75 74 20 21 3d 20 4e 55 4c if (out != NUL
80f0: 4c 29 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 L) {..Tcl_Close(
8100: 69 6e 74 65 72 70 2c 20 6f 75 74 29 3b 0a 20 20 interp, out);.
8110: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 }. if (ctx
8120: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f != NULL) {..EVP_
8130: 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 CIPHER_CTX_free(
8140: 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ctx);. }.
8150: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
8160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8170: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8180: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
81a0: 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 63 6f 6e ***/..static con
81b0: 73 74 20 63 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 st char *command
81c0: 5f 6f 70 74 73 20 5b 5d 20 3d 20 7b 0a 20 20 20 _opts [] = {.
81d0: 20 22 2d 63 68 61 6e 22 2c 20 22 2d 63 68 61 6e "-chan", "-chan
81e0: 6e 65 6c 22 2c 20 22 2d 63 69 70 68 65 72 22 2c nel", "-cipher",
81f0: 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 22 2d 64 "-command", "-d
8200: 61 74 61 22 2c 20 22 2d 64 69 67 65 73 74 22 2c ata", "-digest",
8210: 20 22 2d 69 6e 66 69 6c 65 22 2c 20 22 2d 66 69 "-infile", "-fi
8220: 6c 65 6e 61 6d 65 22 2c 0a 20 20 20 20 22 2d 6f lename",. "-o
8230: 75 74 66 69 6c 65 22 2c 20 22 2d 68 61 73 68 22 utfile", "-hash"
8240: 2c 20 22 2d 69 76 22 2c 20 22 2d 6b 65 79 22 2c , "-iv", "-key",
8250: 20 22 2d 6d 61 63 22 2c 20 22 2d 70 61 64 64 69 "-mac", "-paddi
8260: 6e 67 22 2c 20 4e 55 4c 4c 7d 3b 0a 0a 65 6e 75 ng", NULL};..enu
8270: 6d 20 5f 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 20 m _command_opts
8280: 7b 0a 20 20 20 20 5f 6f 70 74 5f 63 68 61 6e 2c {. _opt_chan,
8290: 20 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 2c 20 5f _opt_channel, _
82a0: 6f 70 74 5f 63 69 70 68 65 72 2c 20 5f 6f 70 74 opt_cipher, _opt
82b0: 5f 63 6f 6d 6d 61 6e 64 2c 20 5f 6f 70 74 5f 64 _command, _opt_d
82c0: 61 74 61 2c 20 5f 6f 70 74 5f 64 69 67 65 73 74 ata, _opt_digest
82d0: 2c 20 5f 6f 70 74 5f 69 6e 66 69 6c 65 2c 0a 20 , _opt_infile,.
82e0: 20 20 20 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 _opt_filename
82f0: 2c 20 5f 6f 70 74 5f 6f 75 74 66 69 6c 65 2c 20 , _opt_outfile,
8300: 5f 6f 70 74 5f 68 61 73 68 2c 20 5f 6f 70 74 5f _opt_hash, _opt_
8310: 69 76 2c 20 5f 6f 70 74 5f 6b 65 79 2c 20 5f 6f iv, _opt_key, _o
8320: 70 74 5f 6d 61 63 2c 20 5f 6f 70 74 5f 70 61 64 pt_mac, _opt_pad
8330: 64 69 6e 67 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d ding.};../*. *--
8340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8380: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4d -. *. * EncryptM
8390: 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 ain --. *. *.Per
83a0: 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 form encryption
83b0: 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 function and ret
83c0: 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 urn result.. *.
83d0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
83e0: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
83f0: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
8400: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 ects:. *.Sets re
8410: 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 sult or error me
8420: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
8430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
8470: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
8480: 63 72 79 70 74 4d 61 69 6e 28 69 6e 74 20 74 79 cryptMain(int ty
8490: 70 65 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a pe, Tcl_Interp *
84a0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
84b0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
84c0: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 objv[]) {. T
84d0: 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 cl_Obj *cipherOb
84e0: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 63 6d 64 4f 62 j = NULL, *cmdOb
84f0: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 4f j = NULL, *dataO
8500: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 69 67 65 bj = NULL, *dige
8510: 73 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 stObj = NULL;.
8520: 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c Tcl_Obj *inFil
8530: 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 75 eObj = NULL, *ou
8540: 74 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c tFileObj = NULL,
8550: 20 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 2c *keyObj = NULL,
8560: 20 2a 69 76 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 *ivObj = NULL,
8570: 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a *macObj = NULL;.
8580: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
8590: 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c 20 channel = NULL,
85a0: 2a 6f 70 74 3b 0a 20 20 20 20 69 6e 74 20 72 65 *opt;. int re
85b0: 73 2c 20 73 74 61 72 74 20 3d 20 31 2c 20 70 61 s, start = 1, pa
85c0: 64 64 69 6e 67 20 3d 20 31 3b 0a 20 20 20 20 54 dding = 1;. T
85d0: 63 6c 5f 53 69 7a 65 20 66 6e 3b 0a 0a 20 20 20 cl_Size fn;..
85e0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
85f0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 ");.. /* Clea
8600: 72 20 69 6e 74 65 72 70 20 72 65 73 75 6c 74 20 r interp result
8610: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 */. Tcl_Reset
8620: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
8630: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
8640: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
8650: 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 33 20 7c if (objc < 3 |
8660: 7c 20 6f 62 6a 63 20 3e 20 31 32 29 20 7b 0a 09 | objc > 12) {..
8670: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
8680: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
8690: 2c 20 22 3f 2d 63 69 70 68 65 72 3f 20 6e 61 6d , "?-cipher? nam
86a0: 65 20 3f 2d 64 69 67 65 73 74 20 6e 61 6d 65 3f e ?-digest name?
86b0: 20 2d 6b 65 79 20 6b 65 79 20 3f 2d 69 76 20 73 -key key ?-iv s
86c0: 74 72 69 6e 67 3f 20 3f 2d 6d 61 63 20 6e 61 6d tring? ?-mac nam
86d0: 65 3f 20 3f 2d 70 61 64 64 69 6e 67 20 62 6f 6f e? ?-padding boo
86e0: 6c 65 61 6e 3f 20 5b 2d 63 68 61 6e 6e 65 6c 20 lean? [-channel
86f0: 63 68 61 6e 20 7c 20 2d 63 6f 6d 6d 61 6e 64 20 chan | -command
8700: 63 6d 64 4e 61 6d 65 20 7c 20 2d 69 6e 66 69 6c cmdName | -infil
8710: 65 20 66 69 6c 65 6e 61 6d 65 20 2d 6f 75 74 66 e filename -outf
8720: 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 7c 20 3f ile filename | ?
8730: 2d 64 61 74 61 3f 20 64 61 74 61 5d 22 29 3b 0a -data? data]");.
8740: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
8750: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
8760: 20 53 70 65 63 69 61 6c 20 63 61 73 65 20 6f 66 Special case of
8770: 20 66 69 72 73 74 20 61 72 67 20 69 73 20 63 69 first arg is ci
8780: 70 68 65 72 20 2a 2f 0a 20 20 20 20 6f 70 74 20 pher */. opt
8790: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 = Tcl_GetString(
87a0: 6f 62 6a 76 5b 73 74 61 72 74 5d 29 3b 0a 20 20 objv[start]);.
87b0: 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 if (opt[0] !=
87c0: 27 2d 27 29 20 7b 0a 09 73 77 69 74 63 68 28 74 '-') {..switch(t
87d0: 79 70 65 29 20 7b 0a 09 63 61 73 65 20 54 59 50 ype) {..case TYP
87e0: 45 5f 45 4e 43 52 59 50 54 3a 0a 09 63 61 73 65 E_ENCRYPT:..case
87f0: 20 54 59 50 45 5f 44 45 43 52 59 50 54 3a 0a 09 TYPE_DECRYPT:..
8800: 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 cipherObj =
8810: 6f 62 6a 76 5b 73 74 61 72 74 2b 2b 5d 3b 0a 09 objv[start++];..
8820: 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 break;..}.
8830: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
8840: 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 options */. f
8850: 6f 72 20 28 69 6e 74 20 69 64 78 20 3d 20 73 74 or (int idx = st
8860: 61 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b art; idx < objc;
8870: 20 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a 20 53 70 idx++) {../* Sp
8880: 65 63 69 61 6c 20 63 61 73 65 20 66 6f 72 20 77 ecial case for w
8890: 68 65 6e 20 6c 61 73 74 20 61 72 67 20 69 73 20 hen last arg is
88a0: 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 69 64 78 data */..if (idx
88b0: 20 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 20 7b 0a == objc - 1) {.
88c0: 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 .opt = Tcl_GetSt
88d0: 72 69 6e 67 28 6f 62 6a 76 5b 69 64 78 5d 29 3b ring(objv[idx]);
88e0: 0a 09 20 20 20 20 69 66 20 28 6f 70 74 5b 30 5d .. if (opt[0]
88f0: 20 21 3d 20 27 2d 27 20 26 26 20 64 61 74 61 4f != '-' && dataO
8900: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 bj == NULL) {...
8910: 64 61 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 dataObj = objv[i
8920: 64 78 5d 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 dx];...break;..
8930: 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 47 65 74 }..}.../* Get
8940: 20 6f 70 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 option */..if (
8950: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d Tcl_GetIndexFrom
8960: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
8970: 5b 69 64 78 5d 2c 20 63 6f 6d 6d 61 6e 64 5f 6f [idx], command_o
8980: 70 74 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 pts, "option", 0
8990: 2c 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b , &fn) != TCL_OK
89a0: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
89b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 TCL_ERROR;..}...
89c0: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
89d0: 68 61 73 20 61 20 76 61 6c 75 65 20 2a 2f 0a 09 has a value */..
89e0: 69 66 20 28 2b 2b 69 64 78 20 3e 3d 20 6f 62 6a if (++idx >= obj
89f0: 63 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 c) {.. Tcl_Ap
8a00: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8a10: 70 2c 20 22 4e 6f 20 76 61 6c 75 65 20 66 6f 72 p, "No value for
8a20: 20 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 63 6f 6d option \"", com
8a30: 6d 61 6e 64 5f 6f 70 74 73 5b 66 6e 5d 2c 20 22 mand_opts[fn], "
8a40: 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 \"", (char *) NU
8a50: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
8a60: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 09 _ERROR;. }...
8a70: 73 77 69 74 63 68 28 66 6e 29 20 7b 0a 09 63 61 switch(fn) {..ca
8a80: 73 65 20 5f 6f 70 74 5f 63 68 61 6e 3a 0a 09 63 se _opt_chan:..c
8a90: 61 73 65 20 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c ase _opt_channel
8aa0: 3a 0a 20 20 20 20 09 20 20 20 20 47 45 54 5f 4f :. . GET_O
8ab0: 50 54 5f 53 54 52 49 4e 47 28 6f 62 6a 76 5b 69 PT_STRING(objv[i
8ac0: 64 78 5d 2c 20 63 68 61 6e 6e 65 6c 2c 20 4e 55 dx], channel, NU
8ad0: 4c 4c 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b LL);.. break;
8ae0: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 63 69 70 68 ..case _opt_ciph
8af0: 65 72 3a 0a 09 20 20 20 20 63 69 70 68 65 72 4f er:.. cipherO
8b00: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
8b10: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8b20: 65 20 5f 6f 70 74 5f 63 6f 6d 6d 61 6e 64 3a 0a e _opt_command:.
8b30: 09 20 20 20 20 63 6d 64 4f 62 6a 20 3d 20 6f 62 . cmdObj = ob
8b40: 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 jv[idx];.. br
8b50: 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f eak;..case _opt_
8b60: 64 61 74 61 3a 0a 09 20 20 20 20 64 61 74 61 4f data:.. dataO
8b70: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
8b80: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8b90: 65 20 5f 6f 70 74 5f 64 69 67 65 73 74 3a 0a 09 e _opt_digest:..
8ba0: 63 61 73 65 20 5f 6f 70 74 5f 68 61 73 68 3a 0a case _opt_hash:.
8bb0: 09 20 20 20 20 64 69 67 65 73 74 4f 62 6a 20 3d . digestObj =
8bc0: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8bd0: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8be0: 70 74 5f 69 6e 66 69 6c 65 3a 0a 09 63 61 73 65 pt_infile:..case
8bf0: 20 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 3a 0a _opt_filename:.
8c00: 09 20 20 20 20 69 6e 46 69 6c 65 4f 62 6a 20 3d . inFileObj =
8c10: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8c20: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8c30: 70 74 5f 6f 75 74 66 69 6c 65 3a 0a 09 20 20 20 pt_outfile:..
8c40: 20 6f 75 74 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 outFileObj = ob
8c50: 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 jv[idx];.. br
8c60: 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f eak;..case _opt_
8c70: 69 76 3a 0a 09 20 20 20 20 69 76 4f 62 6a 20 3d iv:.. ivObj =
8c80: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8c90: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8ca0: 70 74 5f 6b 65 79 3a 0a 09 20 20 20 20 6b 65 79 pt_key:.. key
8cb0: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b Obj = objv[idx];
8cc0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
8cd0: 73 65 20 5f 6f 70 74 5f 6d 61 63 3a 0a 09 20 20 se _opt_mac:..
8ce0: 20 20 6d 61 63 4f 62 6a 20 3d 20 6f 62 6a 76 5b macObj = objv[
8cf0: 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b idx];.. break
8d00: 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 70 61 64 ;..case _opt_pad
8d10: 64 69 6e 67 3a 0a 20 20 20 20 09 20 20 20 20 47 ding:. . G
8d20: 45 54 5f 4f 50 54 5f 42 4f 4f 4c 28 6f 62 6a 76 ET_OPT_BOOL(objv
8d30: 5b 69 64 78 5d 2c 20 26 70 61 64 64 69 6e 67 29 [idx], &padding)
8d40: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d ;.. break;..}
8d50: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
8d60: 68 65 63 6b 20 66 6f 72 20 72 65 71 75 69 72 65 heck for require
8d70: 64 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 d options */.
8d80: 20 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 3d if (cipherObj =
8d90: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
8da0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8db0: 72 70 2c 20 22 4e 6f 20 63 69 70 68 65 72 22 2c rp, "No cipher",
8dc0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
8dd0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
8de0: 6b 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 keyObj == NULL)
8df0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
8e00: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
8e10: 6b 65 79 22 2c 20 28 63 68 61 72 20 2a 29 20 4e key", (char *) N
8e20: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
8e30: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
8e40: 20 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 65 /* Perform e
8e50: 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 ncryption functi
8e60: 6f 6e 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 on on file, stac
8e70: 6b 65 64 20 63 68 61 6e 6e 65 6c 2c 20 75 73 69 ked channel, usi
8e80: 6e 67 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d ng instance comm
8e90: 61 6e 64 2c 20 6f 72 20 64 61 74 61 20 62 6c 6f and, or data blo
8ea0: 62 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 46 b */. if (inF
8eb0: 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 ileObj != NULL &
8ec0: 26 20 6f 75 74 46 69 6c 65 4f 62 6a 20 21 3d 20 & outFileObj !=
8ed0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
8ee0: 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 ncryptFileHandle
8ef0: 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 r(interp, type,
8f00: 69 6e 46 69 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 inFileObj, outFi
8f10: 6c 65 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a leObj, cipherObj
8f20: 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 , digestObj, key
8f30: 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 Obj, ivObj, padd
8f40: 69 6e 67 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 ing);. } else
8f50: 20 69 66 20 28 63 68 61 6e 6e 65 6c 20 21 3d 20 if (channel !=
8f60: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
8f70: 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e ncryptChannelHan
8f80: 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 dler(interp, typ
8f90: 65 2c 20 63 68 61 6e 6e 65 6c 2c 20 63 69 70 68 e, channel, ciph
8fa0: 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a erObj, digestObj
8fb0: 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c , keyObj, ivObj,
8fc0: 20 70 61 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d padding);. }
8fd0: 20 65 6c 73 65 20 69 66 20 28 63 6d 64 4f 62 6a else if (cmdObj
8fe0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 != NULL) {..res
8ff0: 20 3d 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e = EncryptComman
9000: 64 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c dHandler(interp,
9010: 20 74 79 70 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 type, cmdObj, c
9020: 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 ipherObj, digest
9030: 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f Obj, keyObj, ivO
9040: 62 6a 2c 20 70 61 64 64 69 6e 67 29 3b 0a 20 20 bj, padding);.
9050: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 64 61 74 } else if (dat
9060: 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a aObj != NULL) {.
9070: 09 72 65 73 20 3d 20 45 6e 63 72 79 70 74 44 61 .res = EncryptDa
9080: 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 taHandler(interp
9090: 2c 20 74 79 70 65 2c 20 64 61 74 61 4f 62 6a 2c , type, dataObj,
90a0: 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 cipherObj, dige
90b0: 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 stObj, keyObj, i
90c0: 76 4f 62 6a 2c 20 70 61 64 64 69 6e 67 29 3b 0a vObj, padding);.
90d0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
90e0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
90f0: 6e 74 65 72 70 2c 20 22 4e 6f 20 6f 70 65 72 61 nterp, "No opera
9100: 74 69 6f 6e 20 73 70 65 63 69 66 69 65 64 3a 20 tion specified:
9110: 55 73 65 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 Use -channel, -c
9120: 6f 6d 6d 61 6e 64 2c 20 2d 64 61 74 61 2c 20 6f ommand, -data, o
9130: 72 20 2d 69 6e 66 69 6c 65 20 6f 70 74 69 6f 6e r -infile option
9140: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
9150: 29 3b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 );..res = TCL_ER
9160: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ROR;. }. r
9170: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
9180: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
9190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
91d0: 72 79 70 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 ryption Commands
91e0: 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 --. *. *.Perfor
91f0: 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e m encryption fun
9200: 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e ction and return
9210: 20 72 65 73 75 6c 74 73 0a 20 2a 0a 20 2a 20 52 results. *. * R
9220: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
9230: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
9240: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
9250: 73 3a 0a 20 2a 09 43 6f 6d 6d 61 6e 64 20 64 65 s:. *.Command de
9260: 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d pendent. *. *---
9270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92b0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
92c0: 45 6e 63 72 79 70 74 4f 62 6a 43 6d 64 28 43 6c EncryptObjCmd(Cl
92d0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
92e0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
92f0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
9300: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
9310: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
9320: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 (void) clientDat
9330: 61 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 45 6e a;. return En
9340: 63 72 79 70 74 4d 61 69 6e 28 54 59 50 45 5f 45 cryptMain(TYPE_E
9350: 4e 43 52 59 50 54 2c 20 69 6e 74 65 72 70 2c 20 NCRYPT, interp,
9360: 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a objc, objv);.}..
9370: 73 74 61 74 69 63 20 69 6e 74 20 44 65 63 72 79 static int Decry
9380: 70 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 ptObjCmd(ClientD
9390: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
93a0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
93b0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
93c0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
93d0: 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 v[]) {. (void
93e0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
93f0: 20 20 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 return Encrypt
9400: 4d 61 69 6e 28 54 59 50 45 5f 44 45 43 52 59 50 Main(TYPE_DECRYP
9410: 54 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c T, interp, objc,
9420: 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a objv);.}../*. *
9430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9470: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
9480: 74 5f 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d 0a t_Initialize --.
9490: 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 6e 61 6d *. *.Create nam
94a0: 65 73 70 61 63 65 2c 20 63 6f 6d 6d 61 6e 64 73 espace, commands
94b0: 2c 20 61 6e 64 20 72 65 67 69 73 74 65 72 20 70 , and register p
94c0: 61 63 6b 61 67 65 20 76 65 72 73 69 6f 6e 0a 20 ackage version.
94d0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
94e0: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
94f0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
9500: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 effects:. *.Crea
9510: 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a tes commands. *.
9520: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
9530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9560: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c -----. */.int Tl
9570: 73 5f 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 s_EncryptCommand
9580: 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e s(Tcl_Interp *in
9590: 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f terp) {. Tcl_
95a0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
95b0: 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a (interp, "::tls:
95c0: 3a 65 6e 63 72 79 70 74 22 2c 20 45 6e 63 72 79 :encrypt", Encry
95d0: 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e ptObjCmd, (Clien
95e0: 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 tData) NULL, (Tc
95f0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
9600: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
9610: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
9620: 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c nd(interp, "::tl
9630: 73 3a 3a 64 65 63 72 79 70 74 22 2c 20 44 65 63 s::decrypt", Dec
9640: 72 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 ryptObjCmd, (Cli
9650: 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 entData) NULL, (
9660: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
9670: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
9680: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
9690: 0a 0a ..