0000: 2f 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e /*. * Encryption
0010: 20 46 75 6e 63 74 69 6f 6e 73 20 4d 6f 64 75 6c Functions Modul
0020: 65 0a 20 2a 0a 20 2a 20 54 68 69 73 20 6d 6f 64 e. *. * This mod
0030: 75 6c 65 20 70 72 6f 76 69 64 65 73 20 63 6f 6d ule provides com
0040: 6d 61 6e 64 73 20 74 68 61 74 20 63 61 6e 20 62 mands that can b
0050: 65 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70 e used to encryp
0060: 74 20 6f 72 20 64 65 63 72 79 70 74 20 64 61 74 t or decrypt dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 ude <tcl.h>.#inc
00e0: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 lude <stdio.h>.#
00f0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0100: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 h>.#include <ope
0110: 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 23 69 66 20 nssl/evp.h>.#if
0120: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
0130: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
0140: 30 30 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 0000L.#include <
0150: 6f 70 65 6e 73 73 6c 2f 70 61 72 61 6d 73 2e 68 openssl/params.h
0160: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 4d 61 63 >.#endif../* Mac
0170: 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ros */.#define B
0180: 55 46 46 45 52 5f 53 49 5a 45 09 33 32 37 36 38 UFFER_SIZE.32768
0190: 0a 23 64 65 66 69 6e 65 20 43 48 41 4e 5f 45 4f .#define CHAN_EO
01a0: 46 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 52 F.0x10.#define R
01b0: 45 41 44 5f 44 45 4c 41 59 09 35 0a 0a 2f 2a 20 EAD_DELAY.5../*
01c0: 45 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 Encryption funct
01d0: 69 6f 6e 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ions */.#define
01e0: 54 59 50 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 TYPE_MD..0x010.#
01f0: 64 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 define TYPE_HMAC
0200: 09 30 78 30 32 30 0a 23 64 65 66 69 6e 65 20 54 .0x020.#define T
0210: 59 50 45 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 YPE_CMAC.0x040.#
0220: 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 define TYPE_MAC.
0230: 30 78 30 38 30 0a 23 64 65 66 69 6e 65 20 54 59 0x080.#define TY
0240: 50 45 5f 45 4e 43 52 59 50 54 09 30 78 31 30 30 PE_ENCRYPT.0x100
0250: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 44 45 .#define TYPE_DE
0260: 43 52 59 50 54 09 30 78 32 30 30 0a 23 64 65 66 CRYPT.0x200.#def
0270: 69 6e 65 20 54 59 50 45 5f 53 49 47 4e 09 30 78 ine TYPE_SIGN.0x
0280: 34 30 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 400.#define TYPE
0290: 5f 56 45 52 49 46 59 09 30 78 38 30 30 0a 0a 2f _VERIFY.0x800../
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 ***/../*. * This
02f0: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
0300: 65 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 es the per-insta
0310: 6e 63 65 20 73 74 61 74 65 20 6f 66 20 61 20 65 nce state of a e
0320: 6e 63 72 79 70 74 20 6f 70 65 72 61 74 69 6f 6e ncrypt operation
0330: 2e 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 .. */.typedef st
0340: 72 75 63 74 20 45 6e 63 72 79 70 74 53 74 61 74 ruct EncryptStat
0350: 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c e {..Tcl_Channel
0360: 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 73 20 73 self;./* This s
0370: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0380: 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e ..Tcl_TimerToken
0390: 20 74 69 6d 65 72 3b 09 2f 2a 20 54 69 6d 65 72 timer;./* Timer
03a0: 20 66 6f 72 20 72 65 61 64 20 65 76 65 6e 74 73 for read events
03b0: 20 2a 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b */...int flags;
03c0: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
03d0: 20 66 6c 61 67 73 20 2a 2f 0a 09 69 6e 74 20 77 flags */..int w
03e0: 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a 20 43 75 atchMask;../* Cu
03f0: 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 20 rrent WatchProc
0400: 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 mask */..int mod
0410: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
0420: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
0430: 61 6e 6e 65 6c 20 2a 2f 0a 09 69 6e 74 20 74 79 annel */..int ty
0440: 70 65 3b 09 09 2f 2a 20 4f 70 65 72 61 74 69 6f pe;../* Operatio
0450: 6e 20 74 79 70 65 20 2a 2f 0a 0a 09 54 63 6c 5f n type */...Tcl_
0460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
0470: 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 /* Current inter
0480: 70 72 65 74 65 72 20 2a 2f 0a 09 45 56 50 5f 43 preter */..EVP_C
0490: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 3b 09 IPHER_CTX *ctx;.
04a0: 2f 2a 20 43 69 70 68 65 72 20 43 6f 6e 74 65 78 /* Cipher Contex
04b0: 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e t */..Tcl_Comman
04c0: 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d d token;./* Comm
04d0: 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 45 and token */.} E
04e0: 6e 63 72 79 70 74 53 74 61 74 65 3b 0a 0a 0a 2f ncryptState;.../
04f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
0540: 63 72 79 70 74 53 74 61 74 65 4e 65 77 20 2d 2d cryptStateNew --
0550: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
0560: 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 70 tion creates a p
0570: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0580: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
0590: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
05a0: 20 2a 09 53 74 61 74 65 20 73 74 72 75 63 74 75 *.State structu
05b0: 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a 0a 20 2a re pointer. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
05d0: 2a 09 43 72 65 61 74 65 73 20 73 74 72 75 63 74 *.Creates struct
05e0: 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ure. *. *-------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0630: 0a 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 45 .EncryptState *E
0640: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 54 ncryptStateNew(T
0650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0660: 70 2c 20 69 6e 74 20 74 79 70 65 29 20 7b 0a 20 p, int type) {.
0670: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
0680: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
0690: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6b 61 ryptState *) cka
06a0: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
06b0: 73 69 7a 65 6f 66 28 45 6e 63 72 79 70 74 53 74 sizeof(EncryptSt
06c0: 61 74 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 ate));.. if (
06d0: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
06e0: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
06f0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0700: 45 6e 63 72 79 70 74 53 74 61 74 65 29 29 3b 0a EncryptState));.
0710: 09 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 .statePtr->self.
0720: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 = NULL;../* This
0730: 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 socket channel
0740: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
0750: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 mer = NULL;../*
0760: 54 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 Timer to flush d
0770: 61 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 ata */..statePtr
0780: 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a ->flags = 0;../*
0790: 20 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 Chan config fla
07a0: 67 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d gs */..statePtr-
07b0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 >watchMask = 0;.
07c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
07d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 Proc mask */..st
07e0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 atePtr->mode.= 0
07f0: 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f ;../* Current mo
0800: 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 de of parent cha
0810: 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 nnel */..statePt
0820: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 09 r->type = type;.
0830: 09 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 74 79 ./* Operation ty
0840: 70 65 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d pe */..statePtr-
0850: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0860: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0870: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0880: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0890: 4c 3b 09 09 2f 2a 20 43 69 70 68 65 72 20 43 6f L;../* Cipher Co
08a0: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
08b0: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
08c0: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
08d0: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
08e0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
08f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0940: 0a 20 2a 20 45 6e 63 72 79 70 74 53 74 61 74 65 . * EncryptState
0950: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
0960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 is function dele
0970: 74 65 73 20 61 20 73 74 61 74 65 20 64 61 74 61 tes a state data
0980: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0990: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
09a0: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
09b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
09c0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
09d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0a20: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
0a30: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 (EncryptState *s
0a40: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 tatePtr) {. i
0a50: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 f (statePtr == (
0a60: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
0a70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
0a80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
0a90: 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 emove pending ti
0aa0: 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 mer */. if (s
0ab0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
0ac0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
0ad0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
0ae0: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
0af0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
0b00: 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 er);. }..
0b10: 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 20 /* Free context
0b20: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20 structures */.
0b30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0b40: 63 74 78 20 21 3d 20 28 45 56 50 5f 43 49 50 48 ctx != (EVP_CIPH
0b50: 45 52 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 ER_CTX *) NULL)
0b60: 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 {..EVP_CIPHER_CT
0b70: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
0b80: 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 >ctx);. }.
0b90: 20 63 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 ckfree(statePtr
0ba0: 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a );.}../*********
0bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
0bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0c40: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d yptInitialize --
0c50: 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a . *. *.Initializ
0c60: 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 e an encryption
0c70: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0c80: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0c90: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ca0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0cb0: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0cc0: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0cd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0ce0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0cf0: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0d00: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0d10: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0d60: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
0d70: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
0d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c nterp, int type,
0d90: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
0da0: 2a 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 **ctx,..Tcl_Obj
0db0: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
0dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
0dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 _Obj *ivObj) {.
0de0: 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 const EVP_CIP
0df0: 48 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 HER *cipher;.
0e00: 20 76 6f 69 64 20 2a 6b 65 79 53 74 72 69 6e 67 void *keyString
0e10: 20 3d 20 4e 55 4c 4c 2c 20 2a 69 76 53 74 72 69 = NULL, *ivStri
0e20: 6e 67 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 ng = NULL;. T
0e30: 63 6c 5f 53 69 7a 65 20 6b 65 79 5f 6c 65 6e 20 cl_Size key_len
0e40: 3d 20 30 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 3b = 0, iv_len = 0;
0e50: 0a 20 20 20 20 69 6e 74 20 72 65 73 2c 20 6d 61 . int res, ma
0e60: 78 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 x;. unsigned
0e70: 63 68 61 72 20 6b 65 79 5b 45 56 50 5f 4d 41 58 char key[EVP_MAX
0e80: 5f 4b 45 59 5f 4c 45 4e 47 54 48 5d 2c 20 69 76 _KEY_LENGTH], iv
0e90: 5b 45 56 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 [EVP_MAX_IV_LENG
0ea0: 54 48 5d 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 TH];.. dprint
0eb0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
0ec0: 20 20 2f 2a 20 49 6e 69 74 20 62 75 66 66 65 72 /* Init buffer
0ed0: 73 20 2a 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 s */. memset(
0ee0: 6b 65 79 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f key, 0, EVP_MAX_
0ef0: 4b 45 59 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 KEY_LENGTH);.
0f00: 20 6d 65 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 memset(iv, 0, E
0f10: 56 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 VP_MAX_IV_LENGTH
0f20: 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 );.. /* Get c
0f30: 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 ipher */. cip
0f40: 68 65 72 20 3d 20 55 74 69 6c 5f 47 65 74 43 69 her = Util_GetCi
0f50: 70 68 65 72 28 69 6e 74 65 72 70 2c 20 63 69 70 pher(interp, cip
0f60: 68 65 72 4f 62 6a 2c 20 31 29 3b 0a 20 20 20 20 herObj, 1);.
0f70: 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 if (cipher == NU
0f80: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
0f90: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
0fa0: 20 20 20 20 2f 2a 20 20 47 65 74 20 6b 65 79 20 /* Get key
0fb0: 2d 20 4f 6e 6c 79 20 73 75 70 70 6f 72 74 20 69 - Only support i
0fc0: 6e 74 65 72 6e 61 6c 6c 79 20 64 65 66 69 6e 65 nternally define
0fd0: 64 20 63 69 70 68 65 72 20 6c 65 6e 67 74 68 73 d cipher lengths
0fe0: 2e 0a 09 43 75 73 74 6f 6d 20 63 69 70 68 65 72 ...Custom cipher
0ff0: 73 20 63 61 6e 20 62 65 20 75 70 20 74 6f 20 73 s can be up to s
1000: 69 7a 65 5f 74 20 62 79 74 65 73 2e 20 2a 2f 0a ize_t bytes. */.
1010: 20 20 20 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 max = EVP_CI
1020: 50 48 45 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 PHER_key_length(
1030: 63 69 70 68 65 72 29 3b 0a 20 20 20 20 6b 65 79 cipher);. key
1040: 53 74 72 69 6e 67 20 3d 20 55 74 69 6c 5f 47 65 String = Util_Ge
1050: 74 4b 65 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 tKey(interp, key
1060: 4f 62 6a 2c 20 26 6b 65 79 5f 6c 65 6e 2c 20 22 Obj, &key_len, "
1070: 6b 65 79 22 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 key", max, 0);.
1080: 20 20 20 69 66 20 28 6b 65 79 53 74 72 69 6e 67 if (keyString
1090: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d != NULL) {..mem
10a0: 63 70 79 28 28 76 6f 69 64 20 2a 29 20 6b 65 79 cpy((void *) key
10b0: 2c 20 6b 65 79 53 74 72 69 6e 67 2c 20 28 73 69 , keyString, (si
10c0: 7a 65 5f 74 29 20 6b 65 79 5f 6c 65 6e 29 3b 0a ze_t) key_len);.
10d0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6b } else if (k
10e0: 65 79 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 20 eyObj != NULL)
10f0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
1100: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1110: 2f 2a 20 20 47 65 74 20 49 56 20 2a 2f 0a 20 20 /* Get IV */.
1120: 20 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 50 48 max = EVP_CIPH
1130: 45 52 5f 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 ER_iv_length(cip
1140: 68 65 72 29 3b 0a 20 20 20 20 69 76 53 74 72 69 her);. ivStri
1150: 6e 67 20 3d 20 55 74 69 6c 5f 47 65 74 49 56 28 ng = Util_GetIV(
1160: 69 6e 74 65 72 70 2c 20 69 76 4f 62 6a 2c 20 26 interp, ivObj, &
1170: 69 76 5f 6c 65 6e 2c 20 6d 61 78 2c 20 30 29 3b iv_len, max, 0);
1180: 0a 20 20 20 20 69 66 20 28 69 76 53 74 72 69 6e . if (ivStrin
1190: 67 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 g != NULL) {..me
11a0: 6d 63 70 79 28 28 76 6f 69 64 20 2a 29 20 69 76 mcpy((void *) iv
11b0: 2c 20 69 76 53 74 72 69 6e 67 2c 20 28 73 69 7a , ivString, (siz
11c0: 65 5f 74 29 20 69 76 5f 6c 65 6e 29 3b 0a 20 20 e_t) iv_len);.
11d0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 69 76 4f } else if (ivO
11e0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 bj != NULL) {..r
11f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1200: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
1210: 72 65 61 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f reate context */
1220: 0a 20 20 20 20 69 66 28 28 2a 63 74 78 20 3d 20 . if((*ctx =
1230: 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e EVP_CIPHER_CTX_n
1240: 65 77 28 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b ew()) == NULL) {
1250: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
1260: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f lt(interp, "Memo
1270: 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 ry allocation er
1280: 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ror", (char *) N
1290: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
12a0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
12b0: 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a /* Initializ
12c0: 65 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2e e the operation.
12d0: 20 4e 65 65 64 20 61 70 70 72 6f 70 72 69 61 74 Need appropriat
12e0: 65 20 6b 65 79 20 61 6e 64 20 69 76 20 73 69 7a e key and iv siz
12f0: 65 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 79 e. */. if (ty
1300: 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 52 59 pe == TYPE_ENCRY
1310: 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 PT) {..res = EVP
1320: 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 78 28 _EncryptInit_ex(
1330: 2a 63 74 78 2c 20 63 69 70 68 65 72 2c 20 4e 55 *ctx, cipher, NU
1340: 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b 0a 20 20 LL, key, iv);.
1350: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 } else {..res
1360: 3d 20 45 56 50 5f 44 65 63 72 79 70 74 49 6e 69 = EVP_DecryptIni
1370: 74 5f 65 78 28 2a 63 74 78 2c 20 63 69 70 68 65 t_ex(*ctx, ciphe
1380: 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 r, NULL, key, iv
1390: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 );. }.. if
13a0: 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 (!res) {..Tcl_Ap
13b0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
13c0: 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 66 p, "Initialize f
13d0: 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f 45 52 ailed: ", GET_ER
13e0: 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 R_REASON(), (cha
13f0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
1400: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1410: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 45 72 61 }.. /* Era
1420: 73 65 20 62 75 66 66 65 72 73 20 2a 2f 0a 20 20 se buffers */.
1430: 20 20 6d 65 6d 73 65 74 28 6b 65 79 2c 20 30 2c memset(key, 0,
1440: 20 45 56 50 5f 4d 41 58 5f 4b 45 59 5f 4c 45 4e EVP_MAX_KEY_LEN
1450: 47 54 48 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74 GTH);. memset
1460: 28 69 76 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f (iv, 0, EVP_MAX_
1470: 49 56 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 IV_LENGTH);.
1480: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
1490: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
14a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
14e0: 20 45 6e 63 72 79 70 74 55 70 64 61 74 65 20 2d EncryptUpdate -
14f0: 2d 0a 20 2a 0a 20 2a 09 55 70 64 61 74 65 20 61 -. *. *.Update a
1500: 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e n encryption fun
1510: 63 74 69 6f 6e 20 77 69 74 68 20 64 61 74 61 0a ction with data.
1520: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
1530: 2a 09 31 20 69 66 20 73 75 63 63 65 73 73 66 75 *.1 if successfu
1540: 6c 20 6f 72 20 30 20 66 6f 72 20 66 61 69 6c 75 l or 0 for failu
1550: 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 re. *. * Side ef
1560: 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 65 fects:. *.Adds e
1570: 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 74 6f ncrypted data to
1580: 20 62 75 66 66 65 72 20 6f 72 20 73 65 74 73 20 buffer or sets
1590: 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 result to error
15a0: 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d message. *. *---
15b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15f0: 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 . */.int Encrypt
1600: 55 70 64 61 74 65 28 54 63 6c 5f 49 6e 74 65 72 Update(Tcl_Inter
1610: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 p *interp, int t
1620: 79 70 65 2c 20 45 56 50 5f 43 49 50 48 45 52 5f ype, EVP_CIPHER_
1630: 43 54 58 20 2a 63 74 78 2c 20 75 6e 73 69 67 6e CTX *ctx, unsign
1640: 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 ed char *out_buf
1650: 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 6e 2c ,..int *out_len,
1660: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
1670: 64 61 74 61 2c 20 54 63 6c 5f 53 69 7a 65 20 64 data, Tcl_Size d
1680: 61 74 61 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 69 ata_len) {. i
1690: 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 72 nt res;.. dpr
16a0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
16b0: 0a 20 20 20 20 2f 2a 20 45 6e 63 72 79 70 74 2f . /* Encrypt/
16c0: 64 65 63 72 79 70 74 20 64 61 74 61 20 2a 2f 0a decrypt data */.
16d0: 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 if (type ==
16e0: 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a TYPE_ENCRYPT) {.
16f0: 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 .res = EVP_Encry
1700: 70 74 55 70 64 61 74 65 28 63 74 78 2c 20 6f 75 ptUpdate(ctx, ou
1710: 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 6e 2c 20 t_buf, out_len,
1720: 64 61 74 61 2c 20 28 69 6e 74 29 20 64 61 74 61 data, (int) data
1730: 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 _len);. } els
1740: 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 e {..res = EVP_D
1750: 65 63 72 79 70 74 55 70 64 61 74 65 28 63 74 78 ecryptUpdate(ctx
1760: 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c , out_buf, out_l
1770: 65 6e 2c 20 64 61 74 61 2c 20 28 69 6e 74 29 20 en, data, (int)
1780: 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d data_len);. }
1790: 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 20 7b .. if (res) {
17a0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
17b0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
17c0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
17d0: 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 65 20 interp, "Update
17e0: 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f 45 failed: ", GET_E
17f0: 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 RR_REASON(), (ch
1800: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
1810: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1820: 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d }.}../*. *--
1830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1870: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 46 -. *. * EncryptF
1880: 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a inalize --. *. *
1890: 09 46 69 6e 61 6c 69 7a 65 20 61 6e 20 65 6e 63 .Finalize an enc
18a0: 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e ryption function
18b0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
18c0: 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 *.TCL_OK if suc
18d0: 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 cessful or TCL_E
18e0: 52 52 4f 52 20 66 6f 72 20 66 61 69 6c 75 72 65 RROR for failure
18f0: 20 77 69 74 68 20 72 65 73 75 6c 74 20 73 65 74 with result set
1900: 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 6d 65 73 . *.to error mes
1910: 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 sage.. *. * Side
1920: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 effects:. *.Add
1930: 73 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 61 s encrypted data
1940: 20 74 6f 20 62 75 66 66 65 72 20 6f 72 20 73 65 to buffer or se
1950: 74 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 ts result to err
1960: 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a or message. *. *
1970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19b0: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
19c0: 79 70 74 46 69 6e 61 6c 69 7a 65 28 54 63 6c 5f yptFinalize(Tcl_
19d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
19e0: 69 6e 74 20 74 79 70 65 2c 20 45 56 50 5f 43 49 int type, EVP_CI
19f0: 50 48 45 52 5f 43 54 58 20 2a 63 74 78 2c 20 75 PHER_CTX *ctx, u
1a00: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 nsigned char *ou
1a10: 74 5f 62 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 t_buf,..int *out
1a20: 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 69 6e 74 20 _len) {. int
1a30: 72 65 73 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 res;.. dprint
1a40: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
1a50: 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 64 61 /* Finalize da
1a60: 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 79 ta */. if (ty
1a70: 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 52 59 pe == TYPE_ENCRY
1a80: 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 PT) {..res = EVP
1a90: 5f 45 6e 63 72 79 70 74 46 69 6e 61 6c 5f 65 78 _EncryptFinal_ex
1aa0: 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f (ctx, out_buf, o
1ab0: 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 ut_len);. } e
1ac0: 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 lse {..res = EVP
1ad0: 5f 44 65 63 72 79 70 74 46 69 6e 61 6c 5f 65 78 _DecryptFinal_ex
1ae0: 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f (ctx, out_buf, o
1af0: 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a ut_len);. }..
1b00: 20 20 20 20 69 66 20 28 72 65 73 29 20 7b 0a 09 if (res) {..
1b10: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 return TCL_OK;.
1b20: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c } else {..Tcl
1b30: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1b40: 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a 65 20 terp, "Finalize
1b50: 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f 45 failed: ", GET_E
1b60: 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 RR_REASON(), (ch
1b70: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
1b80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1b90: 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a }.}../******
1ba0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
1be0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
1c30: 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 ncryptBlockModeP
1c40: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
1c50: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e s function is in
1c60: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
1c70: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a eric IO level. *
1c80: 09 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 6e 67 .to set blocking
1c90: 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 and nonblocking
1ca0: 20 6d 6f 64 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 modes.. *. * Re
1cb0: 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 20 73 turns:. *.0 if s
1cc0: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f 53 uccessful or POS
1cd0: 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 IX error code if
1ce0: 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 failed.. *. * S
1cf0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
1d00: 53 65 74 73 20 74 68 65 20 64 65 76 69 63 65 20 Sets the device
1d10: 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 into blocking or
1d20: 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 nonblocking mod
1d30: 65 2e 0a 20 2a 09 43 61 6e 20 63 61 6c 6c 20 54 e.. *.Can call T
1d40: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 cl_SetChannelErr
1d50: 6f 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d or.. *. *-------
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
1da0: 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 .static int Encr
1db0: 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 yptBlockModeProc
1dc0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
1dd0: 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 6f 64 65 ntData, int mode
1de0: 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 ) {. EncryptS
1df0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
1e00: 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a (EncryptState *
1e10: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
1e20: 20 20 20 69 66 20 28 6d 6f 64 65 20 3d 3d 20 54 if (mode == T
1e30: 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f 43 4b CL_MODE_NONBLOCK
1e40: 49 4e 47 29 20 7b 0a 09 73 74 61 74 65 50 74 72 ING) {..statePtr
1e50: 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 ->flags |= TLS_T
1e60: 43 4c 5f 41 53 59 4e 43 3b 0a 20 20 20 20 7d 20 CL_ASYNC;. }
1e70: 65 6c 73 65 20 7b 0a 09 73 74 61 74 65 50 74 72 else {..statePtr
1e80: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 ->flags &= ~(TLS
1e90: 5f 54 43 4c 5f 41 53 59 4e 43 29 3b 0a 20 20 20 _TCL_ASYNC);.
1ea0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b }. return 0;
1eb0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1f00: 20 2a 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 50 * EncryptCloseP
1f10: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
1f20: 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 69 6e s function is in
1f30: 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e voked by the gen
1f40: 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f eric IO level to
1f50: 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 68 61 6e perform. *.chan
1f60: 6e 65 6c 2d 74 79 70 65 20 73 70 65 63 69 66 69 nel-type specifi
1f70: 63 20 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 74 c cleanup when t
1f80: 68 65 20 63 68 61 6e 6e 65 6c 20 69 73 20 63 6c he channel is cl
1f90: 6f 73 65 64 2e 20 41 6c 6c 0a 20 2a 09 71 75 65 osed. All. *.que
1fa0: 75 65 64 20 6f 75 74 70 75 74 20 69 73 20 66 6c ued output is fl
1fb0: 75 73 68 65 64 20 70 72 69 6f 72 20 74 6f 20 63 ushed prior to c
1fc0: 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 75 6e 63 alling this func
1fd0: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 tion.. *. * Retu
1fe0: 72 6e 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 rns:. *.0 if suc
1ff0: 63 65 73 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 cessful or POSIX
2000: 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 20 66 error code if f
2010: 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 ailed.. *. * Sid
2020: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 e effects:. *.De
2030: 6c 65 74 65 73 20 73 74 6f 72 65 64 20 73 74 61 letes stored sta
2040: 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 2d 2d te data.. *. *--
2050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2090: 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 -. */.int Encryp
20a0: 74 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 65 6e tCloseProc(Clien
20b0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
20c0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
20d0: 74 65 72 70 29 20 7b 0a 20 20 20 20 45 6e 63 72 terp) {. Encr
20e0: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
20f0: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
2100: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
2110: 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 63 65 6c ;.. /* Cancel
2120: 20 61 63 74 69 76 65 20 74 69 6d 65 72 2c 20 69 active timer, i
2130: 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 66 20 f any */. if
2140: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
2150: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
2160: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
2170: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
2180: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
2190: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
21a0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
21b0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
21c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f . }.. /* O
21d0: 75 74 70 75 74 20 72 65 6d 61 69 6e 69 6e 67 20 utput remaining
21e0: 64 61 74 61 2c 20 69 66 20 61 6e 79 20 2a 2f 0a data, if any */.
21f0: 20 20 20 20 69 66 20 28 21 28 73 74 61 74 65 50 if (!(stateP
2200: 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 41 4e tr->flags & CHAN
2210: 5f 45 4f 46 29 29 20 7b 0a 09 54 63 6c 5f 43 68 _EOF)) {..Tcl_Ch
2220: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 54 annel parent = T
2230: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
2240: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
2250: 65 6c 66 29 3b 0a 09 69 6e 74 20 6f 75 74 5f 6c elf);..int out_l
2260: 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 en;..unsigned ch
2270: 61 72 20 6f 75 74 5f 62 75 66 5b 45 56 50 5f 4d ar out_buf[EVP_M
2280: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 5d AX_BLOCK_LENGTH]
2290: 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 ;.../* Finalize
22a0: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 function */..if
22b0: 28 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 (EncryptFinalize
22c0: 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 (interp, statePt
22d0: 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 r->type, statePt
22e0: 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c r->ctx, out_buf,
22f0: 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 54 43 &out_len) == TC
2300: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 69 66 20 L_OK) {.. if
2310: 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a (out_len > 0) {.
2320: 09 09 54 63 6c 5f 53 69 7a 65 20 6c 65 6e 20 3d ..Tcl_Size len =
2330: 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 70 61 Tcl_WriteRaw(pa
2340: 72 65 6e 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 rent, (const cha
2350: 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 28 54 r *) out_buf, (T
2360: 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e cl_Size) out_len
2370: 29 3b 0a 09 09 69 66 20 28 6c 65 6e 20 3c 20 30 );...if (len < 0
2380: 29 20 7b 0a 09 09 20 20 20 20 72 65 74 75 72 6e ) {... return
2390: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
23a0: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 20 65 ...}.. }..} e
23b0: 6c 73 65 20 7b 0a 09 20 20 20 20 2f 2a 20 45 72 lse {.. /* Er
23c0: 72 6f 72 20 2a 2f 0a 09 7d 0a 0a 09 73 74 61 74 ror */..}...stat
23d0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 ePtr->flags |= C
23e0: 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a 0a HAN_EOF;. }..
23f0: 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 /* Clean-up
2400: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 */. EncryptSt
2410: 61 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 ateFree(statePtr
2420: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b );. return 0;
2430: 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 65 20 61 .}../*. * Same a
2440: 73 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 s EncryptClosePr
2450: 6f 63 20 62 75 74 20 77 69 74 68 20 69 6e 64 69 oc but with indi
2460: 76 69 64 75 61 6c 20 72 65 61 64 20 61 6e 64 20 vidual read and
2470: 77 72 69 74 65 20 63 6c 6f 73 65 20 63 6f 6e 74 write close cont
2480: 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 rol. */.static i
2490: 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 32 nt EncryptClose2
24a0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
24b0: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 instanceData, Tc
24c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
24d0: 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 7b 0a 20 , int flags) {.
24e0: 20 20 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 if ((flags &
24f0: 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 20 (TCL_CLOSE_READ
2500: 7c 20 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 | TCL_CLOSE_WRIT
2510: 45 29 29 20 3d 3d 20 30 29 20 7b 0a 09 72 65 74 E)) == 0) {..ret
2520: 75 72 6e 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 urn EncryptClose
2530: 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 61 74 Proc(instanceDat
2540: 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 a, interp);.
2550: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 45 49 4e }. return EIN
2560: 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d VAL;.}../*. *---
2570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25b0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
25c0: 74 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a tInputProc --. *
25d0: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 . *.Called by th
25e0: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 e generic IO sys
25f0: 74 65 6d 20 74 6f 20 72 65 61 64 20 64 61 74 61 tem to read data
2600: 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d 20 from transform
2610: 61 6e 64 0a 20 2a 09 70 6c 61 63 65 20 69 6e 20 and. *.place in
2620: 62 75 66 2e 20 54 72 61 6e 73 66 6f 72 6d 20 67 buf. Transform g
2630: 65 74 73 20 64 61 74 61 20 66 72 6f 6d 20 74 68 ets data from th
2640: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 e underlying cha
2650: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 nnel.. *. * Retu
2660: 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 62 79 rns:. *.Total by
2670: 74 65 73 20 72 65 61 64 20 6f 72 20 2d 31 20 66 tes read or -1 f
2680: 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 6c 6f 6e or an error alon
2690: 67 20 77 69 74 68 20 61 20 50 4f 53 49 58 20 65 g with a POSIX e
26a0: 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 69 6e 20 rror. *.code in
26b0: 65 72 72 6f 72 43 6f 64 65 50 74 72 2e 20 55 73 errorCodePtr. Us
26c0: 65 20 45 41 47 41 49 4e 20 66 6f 72 20 6e 6f 6e e EAGAIN for non
26d0: 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f 20 blocking and no
26e0: 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 data.. *. * Side
26f0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 61 effects:. *.Rea
2700: 64 20 64 61 74 61 20 66 72 6f 6d 20 74 72 61 6e d data from tran
2710: 73 66 6f 72 6d 20 61 6e 64 20 77 72 69 74 65 20 sform and write
2720: 74 6f 20 62 75 66 0a 20 2a 0a 20 2a 2d 2d 2d 2d to buf. *. *----
2730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2770: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
2780: 70 74 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 65 ptInputProc(Clie
2790: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
27a0: 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e a, char *buf, in
27b0: 74 20 74 6f 52 65 61 64 2c 20 69 6e 74 20 2a 65 t toRead, int *e
27c0: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 rrorCodePtr) {.
27d0: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
27e0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
27f0: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 ryptState *) cli
2800: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c entData;. Tcl
2810: 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b _Channel parent;
2820: 0a 20 20 20 20 69 6e 74 20 6f 75 74 5f 6c 65 6e . int out_len
2830: 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 72 ;. Tcl_Size r
2840: 65 61 64 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 ead;. *errorC
2850: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 odePtr = 0;.
2860: 63 68 61 72 20 2a 69 6e 5f 62 75 66 3b 0a 20 20 char *in_buf;.
2870: 20 20 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 . /* Abort
2880: 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 if nothing to pr
2890: 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 ocess */. if
28a0: 28 74 6f 52 65 61 64 20 3c 3d 20 30 20 7c 7c 20 (toRead <= 0 ||
28b0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
28c0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
28d0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
28e0: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0;. }.. /*
28f0: 20 47 65 74 20 62 79 74 65 73 20 66 72 6f 6d 20 Get bytes from
2900: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
2910: 65 6c 20 2a 2f 0a 20 20 20 20 69 6e 5f 62 75 66 el */. in_buf
2920: 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 28 54 63 = Tcl_Alloc((Tc
2930: 6c 5f 53 69 7a 65 29 20 74 6f 52 65 61 64 29 3b l_Size) toRead);
2940: 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 . parent = Tc
2950: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e l_GetStackedChan
2960: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
2970: 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 20 3d 20 lf);. read =
2980: 54 63 6c 5f 52 65 61 64 52 61 77 28 70 61 72 65 Tcl_ReadRaw(pare
2990: 6e 74 2c 20 69 6e 5f 62 75 66 2c 20 28 54 63 6c nt, in_buf, (Tcl
29a0: 5f 53 69 7a 65 29 20 74 6f 52 65 61 64 29 3b 0a _Size) toRead);.
29b0: 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 20 66 . /* Update f
29c0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
29d0: 66 20 28 72 65 61 64 20 3e 20 30 29 20 7b 0a 09 f (read > 0) {..
29e0: 2f 2a 20 48 61 76 65 20 64 61 74 61 20 2d 20 55 /* Have data - U
29f0: 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a pdate function *
2a00: 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 55 70 /..if (EncryptUp
2a10: 64 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 69 date(statePtr->i
2a20: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
2a30: 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d >type, statePtr-
2a40: 3e 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 20 >ctx, (unsigned
2a50: 63 68 61 72 20 2a 29 20 62 75 66 2c 20 26 6f 75 char *) buf, &ou
2a60: 74 5f 6c 65 6e 2c 20 28 75 6e 73 69 67 6e 65 64 t_len, (unsigned
2a70: 20 63 68 61 72 20 2a 29 20 69 6e 5f 62 75 66 2c char *) in_buf,
2a80: 20 72 65 61 64 29 20 3d 3d 20 54 43 4c 5f 4f 4b read) == TCL_OK
2a90: 29 20 7b 0a 09 20 20 20 20 2f 2a 20 49 66 20 68 ) {.. /* If h
2aa0: 61 76 65 20 64 61 74 61 2c 20 70 75 74 20 69 6e ave data, put in
2ab0: 20 62 75 66 2c 20 6f 74 68 65 72 77 69 73 65 20 buf, otherwise
2ac0: 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 79 20 tell TCL to try
2ad0: 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 20 69 66 again */.. if
2ae0: 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b (out_len > 0) {
2af0: 0a 09 09 72 65 61 64 20 3d 20 28 54 63 6c 5f 53 ...read = (Tcl_S
2b00: 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 3b 0a 09 20 ize) out_len;..
2b10: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 2a 65 } else {...*e
2b20: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
2b30: 47 41 49 4e 3b 0a 09 09 72 65 61 64 20 3d 20 2d GAIN;...read = -
2b40: 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 1;.. }..} els
2b50: 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 e {.. Tcl_Set
2b60: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 ChannelError(sta
2b70: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c tePtr->self, Tcl
2b80: 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 64 61 _ObjPrintf("Upda
2b90: 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 te failed: %s",
2ba0: 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 GET_ERR_REASON()
2bb0: 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ));.. *errorC
2bc0: 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b odePtr = EINVAL;
2bd0: 0a 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b 0a .. read = 0;.
2be0: 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 .}.. } else i
2bf0: 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b 0a 09 f (read < 0) {..
2c00: 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 2a 65 72 /* Error */..*er
2c10: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2c20: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a 20 20 _GetErrno();..
2c30: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 21 28 73 } else if (!(s
2c40: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
2c50: 20 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 2f CHAN_EOF)) {../
2c60: 2a 20 45 4f 46 20 2d 20 46 69 6e 61 6c 69 7a 65 * EOF - Finalize
2c70: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 70 75 function and pu
2c80: 74 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 t any remaining
2c90: 64 61 74 61 20 69 6e 20 62 75 66 20 2a 2f 0a 09 data in buf */..
2ca0: 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c if (EncryptFinal
2cb0: 69 7a 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ize(statePtr->in
2cc0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
2cd0: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
2ce0: 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 ctx, (unsigned c
2cf0: 68 61 72 20 2a 29 20 62 75 66 2c 20 26 6f 75 74 har *) buf, &out
2d00: 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 _len) == TCL_OK)
2d10: 20 7b 0a 09 20 20 20 20 72 65 61 64 20 3d 20 28 {.. read = (
2d20: 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 Tcl_Size) out_le
2d30: 6e 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 n;..} else {..
2d40: 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c Tcl_SetChannel
2d50: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e Error(statePtr->
2d60: 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 self, Tcl_ObjPri
2d70: 6e 74 66 28 22 46 69 6e 61 6c 69 7a 65 20 66 61 ntf("Finalize fa
2d80: 69 6c 65 64 3a 20 25 73 22 2c 20 47 45 54 5f 45 iled: %s", GET_E
2d90: 52 52 5f 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 RR_REASON()));..
2da0: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
2db0: 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 r = EINVAL;..
2dc0: 20 72 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 0a 09 read = 0;..}...
2dd0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2de0: 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 |= CHAN_EOF;.
2df0: 20 7d 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 }. Tcl_Free(
2e00: 69 6e 5f 62 75 66 29 3b 0a 20 20 20 20 72 65 74 in_buf);. ret
2e10: 75 72 6e 20 28 69 6e 74 29 20 72 65 61 64 3b 0a urn (int) read;.
2e20: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
2e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2e70: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4f 75 74 70 *. * EncryptOutp
2e80: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 utProc --. *. *.
2e90: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 Called by the ge
2ea0: 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 neric IO system
2eb0: 74 6f 20 77 72 69 74 65 20 64 61 74 61 20 69 6e to write data in
2ec0: 20 62 75 66 20 74 6f 20 74 72 61 6e 73 66 6f 72 buf to transfor
2ed0: 6d 2e 0a 20 2a 09 54 68 65 20 74 72 61 6e 73 66 m.. *.The transf
2ee0: 6f 72 6d 20 77 72 69 74 65 73 20 74 68 65 20 72 orm writes the r
2ef0: 65 73 75 6c 74 20 74 6f 20 74 68 65 20 75 6e 64 esult to the und
2f00: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
2f10: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
2f20: 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 77 *.Total bytes w
2f30: 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 66 6f 72 ritten or -1 for
2f40: 20 61 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 an error along
2f50: 77 69 74 68 20 61 20 50 4f 53 49 58 20 65 72 72 with a POSIX err
2f60: 6f 72 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 or. *.code in er
2f70: 72 6f 72 43 6f 64 65 50 74 72 2e 20 55 73 65 20 rorCodePtr. Use
2f80: 45 41 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c EAGAIN for nonbl
2f90: 6f 63 6b 69 6e 67 20 61 6e 64 20 63 61 6e 27 74 ocking and can't
2fa0: 20 77 72 69 74 65 20 64 61 74 61 2e 0a 20 2a 0a write data.. *.
2fb0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2fc0: 0a 20 2a 09 47 65 74 20 64 61 74 61 20 66 72 6f . *.Get data fro
2fd0: 6d 20 62 75 66 20 61 6e 64 20 75 70 64 61 74 65 m buf and update
2fe0: 20 65 6e 63 72 79 70 74 69 6f 6e 0a 20 2a 0a 20 encryption. *.
2ff0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 20 69 6e 74 -------. */. int
3040: 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 EncryptOutputPr
3050: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
3060: 69 65 6e 74 44 61 74 61 2c 20 63 6f 6e 73 74 20 ientData, const
3070: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 char *buf, int t
3080: 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 oWrite, int *err
3090: 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 orCodePtr) {.
30a0: 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 EncryptState *s
30b0: 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 tatePtr = (Encry
30c0: 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e ptState *) clien
30d0: 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 tData;. int w
30e0: 72 69 74 65 20 3d 20 30 2c 20 6f 75 74 5f 6c 65 rite = 0, out_le
30f0: 6e 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 n;. *errorCod
3100: 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 63 68 ePtr = 0;. ch
3110: 61 72 20 2a 6f 75 74 5f 62 75 66 3b 0a 0a 20 20 ar *out_buf;..
3120: 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f /* Abort if no
3130: 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 65 73 73 thing to process
3140: 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f 57 72 */. if (toWr
3150: 69 74 65 20 3c 3d 20 30 20 7c 7c 20 73 74 61 74 ite <= 0 || stat
3160: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
3170: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
3180: 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 ) {..return 0;.
3190: 20 20 20 7d 0a 0a 20 20 20 20 6f 75 74 5f 62 75 }.. out_bu
31a0: 66 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 28 54 f = Tcl_Alloc((T
31b0: 63 6c 5f 53 69 7a 65 29 20 74 6f 57 72 69 74 65 cl_Size) toWrite
31c0: 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c +EVP_MAX_BLOCK_L
31d0: 45 4e 47 54 48 29 3b 0a 0a 20 20 20 20 2f 2a 20 ENGTH);.. /*
31e0: 55 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 Update function
31f0: 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 72 79 */. if (Encry
3200: 70 74 55 70 64 61 74 65 28 73 74 61 74 65 50 74 ptUpdate(statePt
3210: 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 65 r->interp, state
3220: 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 Ptr->type, state
3230: 50 74 72 2d 3e 63 74 78 2c 20 28 75 6e 73 69 67 Ptr->ctx, (unsig
3240: 6e 65 64 20 63 68 61 72 20 2a 29 20 6f 75 74 5f ned char *) out_
3250: 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 28 buf, &out_len, (
3260: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
3270: 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 buf, (Tcl_Size)
3280: 20 74 6f 57 72 69 74 65 29 20 3d 3d 20 54 43 4c toWrite) == TCL
3290: 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 66 20 68 61 _OK) {../* If ha
32a0: 76 65 20 64 61 74 61 2c 20 6f 75 74 70 75 74 20 ve data, output
32b0: 69 74 2c 20 6f 74 68 65 72 77 69 73 65 20 74 65 it, otherwise te
32c0: 6c 6c 20 54 43 4c 20 74 6f 20 74 72 79 20 61 67 ll TCL to try ag
32d0: 61 69 6e 20 2a 2f 0a 09 69 66 20 28 6f 75 74 5f ain */..if (out_
32e0: 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 len > 0) {..
32f0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 Tcl_Channel pare
3300: 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 nt = Tcl_GetStac
3310: 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 kedChannel(state
3320: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 09 20 20 20 Ptr->self);..
3330: 20 77 72 69 74 65 20 3d 20 28 69 6e 74 29 20 54 write = (int) T
3340: 63 6c 5f 57 72 69 74 65 52 61 77 28 70 61 72 65 cl_WriteRaw(pare
3350: 6e 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 nt, (const char
3360: 2a 29 20 6f 75 74 5f 62 75 66 2c 20 28 54 63 6c *) out_buf, (Tcl
3370: 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b _Size) out_len);
3380: 0a 09 20 20 20 20 77 72 69 74 65 20 3d 20 74 6f .. write = to
3390: 57 72 69 74 65 3b 0a 09 7d 20 65 6c 73 65 20 7b Write;..} else {
33a0: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
33b0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 Ptr = EAGAIN;..
33c0: 20 20 20 77 72 69 74 65 20 3d 20 2d 31 3b 0a 09 write = -1;..
33d0: 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }.. } else {.
33e0: 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 .Tcl_SetChannelE
33f0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
3400: 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e elf, Tcl_ObjPrin
3410: 74 66 28 22 55 70 64 61 74 65 20 66 61 69 6c 65 tf("Update faile
3420: 64 3a 20 25 73 22 2c 20 47 45 54 5f 45 52 52 5f d: %s", GET_ERR_
3430: 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 2a 65 72 REASON()));..*er
3440: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4e rorCodePtr = EIN
3450: 56 41 4c 3b 0a 09 77 72 69 74 65 20 3d 20 30 3b VAL;..write = 0;
3460: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 46 . }. Tcl_F
3470: 72 65 65 28 6f 75 74 5f 62 75 66 29 3b 0a 20 20 ree(out_buf);.
3480: 20 20 72 65 74 75 72 6e 20 77 72 69 74 65 3b 0a return write;.
3490: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
34a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
34e0: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 53 65 74 4f *. * EncryptSetO
34f0: 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a ptionProc --. *.
3500: 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 *.Called by the
3510: 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 generic IO syst
3520: 65 6d 20 74 6f 20 73 65 74 20 63 68 61 6e 6e 65 em to set channe
3530: 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 20 74 6f l option name to
3540: 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 value.. *. * Re
3550: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
3560: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
3570: 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 r TCL_ERROR if f
3580: 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 74 68 ailed along with
3590: 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 an error. *.mes
35a0: 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 20 61 sage in interp a
35b0: 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 2e nd Tcl_SetErrno.
35c0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
35d0: 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 73 20 cts:. *.Updates
35e0: 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 channel option t
35f0: 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a o new value.. *.
3600: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3640: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
3650: 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 53 tic int EncryptS
3660: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 etOptionProc(Cli
3670: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
3680: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
3690: 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 interp, const ch
36a0: 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a ar *optionName,.
36b0: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 .const char *opt
36c0: 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 20 20 ionValue) {.
36d0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
36e0: 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 atePtr = (Encryp
36f0: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
3700: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 Data;. Tcl_Ch
3710: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 annel parent;.
3720: 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74 4f Tcl_DriverSetO
3730: 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 ptionProc *setOp
3740: 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 2f tionProc;.. /
3750: 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 * Abort if no ch
3760: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
3770: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 (statePtr->self
3780: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
3790: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
37a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
37b0: 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 67 61 }.. /* Delega
37c0: 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 6e 73 te options downs
37d0: 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 61 72 tream */. par
37e0: 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 ent = Tcl_GetSta
37f0: 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 ckedChannel(stat
3800: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 ePtr->self);.
3810: 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d setOptionProc =
3820: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 65 74 4f Tcl_ChannelSetO
3830: 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 ptionProc(Tcl_Ge
3840: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 tChannelType(par
3850: 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 28 73 ent));. if (s
3860: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 etOptionProc !=
3870: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
3880: 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 (*setOptionProc)
3890: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
38a0: 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 nstanceData(pare
38b0: 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 nt), interp, opt
38c0: 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 ionName, optionV
38d0: 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 alue);. } els
38e0: 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e e {..Tcl_SetErrn
38f0: 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 74 75 o(EINVAL);..retu
3900: 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 rn Tcl_BadChanne
3910: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
3920: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 4c 4c optionName, NULL
3930: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 );. }.}../*.
3940: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3980: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
3990: 63 72 79 70 74 47 65 74 4f 70 74 69 6f 6e 50 72 cryptGetOptionPr
39a0: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c oc --. *. *.Call
39b0: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
39c0: 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 67 c IO system to g
39d0: 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f et channel optio
39e0: 6e 20 6e 61 6d 65 27 73 20 76 61 6c 75 65 2e 0a n name's value..
39f0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
3a00: 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 *.TCL_OK if succ
3a10: 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 essful or TCL_ER
3a20: 52 4f 52 20 69 66 20 66 61 69 6c 65 64 20 61 6c ROR if failed al
3a30: 6f 6e 67 20 77 69 74 68 20 61 6e 20 65 72 72 6f ong with an erro
3a40: 72 0a 20 2a 09 6d 65 73 73 61 67 65 20 69 6e 20 r. *.message in
3a50: 69 6e 74 65 72 70 20 61 6e 64 20 54 63 6c 5f 53 interp and Tcl_S
3a60: 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 2a 20 53 etErrno.. *. * S
3a70: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
3a80: 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6f Sets result to o
3a90: 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 0a 20 2a ption's value. *
3aa0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
3af0: 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 atic int Encrypt
3b00: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c GetOptionProc(Cl
3b10: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
3b20: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
3b30: 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 *interp, const c
3b40: 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c har *optionName,
3b50: 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f ..Tcl_DString *o
3b60: 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 ptionValue) {.
3b70: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a EncryptState *
3b80: 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 statePtr = (Encr
3b90: 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 yptState *) clie
3ba0: 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ntData;. Tcl_
3bb0: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a Channel parent;.
3bc0: 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 47 65 Tcl_DriverGe
3bd0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 65 74 tOptionProc *get
3be0: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 OptionProc;..
3bf0: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 /* Abort if no
3c00: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
3c10: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c f (statePtr->sel
3c20: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
3c30: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
3c40: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3c50: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 }.. /* Dele
3c60: 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 gate options dow
3c70: 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 nstream */. p
3c80: 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 arent = Tcl_GetS
3c90: 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 tackedChannel(st
3ca0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 atePtr->self);.
3cb0: 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 getOptionProc
3cc0: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 = Tcl_ChannelGe
3cd0: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f tOptionProc(Tcl_
3ce0: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 GetChannelType(p
3cf0: 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 arent));. if
3d00: 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (getOptionProc !
3d10: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
3d20: 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f n (*getOptionPro
3d30: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 c)(Tcl_GetChanne
3d40: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 lInstanceData(pa
3d50: 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f rent), interp, o
3d60: 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f ptionName, optio
3d70: 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 nValue);. } e
3d80: 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 lse if (optionNa
3d90: 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 me == (char*) NU
3da0: 4c 4c 29 20 7b 0a 09 2f 2a 20 52 65 71 75 65 73 LL) {../* Reques
3db0: 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 20 61 t is query for a
3dc0: 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 ll options, this
3dd0: 20 69 73 20 6f 6b 2e 20 2a 2f 0a 09 72 65 74 75 is ok. */..retu
3de0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d rn TCL_OK;. }
3df0: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 65 74 else {..Tcl_Set
3e00: 45 72 72 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 Errno(EINVAL);..
3e10: 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 return Tcl_BadCh
3e20: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 annelOption(inte
3e30: 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 rp, optionName,
3e40: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a NULL);. }.}..
3e50: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
3e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
3ea0: 2a 20 45 6e 63 72 79 70 74 54 69 6d 65 72 48 61 * EncryptTimerHa
3eb0: 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 ndler --. *. *.C
3ec0: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e 6f 74 alled by the not
3ed0: 69 66 69 65 72 20 76 69 61 20 74 69 6d 65 72 20 ifier via timer
3ee0: 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 70 65 6e to flush out pen
3ef0: 64 69 6e 67 20 69 6e 70 75 74 20 64 61 74 61 2e ding input data.
3f00: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
3f10: 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a *.Nothing. *. *
3f20: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3f30: 2a 09 4d 61 79 20 63 61 6c 6c 20 54 63 6c 5f 4e *.May call Tcl_N
3f40: 6f 74 69 66 79 43 68 61 6e 6e 65 6c 0a 20 2a 0a otifyChannel. *.
3f50: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
3fa0: 74 69 63 20 76 6f 69 64 20 45 6e 63 72 79 70 74 tic void Encrypt
3fb0: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 43 6c 69 TimerHandler(Cli
3fc0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
3fd0: 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 ta) {. Encryp
3fe0: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
3ff0: 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 = (EncryptState
4000: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
4010: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
4020: 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 no channel */.
4030: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
4040: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
4050: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
4060: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 return;. }..
4070: 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 69 6d 65 /* Clear time
4080: 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 20 73 r token */. s
4090: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
40a0: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
40b0: 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 ) NULL;.. /*
40c0: 46 69 72 65 20 65 76 65 6e 74 20 69 66 20 74 68 Fire event if th
40d0: 65 72 65 20 69 73 20 70 65 6e 64 69 6e 67 20 64 ere is pending d
40e0: 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 65 72 77 ata, skip otherw
40f0: 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ise */. if ((
4100: 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d statePtr->watchM
4110: 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 ask & TCL_READAB
4120: 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e 70 75 LE) && (Tcl_Inpu
4130: 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 tBuffered(stateP
4140: 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 29 20 tr->self) > 0))
4150: 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 {..Tcl_NotifyCha
4160: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
4170: 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 41 42 4c elf, TCL_READABL
4180: 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a E);. }.}../*.
4190: 20 2a 2d 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 0a 20 2a 0a 20 2a 20 45 --------. *. * E
41e0: 6e 63 72 79 70 74 57 61 74 63 68 50 72 6f 63 20 ncryptWatchProc
41f0: 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c --. *. *.Initial
4200: 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 72 ize the notifier
4210: 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 65 76 to watch for ev
4220: 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 20 63 ents from this c
4230: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
4240: 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e turns:. *.Nothin
4250: 67 20 28 63 61 6e 27 74 20 72 65 74 75 72 6e 20 g (can't return
4260: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 29 0a error messages).
4270: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
4280: 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 72 65 ts:. *.Configure
4290: 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 75 74 notifier so fut
42a0: 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 ure events on th
42b0: 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c 20 62 e channel will b
42c0: 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a 20 e seen by Tcl..
42d0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
42e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
4320: 6f 69 64 20 45 6e 63 72 79 70 74 57 61 74 63 68 oid EncryptWatch
4330: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
4340: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 clientData, int
4350: 6d 61 73 6b 29 20 7b 0a 20 20 20 20 45 6e 63 72 mask) {. Encr
4360: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
4370: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
4380: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
4390: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
43a0: 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 l parent;. Tc
43b0: 6c 5f 44 72 69 76 65 72 57 61 74 63 68 50 72 6f l_DriverWatchPro
43c0: 63 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 c *watchProc;..
43d0: 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e /* Abort if n
43e0: 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 o channel */.
43f0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
4400: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
4410: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
4420: 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 turn;. }..
4430: 20 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 64 20 /* Store OR-ed
4440: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 combination of T
4450: 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c CL_READABLE, TCL
4460: 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 _WRITABLE and TC
4470: 4c 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f 0a 20 L_EXCEPTION */.
4480: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 statePtr->wat
4490: 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a chMask = mask;..
44a0: 20 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 74 65 /* Propagate
44b0: 20 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 70 61 mask info to pa
44c0: 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a rent channel */.
44d0: 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c parent = Tcl
44e0: 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e _GetStackedChann
44f0: 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c el(statePtr->sel
4500: 66 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f f);. watchPro
4510: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 c = Tcl_ChannelW
4520: 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 atchProc(Tcl_Get
4530: 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 ChannelType(pare
4540: 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 63 68 50 nt));. watchP
4550: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
4560: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 elInstanceData(p
4570: 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a 0a arent), mask);..
4580: 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 70 65 /* Remove pe
4590: 6e 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f 0a 20 nding timer */.
45a0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
45b0: 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 >timer != (Tcl_T
45c0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 imerToken) NULL)
45d0: 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 {..Tcl_DeleteTi
45e0: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
45f0: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
4600: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
4610: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
4620: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 NULL;. }..
4630: 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 69 73 /* If there is
4640: 20 64 61 74 61 20 70 65 6e 64 69 6e 67 2c 20 73 data pending, s
4650: 65 74 20 6e 65 77 20 74 69 6d 65 72 20 74 6f 20 et new timer to
4660: 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 43 call Tcl_NotifyC
4670: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 hannel */. if
4680: 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 ((mask & TCL_RE
4690: 41 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f ADABLE) && (Tcl_
46a0: 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 InputBuffered(st
46b0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 atePtr->self) >
46c0: 30 29 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 0)) {..statePtr-
46d0: 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 >timer = Tcl_Cre
46e0: 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 ateTimerHandler(
46f0: 52 45 41 44 5f 44 45 4c 41 59 2c 20 45 6e 63 72 READ_DELAY, Encr
4700: 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 2c yptTimerHandler,
4710: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
4720: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d atePtr);. }.}
4730: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4780: 0a 20 2a 20 45 6e 63 72 79 70 74 47 65 74 48 61 . * EncryptGetHa
4790: 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 ndleProc --. *.
47a0: 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 *.Called from Tc
47b0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 l_GetChannelHand
47c0: 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 20 4f le to retrieve O
47d0: 53 20 73 70 65 63 69 66 69 63 20 66 69 6c 65 20 S specific file
47e0: 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f 6d 20 69 handle. *.from i
47f0: 6e 73 69 64 65 20 74 68 69 73 20 63 68 61 6e 6e nside this chann
4800: 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 el. Not used for
4810: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 transformations
4820: 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a ?. *. * Returns:
4830: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f 72 20 73 . *.TCL_OK for s
4840: 75 63 63 65 73 73 20 6f 72 20 54 43 4c 5f 45 52 uccess or TCL_ER
4850: 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 20 6f 72 ROR for error or
4860: 20 69 66 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 if not supporte
4870: 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 63 74 69 d. If. *.directi
4880: 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 41 42 on is TCL_READAB
4890: 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 6c 65 50 LE, sets handleP
48a0: 74 72 20 74 6f 20 74 68 65 20 68 61 6e 64 6c 65 tr to the handle
48b0: 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 69 6e 70 used for. *.inp
48c0: 75 74 2c 20 6f 72 20 69 66 20 54 43 4c 5f 57 52 ut, or if TCL_WR
48d0: 49 54 41 42 4c 45 20 73 65 74 73 20 74 6f 20 74 ITABLE sets to t
48e0: 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 20 66 he handle used f
48f0: 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a 0a 20 2a or output.. *. *
4900: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4910: 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d *.None. *. *----
4920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4960: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
4970: 70 74 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 ptGetHandleProc(
4980: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
4990: 74 44 61 74 61 2c 20 69 6e 74 20 64 69 72 65 63 tData, int direc
49a0: 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61 tion, ClientData
49b0: 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b 0a 20 *handlePtr) {.
49c0: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
49d0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
49e0: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 ryptState *) cli
49f0: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c entData;. Tcl
4a00: 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b _Channel parent;
4a10: 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 .. /* Abort i
4a20: 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a f no channel */.
4a30: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
4a40: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
4a50: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
4a60: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
4a70: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 61 R;. }.. pa
4a80: 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 rent = Tcl_GetSt
4a90: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 ackedChannel(sta
4aa0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 tePtr->self);.
4ab0: 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 return Tcl_Get
4ac0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 61 ChannelHandle(pa
4ad0: 72 65 6e 74 2c 20 64 69 72 65 63 74 69 6f 6e 2c rent, direction,
4ae0: 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0a handlePtr);.}..
4af0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
4b40: 2a 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 79 50 * EncryptNotifyP
4b50: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c roc --. *. *.Cal
4b60: 6c 65 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e led by Tcl to in
4b70: 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 form us of activ
4b80: 69 74 79 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 ity on the under
4b90: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 lying channel..
4ba0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
4bb0: 09 55 6e 63 68 61 6e 67 65 64 20 69 6e 74 65 72 .Unchanged inter
4bc0: 65 73 74 4d 61 73 6b 20 77 68 69 63 68 20 69 73 estMask which is
4bd0: 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e an OR-ed combin
4be0: 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 ation of TCL_REA
4bf0: 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 DABLE or TCL_WRI
4c00: 54 41 42 4c 45 0a 20 2a 0a 20 2a 20 53 69 64 65 TABLE. *. * Side
4c10: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6e effects:. *.Can
4c20: 63 65 6c 73 20 61 6e 79 20 70 65 6e 64 69 6e 67 cels any pending
4c30: 20 74 69 6d 65 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d timer.. *. *---
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c80: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
4c90: 79 70 74 4e 6f 74 69 66 79 50 72 6f 63 28 43 6c yptNotifyProc(Cl
4ca0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
4cb0: 61 74 61 2c 20 69 6e 74 20 69 6e 74 65 72 65 73 ata, int interes
4cc0: 74 4d 61 73 6b 29 20 7b 0a 20 20 20 20 45 6e 63 tMask) {. Enc
4cd0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
4ce0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
4cf0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
4d00: 61 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 70 20 a;.. /* Skip
4d10: 74 69 6d 65 72 20 65 76 65 6e 74 20 61 73 20 72 timer event as r
4d20: 65 64 75 6e 64 61 6e 74 20 2a 2f 0a 20 20 20 20 edundant */.
4d30: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 if (statePtr->ti
4d40: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 mer != (Tcl_Time
4d50: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a rToken) NULL) {.
4d60: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 .Tcl_DeleteTimer
4d70: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
4d80: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 ->timer);..state
4d90: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
4da0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
4db0: 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 LL;. }. re
4dc0: 74 75 72 6e 20 69 6e 74 65 72 65 73 74 4d 61 73 turn interestMas
4dd0: 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 0a 20 2a 20 43 k;.}../*. *. * C
4de0: 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 72 75 hannel type stru
4df0: 63 74 75 72 65 20 64 65 66 69 6e 69 74 69 6f 6e cture definition
4e00: 20 66 6f 72 20 65 6e 63 72 79 70 74 69 6f 6e 20 for encryption
4e10: 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 2e transformations.
4e20: 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 . *. */.static c
4e30: 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c onst Tcl_Channel
4e40: 54 79 70 65 20 65 6e 63 72 79 70 74 43 68 61 6e Type encryptChan
4e50: 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 nelType = {.
4e60: 22 65 6e 63 72 79 70 74 69 6f 6e 22 2c 09 09 2f "encryption",../
4e70: 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a 2f 0a 20 * Type name */.
4e80: 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 TCL_CHANNEL_V
4e90: 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 76 35 20 ERSION_5,./* v5
4ea0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 45 channel */. E
4eb0: 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 2c ncryptCloseProc,
4ec0: 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 ../* Close proc
4ed0: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 49 6e */. EncryptIn
4ee0: 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 putProc,../* Inp
4ef0: 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 ut proc */. E
4f00: 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 6f 63 ncryptOutputProc
4f10: 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f ,../* Output pro
4f20: 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 c */. NULL,..
4f30: 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f ./* Seek proc */
4f40: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 65 74 4f . EncryptSetO
4f50: 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 53 65 ptionProc,./* Se
4f60: 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f t option proc */
4f70: 0a 20 20 20 20 45 6e 63 72 79 70 74 47 65 74 4f . EncryptGetO
4f80: 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 65 ptionProc,./* Ge
4f90: 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f t option proc */
4fa0: 0a 20 20 20 20 45 6e 63 72 79 70 74 57 61 74 63 . EncryptWatc
4fb0: 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 hProc,../* Initi
4fc0: 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a alize notifier *
4fd0: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 65 74 /. EncryptGet
4fe0: 48 61 6e 64 6c 65 50 72 6f 63 2c 09 2f 2a 20 47 HandleProc,./* G
4ff0: 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 et OS handles ou
5000: 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a t of channel */.
5010: 20 20 20 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 EncryptClose
5020: 32 50 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 2Proc,../* close
5030: 32 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 6e 63 2proc */. Enc
5040: 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f ryptBlockModePro
5050: 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f 63 6b 69 c,./* Set blocki
5060: 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d ng/nonblocking m
5070: 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 ode*/. NULL,.
5080: 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f 63 20 ../* Flush proc
5090: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 4e 6f */. EncryptNo
50a0: 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 tifyProc,../* Ha
50b0: 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 ndling of events
50c0: 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a bubbling up */.
50d0: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 57 NULL,.../* W
50e0: 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 2a 2f ide seek proc */
50f0: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
5100: 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 2a 2f Thread action */
5110: 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 54 . NULL.../* T
5120: 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a 2f runcate */.};../
5130: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
5180: 20 45 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 EncryptChannelH
5190: 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 andler --. *. *.
51a0: 43 72 65 61 74 65 20 61 20 73 74 61 63 6b 65 64 Create a stacked
51b0: 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20 6d channel for a m
51c0: 65 73 73 61 67 65 20 65 6e 63 72 79 70 74 69 6f essage encryptio
51d0: 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e n transformation
51e0: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
51f0: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
5200: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
5210: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 de effects:. *.A
5220: 64 64 73 20 74 72 61 6e 73 66 6f 72 6d 20 74 6f dds transform to
5230: 20 63 68 61 6e 6e 65 6c 20 61 6e 64 20 73 65 74 channel and set
5240: 73 20 72 65 73 75 6c 74 20 74 6f 20 63 68 61 6e s result to chan
5250: 6e 65 6c 20 69 64 20 6f 72 20 65 72 72 6f 72 20 nel id or error
5260: 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d message.. *. *--
5270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52b0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
52c0: 69 6e 74 20 45 6e 63 72 79 70 74 43 68 61 6e 6e int EncryptChann
52d0: 65 6c 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e elHandler(Tcl_In
52e0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
52f0: 74 20 74 79 70 65 2c 20 63 6f 6e 73 74 20 63 68 t type, const ch
5300: 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 0a 09 54 63 ar *channel,..Tc
5310: 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a l_Obj *cipherObj
5320: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 , Tcl_Obj *diges
5330: 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b tObj, Tcl_Obj *k
5340: 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a eyObj, Tcl_Obj *
5350: 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 69 6e 74 ivObj) {. int
5360: 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 mode; /* OR-ed
5370: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 combination of T
5380: 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 CL_READABLE and
5390: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a TCL_WRITABLE */.
53a0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
53b0: 63 68 61 6e 3b 0a 20 20 20 20 45 6e 63 72 79 70 chan;. Encryp
53c0: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
53d0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
53e0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
53f0: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 73 20 * Validate args
5400: 2a 2f 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e */. if (chann
5410: 65 6c 20 3d 3d 20 28 63 6f 6e 73 74 20 63 68 61 el == (const cha
5420: 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 r *) NULL) {..Tc
5430: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
5440: 6e 74 65 72 70 2c 20 22 4e 6f 20 63 68 61 6e 6e nterp, "No chann
5450: 65 6c 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 el", (char *) NU
5460: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
5470: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5480: 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 /* Get channe
5490: 6c 20 49 64 20 2a 2f 0a 20 20 20 20 63 68 61 6e l Id */. chan
54a0: 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 = Tcl_GetChanne
54b0: 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 l(interp, channe
54c0: 6c 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 l, &mode);. i
54d0: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
54e0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
54f0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5500: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5510: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f * Make sure to o
5520: 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f perate on the to
5530: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f pmost channel */
5540: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
5550: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
5560: 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e an);.. /* Con
5570: 66 69 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a figure channel *
5580: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 /. Tcl_SetCha
5590: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
55a0: 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 p, chan, "-trans
55b0: 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 lation", "binary
55c0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 ");.. /* Crea
55d0: 74 65 20 73 74 61 74 65 20 64 61 74 61 20 73 74 te state data st
55e0: 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 69 ructure */. i
55f0: 66 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 45 f ((statePtr = E
5600: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 69 ncryptStateNew(i
5610: 6e 74 65 72 70 2c 20 74 79 70 65 29 29 20 3d 3d nterp, type)) ==
5620: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
5630: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
5640: 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 p, "Memory alloc
5650: 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 ation error", (c
5660: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
5670: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5680: 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 . }. state
5690: 50 74 72 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e Ptr->self = chan
56a0: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
56b0: 6d 6f 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a 20 20 mode = mode;..
56c0: 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 /* Initialize
56d0: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 function */.
56e0: 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 74 69 if (EncryptIniti
56f0: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 alize(interp, ty
5700: 70 65 2c 20 26 73 74 61 74 65 50 74 72 2d 3e 63 pe, &statePtr->c
5710: 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b tx, cipherObj, k
5720: 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 21 3d eyObj, ivObj) !=
5730: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e 63 72 TCL_OK) {..Encr
5740: 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 61 yptStateFree(sta
5750: 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 tePtr);..return
5760: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5770: 0a 0a 20 20 20 20 2f 2a 20 53 74 61 63 6b 20 63 .. /* Stack c
5780: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 73 74 hannel */. st
5790: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 atePtr->self = T
57a0: 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 cl_StackChannel(
57b0: 69 6e 74 65 72 70 2c 20 26 65 6e 63 72 79 70 74 interp, &encrypt
57c0: 43 68 61 6e 6e 65 6c 54 79 70 65 2c 20 28 43 6c ChannelType, (Cl
57d0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
57e0: 74 72 2c 20 6d 6f 64 65 2c 20 63 68 61 6e 29 3b tr, mode, chan);
57f0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
5800: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
5810: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
5820: 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 ..EncryptStateFr
5830: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 ee(statePtr);..r
5840: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5850: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 . }.. /* S
5860: 65 74 20 72 65 73 75 6c 74 20 74 6f 20 63 68 61 et result to cha
5870: 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 54 nnel Id */. T
5880: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
5890: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 erp, (char *) Tc
58a0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
58b0: 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 4f 4c 41 (chan), TCL_VOLA
58c0: 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 TILE);. retur
58d0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
58e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
58f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 --------. *. * U
5930: 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 6c 20 2d nstack Channel -
5940: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e -. *. *.This fun
5950: 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 20 74 68 ction removes th
5960: 65 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 e stacked channe
5970: 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f 70 20 6f l from the top o
5980: 66 20 74 68 65 0a 20 2a 09 63 68 61 6e 6e 65 6c f the. *.channel
5990: 20 73 74 61 63 6b 20 69 66 20 69 74 20 69 73 20 stack if it is
59a0: 61 20 65 6e 63 72 79 70 74 69 6f 6e 20 63 68 61 a encryption cha
59b0: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 nnel.. *. * Retu
59c0: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
59d0: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
59e0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
59f0: 20 2a 09 52 65 6d 6f 76 65 73 20 74 72 61 6e 73 *.Removes trans
5a00: 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 form from channe
5a10: 6c 20 6f 72 20 73 65 74 73 20 72 65 73 75 6c 74 l or sets result
5a20: 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 to error messag
5a30: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
5a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
5a80: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
5a90: 63 72 79 70 74 55 6e 73 74 61 63 6b 4f 62 6a 43 cryptUnstackObjC
5aa0: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
5ab0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
5ac0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
5ad0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
5ae0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
5af0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
5b00: 20 63 68 61 6e 3b 0a 20 20 20 20 69 6e 74 20 6d chan;. int m
5b10: 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f ode; /* OR-ed co
5b20: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c mbination of TCL
5b30: 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 54 43 _READABLE and TC
5b40: 4c 5f 57 52 49 54 41 42 4c 45 20 20 2a 2f 0a 20 L_WRITABLE */.
5b50: 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 (void) client
5b60: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
5b70: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
5b80: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
5b90: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
5ba0: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b if (objc != 2) {
5bb0: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
5bc0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
5bd0: 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 49 64 22 29 jv, "channelId")
5be0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
5bf0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
5c00: 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 2a /* Get channel *
5c10: 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c /. chan = Tcl
5c20: 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 _GetChannel(inte
5c30: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
5c40: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d gFromObj(objv[1]
5c50: 2c 20 28 54 63 6c 5f 53 69 7a 65 20 2a 29 20 4e , (Tcl_Size *) N
5c60: 55 4c 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 ULL), &mode);.
5c70: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 if (chan == (T
5c80: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
5c90: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
5ca0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5cb0: 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 /* Make sure t
5cc0: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
5cd0: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
5ce0: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 */. chan = T
5cf0: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
5d00: 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 (chan);.. /*
5d10: 43 68 65 63 6b 20 69 66 20 65 6e 63 72 79 70 74 Check if encrypt
5d20: 69 6f 6e 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ion channel */.
5d30: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 if (Tcl_GetCh
5d40: 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 annelType(chan)
5d50: 21 3d 20 26 65 6e 63 72 79 70 74 43 68 61 6e 6e != &encryptChann
5d60: 65 6c 54 79 70 65 29 20 7b 0a 09 54 63 6c 5f 41 elType) {..Tcl_A
5d70: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
5d80: 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c rp, "bad channel
5d90: 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 \"", Tcl_GetCha
5da0: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a nnelName(chan),.
5db0: 09 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 . "\": not a
5dc0: 65 6e 63 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e encryption chann
5dd0: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c el", NULL);..Tcl
5de0: 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 69 6e _SetErrorCode(in
5df0: 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 55 4e terp, "TLS", "UN
5e00: 53 54 41 43 4b 22 2c 20 22 43 48 41 4e 4e 45 4c STACK", "CHANNEL
5e10: 22 2c 20 22 49 4e 56 41 4c 49 44 22 2c 20 28 63 ", "INVALID", (c
5e20: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
5e30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5e40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 50 . }.. /* P
5e50: 6f 70 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f op transform fro
5e60: 6d 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 m channel */.
5e70: 20 72 65 74 75 72 6e 20 54 63 6c 5f 55 6e 73 74 return Tcl_Unst
5e80: 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 ackChannel(inter
5e90: 70 2c 20 63 68 61 6e 29 3b 0a 7d 0a 0a 2f 2a 2a p, chan);.}../**
5ea0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5eb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ec0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ed0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ee0: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
5ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
5f30: 20 2a 20 45 6e 63 72 79 70 74 49 6e 73 74 61 6e * EncryptInstan
5f40: 63 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 ceObjCmd --. *.
5f50: 2a 09 48 61 6e 64 6c 65 72 20 66 6f 72 20 65 6e *.Handler for en
5f60: 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 63 6f crypt/decrypt co
5f70: 6d 6d 61 6e 64 20 69 6e 73 74 61 6e 63 65 73 2e mmand instances.
5f80: 20 55 73 65 64 20 74 6f 20 75 70 64 61 74 65 0a Used to update.
5f90: 20 2a 09 61 6e 64 20 66 69 6e 61 6c 69 7a 65 20 *.and finalize
5fa0: 64 61 74 61 20 66 6f 72 20 65 6e 63 72 79 70 74 data for encrypt
5fb0: 2f 64 65 63 72 79 70 74 20 66 75 6e 63 74 69 6f /decrypt functio
5fc0: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 n.. *. * Returns
5fd0: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
5fe0: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
5ff0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
6000: 41 64 64 73 20 64 61 74 61 20 74 6f 20 65 6e 63 Adds data to enc
6010: 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 75 6e rypt/decrypt fun
6020: 63 74 69 6f 6e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ction. *. *-----
6030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6070: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 49 6e */.int EncryptIn
6080: 73 74 61 6e 63 65 4f 62 6a 43 6d 64 28 43 6c 69 stanceObjCmd(Cli
6090: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
60a0: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
60b0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
60c0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
60d0: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 45 objv[]) {. E
60e0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
60f0: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
6100: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
6110: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 66 6e 2c ata;. int fn,
6120: 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 54 63 out_len;. Tc
6130: 6c 5f 53 69 7a 65 20 64 61 74 61 5f 6c 65 6e 20 l_Size data_len
6140: 3d 20 30 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 = 0;. unsigne
6150: 64 20 63 68 61 72 20 2a 64 61 74 61 20 3d 20 4e d char *data = N
6160: 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ULL;. Tcl_Obj
6170: 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 *resultObj;.
6180: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
6190: 6f 75 74 5f 62 75 66 3b 0a 20 20 20 20 73 74 61 out_buf;. sta
61a0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a tic const char *
61b0: 69 6e 73 74 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 instance_fns []
61c0: 3d 20 7b 20 22 66 69 6e 61 6c 69 7a 65 22 2c 20 = { "finalize",
61d0: 22 75 70 64 61 74 65 22 2c 20 4e 55 4c 4c 20 7d "update", NULL }
61e0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
61f0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
6200: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
6210: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
6220: 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 objc < 2 || objc
6230: 20 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 3) {..Tcl_Wro
6240: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
6250: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 66 75 6e 63 , 1, objv, "func
6260: 74 69 6f 6e 20 3f 64 61 74 61 3f 22 29 3b 0a 09 tion ?data?");..
6270: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6280: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
6290: 47 65 74 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a Get function */.
62a0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
62b0: 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 ndexFromObj(inte
62c0: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 69 6e 73 rp, objv[1], ins
62d0: 74 61 6e 63 65 5f 66 6e 73 2c 20 22 66 75 6e 63 tance_fns, "func
62e0: 74 69 6f 6e 22 2c 20 30 2c 20 26 66 6e 29 20 21 tion", 0, &fn) !
62f0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 = TCL_OK) {..ret
6300: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6310: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 6c 6c }.. /* All
6320: 6f 63 61 74 65 20 73 74 6f 72 61 67 65 20 66 6f ocate storage fo
6330: 72 20 72 65 73 75 6c 74 2e 20 53 69 7a 65 20 73 r result. Size s
6340: 68 6f 75 6c 64 20 62 65 20 64 61 74 61 20 73 69 hould be data si
6350: 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 2e ze + block size.
6360: 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 */. resultOb
6370: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 j = Tcl_NewObj()
6380: 3b 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 ;. out_buf =
6390: 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 Tcl_SetByteArray
63a0: 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a Length(resultObj
63b0: 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 5f 4d , data_len+EVP_M
63c0: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 AX_BLOCK_LENGTH)
63d0: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
63e0: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6f Obj == NULL || o
63f0: 75 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 ut_buf == NULL)
6400: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
6410: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d ult(interp, "Mem
6420: 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 ory allocation e
6430: 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 rror", (char *)
6440: 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 44 65 63 72 NULL);..Tcl_Decr
6450: 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f RefCount(resultO
6460: 62 6a 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c bj);..return TCL
6470: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6480: 20 20 20 2f 2a 20 44 6f 20 66 75 6e 63 74 69 6f /* Do functio
6490: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 6e 29 n */. if (fn)
64a0: 20 7b 0a 09 2f 2a 20 47 65 74 20 64 61 74 61 20 {../* Get data
64b0: 6f 72 20 72 65 74 75 72 6e 20 65 72 72 6f 72 20 or return error
64c0: 69 66 20 6e 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 if none */..if (
64d0: 6f 62 6a 63 20 3d 3d 20 33 29 20 7b 0a 09 20 20 objc == 3) {..
64e0: 20 20 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 data = Tcl_Get
64f0: 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a ByteArrayFromObj
6500: 28 6f 62 6a 76 5b 32 5d 2c 20 26 64 61 74 61 5f (objv[2], &data_
6510: 6c 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a len);..} else {.
6520: 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
6530: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
6540: 20 6f 62 6a 76 2c 20 22 75 70 64 61 74 65 20 64 objv, "update d
6550: 61 74 61 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f ata");.. Tcl_
6560: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
6570: 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 ultObj);.. re
6580: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6590: 09 7d 0a 0a 09 2f 2a 20 55 70 64 61 74 65 20 66 .}.../* Update f
65a0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 unction */..if (
65b0: 45 6e 63 72 79 70 74 55 70 64 61 74 65 28 69 6e EncryptUpdate(in
65c0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
65d0: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
65e0: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
65f0: 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 ut_len, data, da
6600: 74 61 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f ta_len) == TCL_O
6610: 4b 29 20 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 K) {.. out_bu
6620: 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 f = Tcl_SetByteA
6630: 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c rrayLength(resul
6640: 74 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a 65 29 tObj, (Tcl_Size)
6650: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 out_len);..
6660: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
6670: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
6680: 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 bj);..} else {..
6690: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
66a0: 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b ount(resultObj);
66b0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
66c0: 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 _ERROR;..}..
66d0: 7d 20 65 6c 73 65 20 7b 0a 09 2f 2a 20 46 69 6e } else {../* Fin
66e0: 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a alize function *
66f0: 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 46 69 /..if (EncryptFi
6700: 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 nalize(interp, s
6710: 74 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 tatePtr->type, s
6720: 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 tatePtr->ctx, ou
6730: 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 t_buf, &out_len)
6740: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 == TCL_OK) {..
6750: 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c out_buf = Tcl
6760: 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e _SetByteArrayLen
6770: 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 28 gth(resultObj, (
6780: 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 Tcl_Size) out_le
6790: 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 n);.. Tcl_Set
67a0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
67b0: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d , resultObj);..}
67c0: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c else {.. Tcl
67d0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 _DecrRefCount(re
67e0: 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 sultObj);.. r
67f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6800: 0a 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 2d 75 ..}.../* Clean-u
6810: 70 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74 65 p */..Tcl_Delete
6820: 43 6f 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e CommandFromToken
6830: 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 (interp, statePt
6840: 72 2d 3e 74 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d r->token);. }
6850: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6860: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
68b0: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6f 6d *. * EncryptCom
68c0: 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 mandDeleteHandle
68d0: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c r --. *. *. Call
68e0: 62 61 63 6b 20 74 6f 20 63 6c 65 61 6e 2d 75 70 back to clean-up
68f0: 20 77 68 65 6e 20 65 6e 63 72 79 70 74 2f 64 65 when encrypt/de
6900: 63 72 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 73 crypt command is
6910: 20 64 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 deleted.. *. *
6920: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 Returns:. *.Noth
6930: 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ing. *. * Side e
6940: 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 ffects:. *.Destr
6950: 6f 79 73 20 73 74 61 74 65 20 69 6e 66 6f 20 73 oys state info s
6960: 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d tructure. *. *--
6970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69b0: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 45 6e 63 72 79 -. */.void Encry
69c0: 70 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 48 ptCommandDeleteH
69d0: 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 andler(ClientDat
69e0: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a a clientData) {.
69f0: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
6a00: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
6a10: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
6a20: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f ientData;.. /
6a30: 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 * Clean-up */.
6a40: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 EncryptStateFr
6a50: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 7d 0a ee(statePtr);.}.
6a60: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
6a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
6ab0: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 EncryptCommandHa
6ac0: 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 20 ndler --. *. *.
6ad0: 43 72 65 61 74 65 20 63 6f 6d 6d 61 6e 64 20 74 Create command t
6ae0: 6f 20 61 64 64 20 64 61 74 61 20 74 6f 20 65 6e o add data to en
6af0: 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 75 crypt/decrypt fu
6b00: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
6b10: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
6b20: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
6b30: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
6b40: 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f 6d :. *.Creates com
6b50: 6d 61 6e 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 mand or error me
6b60: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
6b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6bb0: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 43 6f */.int EncryptCo
6bc0: 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 28 54 63 6c mmandHandler(Tcl
6bd0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
6be0: 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f int type, Tcl_O
6bf0: 62 6a 20 2a 63 6d 64 4f 62 6a 2c 0a 09 54 63 6c bj *cmdObj,..Tcl
6c00: 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c _Obj *cipherObj,
6c10: 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 Tcl_Obj *digest
6c20: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 Obj, Tcl_Obj *ke
6c30: 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 yObj, Tcl_Obj *i
6c40: 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 6e 63 72 vObj) {. Encr
6c50: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
6c60: 74 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 6d tr;. char *cm
6c70: 64 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 dName = Tcl_GetS
6c80: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 6d 64 tringFromObj(cmd
6c90: 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a 65 20 2a Obj, (Tcl_Size *
6ca0: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 64 70 ) NULL);.. dp
6cb0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
6cc0: 0a 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 65 .. if ((state
6cd0: 50 74 72 20 3d 20 45 6e 63 72 79 70 74 53 74 61 Ptr = EncryptSta
6ce0: 74 65 4e 65 77 28 69 6e 74 65 72 70 2c 20 74 79 teNew(interp, ty
6cf0: 70 65 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a pe)) == NULL) {.
6d00: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
6d10: 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 t(interp, "Memor
6d20: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 y allocation err
6d30: 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 or", (char *) NU
6d40: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
6d50: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6d60: 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 /* Initialize
6d70: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
6d80: 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 74 if (EncryptInit
6d90: 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 ialize(interp, t
6da0: 79 70 65 2c 20 26 73 74 61 74 65 50 74 72 2d 3e ype, &statePtr->
6db0: 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 ctx, cipherObj,
6dc0: 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 21 keyObj, ivObj) !
6dd0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e 63 = TCL_OK) {..Enc
6de0: 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 ryptStateFree(st
6df0: 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e atePtr);..return
6e00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
6e10: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
6e20: 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e instance comman
6e30: 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 d */. statePt
6e40: 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c 5f 43 r->token = Tcl_C
6e50: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
6e60: 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 6d 65 2c interp, cmdName,
6e70: 20 45 6e 63 72 79 70 74 49 6e 73 74 61 6e 63 65 EncryptInstance
6e80: 4f 62 6a 43 6d 64 2c 0a 09 28 43 6c 69 65 6e 74 ObjCmd,..(Client
6e90: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 Data) statePtr,
6ea0: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 EncryptCommandDe
6eb0: 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b 0a 0a 20 leteHandler);..
6ec0: 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 6d /* Return com
6ed0: 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 mand name */.
6ee0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
6ef0: 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 4f 62 6a t(interp, cmdObj
6f00: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
6f10: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a L_OK;.}../******
6f20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
6f60: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
6f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
6fb0: 6e 63 72 79 70 74 44 61 74 61 48 61 6e 64 6c 65 ncryptDataHandle
6fc0: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f r --. *. *.Perfo
6fd0: 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 rm encryption fu
6fe0: 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c 6f 63 nction on a bloc
6ff0: 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 20 72 65 k of data and re
7000: 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a turn result.. *.
7010: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
7020: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
7030: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
7040: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 fects:. *.Sets r
7050: 65 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d esult or error m
7060: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
7070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
70b0: 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 44 */.int EncryptD
70c0: 61 74 61 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 ataHandler(Tcl_I
70d0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
70e0: 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a nt type, Tcl_Obj
70f0: 20 2a 64 61 74 61 4f 62 6a 2c 20 54 63 6c 5f 4f *dataObj, Tcl_O
7100: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 0a 09 bj *cipherObj,..
7110: 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f Tcl_Obj *digestO
7120: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 bj, Tcl_Obj *key
7130: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 Obj, Tcl_Obj *iv
7140: 4f 62 6a 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 Obj) {. EVP_C
7150: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d IPHER_CTX *ctx =
7160: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 6f NULL;. int o
7170: 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 20 ut_len = 0, len
7180: 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c 5f 4f = 0, res = TCL_O
7190: 4b 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 K;. Tcl_Size
71a0: 64 61 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 data_len = 0;.
71b0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
71c0: 2a 64 61 74 61 2c 20 2a 6f 75 74 5f 62 75 66 3b *data, *out_buf;
71d0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
71e0: 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 sultObj;.. dp
71f0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
7200: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 74 .. /* Get dat
7210: 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 64 61 74 a */. if (dat
7220: 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a aObj != NULL) {.
7230: 09 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 .data = Tcl_GetB
7240: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
7250: 64 61 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c dataObj, &data_l
7260: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
7270: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
7280: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
7290: 64 61 74 61 22 2c 20 28 63 68 61 72 20 2a 29 20 data", (char *)
72a0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
72b0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
72c0: 0a 20 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 . /* Allocate
72d0: 20 73 74 6f 72 61 67 65 20 66 6f 72 20 72 65 73 storage for res
72e0: 75 6c 74 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 ult. Size should
72f0: 20 62 65 20 64 61 74 61 20 73 69 7a 65 20 2b 20 be data size +
7300: 62 6c 6f 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 block size. */.
7310: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
7320: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 cl_NewObj();.
7330: 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 out_buf = Tcl_S
7340: 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 etByteArrayLengt
7350: 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 64 61 74 h(resultObj, dat
7360: 61 5f 6c 65 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c a_len+EVP_MAX_BL
7370: 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 OCK_LENGTH);.
7380: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
7390: 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 = NULL || out_bu
73a0: 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 f == NULL) {..Tc
73b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
73c0: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
73d0: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
73e0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
73f0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
7400: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7410: 2f 2a 20 50 65 72 66 6f 72 6d 20 6f 70 65 72 61 /* Perform opera
7420: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 tion */. if (
7430: 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a EncryptInitializ
7440: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
7450: 26 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c &ctx, cipherObj,
7460: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 keyObj, ivObj)
7470: 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e != TCL_OK ||..En
7480: 63 72 79 70 74 55 70 64 61 74 65 28 69 6e 74 65 cryptUpdate(inte
7490: 72 70 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 6f rp, type, ctx, o
74a0: 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e ut_buf, &out_len
74b0: 2c 20 64 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e , data, data_len
74c0: 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 ) != TCL_OK ||..
74d0: 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 EncryptFinalize(
74e0: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 74 interp, type, ct
74f0: 78 2c 20 6f 75 74 5f 62 75 66 2b 6f 75 74 5f 6c x, out_buf+out_l
7500: 65 6e 2c 20 26 6c 65 6e 29 20 21 3d 20 54 43 4c en, &len) != TCL
7510: 5f 4f 4b 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 _OK) {..res = TC
7520: 4c 5f 45 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 L_ERROR;..goto d
7530: 6f 6e 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f one;. }. o
7540: 75 74 5f 6c 65 6e 20 2b 3d 20 6c 65 6e 3b 0a 0a ut_len += len;..
7550: 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 53 65 74 done:. /* Set
7560: 20 6f 75 74 70 75 74 20 72 65 73 75 6c 74 20 2a output result *
7570: 2f 0a 20 20 20 20 69 66 20 28 72 65 73 20 3d 3d /. if (res ==
7580: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 6f 75 74 5f TCL_OK) {..out_
7590: 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 buf = Tcl_SetByt
75a0: 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 eArrayLength(res
75b0: 75 6c 74 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a ultObj, (Tcl_Siz
75c0: 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 54 63 e) out_len);..Tc
75d0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
75e0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
75f0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
7600: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e .Tcl_DecrRefCoun
7610: 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 2f t(resultObj);../
7620: 2a 20 52 65 73 75 6c 74 20 69 73 20 65 72 72 6f * Result is erro
7630: 72 20 6d 65 73 73 61 67 65 20 2a 2f 0a 20 20 20 r message */.
7640: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e }.. /* Clean
7650: 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 up */. if (c
7660: 74 78 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 tx != NULL) {..E
7670: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 66 72 VP_CIPHER_CTX_fr
7680: 65 65 28 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 ee(ctx);. }.
7690: 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d return res;.}
76a0: 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ../*************
76b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
76c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
76d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
76e0: 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d ******/../*. *--
76f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7730: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 46 -. *. * EncryptF
7740: 69 6c 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a ileHandler --. *
7750: 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 . *.Perform encr
7760: 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 yption function
7770: 6f 6e 20 61 20 62 6c 6f 63 6b 20 6f 66 20 64 61 on a block of da
7780: 74 61 20 61 6e 64 20 72 65 74 75 72 6e 20 72 65 ta and return re
7790: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 sult.. *. * Retu
77a0: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
77b0: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
77c0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
77d0: 20 2a 09 45 6e 63 72 79 70 74 73 20 6f 72 20 64 *.Encrypts or d
77e0: 65 63 72 79 70 74 73 20 69 6e 46 69 6c 65 20 64 ecrypts inFile d
77f0: 61 74 61 20 74 6f 20 6f 75 74 46 69 6c 65 20 61 ata to outFile a
7800: 6e 64 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 nd sets result t
7810: 6f 0a 20 2a 09 73 69 7a 65 20 6f 66 20 6f 75 74 o. *.size of out
7820: 46 69 6c 65 2c 20 6f 72 20 61 6e 20 65 72 72 6f File, or an erro
7830: 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a r message.. *. *
7840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7880: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
7890: 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 54 yptFileHandler(T
78a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
78b0: 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c p, int type, Tcl
78c0: 5f 4f 62 6a 20 2a 69 6e 46 69 6c 65 4f 62 6a 2c _Obj *inFileObj,
78d0: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 75 74 46 69 6c Tcl_Obj *outFil
78e0: 65 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a eObj,..Tcl_Obj *
78f0: 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f 4f cipherObj, Tcl_O
7900: 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 54 bj *digestObj, T
7910: 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 cl_Obj *keyObj,
7920: 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 Tcl_Obj *ivObj)
7930: 7b 0a 20 20 20 20 45 56 50 5f 43 49 50 48 45 52 {. EVP_CIPHER
7940: 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c _CTX *ctx = NULL
7950: 3b 0a 20 20 20 20 69 6e 74 20 74 6f 74 61 6c 20 ;. int total
7960: 3d 20 30 2c 20 72 65 73 2c 20 6f 75 74 5f 6c 65 = 0, res, out_le
7970: 6e 20 3d 20 30 2c 20 6c 65 6e 3b 0a 20 20 20 20 n = 0, len;.
7980: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 69 6e 20 3d Tcl_Channel in =
7990: 20 4e 55 4c 4c 2c 20 6f 75 74 20 3d 20 4e 55 4c NULL, out = NUL
79a0: 4c 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 L;. unsigned
79b0: 63 68 61 72 20 69 6e 5f 62 75 66 5b 42 55 46 46 char in_buf[BUFF
79c0: 45 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 20 75 6e ER_SIZE];. un
79d0: 73 69 67 6e 65 64 20 63 68 61 72 20 6f 75 74 5f signed char out_
79e0: 62 75 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 2b buf[BUFFER_SIZE+
79f0: 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 EVP_MAX_BLOCK_LE
7a00: 4e 47 54 48 5d 3b 0a 0a 20 20 20 20 64 70 72 69 NGTH];.. dpri
7a10: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
7a20: 20 20 20 20 2f 2a 20 4f 70 65 6e 20 69 6e 70 75 /* Open inpu
7a30: 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 69 66 t file */. if
7a40: 20 28 28 69 6e 20 3d 20 54 63 6c 5f 46 53 4f 70 ((in = Tcl_FSOp
7a50: 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c 28 69 6e enFileChannel(in
7a60: 74 65 72 70 2c 20 69 6e 46 69 6c 65 4f 62 6a 2c terp, inFileObj,
7a70: 20 22 72 62 22 2c 20 30 34 34 34 29 29 20 3d 3d "rb", 0444)) ==
7a80: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
7a90: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
7aa0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
7ab0: 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 6f 75 74 . /* Open out
7ac0: 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 put file */.
7ad0: 69 66 20 28 28 6f 75 74 20 3d 20 54 63 6c 5f 46 if ((out = Tcl_F
7ae0: 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c SOpenFileChannel
7af0: 28 69 6e 74 65 72 70 2c 20 6f 75 74 46 69 6c 65 (interp, outFile
7b00: 4f 62 6a 2c 20 22 77 62 22 2c 20 30 36 34 34 29 Obj, "wb", 0644)
7b10: 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 ) == (Tcl_Channe
7b20: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f l) NULL) {..Tcl_
7b30: 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 69 6e Close(interp, in
7b40: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
7b50: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
7b60: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 6f /* Initialize o
7b70: 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 peration */.
7b80: 69 66 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 if ((res = Encry
7b90: 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 ptInitialize(int
7ba0: 65 72 70 2c 20 74 79 70 65 2c 20 26 63 74 78 2c erp, type, &ctx,
7bb0: 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f cipherObj, keyO
7bc0: 62 6a 2c 20 69 76 4f 62 6a 29 29 20 21 3d 20 54 bj, ivObj)) != T
7bd0: 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 CL_OK) {..goto d
7be0: 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 one;. }..
7bf0: 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 /* Read file dat
7c00: 61 20 66 72 6f 6d 20 69 6e 46 69 6c 65 2c 20 65 a from inFile, e
7c10: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 69 ncrypt/decrypt i
7c20: 74 2c 20 74 68 65 6e 20 6f 75 74 70 75 74 20 74 t, then output t
7c30: 6f 20 6f 75 74 46 69 6c 65 20 2a 2f 0a 20 20 20 o outFile */.
7c40: 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f 66 while (!Tcl_Eof
7c50: 28 69 6e 29 29 20 7b 0a 09 54 63 6c 5f 53 69 7a (in)) {..Tcl_Siz
7c60: 65 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 65 61 e read = Tcl_Rea
7c70: 64 52 61 77 28 69 6e 2c 20 28 63 68 61 72 20 2a dRaw(in, (char *
7c80: 29 20 69 6e 5f 62 75 66 2c 20 42 55 46 46 45 52 ) in_buf, BUFFER
7c90: 5f 53 49 5a 45 29 3b 0a 09 69 66 20 28 72 65 61 _SIZE);..if (rea
7ca0: 64 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 d > 0) {.. if
7cb0: 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 74 ((res = Encrypt
7cc0: 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 Update(interp, t
7cd0: 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 ype, ctx, out_bu
7ce0: 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f f, &out_len, in_
7cf0: 62 75 66 2c 20 72 65 61 64 29 29 20 3d 3d 20 54 buf, read)) == T
7d00: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 6f CL_OK) {...if (o
7d10: 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 ut_len > 0) {...
7d20: 20 20 20 20 6c 65 6e 20 3d 20 28 69 6e 74 29 20 len = (int)
7d30: 54 63 6c 5f 57 72 69 74 65 52 61 77 28 6f 75 74 Tcl_WriteRaw(out
7d40: 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 , (const char *)
7d50: 20 6f 75 74 5f 62 75 66 2c 20 28 54 63 6c 5f 53 out_buf, (Tcl_S
7d60: 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 ize) out_len);..
7d70: 09 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 3d 20 . if (len >=
7d80: 30 29 20 7b 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 0) {....total +=
7d90: 20 6c 65 6e 3b 0a 09 09 20 20 20 20 7d 20 65 6c len;... } el
7da0: 73 65 20 7b 0a 09 09 09 54 63 6c 5f 41 70 70 65 se {....Tcl_Appe
7db0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
7dc0: 20 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 22 "Write error: "
7dd0: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 , Tcl_ErrnoMsg(T
7de0: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 cl_GetErrno()),
7df0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
7e00: 09 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 ...res = TCL_ERR
7e10: 4f 52 3b 0a 09 09 09 67 6f 74 6f 20 64 6f 6e 65 OR;....goto done
7e20: 3b 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 ;... }...}..
7e30: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 67 6f } else {...go
7e40: 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a to done;.. }.
7e50: 09 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 .} else if (read
7e60: 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c < 0) {.. Tcl
7e70: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
7e80: 74 65 72 70 2c 20 22 52 65 61 64 20 65 72 72 6f terp, "Read erro
7e90: 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d r: ", Tcl_ErrnoM
7ea0: 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 sg(Tcl_GetErrno(
7eb0: 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c )), (char *) NUL
7ec0: 4c 29 3b 0a 09 20 20 20 20 72 65 73 20 3d 20 54 L);.. res = T
7ed0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 67 CL_ERROR;.. g
7ee0: 6f 74 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 oto done;..}.
7ef0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c }.. /* Final
7f00: 69 7a 65 20 64 61 74 61 20 61 6e 64 20 77 72 69 ize data and wri
7f10: 74 65 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 te any remaining
7f20: 20 64 61 74 61 20 69 6e 20 62 6c 6f 63 6b 20 2a data in block *
7f30: 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d /. if ((res =
7f40: 20 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 EncryptFinalize
7f50: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 (interp, type, c
7f60: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 tx, out_buf, &ou
7f70: 74 5f 6c 65 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f t_len)) == TCL_O
7f80: 4b 29 20 7b 0a 09 69 66 20 28 6f 75 74 5f 6c 65 K) {..if (out_le
7f90: 6e 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 6c 65 n > 0) {.. le
7fa0: 6e 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f 57 72 n = (int) Tcl_Wr
7fb0: 69 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e iteRaw(out, (con
7fc0: 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 st char *) out_b
7fd0: 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f uf, (Tcl_Size) o
7fe0: 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 69 66 ut_len);.. if
7ff0: 20 28 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 (len >= 0) {...
8000: 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 20 total += len;..
8010: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 } else {...Tc
8020: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
8030: 6e 74 65 72 70 2c 20 22 57 72 69 74 65 20 65 72 nterp, "Write er
8040: 72 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e ror: ", Tcl_Errn
8050: 6f 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e oMsg(Tcl_GetErrn
8060: 6f 28 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e o()), (char *) N
8070: 55 4c 4c 29 3b 0a 09 09 72 65 73 20 3d 20 54 43 ULL);...res = TC
8080: 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 L_ERROR;...goto
8090: 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a done;.. }..}.
80a0: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c .Tcl_SetObjResul
80b0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
80c0: 77 49 6e 74 4f 62 6a 28 74 6f 74 61 6c 29 29 3b wIntObj(total));
80d0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 67 . } else {..g
80e0: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a oto done;. }.
80f0: 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 6c .done:. /* Cl
8100: 65 61 6e 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 ean up */. if
8110: 20 28 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a (in != NULL) {.
8120: 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 .Tcl_Close(inter
8130: 70 2c 20 69 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 p, in);. }.
8140: 20 20 69 66 20 28 6f 75 74 20 21 3d 20 4e 55 4c if (out != NUL
8150: 4c 29 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 L) {..Tcl_Close(
8160: 69 6e 74 65 72 70 2c 20 6f 75 74 29 3b 0a 20 20 interp, out);.
8170: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 }. if (ctx
8180: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f != NULL) {..EVP_
8190: 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 CIPHER_CTX_free(
81a0: 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ctx);. }.
81b0: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
81c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
81d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
81e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
81f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8200: 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 63 6f 6e ***/..static con
8210: 73 74 20 63 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 st char *command
8220: 5f 6f 70 74 73 20 5b 5d 20 3d 20 7b 0a 20 20 20 _opts [] = {.
8230: 20 22 2d 63 68 61 6e 22 2c 20 22 2d 63 68 61 6e "-chan", "-chan
8240: 6e 65 6c 22 2c 20 22 2d 63 69 70 68 65 72 22 2c nel", "-cipher",
8250: 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 22 2d 64 "-command", "-d
8260: 61 74 61 22 2c 20 22 2d 64 69 67 65 73 74 22 2c ata", "-digest",
8270: 20 22 2d 69 6e 66 69 6c 65 22 2c 20 22 2d 66 69 "-infile", "-fi
8280: 6c 65 6e 61 6d 65 22 2c 0a 20 20 20 20 22 2d 6f lename",. "-o
8290: 75 74 66 69 6c 65 22 2c 20 22 2d 68 61 73 68 22 utfile", "-hash"
82a0: 2c 20 22 2d 69 76 22 2c 20 22 2d 6b 65 79 22 2c , "-iv", "-key",
82b0: 20 22 2d 6d 61 63 22 2c 20 4e 55 4c 4c 7d 3b 0a "-mac", NULL};.
82c0: 0a 65 6e 75 6d 20 5f 63 6f 6d 6d 61 6e 64 5f 6f .enum _command_o
82d0: 70 74 73 20 7b 0a 20 20 20 20 5f 6f 70 74 5f 63 pts {. _opt_c
82e0: 68 61 6e 2c 20 5f 6f 70 74 5f 63 68 61 6e 6e 65 han, _opt_channe
82f0: 6c 2c 20 5f 6f 70 74 5f 63 69 70 68 65 72 2c 20 l, _opt_cipher,
8300: 5f 6f 70 74 5f 63 6f 6d 6d 61 6e 64 2c 20 5f 6f _opt_command, _o
8310: 70 74 5f 64 61 74 61 2c 20 5f 6f 70 74 5f 64 69 pt_data, _opt_di
8320: 67 65 73 74 2c 20 5f 6f 70 74 5f 69 6e 66 69 6c gest, _opt_infil
8330: 65 2c 0a 20 20 20 20 5f 6f 70 74 5f 66 69 6c 65 e,. _opt_file
8340: 6e 61 6d 65 2c 20 5f 6f 70 74 5f 6f 75 74 66 69 name, _opt_outfi
8350: 6c 65 2c 20 5f 6f 70 74 5f 68 61 73 68 2c 20 5f le, _opt_hash, _
8360: 6f 70 74 5f 69 76 2c 20 5f 6f 70 74 5f 6b 65 79 opt_iv, _opt_key
8370: 2c 20 5f 6f 70 74 5f 6d 61 63 0a 7d 3b 0a 0a 2f , _opt_mac.};../
8380: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
8390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
83d0: 63 72 79 70 74 4d 61 69 6e 20 2d 2d 0a 20 2a 0a cryptMain --. *.
83e0: 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 *.Perform encry
83f0: 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 61 ption function a
8400: 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 nd return result
8410: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
8420: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
8430: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
8440: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
8450: 65 74 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 ets result or er
8460: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 ror message. *.
8470: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
8480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84b0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
84c0: 69 6e 74 20 45 6e 63 72 79 70 74 4d 61 69 6e 28 int EncryptMain(
84d0: 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 49 6e int type, Tcl_In
84e0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
84f0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
8500: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
8510: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 . Tcl_Obj *ci
8520: 70 68 65 72 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 pherObj = NULL,
8530: 2a 63 6d 64 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 *cmdObj = NULL,
8540: 2a 64 61 74 61 4f 62 6a 20 3d 20 4e 55 4c 4c 2c *dataObj = NULL,
8550: 20 2a 64 69 67 65 73 74 4f 62 6a 20 3d 20 4e 55 *digestObj = NU
8560: 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 LL;. Tcl_Obj
8570: 2a 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c *inFileObj = NUL
8580: 4c 2c 20 2a 6f 75 74 46 69 6c 65 4f 62 6a 20 3d L, *outFileObj =
8590: 20 4e 55 4c 4c 2c 20 2a 6b 65 79 4f 62 6a 20 3d NULL, *keyObj =
85a0: 20 4e 55 4c 4c 2c 20 2a 69 76 4f 62 6a 20 3d 20 NULL, *ivObj =
85b0: 4e 55 4c 4c 2c 20 2a 6d 61 63 4f 62 6a 20 3d 20 NULL, *macObj =
85c0: 4e 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 NULL;. const
85d0: 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 20 3d 20 char *channel =
85e0: 4e 55 4c 4c 2c 20 2a 6f 70 74 3b 0a 20 20 20 20 NULL, *opt;.
85f0: 69 6e 74 20 72 65 73 2c 20 73 74 61 72 74 20 3d int res, start =
8600: 20 31 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 1;. Tcl_Size
8610: 20 66 6e 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 fn;.. dprint
8620: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
8630: 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 /* Clear inter
8640: 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 p result */.
8650: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
8660: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a interp);.. /*
8670: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
8680: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
8690: 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 bjc < 3 || objc
86a0: 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 12) {..Tcl_Wro
86b0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
86c0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 63 69 , 1, objv, "?-ci
86d0: 70 68 65 72 3f 20 6e 61 6d 65 20 3f 2d 64 69 67 pher? name ?-dig
86e0: 65 73 74 20 6e 61 6d 65 3f 20 2d 6b 65 79 20 6b est name? -key k
86f0: 65 79 20 3f 2d 69 76 20 73 74 72 69 6e 67 3f 20 ey ?-iv string?
8700: 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d 63 68 ?-mac name? [-ch
8710: 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 6f annel chan | -co
8720: 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c 20 mmand cmdName |
8730: 2d 69 6e 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 -infile filename
8740: 20 2d 6f 75 74 66 69 6c 65 20 66 69 6c 65 6e 61 -outfile filena
8750: 6d 65 20 7c 20 3f 2d 64 61 74 61 3f 20 64 61 74 me | ?-data? dat
8760: 61 5d 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 a]");..return TC
8770: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
8780: 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63 /* Special c
8790: 61 73 65 20 6f 66 20 66 69 72 73 74 20 61 72 67 ase of first arg
87a0: 20 69 73 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 is cipher */.
87b0: 20 20 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 opt = Tcl_GetS
87c0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
87d0: 76 5b 73 74 61 72 74 5d 2c 20 28 54 63 6c 5f 53 v[start], (Tcl_S
87e0: 69 7a 65 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 ize *) NULL);.
87f0: 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 if (opt[0] !=
8800: 27 2d 27 29 20 7b 0a 09 73 77 69 74 63 68 28 74 '-') {..switch(t
8810: 79 70 65 29 20 7b 0a 09 63 61 73 65 20 54 59 50 ype) {..case TYP
8820: 45 5f 45 4e 43 52 59 50 54 3a 0a 09 63 61 73 65 E_ENCRYPT:..case
8830: 20 54 59 50 45 5f 44 45 43 52 59 50 54 3a 0a 09 TYPE_DECRYPT:..
8840: 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 cipherObj =
8850: 6f 62 6a 76 5b 73 74 61 72 74 2b 2b 5d 3b 0a 09 objv[start++];..
8860: 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 break;..}.
8870: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
8880: 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 options */. f
8890: 6f 72 20 28 69 6e 74 20 69 64 78 20 3d 20 73 74 or (int idx = st
88a0: 61 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b art; idx < objc;
88b0: 20 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a 20 53 70 idx++) {../* Sp
88c0: 65 63 69 61 6c 20 63 61 73 65 20 66 6f 72 20 77 ecial case for w
88d0: 68 65 6e 20 6c 61 73 74 20 61 72 67 20 69 73 20 hen last arg is
88e0: 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 69 64 78 data */..if (idx
88f0: 20 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 20 7b 0a == objc - 1) {.
8900: 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 .opt = Tcl_GetSt
8910: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
8920: 5b 69 64 78 5d 2c 20 28 54 63 6c 5f 53 69 7a 65 [idx], (Tcl_Size
8930: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 *) NULL);..
8940: 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d if (opt[0] != '-
8950: 27 20 26 26 20 64 61 74 61 4f 62 6a 20 3d 3d 20 ' && dataObj ==
8960: 4e 55 4c 4c 29 20 7b 0a 09 09 64 61 74 61 4f 62 NULL) {...dataOb
8970: 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 j = objv[idx];..
8980: 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 .break;.. }..
8990: 7d 0a 0a 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f }.../* Get optio
89a0: 6e 20 2a 2f 0a 09 69 66 20 28 54 63 6c 5f 47 65 n */..if (Tcl_Ge
89b0: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e tIndexFromObj(in
89c0: 74 65 72 70 2c 20 6f 62 6a 76 5b 69 64 78 5d 2c terp, objv[idx],
89d0: 20 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 2c 20 22 command_opts, "
89e0: 6f 70 74 69 6f 6e 22 2c 20 30 2c 20 26 66 6e 29 option", 0, &fn)
89f0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 != TCL_OK) {..
8a00: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8a10: 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 56 61 6c ROR;..}.../* Val
8a20: 69 64 61 74 65 20 61 72 67 20 68 61 73 20 61 20 idate arg has a
8a30: 76 61 6c 75 65 20 2a 2f 0a 09 69 66 20 28 2b 2b value */..if (++
8a40: 69 64 78 20 3e 3d 20 6f 62 6a 63 29 20 7b 0a 09 idx >= objc) {..
8a50: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
8a60: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f sult(interp, "No
8a70: 20 76 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 6f value for optio
8a80: 6e 20 5c 22 22 2c 20 63 6f 6d 6d 61 6e 64 5f 6f n \"", command_o
8a90: 70 74 73 5b 66 6e 5d 2c 20 22 5c 22 22 2c 20 28 pts[fn], "\"", (
8aa0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
8ab0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8ac0: 3b 0a 20 20 20 20 7d 0a 0a 09 73 77 69 74 63 68 ;. }...switch
8ad0: 28 66 6e 29 20 7b 0a 09 63 61 73 65 20 5f 6f 70 (fn) {..case _op
8ae0: 74 5f 63 68 61 6e 3a 0a 09 63 61 73 65 20 5f 6f t_chan:..case _o
8af0: 70 74 5f 63 68 61 6e 6e 65 6c 3a 0a 20 20 20 20 pt_channel:.
8b00: 09 20 20 20 20 47 45 54 5f 4f 50 54 5f 53 54 52 . GET_OPT_STR
8b10: 49 4e 47 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 63 ING(objv[idx], c
8b20: 68 61 6e 6e 65 6c 2c 20 4e 55 4c 4c 29 3b 0a 09 hannel, NULL);..
8b30: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
8b40: 20 5f 6f 70 74 5f 63 69 70 68 65 72 3a 0a 09 20 _opt_cipher:..
8b50: 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 6f cipherObj = o
8b60: 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 bjv[idx];.. b
8b70: 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 reak;..case _opt
8b80: 5f 63 6f 6d 6d 61 6e 64 3a 0a 09 20 20 20 20 63 _command:.. c
8b90: 6d 64 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 mdObj = objv[idx
8ba0: 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 ];.. break;..
8bb0: 63 61 73 65 20 5f 6f 70 74 5f 64 61 74 61 3a 0a case _opt_data:.
8bc0: 09 20 20 20 20 64 61 74 61 4f 62 6a 20 3d 20 6f . dataObj = o
8bd0: 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 bjv[idx];.. b
8be0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 reak;..case _opt
8bf0: 5f 64 69 67 65 73 74 3a 0a 09 63 61 73 65 20 5f _digest:..case _
8c00: 6f 70 74 5f 68 61 73 68 3a 0a 09 20 20 20 20 64 opt_hash:.. d
8c10: 69 67 65 73 74 4f 62 6a 20 3d 20 6f 62 6a 76 5b igestObj = objv[
8c20: 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b idx];.. break
8c30: 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 6e 66 ;..case _opt_inf
8c40: 69 6c 65 3a 0a 09 63 61 73 65 20 5f 6f 70 74 5f ile:..case _opt_
8c50: 66 69 6c 65 6e 61 6d 65 3a 0a 09 20 20 20 20 69 filename:.. i
8c60: 6e 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b nFileObj = objv[
8c70: 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b idx];.. break
8c80: 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6f 75 74 ;..case _opt_out
8c90: 66 69 6c 65 3a 0a 09 20 20 20 20 6f 75 74 46 69 file:.. outFi
8ca0: 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 leObj = objv[idx
8cb0: 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 ];.. break;..
8cc0: 63 61 73 65 20 5f 6f 70 74 5f 69 76 3a 0a 09 20 case _opt_iv:..
8cd0: 20 20 20 69 76 4f 62 6a 20 3d 20 6f 62 6a 76 5b ivObj = objv[
8ce0: 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b idx];.. break
8cf0: 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6b 65 79 ;..case _opt_key
8d00: 3a 0a 09 20 20 20 20 6b 65 79 4f 62 6a 20 3d 20 :.. keyObj =
8d10: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8d20: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8d30: 74 5f 6d 61 63 3a 0a 09 20 20 20 20 6d 61 63 4f t_mac:.. macO
8d40: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
8d50: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 . break;..}.
8d60: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 65 }.. /* Che
8d70: 63 6b 20 66 6f 72 20 72 65 71 75 69 72 65 64 20 ck for required
8d80: 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 options */. i
8d90: 66 20 28 63 69 70 68 65 72 4f 62 6a 20 3d 3d 20 f (cipherObj ==
8da0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
8db0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8dc0: 2c 20 22 4e 6f 20 63 69 70 68 65 72 22 2c 20 28 , "No cipher", (
8dd0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 char *) NULL);.
8de0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 } else if (ke
8df0: 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a yObj == NULL) {.
8e00: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
8e10: 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6b 65 t(interp, "No ke
8e20: 79 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c y", (char *) NUL
8e30: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
8e40: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
8e50: 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 65 6e 63 /* Perform enc
8e60: 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e ryption function
8e70: 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b 65 on file, stacke
8e80: 64 20 63 68 61 6e 6e 65 6c 2c 20 75 73 69 6e 67 d channel, using
8e90: 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e instance comman
8ea0: 64 2c 20 6f 72 20 64 61 74 61 20 62 6c 6f 62 20 d, or data blob
8eb0: 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 46 69 6c */. if (inFil
8ec0: 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 26 20 eObj != NULL &&
8ed0: 6f 75 74 46 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 outFileObj != NU
8ee0: 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 LL) {..res = Enc
8ef0: 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 ryptFileHandler(
8f00: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 69 6e interp, type, in
8f10: 46 69 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 6c 65 FileObj, outFile
8f20: 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 Obj, cipherObj,
8f30: 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 digestObj, keyOb
8f40: 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d j, ivObj);. }
8f50: 20 65 6c 73 65 20 69 66 20 28 63 68 61 6e 6e 65 else if (channe
8f60: 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 l != NULL) {..re
8f70: 73 20 3d 20 45 6e 63 72 79 70 74 43 68 61 6e 6e s = EncryptChann
8f80: 65 6c 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 elHandler(interp
8f90: 2c 20 74 79 70 65 2c 20 63 68 61 6e 6e 65 6c 2c , type, channel,
8fa0: 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 cipherObj, dige
8fb0: 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 stObj, keyObj, i
8fc0: 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 vObj);. } els
8fd0: 65 20 69 66 20 28 63 6d 64 4f 62 6a 20 21 3d 20 e if (cmdObj !=
8fe0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
8ff0: 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 6e ncryptCommandHan
9000: 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 dler(interp, typ
9010: 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 69 70 68 65 e, cmdObj, ciphe
9020: 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c rObj, digestObj,
9030: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 3b keyObj, ivObj);
9040: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
9050: 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 dataObj != NULL)
9060: 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 70 {..res = Encryp
9070: 74 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 tDataHandler(int
9080: 65 72 70 2c 20 74 79 70 65 2c 20 64 61 74 61 4f erp, type, dataO
9090: 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 bj, cipherObj, d
90a0: 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a igestObj, keyObj
90b0: 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 , ivObj);. }
90c0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 else {..Tcl_Appe
90d0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
90e0: 20 22 4e 6f 20 6f 70 65 72 61 74 69 6f 6e 20 73 "No operation s
90f0: 70 65 63 69 66 69 65 64 3a 20 55 73 65 20 2d 63 pecified: Use -c
9100: 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d 6d 61 6e 64 hannel, -command
9110: 2c 20 2d 64 61 74 61 2c 20 6f 72 20 2d 69 6e 66 , -data, or -inf
9120: 69 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 28 63 68 ile option", (ch
9130: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
9140: 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 s = TCL_ERROR;.
9150: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
9160: 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d res;.}../*. *---
9170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91b0: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f . *. * Encryptio
91c0: 6e 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a n Commands --. *
91d0: 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 . *.Perform encr
91e0: 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 yption function
91f0: 61 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c and return resul
9200: 74 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 ts. *. * Returns
9210: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
9220: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
9230: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
9240: 43 6f 6d 6d 61 6e 64 20 64 65 70 65 6e 64 65 6e Command dependen
9250: 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d t. *. *---------
9260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
92a0: 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 tatic int Encryp
92b0: 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 tObjCmd(ClientDa
92c0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
92d0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
92e0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
92f0: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
9300: 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 []) {. (void)
9310: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
9320: 20 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 4d return EncryptM
9330: 61 69 6e 28 54 59 50 45 5f 45 4e 43 52 59 50 54 ain(TYPE_ENCRYPT
9340: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
9350: 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 objv);.}..static
9360: 20 69 6e 74 20 44 65 63 72 79 70 74 4f 62 6a 43 int DecryptObjC
9370: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
9380: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
9390: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
93a0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
93b0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
93c0: 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 . (void) clie
93d0: 6e 74 44 61 74 61 3b 0a 20 20 20 20 72 65 74 75 ntData;. retu
93e0: 72 6e 20 45 6e 63 72 79 70 74 4d 61 69 6e 28 54 rn EncryptMain(T
93f0: 59 50 45 5f 44 45 43 52 59 50 54 2c 20 69 6e 74 YPE_DECRYPT, int
9400: 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 erp, objc, objv)
9410: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
9420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
9460: 0a 20 2a 20 45 6e 63 72 79 70 74 5f 49 6e 69 74 . * Encrypt_Init
9470: 69 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 ialize --. *. *.
9480: 43 72 65 61 74 65 20 6e 61 6d 65 73 70 61 63 65 Create namespace
9490: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 61 6e 64 20 , commands, and
94a0: 72 65 67 69 73 74 65 72 20 70 61 63 6b 61 67 65 register package
94b0: 20 76 65 72 73 69 6f 6e 0a 20 2a 0a 20 2a 20 52 version. *. * R
94c0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
94d0: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
94e0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
94f0: 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f s:. *.Creates co
9500: 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d mmands. *. *----
9510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9550: 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 45 6e 63 72 */.int Tls_Encr
9560: 79 70 74 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f yptCommands(Tcl_
9570: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
9580: 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 {. Tcl_Create
9590: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
95a0: 70 2c 20 22 74 6c 73 3a 3a 65 6e 63 72 79 70 74 p, "tls::encrypt
95b0: 22 2c 20 45 6e 63 72 79 70 74 4f 62 6a 43 6d 64 ", EncryptObjCmd
95c0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
95d0: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
95e0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
95f0: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
9600: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
9610: 70 2c 20 22 74 6c 73 3a 3a 64 65 63 72 79 70 74 p, "tls::decrypt
9620: 22 2c 20 44 65 63 72 79 70 74 4f 62 6a 43 6d 64 ", DecryptObjCmd
9630: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
9640: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
9650: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
9660: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
9670: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
9680: 70 2c 20 22 74 6c 73 3a 3a 75 6e 73 74 61 63 6b p, "tls::unstack
9690: 32 22 2c 20 45 6e 63 72 79 70 74 55 6e 73 74 61 2", EncryptUnsta
96a0: 63 6b 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e ckObjCmd, (Clien
96b0: 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 tData) NULL, (Tc
96c0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
96d0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 *) NULL);. re
96e0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..