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 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 ;.. /* Create
5880: 20 73 74 61 74 65 20 64 61 74 61 20 73 74 72 75 state data stru
5890: 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 69 66 20 cture */. if
58a0: 28 28 73 74 61 74 65 50 74 72 20 3d 20 45 6e 63 ((statePtr = Enc
58b0: 72 79 70 74 53 74 61 74 65 4e 65 77 28 69 6e 74 ryptStateNew(int
58c0: 65 72 70 2c 20 74 79 70 65 29 29 20 3d 3d 20 4e erp, type)) == N
58d0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
58e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
58f0: 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 "Memory allocat
5900: 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 ion error", (cha
5910: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
5920: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5930: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 }. statePt
5940: 72 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a r->self = chan;.
5950: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f statePtr->mo
5960: 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 de = mode;..
5970: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 66 75 /* Initialize fu
5980: 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 nction */. if
5990: 20 28 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c (EncryptInitial
59a0: 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 ize(interp, type
59b0: 2c 20 26 73 74 61 74 65 50 74 72 2d 3e 63 74 78 , &statePtr->ctx
59c0: 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 , cipherObj, key
59d0: 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 Obj, ivObj, padd
59e0: 69 6e 67 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ing) != TCL_OK)
59f0: 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 46 {..EncryptStateF
5a00: 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 ree(statePtr);..
5a10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5a20: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
5a30: 53 74 61 63 6b 20 63 68 61 6e 6e 65 6c 20 2a 2f Stack channel */
5a40: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 . statePtr->s
5a50: 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 elf = Tcl_StackC
5a60: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 26 hannel(interp, &
5a70: 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 54 79 encryptChannelTy
5a80: 70 65 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 pe, (ClientData)
5a90: 20 73 74 61 74 65 50 74 72 2c 20 6d 6f 64 65 2c statePtr, mode,
5aa0: 20 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 chan);. if (
5ab0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
5ac0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
5ad0: 4e 55 4c 4c 29 20 7b 0a 09 45 6e 63 72 79 70 74 NULL) {..Encrypt
5ae0: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
5af0: 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c tr);..return TCL
5b00: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5b10: 20 20 20 2f 2a 20 53 65 74 20 72 65 73 75 6c 74 /* Set result
5b20: 20 74 6f 20 63 68 61 6e 6e 65 6c 20 49 64 20 2a to channel Id *
5b30: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 /. Tcl_SetRes
5b40: 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
5b50: 72 20 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e r *) Tcl_GetChan
5b60: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 54 nelName(chan), T
5b70: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 CL_VOLATILE);.
5b80: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
5b90: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
5ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5be0: 20 2a 0a 20 2a 20 55 6e 73 74 61 63 6b 20 43 68 *. * Unstack Ch
5bf0: 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 annel --. *. *.T
5c00: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 6d his function rem
5c10: 6f 76 65 73 20 74 68 65 20 73 74 61 63 6b 65 64 oves the stacked
5c20: 20 63 68 61 6e 6e 65 6c 20 66 72 6f 6d 20 74 68 channel from th
5c30: 65 20 74 6f 70 20 6f 66 20 74 68 65 0a 20 2a 09 e top of the. *.
5c40: 63 68 61 6e 6e 65 6c 20 73 74 61 63 6b 20 69 66 channel stack if
5c50: 20 69 74 20 69 73 20 61 20 65 6e 63 72 79 70 74 it is a encrypt
5c60: 69 6f 6e 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a ion channel.. *.
5c70: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
5c80: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
5c90: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
5ca0: 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f 76 65 fects:. *.Remove
5cb0: 73 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f 6d s transform from
5cc0: 20 63 68 61 6e 6e 65 6c 20 6f 72 20 73 65 74 73 channel or sets
5cd0: 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 result to error
5ce0: 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d message.. *. *-
5cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d30: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
5d40: 20 69 6e 74 20 45 6e 63 72 79 70 74 55 6e 73 74 int EncryptUnst
5d50: 61 63 6b 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 ackObjCmd(Client
5d60: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
5d70: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
5d80: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
5d90: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
5da0: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f jv[]) {. Tcl_
5db0: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 Channel chan;.
5dc0: 20 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f int mode; /* O
5dd0: 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e R-ed combination
5de0: 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 of TCL_READABLE
5df0: 20 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 4c and TCL_WRITABL
5e00: 45 20 20 2a 2f 0a 20 20 20 20 28 76 6f 69 64 29 E */. (void)
5e10: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
5e20: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
5e30: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c d");.. /* Val
5e40: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
5e50: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
5e60: 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 2) {..Tcl_Wro
5e70: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
5e80: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e , 1, objv, "chan
5e90: 6e 65 6c 49 64 22 29 3b 0a 09 72 65 74 75 72 6e nelId");..return
5ea0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5eb0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 }.. /* Get ch
5ec0: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 annel */. cha
5ed0: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
5ee0: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
5ef0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
5f00: 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 ), &mode);. i
5f10: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
5f20: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
5f30: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5f40: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5f50: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f * Make sure to o
5f60: 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f perate on the to
5f70: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f pmost channel */
5f80: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
5f90: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
5fa0: 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 68 65 an);.. /* Che
5fb0: 63 6b 20 69 66 20 65 6e 63 72 79 70 74 69 6f 6e ck if encryption
5fc0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5fd0: 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e if (Tcl_GetChann
5fe0: 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 elType(chan) !=
5ff0: 26 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 54 &encryptChannelT
6000: 79 70 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ype) {..Tcl_Appe
6010: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
6020: 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 "bad channel \"
6030: 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 ", Tcl_GetChanne
6040: 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 20 lName(chan),..
6050: 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 65 6e 63 "\": not a enc
6060: 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e 65 6c 22 ryption channel"
6070: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
6080: 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 ;..Tcl_SetErrorC
6090: 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 ode(interp, "TLS
60a0: 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 22 43 ", "UNSTACK", "C
60b0: 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c 49 HANNEL", "INVALI
60c0: 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c D", (char *) NUL
60d0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
60e0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
60f0: 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 66 6f /* Pop transfo
6100: 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 rm from channel
6110: 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 */. return Tc
6120: 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 6c l_UnstackChannel
6130: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 3b 0a (interp, chan);.
6140: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
6150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6170: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6180: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
6190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61d0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
61e0: 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 20 2d InstanceObjCmd -
61f0: 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 -. *. *.Handler
6200: 66 6f 72 20 65 6e 63 72 79 70 74 2f 64 65 63 72 for encrypt/decr
6210: 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 73 74 ypt command inst
6220: 61 6e 63 65 73 2e 20 55 73 65 64 20 74 6f 20 75 ances. Used to u
6230: 70 64 61 74 65 0a 20 2a 09 61 6e 64 20 66 69 6e pdate. *.and fin
6240: 61 6c 69 7a 65 20 64 61 74 61 20 66 6f 72 20 65 alize data for e
6250: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 ncrypt/decrypt f
6260: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
6270: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
6280: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
6290: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
62a0: 73 3a 0a 20 2a 09 41 64 64 73 20 64 61 74 61 20 s:. *.Adds data
62b0: 74 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 to encrypt/decry
62c0: 70 74 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 pt function. *.
62d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
62e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6310: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
6320: 72 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 ryptInstanceObjC
6330: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
6340: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
6350: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
6360: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
6370: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
6380: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
6390: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
63a0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
63b0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 lientData;. i
63c0: 6e 74 20 66 6e 2c 20 6f 75 74 5f 6c 65 6e 3b 0a nt fn, out_len;.
63d0: 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 64 61 74 Tcl_Size dat
63e0: 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 75 a_len = 0;. u
63f0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 64 61 nsigned char *da
6400: 74 61 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 ta = NULL;. T
6410: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
6420: 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 j;. unsigned
6430: 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 3b 0a 20 char *out_buf;.
6440: 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 static const
6450: 63 68 61 72 20 2a 69 6e 73 74 61 6e 63 65 5f 66 char *instance_f
6460: 6e 73 20 5b 5d 20 3d 20 7b 20 22 66 69 6e 61 6c ns [] = { "final
6470: 69 7a 65 22 2c 20 22 75 70 64 61 74 65 22 2c 20 ize", "update",
6480: 4e 55 4c 4c 20 7d 3b 0a 0a 20 20 20 20 64 70 72 NULL };.. dpr
6490: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
64a0: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
64b0: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
64c0: 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 7c if (objc < 2 |
64d0: 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 54 | objc > 3) {..T
64e0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
64f0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6500: 20 22 66 75 6e 63 74 69 6f 6e 20 3f 64 61 74 61 "function ?data
6510: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
6520: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6530: 20 20 20 2f 2a 20 47 65 74 20 66 75 6e 63 74 69 /* Get functi
6540: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 on */. if (Tc
6550: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
6560: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 j(interp, objv[1
6570: 5d 2c 20 69 6e 73 74 61 6e 63 65 5f 66 6e 73 2c ], instance_fns,
6580: 20 22 66 75 6e 63 74 69 6f 6e 22 2c 20 30 2c 20 "function", 0,
6590: 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 &fn) != TCL_OK)
65a0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
65b0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
65c0: 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 74 6f 72 /* Allocate stor
65d0: 61 67 65 20 66 6f 72 20 72 65 73 75 6c 74 2e 20 age for result.
65e0: 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 65 20 64 Size should be d
65f0: 61 74 61 20 73 69 7a 65 20 2b 20 62 6c 6f 63 6b ata size + block
6600: 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 72 65 size. */. re
6610: 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 sultObj = Tcl_Ne
6620: 77 4f 62 6a 28 29 3b 0a 20 20 20 20 69 66 20 28 wObj();. if (
6630: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
6640: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
6650: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
6660: 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f Memory allocatio
6670: 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 n error", (char
6680: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
6690: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
66a0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 66 75 }.. /* Do fu
66b0: 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 nction */. if
66c0: 20 28 66 6e 29 20 7b 0a 09 2f 2a 20 47 65 74 20 (fn) {../* Get
66d0: 64 61 74 61 20 6f 72 20 72 65 74 75 72 6e 20 65 data or return e
66e0: 72 72 6f 72 20 69 66 20 6e 6f 6e 65 20 2a 2f 0a rror if none */.
66f0: 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 33 29 20 .if (objc == 3)
6700: 7b 0a 09 20 20 20 20 64 61 74 61 20 3d 20 54 63 {.. data = Tc
6710: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
6720: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 omObj(objv[2], &
6730: 64 61 74 61 5f 6c 65 6e 29 3b 0a 09 7d 20 65 6c data_len);..} el
6740: 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 57 72 se {.. Tcl_Wr
6750: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
6760: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 75 70 64 p, 1, objv, "upd
6770: 61 74 65 20 64 61 74 61 22 29 3b 0a 09 20 20 20 ate data");..
6780: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
6790: 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 41 6c 6c 6f 63 R;..}.../* Alloc
67a0: 61 74 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 ate output buffe
67b0: 72 20 2a 2f 0a 09 6f 75 74 5f 62 75 66 20 3d 20 r */..out_buf =
67c0: 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 Tcl_SetByteArray
67d0: 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a Length(resultObj
67e0: 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 5f 4d , data_len+EVP_M
67f0: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 AX_BLOCK_LENGTH)
6800: 3b 0a 09 69 66 20 28 64 61 74 61 20 3d 3d 20 4e ;..if (data == N
6810: 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 66 20 3d ULL || out_buf =
6820: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 = NULL) {.. T
6830: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
6840: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 resultObj);..
6850: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
6860: 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 t(interp, "Memor
6870: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 y allocation err
6880: 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 or", (char *) NU
6890: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e LL);.. return
68a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a TCL_ERROR;..}..
68b0: 09 2f 2a 20 55 70 64 61 74 65 20 66 75 6e 63 74 ./* Update funct
68c0: 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 ion */..if (Encr
68d0: 79 70 74 55 70 64 61 74 65 28 69 6e 74 65 72 70 yptUpdate(interp
68e0: 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 70 65 , statePtr->type
68f0: 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c , statePtr->ctx,
6900: 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c out_buf, &out_l
6910: 65 6e 2c 20 64 61 74 61 2c 20 64 61 74 61 5f 6c en, data, data_l
6920: 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b en) == TCL_OK) {
6930: 0a 09 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 .. out_buf =
6940: 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 Tcl_SetByteArray
6950: 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a Length(resultObj
6960: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 , (Tcl_Size) out
6970: 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f _len);.. Tcl_
6980: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
6990: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
69a0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
69b0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
69c0: 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 (resultObj);..
69d0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
69e0: 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c OR;..}.. } el
69f0: 73 65 20 7b 0a 09 2f 2a 20 41 6c 6c 6f 63 61 74 se {../* Allocat
6a00: 65 20 6f 75 74 70 75 74 20 62 75 66 66 65 72 20 e output buffer
6a10: 2a 2f 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 63 */..out_buf = Tc
6a20: 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 l_SetByteArrayLe
6a30: 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 ngth(resultObj,
6a40: 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 EVP_MAX_BLOCK_LE
6a50: 4e 47 54 48 29 3b 0a 09 69 66 20 28 6f 75 74 5f NGTH);..if (out_
6a60: 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 buf == NULL) {..
6a70: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
6a80: 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b ount(resultObj);
6a90: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
6aa0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
6ab0: 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f Memory allocatio
6ac0: 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 n error", (char
6ad0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 *) NULL);.. r
6ae0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6af0: 0a 09 7d 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a ..}.../* Finaliz
6b00: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 e function */..i
6b10: 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 f (EncryptFinali
6b20: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
6b30: 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 Ptr->type, state
6b40: 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 Ptr->ctx, out_bu
6b50: 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 f, &out_len) ==
6b60: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 6f TCL_OK) {.. o
6b70: 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 ut_buf = Tcl_Set
6b80: 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 ByteArrayLength(
6b90: 72 65 73 75 6c 74 4f 62 6a 2c 20 28 54 63 6c 5f resultObj, (Tcl_
6ba0: 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a Size) out_len);.
6bb0: 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
6bc0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 esult(interp, re
6bd0: 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 sultObj);..} els
6be0: 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 e {.. Tcl_Dec
6bf0: 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 rRefCount(result
6c00: 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 74 75 72 Obj);.. retur
6c10: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
6c20: 0a 09 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f ../* Clean-up */
6c30: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d ..Tcl_DeleteComm
6c40: 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e 28 69 6e 74 andFromToken(int
6c50: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 erp, statePtr->t
6c60: 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 oken);. }.
6c70: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
6c80: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
6c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
6cd0: 2a 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 * EncryptCommand
6ce0: 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 20 2d 2d DeleteHandler --
6cf0: 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c 62 61 63 6b . *. *. Callback
6d00: 20 74 6f 20 63 6c 65 61 6e 2d 75 70 20 77 68 65 to clean-up whe
6d10: 6e 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 n encrypt/decryp
6d20: 74 20 63 6f 6d 6d 61 6e 64 20 69 73 20 64 65 6c t command is del
6d30: 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 eted.. *. * Retu
6d40: 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a rns:. *.Nothing.
6d50: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
6d60: 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f 79 73 20 ts:. *.Destroys
6d70: 73 74 61 74 65 20 69 6e 66 6f 20 73 74 72 75 63 state info struc
6d80: 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ture. *. *------
6d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
6dd0: 2f 0a 76 6f 69 64 20 45 6e 63 72 79 70 74 43 6f /.void EncryptCo
6de0: 6d 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c mmandDeleteHandl
6df0: 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c er(ClientData cl
6e00: 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 20 20 ientData) {.
6e10: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
6e20: 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 atePtr = (Encryp
6e30: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
6e40: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
6e50: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
6e60: 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a /* Clean-up *
6e70: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 /. EncryptSta
6e80: 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 teFree(statePtr)
6e90: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
6ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a -------------. *
6ee0: 0a 20 2a 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 . * EncryptComma
6ef0: 6e 64 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a ndHandler --. *.
6f00: 20 2a 09 20 43 72 65 61 74 65 20 63 6f 6d 6d 61 *. Create comma
6f10: 6e 64 20 74 6f 20 61 64 64 20 64 61 74 61 20 74 nd to add data t
6f20: 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 o encrypt/decryp
6f30: 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 t function.. *.
6f40: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
6f50: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
6f60: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
6f70: 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 ects:. *.Creates
6f80: 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 65 72 72 6f command or erro
6f90: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fc0: 2d 2d 2d 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 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
6ff0: 70 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 ptCommandHandler
7000: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
7010: 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 erp, int type, T
7020: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 4f 62 6a 2c 20 cl_Obj *cmdObj,
7030: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
7040: 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 bj,..Tcl_Obj *di
7050: 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a gestObj, Tcl_Obj
7060: 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 *keyObj, Tcl_Ob
7070: 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 j *ivObj, int pa
7080: 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 45 6e 63 dding) {. Enc
7090: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
70a0: 50 74 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 Ptr;. char *c
70b0: 6d 64 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 mdName = Tcl_Get
70c0: 53 74 72 69 6e 67 28 63 6d 64 4f 62 6a 29 3b 0a String(cmdObj);.
70d0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
70e0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
70f0: 28 28 73 74 61 74 65 50 74 72 20 3d 20 45 6e 63 ((statePtr = Enc
7100: 72 79 70 74 53 74 61 74 65 4e 65 77 28 69 6e 74 ryptStateNew(int
7110: 65 72 70 2c 20 74 79 70 65 29 29 20 3d 3d 20 4e erp, type)) == N
7120: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
7130: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
7140: 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 "Memory allocat
7150: 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 ion error", (cha
7160: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
7170: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7180: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 }.. /* Ini
7190: 74 69 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e tialize function
71a0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 72 */. if (Encr
71b0: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e yptInitialize(in
71c0: 74 65 72 70 2c 20 74 79 70 65 2c 20 26 73 74 61 terp, type, &sta
71d0: 74 65 50 74 72 2d 3e 63 74 78 2c 20 63 69 70 68 tePtr->ctx, ciph
71e0: 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 erObj, keyObj, i
71f0: 76 4f 62 6a 2c 20 70 61 64 64 69 6e 67 29 20 21 vObj, padding) !
7200: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e 63 = TCL_OK) {..Enc
7210: 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 ryptStateFree(st
7220: 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e atePtr);..return
7230: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
7240: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
7250: 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e instance comman
7260: 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 d */. statePt
7270: 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c 5f 43 r->token = Tcl_C
7280: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
7290: 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 6d 65 2c interp, cmdName,
72a0: 20 45 6e 63 72 79 70 74 49 6e 73 74 61 6e 63 65 EncryptInstance
72b0: 4f 62 6a 43 6d 64 2c 0a 09 28 43 6c 69 65 6e 74 ObjCmd,..(Client
72c0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 Data) statePtr,
72d0: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 EncryptCommandDe
72e0: 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b 0a 0a 20 leteHandler);..
72f0: 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 6d /* Return com
7300: 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 mand name */.
7310: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
7320: 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 4f 62 6a t(interp, cmdObj
7330: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
7340: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a L_OK;.}../******
7350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
7390: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
73a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
73e0: 6e 63 72 79 70 74 44 61 74 61 48 61 6e 64 6c 65 ncryptDataHandle
73f0: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f r --. *. *.Perfo
7400: 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 rm encryption fu
7410: 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c 6f 63 nction on a bloc
7420: 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 20 72 65 k of data and re
7430: 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a turn result.. *.
7440: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
7450: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
7460: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
7470: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 fects:. *.Sets r
7480: 65 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d esult or error m
7490: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
74a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
74e0: 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 44 */.int EncryptD
74f0: 61 74 61 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 ataHandler(Tcl_I
7500: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
7510: 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a nt type, Tcl_Obj
7520: 20 2a 64 61 74 61 4f 62 6a 2c 20 54 63 6c 5f 4f *dataObj, Tcl_O
7530: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 0a 09 bj *cipherObj,..
7540: 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f Tcl_Obj *digestO
7550: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 bj, Tcl_Obj *key
7560: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 Obj, Tcl_Obj *iv
7570: 4f 62 6a 2c 20 69 6e 74 20 70 61 64 64 69 6e 67 Obj, int padding
7580: 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 49 50 48 ) {. EVP_CIPH
7590: 45 52 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 ER_CTX *ctx = NU
75a0: 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 6f 75 74 5f LL;. int out_
75b0: 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 20 3d 20 30 len = 0, len = 0
75c0: 2c 20 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a , res = TCL_OK;.
75d0: 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 64 61 74 Tcl_Size dat
75e0: 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 75 a_len = 0;. u
75f0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 64 61 nsigned char *da
7600: 74 61 2c 20 2a 6f 75 74 5f 62 75 66 3b 0a 20 20 ta, *out_buf;.
7610: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
7620: 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 72 69 6e tObj;.. dprin
7630: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
7640: 20 20 20 2f 2a 20 47 65 74 20 64 61 74 61 20 2a /* Get data *
7650: 2f 0a 20 20 20 20 69 66 20 28 64 61 74 61 4f 62 /. if (dataOb
7660: 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 61 j != NULL) {..da
7670: 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 ta = Tcl_GetByte
7680: 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 64 61 74 ArrayFromObj(dat
7690: 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c 65 6e 29 aObj, &data_len)
76a0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
76b0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
76c0: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 64 61 74 (interp, "No dat
76d0: 61 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c a", (char *) NUL
76e0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
76f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
7700: 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 74 /* Allocate st
7710: 6f 72 61 67 65 20 66 6f 72 20 72 65 73 75 6c 74 orage for result
7720: 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 65 . Size should be
7730: 20 64 61 74 61 20 73 69 7a 65 20 2b 20 62 6c 6f data size + blo
7740: 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 ck size. */.
7750: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
7760: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 6f 75 NewObj();. ou
7770: 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 t_buf = Tcl_SetB
7780: 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 yteArrayLength(r
7790: 65 73 75 6c 74 4f 62 6a 2c 20 64 61 74 61 5f 6c esultObj, data_l
77a0: 65 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b en+EVP_MAX_BLOCK
77b0: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 69 66 _LENGTH);. if
77c0: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
77d0: 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 66 20 3d ULL || out_buf =
77e0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
77f0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7800: 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f rp, "Memory allo
7810: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 cation error", (
7820: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
7830: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7840: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
7850: 50 65 72 66 6f 72 6d 20 6f 70 65 72 61 74 69 6f Perform operatio
7860: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 n */. if (Enc
7870: 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 ryptInitialize(i
7880: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 63 74 nterp, type, &ct
7890: 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 x, cipherObj, ke
78a0: 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 yObj, ivObj, pad
78b0: 64 69 6e 67 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 ding) != TCL_OK
78c0: 7c 7c 0a 09 45 6e 63 72 79 70 74 55 70 64 61 74 ||..EncryptUpdat
78d0: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
78e0: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
78f0: 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 ut_len, data, da
7900: 74 61 5f 6c 65 6e 29 20 21 3d 20 54 43 4c 5f 4f ta_len) != TCL_O
7910: 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 46 69 6e K ||..EncryptFin
7920: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 alize(interp, ty
7930: 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 pe, ctx, out_buf
7940: 2b 6f 75 74 5f 6c 65 6e 2c 20 26 6c 65 6e 29 20 +out_len, &len)
7950: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 != TCL_OK) {..re
7960: 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 s = TCL_ERROR;..
7970: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d goto done;. }
7980: 0a 20 20 20 20 6f 75 74 5f 6c 65 6e 20 2b 3d 20 . out_len +=
7990: 6c 65 6e 3b 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 len;..done:.
79a0: 2f 2a 20 53 65 74 20 6f 75 74 70 75 74 20 72 65 /* Set output re
79b0: 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 sult */. if (
79c0: 72 65 73 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b res == TCL_OK) {
79d0: 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f ..out_buf = Tcl_
79e0: 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 SetByteArrayLeng
79f0: 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 28 54 th(resultObj, (T
7a00: 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e cl_Size) out_len
7a10: 29 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 );..Tcl_SetObjRe
7a20: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 sult(interp, res
7a30: 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 ultObj);. } e
7a40: 6c 73 65 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 lse {..Tcl_DecrR
7a50: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 efCount(resultOb
7a60: 6a 29 3b 0a 09 2f 2a 20 52 65 73 75 6c 74 20 69 j);../* Result i
7a70: 73 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 s error message
7a80: 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a */. }.. /*
7a90: 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a 20 20 20 Clean up */.
7aa0: 20 69 66 20 28 63 74 78 20 21 3d 20 4e 55 4c 4c if (ctx != NULL
7ab0: 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f ) {..EVP_CIPHER_
7ac0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 CTX_free(ctx);.
7ad0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
7ae0: 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a res;.}../*******
7af0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7b00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7b10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7b20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f ************/../
7b30: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b70: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
7b80: 63 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 cryptFileHandler
7b90: 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 --. *. *.Perfor
7ba0: 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e m encryption fun
7bb0: 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c 6f 63 6b ction on a block
7bc0: 20 6f 66 20 64 61 74 61 2c 20 77 72 69 74 65 20 of data, write
7bd0: 69 74 20 74 6f 20 61 0a 20 2a 09 66 69 6c 65 2c it to a. *.file,
7be0: 20 74 68 65 6e 20 72 65 74 75 72 6e 20 74 68 65 then return the
7bf0: 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 result.. *. * R
7c00: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
7c10: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
7c20: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7c30: 73 3a 0a 20 2a 09 45 6e 63 72 79 70 74 73 20 6f s:. *.Encrypts o
7c40: 72 20 64 65 63 72 79 70 74 73 20 69 6e 46 69 6c r decrypts inFil
7c50: 65 20 64 61 74 61 20 74 6f 20 6f 75 74 46 69 6c e data to outFil
7c60: 65 20 61 6e 64 20 73 65 74 73 20 72 65 73 75 6c e and sets resul
7c70: 74 20 74 6f 0a 20 2a 09 73 69 7a 65 20 6f 66 20 t to. *.size of
7c80: 6f 75 74 46 69 6c 65 2c 20 6f 72 20 61 6e 20 65 outFile, or an e
7c90: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
7ca0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
7cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ce0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 ------. */.int E
7cf0: 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 ncryptFileHandle
7d00: 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e r(Tcl_Interp *in
7d10: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 terp, int type,
7d20: 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c 65 4f Tcl_Obj *inFileO
7d30: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6f 75 74 bj, Tcl_Obj *out
7d40: 46 69 6c 65 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 FileObj,..Tcl_Ob
7d50: 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 j *cipherObj, Tc
7d60: 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a l_Obj *digestObj
7d70: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 , Tcl_Obj *keyOb
7d80: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 j, Tcl_Obj *ivOb
7d90: 6a 2c 20 69 6e 74 20 70 61 64 64 69 6e 67 29 20 j, int padding)
7da0: 7b 0a 20 20 20 20 45 56 50 5f 43 49 50 48 45 52 {. EVP_CIPHER
7db0: 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c _CTX *ctx = NULL
7dc0: 3b 0a 20 20 20 20 69 6e 74 20 74 6f 74 61 6c 20 ;. int total
7dd0: 3d 20 30 2c 20 72 65 73 2c 20 6f 75 74 5f 6c 65 = 0, res, out_le
7de0: 6e 20 3d 20 30 2c 20 6c 65 6e 3b 0a 20 20 20 20 n = 0, len;.
7df0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 69 6e 20 3d Tcl_Channel in =
7e00: 20 4e 55 4c 4c 2c 20 6f 75 74 20 3d 20 4e 55 4c NULL, out = NUL
7e10: 4c 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 L;. unsigned
7e20: 63 68 61 72 20 69 6e 5f 62 75 66 5b 42 55 46 46 char in_buf[BUFF
7e30: 45 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 20 75 6e ER_SIZE];. un
7e40: 73 69 67 6e 65 64 20 63 68 61 72 20 6f 75 74 5f signed char out_
7e50: 62 75 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 2b buf[BUFFER_SIZE+
7e60: 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 EVP_MAX_BLOCK_LE
7e70: 4e 47 54 48 5d 3b 0a 0a 20 20 20 20 64 70 72 69 NGTH];.. dpri
7e80: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
7e90: 20 20 20 20 2f 2a 20 4f 70 65 6e 20 69 6e 70 75 /* Open inpu
7ea0: 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 69 66 t file */. if
7eb0: 20 28 28 69 6e 20 3d 20 54 63 6c 5f 46 53 4f 70 ((in = Tcl_FSOp
7ec0: 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c 28 69 6e enFileChannel(in
7ed0: 74 65 72 70 2c 20 69 6e 46 69 6c 65 4f 62 6a 2c terp, inFileObj,
7ee0: 20 22 72 62 22 2c 20 30 34 34 34 29 29 20 3d 3d "rb", 0444)) ==
7ef0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
7f00: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
7f10: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
7f20: 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 6f 75 74 . /* Open out
7f30: 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 put file */.
7f40: 69 66 20 28 28 6f 75 74 20 3d 20 54 63 6c 5f 46 if ((out = Tcl_F
7f50: 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c SOpenFileChannel
7f60: 28 69 6e 74 65 72 70 2c 20 6f 75 74 46 69 6c 65 (interp, outFile
7f70: 4f 62 6a 2c 20 22 77 62 22 2c 20 30 36 34 34 29 Obj, "wb", 0644)
7f80: 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 ) == (Tcl_Channe
7f90: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f l) NULL) {..Tcl_
7fa0: 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 69 6e Close(interp, in
7fb0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
7fc0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
7fd0: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 6f /* Initialize o
7fe0: 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 peration */.
7ff0: 69 66 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 if ((res = Encry
8000: 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 ptInitialize(int
8010: 65 72 70 2c 20 74 79 70 65 2c 20 26 63 74 78 2c erp, type, &ctx,
8020: 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f cipherObj, keyO
8030: 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 bj, ivObj, paddi
8040: 6e 67 29 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ng)) != TCL_OK)
8050: 7b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 {..goto done;.
8060: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 61 64 }.. /* Read
8070: 20 66 69 6c 65 20 64 61 74 61 20 66 72 6f 6d 20 file data from
8080: 69 6e 46 69 6c 65 2c 20 65 6e 63 72 79 70 74 2f inFile, encrypt/
8090: 64 65 63 72 79 70 74 20 69 74 2c 20 74 68 65 6e decrypt it, then
80a0: 20 6f 75 74 70 75 74 20 74 6f 20 6f 75 74 46 69 output to outFi
80b0: 6c 65 20 2a 2f 0a 20 20 20 20 77 68 69 6c 65 20 le */. while
80c0: 28 21 54 63 6c 5f 45 6f 66 28 69 6e 29 29 20 7b (!Tcl_Eof(in)) {
80d0: 0a 09 54 63 6c 5f 53 69 7a 65 20 72 65 61 64 20 ..Tcl_Size read
80e0: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 69 6e = Tcl_ReadRaw(in
80f0: 2c 20 28 63 68 61 72 20 2a 29 20 69 6e 5f 62 75 , (char *) in_bu
8100: 66 2c 20 42 55 46 46 45 52 5f 53 49 5a 45 29 3b f, BUFFER_SIZE);
8110: 0a 09 69 66 20 28 72 65 61 64 20 3e 20 30 29 20 ..if (read > 0)
8120: 7b 0a 09 20 20 20 20 69 66 20 28 28 72 65 73 20 {.. if ((res
8130: 3d 20 45 6e 63 72 79 70 74 55 70 64 61 74 65 28 = EncryptUpdate(
8140: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 74 interp, type, ct
8150: 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 x, out_buf, &out
8160: 5f 6c 65 6e 2c 20 69 6e 5f 62 75 66 2c 20 72 65 _len, in_buf, re
8170: 61 64 29 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 ad)) == TCL_OK)
8180: 7b 0a 09 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 {...if (out_len
8190: 3e 20 30 29 20 7b 0a 09 09 20 20 20 20 6c 65 6e > 0) {... len
81a0: 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f 57 72 69 = (int) Tcl_Wri
81b0: 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e 73 teRaw(out, (cons
81c0: 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 t char *) out_bu
81d0: 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 f, (Tcl_Size) ou
81e0: 74 5f 6c 65 6e 29 3b 0a 09 09 20 20 20 20 69 66 t_len);... if
81f0: 20 28 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 (len >= 0) {...
8200: 09 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 .total += len;..
8210: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
8220: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
8230: 74 28 69 6e 74 65 72 70 2c 20 22 57 72 69 74 65 t(interp, "Write
8240: 20 65 72 72 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 error: ", Tcl_E
8250: 72 72 6e 6f 4d 73 67 28 54 63 6c 5f 47 65 74 45 rrnoMsg(Tcl_GetE
8260: 72 72 6e 6f 28 29 29 2c 20 28 63 68 61 72 20 2a rrno()), (char *
8270: 29 20 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 73 20 ) NULL);....res
8280: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 09 = TCL_ERROR;....
8290: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 09 20 20 20 goto done;...
82a0: 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d 20 65 6c }...}.. } el
82b0: 73 65 20 7b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 se {...goto done
82c0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 ;.. }..} else
82d0: 20 69 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b if (read < 0) {
82e0: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
82f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
8300: 52 65 61 64 20 65 72 72 6f 72 3a 20 22 2c 20 54 Read error: ", T
8310: 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 6c 5f cl_ErrnoMsg(Tcl_
8320: 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 63 68 GetErrno()), (ch
8330: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
8340: 20 20 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f res = TCL_ERRO
8350: 52 3b 0a 09 20 20 20 20 67 6f 74 6f 20 64 6f 6e R;.. goto don
8360: 65 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 e;..}. }..
8370: 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 64 61 74 /* Finalize dat
8380: 61 20 61 6e 64 20 77 72 69 74 65 20 61 6e 79 20 a and write any
8390: 72 65 6d 61 69 6e 69 6e 67 20 64 61 74 61 20 69 remaining data i
83a0: 6e 20 62 6c 6f 63 6b 20 2a 2f 0a 20 20 20 20 69 n block */. i
83b0: 66 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 f ((res = Encryp
83c0: 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 tFinalize(interp
83d0: 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 , type, ctx, out
83e0: 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 29 _buf, &out_len))
83f0: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 69 == TCL_OK) {..i
8400: 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 f (out_len > 0)
8410: 7b 0a 09 20 20 20 20 6c 65 6e 20 3d 20 28 69 6e {.. len = (in
8420: 74 29 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 t) Tcl_WriteRaw(
8430: 6f 75 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 out, (const char
8440: 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 28 54 63 *) out_buf, (Tc
8450: 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 l_Size) out_len)
8460: 3b 0a 09 20 20 20 20 69 66 20 28 6c 65 6e 20 3e ;.. if (len >
8470: 3d 20 30 29 20 7b 0a 09 09 74 6f 74 61 6c 20 2b = 0) {...total +
8480: 3d 20 6c 65 6e 3b 0a 09 20 20 20 20 7d 20 65 6c = len;.. } el
8490: 73 65 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e se {...Tcl_Appen
84a0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
84b0: 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 22 2c "Write error: ",
84c0: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 Tcl_ErrnoMsg(Tc
84d0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 l_GetErrno()), (
84e0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
84f0: 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 .res = TCL_ERROR
8500: 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 ;...goto done;..
8510: 20 20 20 20 7d 0a 09 7d 0a 09 54 63 6c 5f 53 65 }..}..Tcl_Se
8520: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
8530: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
8540: 28 74 6f 74 61 6c 29 29 3b 0a 20 20 20 20 7d 20 (total));. }
8550: 65 6c 73 65 20 7b 0a 09 67 6f 74 6f 20 64 6f 6e else {..goto don
8560: 65 3b 0a 20 20 20 20 7d 0a 0a 64 6f 6e 65 3a 0a e;. }..done:.
8570: 20 20 20 20 2f 2a 20 43 6c 65 61 6e 20 75 70 20 /* Clean up
8580: 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 20 21 3d */. if (in !=
8590: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 43 6c NULL) {..Tcl_Cl
85a0: 6f 73 65 28 69 6e 74 65 72 70 2c 20 69 6e 29 3b ose(interp, in);
85b0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 6f . }. if (o
85c0: 75 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 ut != NULL) {..T
85d0: 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c cl_Close(interp,
85e0: 20 6f 75 74 29 3b 0a 20 20 20 20 7d 0a 20 20 20 out);. }.
85f0: 20 69 66 20 28 63 74 78 20 21 3d 20 4e 55 4c 4c if (ctx != NULL
8600: 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f ) {..EVP_CIPHER_
8610: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 CTX_free(ctx);.
8620: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
8630: 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a res;.}../*******
8640: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8650: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8660: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8670: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 73 ************/..s
8680: 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 tatic const char
8690: 20 2a 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 20 5b *command_opts [
86a0: 5d 20 3d 20 7b 0a 20 20 20 20 22 2d 63 68 61 6e ] = {. "-chan
86b0: 22 2c 20 22 2d 63 68 61 6e 6e 65 6c 22 2c 20 22 ", "-channel", "
86c0: 2d 63 69 70 68 65 72 22 2c 20 22 2d 63 6f 6d 6d -cipher", "-comm
86d0: 61 6e 64 22 2c 20 22 2d 64 61 74 61 22 2c 20 22 and", "-data", "
86e0: 2d 64 69 67 65 73 74 22 2c 20 22 2d 69 6e 66 69 -digest", "-infi
86f0: 6c 65 22 2c 20 22 2d 66 69 6c 65 6e 61 6d 65 22 le", "-filename"
8700: 2c 0a 20 20 20 20 22 2d 6f 75 74 66 69 6c 65 22 ,. "-outfile"
8710: 2c 20 22 2d 68 61 73 68 22 2c 20 22 2d 69 76 22 , "-hash", "-iv"
8720: 2c 20 22 2d 6b 65 79 22 2c 20 22 2d 6d 61 63 22 , "-key", "-mac"
8730: 2c 20 22 2d 70 61 64 64 69 6e 67 22 2c 20 4e 55 , "-padding", NU
8740: 4c 4c 7d 3b 0a 0a 65 6e 75 6d 20 5f 63 6f 6d 6d LL};..enum _comm
8750: 61 6e 64 5f 6f 70 74 73 20 7b 0a 20 20 20 20 5f and_opts {. _
8760: 6f 70 74 5f 63 68 61 6e 2c 20 5f 6f 70 74 5f 63 opt_chan, _opt_c
8770: 68 61 6e 6e 65 6c 2c 20 5f 6f 70 74 5f 63 69 70 hannel, _opt_cip
8780: 68 65 72 2c 20 5f 6f 70 74 5f 63 6f 6d 6d 61 6e her, _opt_comman
8790: 64 2c 20 5f 6f 70 74 5f 64 61 74 61 2c 20 5f 6f d, _opt_data, _o
87a0: 70 74 5f 64 69 67 65 73 74 2c 20 5f 6f 70 74 5f pt_digest, _opt_
87b0: 69 6e 66 69 6c 65 2c 0a 20 20 20 20 5f 6f 70 74 infile,. _opt
87c0: 5f 66 69 6c 65 6e 61 6d 65 2c 20 5f 6f 70 74 5f _filename, _opt_
87d0: 6f 75 74 66 69 6c 65 2c 20 5f 6f 70 74 5f 68 61 outfile, _opt_ha
87e0: 73 68 2c 20 5f 6f 70 74 5f 69 76 2c 20 5f 6f 70 sh, _opt_iv, _op
87f0: 74 5f 6b 65 79 2c 20 5f 6f 70 74 5f 6d 61 63 2c t_key, _opt_mac,
8800: 20 5f 6f 70 74 5f 70 61 64 64 69 6e 67 0a 7d 3b _opt_padding.};
8810: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
8820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
8860: 20 45 6e 63 72 79 70 74 4d 61 69 6e 20 2d 2d 0a EncryptMain --.
8870: 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e *. *.Perform en
8880: 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f cryption functio
8890: 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 72 65 73 n and return res
88a0: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ult.. *. * Retur
88b0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
88c0: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
88d0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
88e0: 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 6f 72 *.Sets result or
88f0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
8900: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
8910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8940: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
8950: 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 4d 61 ic int EncryptMa
8960: 69 6e 28 69 6e 74 20 74 79 70 65 2c 20 54 63 6c in(int type, Tcl
8970: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
8980: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
8990: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
89a0: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ) {. Tcl_Obj
89b0: 2a 63 69 70 68 65 72 4f 62 6a 20 3d 20 4e 55 4c *cipherObj = NUL
89c0: 4c 2c 20 2a 63 6d 64 4f 62 6a 20 3d 20 4e 55 4c L, *cmdObj = NUL
89d0: 4c 2c 20 2a 64 61 74 61 4f 62 6a 20 3d 20 4e 55 L, *dataObj = NU
89e0: 4c 4c 2c 20 2a 64 69 67 65 73 74 4f 62 6a 20 3d LL, *digestObj =
89f0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f NULL;. Tcl_O
8a00: 62 6a 20 2a 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 bj *inFileObj =
8a10: 4e 55 4c 4c 2c 20 2a 6f 75 74 46 69 6c 65 4f 62 NULL, *outFileOb
8a20: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6b 65 79 4f 62 j = NULL, *keyOb
8a30: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 69 76 4f 62 6a j = NULL, *ivObj
8a40: 20 3d 20 4e 55 4c 4c 2c 20 2a 6d 61 63 4f 62 6a = NULL, *macObj
8a50: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e = NULL;. con
8a60: 73 74 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c st char *channel
8a70: 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 70 74 3b 0a 20 = NULL, *opt;.
8a80: 20 20 20 69 6e 74 20 72 65 73 2c 20 73 74 61 72 int res, star
8a90: 74 20 3d 20 31 2c 20 70 61 64 64 69 6e 67 20 3d t = 1, padding =
8aa0: 20 31 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 1;. Tcl_Size
8ab0: 20 66 6e 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 fn;.. dprint
8ac0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
8ad0: 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 /* Clear inter
8ae0: 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 p result */.
8af0: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
8b00: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a interp);.. /*
8b10: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
8b20: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
8b30: 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 bjc < 3 || objc
8b40: 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 12) {..Tcl_Wro
8b50: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
8b60: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 63 69 , 1, objv, "?-ci
8b70: 70 68 65 72 3f 20 6e 61 6d 65 20 3f 2d 64 69 67 pher? name ?-dig
8b80: 65 73 74 20 6e 61 6d 65 3f 20 2d 6b 65 79 20 6b est name? -key k
8b90: 65 79 20 3f 2d 69 76 20 73 74 72 69 6e 67 3f 20 ey ?-iv string?
8ba0: 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 3f 2d 70 61 ?-mac name? ?-pa
8bb0: 64 64 69 6e 67 20 62 6f 6f 6c 65 61 6e 3f 20 5b dding boolean? [
8bc0: 2d 63 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 -channel chan |
8bd0: 2d 63 6f 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 -command cmdName
8be0: 20 7c 20 2d 69 6e 66 69 6c 65 20 66 69 6c 65 6e | -infile filen
8bf0: 61 6d 65 20 2d 6f 75 74 66 69 6c 65 20 66 69 6c ame -outfile fil
8c00: 65 6e 61 6d 65 20 7c 20 3f 2d 64 61 74 61 3f 20 ename | ?-data?
8c10: 64 61 74 61 5d 22 29 3b 0a 09 72 65 74 75 72 6e data]");..return
8c20: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
8c30: 7d 0a 0a 20 20 20 20 2f 2a 20 53 70 65 63 69 61 }.. /* Specia
8c40: 6c 20 63 61 73 65 20 6f 66 20 66 69 72 73 74 20 l case of first
8c50: 61 72 67 20 69 73 20 63 69 70 68 65 72 20 2a 2f arg is cipher */
8c60: 0a 20 20 20 20 6f 70 74 20 3d 20 54 63 6c 5f 47 . opt = Tcl_G
8c70: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 73 74 etString(objv[st
8c80: 61 72 74 5d 29 3b 0a 20 20 20 20 69 66 20 28 6f art]);. if (o
8c90: 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 20 7b 0a pt[0] != '-') {.
8ca0: 09 73 77 69 74 63 68 28 74 79 70 65 29 20 7b 0a .switch(type) {.
8cb0: 09 63 61 73 65 20 54 59 50 45 5f 45 4e 43 52 59 .case TYPE_ENCRY
8cc0: 50 54 3a 0a 09 63 61 73 65 20 54 59 50 45 5f 44 PT:..case TYPE_D
8cd0: 45 43 52 59 50 54 3a 0a 09 20 20 20 20 63 69 70 ECRYPT:.. cip
8ce0: 68 65 72 4f 62 6a 20 3d 20 6f 62 6a 76 5b 73 74 herObj = objv[st
8cf0: 61 72 74 2b 2b 5d 3b 0a 09 20 20 20 20 62 72 65 art++];.. bre
8d00: 61 6b 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 ak;..}. }..
8d10: 20 20 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 /* Get options
8d20: 20 2a 2f 0a 20 20 20 20 66 6f 72 20 28 69 6e 74 */. for (int
8d30: 20 69 64 78 20 3d 20 73 74 61 72 74 3b 20 69 64 idx = start; id
8d40: 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 x < objc; idx++)
8d50: 20 7b 0a 09 2f 2a 20 53 70 65 63 69 61 6c 20 63 {../* Special c
8d60: 61 73 65 20 66 6f 72 20 77 68 65 6e 20 6c 61 73 ase for when las
8d70: 74 20 61 72 67 20 69 73 20 64 61 74 61 20 2a 2f t arg is data */
8d80: 0a 09 69 66 20 28 69 64 78 20 3d 3d 20 6f 62 6a ..if (idx == obj
8d90: 63 20 2d 20 31 29 20 7b 0a 09 6f 70 74 20 3d 20 c - 1) {..opt =
8da0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
8db0: 6a 76 5b 69 64 78 5d 29 3b 0a 09 20 20 20 20 69 jv[idx]);.. i
8dc0: 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 f (opt[0] != '-'
8dd0: 20 26 26 20 64 61 74 61 4f 62 6a 20 3d 3d 20 4e && dataObj == N
8de0: 55 4c 4c 29 20 7b 0a 09 09 64 61 74 61 4f 62 6a ULL) {...dataObj
8df0: 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 09 = objv[idx];...
8e00: 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 7d break;.. }..}
8e10: 0a 0a 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e .../* Get option
8e20: 20 2a 2f 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 */..if (Tcl_Get
8e30: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 IndexFromObj(int
8e40: 65 72 70 2c 20 6f 62 6a 76 5b 69 64 78 5d 2c 20 erp, objv[idx],
8e50: 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 2c 20 22 6f command_opts, "o
8e60: 70 74 69 6f 6e 22 2c 20 30 2c 20 26 66 6e 29 20 ption", 0, &fn)
8e70: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 != TCL_OK) {..
8e80: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
8e90: 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 56 61 6c 69 OR;..}.../* Vali
8ea0: 64 61 74 65 20 61 72 67 20 68 61 73 20 61 20 76 date arg has a v
8eb0: 61 6c 75 65 20 2a 2f 0a 09 69 66 20 28 2b 2b 69 alue */..if (++i
8ec0: 64 78 20 3e 3d 20 6f 62 6a 63 29 20 7b 0a 09 20 dx >= objc) {..
8ed0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
8ee0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
8ef0: 76 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 6f 6e value for option
8f00: 20 5c 22 22 2c 20 63 6f 6d 6d 61 6e 64 5f 6f 70 \"", command_op
8f10: 74 73 5b 66 6e 5d 2c 20 22 5c 22 22 2c 20 28 63 ts[fn], "\"", (c
8f20: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
8f30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8f40: 0a 20 20 20 20 7d 0a 0a 09 73 77 69 74 63 68 28 . }...switch(
8f50: 66 6e 29 20 7b 0a 09 63 61 73 65 20 5f 6f 70 74 fn) {..case _opt
8f60: 5f 63 68 61 6e 3a 0a 09 63 61 73 65 20 5f 6f 70 _chan:..case _op
8f70: 74 5f 63 68 61 6e 6e 65 6c 3a 0a 20 20 20 20 09 t_channel:. .
8f80: 20 20 20 20 47 45 54 5f 4f 50 54 5f 53 54 52 49 GET_OPT_STRI
8f90: 4e 47 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 63 68 NG(objv[idx], ch
8fa0: 61 6e 6e 65 6c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 annel, NULL);..
8fb0: 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 break;..case
8fc0: 5f 6f 70 74 5f 63 69 70 68 65 72 3a 0a 09 20 20 _opt_cipher:..
8fd0: 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 6f 62 cipherObj = ob
8fe0: 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 jv[idx];.. br
8ff0: 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f eak;..case _opt_
9000: 63 6f 6d 6d 61 6e 64 3a 0a 09 20 20 20 20 63 6d command:.. cm
9010: 64 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d dObj = objv[idx]
9020: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 ;.. break;..c
9030: 61 73 65 20 5f 6f 70 74 5f 64 61 74 61 3a 0a 09 ase _opt_data:..
9040: 20 20 20 20 64 61 74 61 4f 62 6a 20 3d 20 6f 62 dataObj = ob
9050: 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 jv[idx];.. br
9060: 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f eak;..case _opt_
9070: 64 69 67 65 73 74 3a 0a 09 63 61 73 65 20 5f 6f digest:..case _o
9080: 70 74 5f 68 61 73 68 3a 0a 09 20 20 20 20 64 69 pt_hash:.. di
9090: 67 65 73 74 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 gestObj = objv[i
90a0: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
90b0: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 6e 66 69 ..case _opt_infi
90c0: 6c 65 3a 0a 09 63 61 73 65 20 5f 6f 70 74 5f 66 le:..case _opt_f
90d0: 69 6c 65 6e 61 6d 65 3a 0a 09 20 20 20 20 69 6e ilename:.. in
90e0: 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 FileObj = objv[i
90f0: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
9100: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6f 75 74 66 ..case _opt_outf
9110: 69 6c 65 3a 0a 09 20 20 20 20 6f 75 74 46 69 6c ile:.. outFil
9120: 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d eObj = objv[idx]
9130: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 ;.. break;..c
9140: 61 73 65 20 5f 6f 70 74 5f 69 76 3a 0a 09 20 20 ase _opt_iv:..
9150: 20 20 69 76 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 ivObj = objv[i
9160: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
9170: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6b 65 79 3a ..case _opt_key:
9180: 0a 09 20 20 20 20 6b 65 79 4f 62 6a 20 3d 20 6f .. keyObj = o
9190: 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 bjv[idx];.. b
91a0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 reak;..case _opt
91b0: 5f 6d 61 63 3a 0a 09 20 20 20 20 6d 61 63 4f 62 _mac:.. macOb
91c0: 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 j = objv[idx];..
91d0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
91e0: 20 5f 6f 70 74 5f 70 61 64 64 69 6e 67 3a 0a 20 _opt_padding:.
91f0: 20 20 20 09 20 20 20 20 47 45 54 5f 4f 50 54 5f . GET_OPT_
9200: 42 4f 4f 4c 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 BOOL(objv[idx],
9210: 26 70 61 64 64 69 6e 67 29 3b 0a 09 20 20 20 20 &padding);..
9220: 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 20 7d 0a break;..}. }.
9230: 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f . /* Check fo
9240: 72 20 72 65 71 75 69 72 65 64 20 6f 70 74 69 6f r required optio
9250: 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 69 ns */. if (ci
9260: 70 68 65 72 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 pherObj == NULL)
9270: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
9280: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f sult(interp, "No
9290: 20 63 69 70 68 65 72 22 2c 20 28 63 68 61 72 20 cipher", (char
92a0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 *) NULL);. }
92b0: 65 6c 73 65 20 69 66 20 28 6b 65 79 4f 62 6a 20 else if (keyObj
92c0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
92d0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
92e0: 65 72 70 2c 20 22 4e 6f 20 6b 65 79 22 2c 20 28 erp, "No key", (
92f0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
9300: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
9310: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
9320: 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 Perform encrypti
9330: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 66 on function on f
9340: 69 6c 65 2c 20 73 74 61 63 6b 65 64 20 63 68 61 ile, stacked cha
9350: 6e 6e 65 6c 2c 20 75 73 69 6e 67 20 69 6e 73 74 nnel, using inst
9360: 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 2c 20 6f 72 ance command, or
9370: 20 64 61 74 61 20 62 6c 6f 62 20 2a 2f 0a 20 20 data blob */.
9380: 20 20 69 66 20 28 69 6e 46 69 6c 65 4f 62 6a 20 if (inFileObj
9390: 21 3d 20 4e 55 4c 4c 20 26 26 20 6f 75 74 46 69 != NULL && outFi
93a0: 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b leObj != NULL) {
93b0: 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 70 74 46 ..res = EncryptF
93c0: 69 6c 65 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 ileHandler(inter
93d0: 70 2c 20 74 79 70 65 2c 20 69 6e 46 69 6c 65 4f p, type, inFileO
93e0: 62 6a 2c 20 6f 75 74 46 69 6c 65 4f 62 6a 2c 20 bj, outFileObj,
93f0: 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 cipherObj, diges
9400: 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 tObj, keyObj, iv
9410: 4f 62 6a 2c 20 70 61 64 64 69 6e 67 29 3b 0a 20 Obj, padding);.
9420: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 68 } else if (ch
9430: 61 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b annel != NULL) {
9440: 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 70 74 43 ..res = EncryptC
9450: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 69 6e hannelHandler(in
9460: 74 65 72 70 2c 20 74 79 70 65 2c 20 63 68 61 6e terp, type, chan
9470: 6e 65 6c 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 nel, cipherObj,
9480: 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 digestObj, keyOb
9490: 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 6e j, ivObj, paddin
94a0: 67 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 g);. } else i
94b0: 66 20 28 63 6d 64 4f 62 6a 20 21 3d 20 4e 55 4c f (cmdObj != NUL
94c0: 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 L) {..res = Encr
94d0: 79 70 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 yptCommandHandle
94e0: 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 r(interp, type,
94f0: 63 6d 64 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 cmdObj, cipherOb
9500: 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 j, digestObj, ke
9510: 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 yObj, ivObj, pad
9520: 64 69 6e 67 29 3b 0a 20 20 20 20 7d 20 65 6c 73 ding);. } els
9530: 65 20 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d e if (dataObj !=
9540: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 NULL) {..res =
9550: 45 6e 63 72 79 70 74 44 61 74 61 48 61 6e 64 6c EncryptDataHandl
9560: 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c er(interp, type,
9570: 20 64 61 74 61 4f 62 6a 2c 20 63 69 70 68 65 72 dataObj, cipher
9580: 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 Obj, digestObj,
9590: 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 keyObj, ivObj, p
95a0: 61 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d 20 65 adding);. } e
95b0: 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e lse {..Tcl_Appen
95c0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
95d0: 22 4e 6f 20 6f 70 65 72 61 74 69 6f 6e 20 73 70 "No operation sp
95e0: 65 63 69 66 69 65 64 3a 20 55 73 65 20 2d 63 68 ecified: Use -ch
95f0: 61 6e 6e 65 6c 2c 20 2d 63 6f 6d 6d 61 6e 64 2c annel, -command,
9600: 20 2d 64 61 74 61 2c 20 6f 72 20 2d 69 6e 66 69 -data, or -infi
9610: 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 28 63 68 61 le option", (cha
9620: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 73 r *) NULL);..res
9630: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 = TCL_ERROR;.
9640: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 }. return r
9650: 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d es;.}../*. *----
9660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
96a0: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e *. * Encryption
96b0: 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a Commands --. *.
96c0: 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 *.Perform encry
96d0: 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 61 ption function a
96e0: 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 nd return result
96f0: 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a s. *. * Returns:
9700: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
9710: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
9720: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
9730: 6f 6d 6d 61 6e 64 20 64 65 70 65 6e 64 65 6e 74 ommand dependent
9740: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
9750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
9790: 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 atic int Encrypt
97a0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
97b0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
97c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
97d0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
97e0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
97f0: 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 ]) {. (void)
9800: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
9810: 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 4d 61 return EncryptMa
9820: 69 6e 28 54 59 50 45 5f 45 4e 43 52 59 50 54 2c in(TYPE_ENCRYPT,
9830: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f interp, objc, o
9840: 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 bjv);.}..static
9850: 69 6e 74 20 44 65 63 72 79 70 74 4f 62 6a 43 6d int DecryptObjCm
9860: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
9870: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
9880: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
9890: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
98a0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
98b0: 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e (void) clien
98c0: 74 44 61 74 61 3b 0a 20 20 20 20 72 65 74 75 72 tData;. retur
98d0: 6e 20 45 6e 63 72 79 70 74 4d 61 69 6e 28 54 59 n EncryptMain(TY
98e0: 50 45 5f 44 45 43 52 59 50 54 2c 20 69 6e 74 65 PE_DECRYPT, inte
98f0: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b rp, objc, objv);
9900: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
9910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
9950: 20 2a 20 45 6e 63 72 79 70 74 5f 49 6e 69 74 69 * Encrypt_Initi
9960: 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 43 alize --. *. *.C
9970: 72 65 61 74 65 20 6e 61 6d 65 73 70 61 63 65 2c reate namespace,
9980: 20 63 6f 6d 6d 61 6e 64 73 2c 20 61 6e 64 20 72 commands, and r
9990: 65 67 69 73 74 65 72 20 70 61 63 6b 61 67 65 20 egister package
99a0: 76 65 72 73 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 version. *. * Re
99b0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
99c0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
99d0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
99e0: 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f 6d :. *.Creates com
99f0: 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d mands. *. *-----
9a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
9a40: 2a 2f 0a 69 6e 74 20 54 6c 73 5f 45 6e 63 72 79 */.int Tls_Encry
9a50: 70 74 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 ptCommands(Tcl_I
9a60: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b nterp *interp) {
9a70: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
9a80: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
9a90: 2c 20 22 3a 3a 74 6c 73 3a 3a 65 6e 63 72 79 70 , "::tls::encryp
9aa0: 74 22 2c 20 45 6e 63 72 79 70 74 4f 62 6a 43 6d t", EncryptObjCm
9ab0: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
9ac0: 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 NULL, (Tcl_CmdDe
9ad0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
9ae0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
9af0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
9b00: 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 64 65 63 72 rp, "::tls::decr
9b10: 79 70 74 22 2c 20 44 65 63 72 79 70 74 4f 62 6a ypt", DecryptObj
9b20: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
9b30: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
9b40: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
9b50: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
9b60: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
9b70: 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 75 6e terp, "::tls::un
9b80: 73 74 61 63 6b 32 22 2c 20 45 6e 63 72 79 70 74 stack2", Encrypt
9b90: 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 2c 20 28 UnstackObjCmd, (
9ba0: 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c ClientData) NULL
9bb0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
9bc0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
9bd0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
9be0: 3b 0a 7d 0a 0a ;.}..