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