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