Artifact 778d9b332e36e358793402e340b5f4679bc921af:
0000: 23 20 73 68 61 31 2e 74 63 6c 20 2d 20 0a 0a 23 # sha1.tcl - ..#
0010: 20 40 40 20 4d 65 74 61 20 42 65 67 69 6e 0a 23 @@ Meta Begin.#
0020: 20 50 61 63 6b 61 67 65 20 73 68 61 31 20 32 2e Package sha1 2.
0030: 30 2e 33 0a 23 20 4d 65 74 61 20 70 6c 61 74 66 0.3.# Meta platf
0040: 6f 72 6d 20 20 20 20 20 20 20 20 20 20 20 74 63 orm tc
0050: 6c 0a 23 20 4d 65 74 61 20 72 73 6b 3a 3a 62 75 l.# Meta rsk::bu
0060: 69 6c 64 3a 3a 64 61 74 65 20 20 20 32 30 31 31 ild::date 2011
0070: 2d 30 33 2d 33 30 0a 23 20 4d 65 74 61 20 64 65 -03-30.# Meta de
0080: 73 63 72 69 70 74 69 6f 6e 20 20 20 20 20 20 20 scription
0090: 20 50 61 72 74 20 6f 66 20 74 68 65 20 54 63 6c Part of the Tcl
00a0: 69 62 20 73 68 61 31 20 6d 6f 64 75 6c 65 0a 23 ib sha1 module.#
00b0: 20 4d 65 74 61 20 72 65 71 75 69 72 65 20 20 20 Meta require
00c0: 20 20 20 20 20 20 20 20 20 7b 54 63 6c 20 38 2e {Tcl 8.
00d0: 32 7d 0a 23 20 40 40 20 4d 65 74 61 20 45 6e 64 2}.# @@ Meta End
00e0: 0a 0a 23 0a 23 20 43 6f 70 79 72 69 67 68 74 20 ..#.# Copyright
00f0: 28 43 29 20 32 30 30 31 20 44 6f 6e 20 4c 69 62 (C) 2001 Don Lib
0100: 65 73 20 3c 6c 69 62 65 73 40 6e 69 73 74 2e 67 es <libes@nist.g
0110: 6f 76 3e 0a 23 20 43 6f 70 79 72 69 67 68 74 20 ov>.# Copyright
0120: 28 43 29 20 32 30 30 33 20 50 61 74 20 54 68 6f (C) 2003 Pat Tho
0130: 79 74 73 20 3c 70 61 74 74 68 6f 79 74 73 40 75 yts <patthoyts@u
0140: 73 65 72 73 2e 73 6f 75 72 63 65 66 6f 72 67 65 sers.sourceforge
0150: 2e 6e 65 74 3e 0a 23 0a 23 20 53 48 41 31 20 64 .net>.#.# SHA1 d
0160: 65 66 69 6e 65 64 20 62 79 20 46 49 50 53 20 31 efined by FIPS 1
0170: 38 30 2d 31 2c 20 22 54 68 65 20 53 48 41 31 20 80-1, "The SHA1
0180: 4d 65 73 73 61 67 65 2d 44 69 67 65 73 74 20 41 Message-Digest A
0190: 6c 67 6f 72 69 74 68 6d 22 0a 23 20 48 4d 41 43 lgorithm".# HMAC
01a0: 20 64 65 66 69 6e 65 64 20 62 79 20 52 46 43 20 defined by RFC
01b0: 32 31 30 34 2c 20 22 4b 65 79 65 64 2d 48 61 73 2104, "Keyed-Has
01c0: 68 69 6e 67 20 66 6f 72 20 4d 65 73 73 61 67 65 hing for Message
01d0: 20 41 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 22 Authentication"
01e0: 0a 23 0a 23 20 54 68 69 73 20 69 73 20 61 6e 20 .#.# This is an
01f0: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f implementation o
0200: 66 20 53 48 41 31 20 62 61 73 65 64 20 75 70 6f f SHA1 based upo
0210: 6e 20 74 68 65 20 65 78 61 6d 70 6c 65 20 63 6f n the example co
0220: 64 65 20 67 69 76 65 6e 20 69 6e 0a 23 20 46 49 de given in.# FI
0230: 50 53 20 31 38 30 2d 31 20 61 6e 64 20 75 70 6f PS 180-1 and upo
0240: 6e 20 74 68 65 20 74 63 6c 6c 69 62 20 4d 44 34 n the tcllib MD4
0250: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 implementation
0260: 61 6e 64 20 74 61 6b 69 6e 67 20 73 6f 6d 65 20 and taking some
0270: 69 64 65 61 73 0a 23 20 61 6e 64 20 6d 65 74 68 ideas.# and meth
0280: 6f 64 73 20 66 72 6f 6d 20 74 68 65 20 65 61 72 ods from the ear
0290: 6c 69 65 72 20 74 63 6c 6c 69 62 20 73 68 61 31 lier tcllib sha1
02a0: 20 76 65 72 73 69 6f 6e 20 62 79 20 44 6f 6e 20 version by Don
02b0: 4c 69 62 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 Libes..#.# This
02c0: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 70 implementation p
02d0: 65 72 6d 69 74 73 20 69 6e 63 72 65 6d 65 6e 74 ermits increment
02e0: 61 6c 20 75 70 64 61 74 69 6e 67 20 6f 66 20 74 al updating of t
02f0: 68 65 20 68 61 73 68 20 61 6e 64 20 0a 23 20 70 he hash and .# p
0300: 72 6f 76 69 64 65 73 20 73 75 70 70 6f 72 74 20 rovides support
0310: 66 6f 72 20 65 78 74 65 72 6e 61 6c 20 63 6f 6d for external com
0320: 70 69 6c 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 piled implementa
0330: 74 69 6f 6e 73 20 65 69 74 68 65 72 20 75 73 69 tions either usi
0340: 6e 67 0a 23 20 63 72 69 74 63 6c 20 28 73 68 61 ng.# critcl (sha
0350: 31 63 29 20 6f 72 20 54 72 66 2e 0a 23 0a 23 20 1c) or Trf..#.#
0360: 72 65 66 3a 20 68 74 74 70 3a 2f 2f 77 77 77 2e ref: http://www.
0370: 69 74 6c 2e 6e 69 73 74 2e 67 6f 76 2f 66 69 70 itl.nist.gov/fip
0380: 73 70 75 62 73 2f 66 69 70 31 38 30 2d 31 2e 68 spubs/fip180-1.h
0390: 74 6d 0a 23 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d tm.#.# ---------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03e0: 0a 23 20 53 65 65 20 74 68 65 20 66 69 6c 65 20 .# See the file
03f0: 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 "license.terms"
0400: 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 for information
0410: 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 72 65 64 on usage and red
0420: 69 73 74 72 69 62 75 74 69 6f 6e 0a 23 20 6f 66 istribution.# of
0430: 20 74 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 this file, and
0440: 66 6f 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 for a DISCLAIMER
0450: 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 OF ALL WARRANTI
0460: 45 53 2e 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ES..# ----------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
04b0: 23 0a 23 20 24 49 64 3a 20 73 68 61 31 2e 74 63 #.# $Id: sha1.tc
04c0: 6c 2c 76 20 31 2e 32 32 20 32 30 30 39 2f 30 35 l,v 1.22 2009/05
04d0: 2f 30 37 20 30 30 3a 33 35 3a 31 30 20 70 61 74 /07 00:35:10 pat
04e0: 74 68 6f 79 74 73 20 45 78 70 20 24 0a 0a 23 20 thoyts Exp $..#
04f0: 40 6d 64 67 65 6e 20 45 58 43 4c 55 44 45 3a 20 @mdgen EXCLUDE:
0500: 73 68 61 31 63 2e 74 63 6c 0a 0a 70 61 63 6b 61 sha1c.tcl..packa
0510: 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 ge require Tcl 8
0520: 2e 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 .2;
0530: 20 20 20 23 20 74 63 6c 20 6d 69 6e 69 6d 75 6d # tcl minimum
0540: 20 76 65 72 73 69 6f 6e 0a 0a 6e 61 6d 65 73 70 version..namesp
0550: 61 63 65 20 65 76 61 6c 20 3a 3a 73 68 61 31 20 ace eval ::sha1
0560: 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 20 {. variable
0570: 76 65 72 73 69 6f 6e 20 32 2e 30 2e 33 0a 20 20 version 2.0.3.
0580: 20 20 76 61 72 69 61 62 6c 65 20 20 72 63 73 69 variable rcsi
0590: 64 20 7b 24 49 64 3a 20 73 68 61 31 2e 74 63 6c d {$Id: sha1.tcl
05a0: 2c 76 20 31 2e 32 32 20 32 30 30 39 2f 30 35 2f ,v 1.22 2009/05/
05b0: 30 37 20 30 30 3a 33 35 3a 31 30 20 70 61 74 74 07 00:35:10 patt
05c0: 68 6f 79 74 73 20 45 78 70 20 24 7d 0a 0a 20 20 hoyts Exp $}..
05d0: 20 20 76 61 72 69 61 62 6c 65 20 20 61 63 63 65 variable acce
05e0: 6c 0a 20 20 20 20 61 72 72 61 79 20 73 65 74 20 l. array set
05f0: 61 63 63 65 6c 20 7b 74 63 6c 20 30 20 63 72 69 accel {tcl 0 cri
0600: 74 63 6c 20 30 20 63 72 79 70 74 6b 69 74 20 30 tcl 0 cryptkit 0
0610: 20 74 72 66 20 30 7d 0a 20 20 20 20 76 61 72 69 trf 0}. vari
0620: 61 62 6c 65 20 20 6c 6f 61 64 65 64 20 7b 7d 0a able loaded {}.
0630: 20 20 20 20 76 61 72 69 61 62 6c 65 20 20 61 63 variable ac
0640: 74 69 76 65 0a 20 20 20 20 61 72 72 61 79 20 73 tive. array s
0650: 65 74 20 61 63 74 69 76 65 20 7b 74 63 6c 20 30 et active {tcl 0
0660: 20 63 72 69 74 63 6c 20 30 20 63 72 79 70 74 6b critcl 0 cryptk
0670: 69 74 20 30 20 74 72 66 20 30 7d 0a 0a 20 20 20 it 0 trf 0}..
0680: 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 namespace expor
0690: 74 20 73 68 61 31 20 68 6d 61 63 20 53 48 41 31 t sha1 hmac SHA1
06a0: 49 6e 69 74 20 53 48 41 31 55 70 64 61 74 65 20 Init SHA1Update
06b0: 53 48 41 31 46 69 6e 61 6c 0a 0a 20 20 20 20 76 SHA1Final.. v
06c0: 61 72 69 61 62 6c 65 20 75 69 64 0a 20 20 20 20 ariable uid.
06d0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 if {![info exist
06e0: 73 20 75 69 64 5d 7d 20 7b 0a 20 20 20 20 20 20 s uid]} {.
06f0: 20 20 73 65 74 20 75 69 64 20 30 0a 20 20 20 20 set uid 0.
0700: 7d 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d }.}..# ---------
0710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0750: 0a 23 20 4d 61 6e 61 67 65 6d 65 6e 74 20 6f 66 .# Management of
0760: 20 73 68 61 31 20 69 6d 70 6c 65 6d 65 6e 74 61 sha1 implementa
0770: 74 69 6f 6e 73 2e 0a 0a 23 20 4c 6f 61 64 41 63 tions...# LoadAc
0780: 63 65 6c 65 72 61 74 6f 72 20 2d 2d 0a 23 0a 23 celerator --.#.#
0790: 09 54 68 69 73 20 70 61 63 6b 61 67 65 20 63 61 .This package ca
07a0: 6e 20 6d 61 6b 65 20 75 73 65 20 6f 66 20 61 20 n make use of a
07b0: 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6d 70 69 6c number of compil
07c0: 65 64 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 6f ed extensions to
07d0: 0a 23 09 61 63 63 65 6c 65 72 61 74 65 20 74 68 .#.accelerate th
07e0: 65 20 64 69 67 65 73 74 20 63 6f 6d 70 75 74 61 e digest computa
07f0: 74 69 6f 6e 2e 20 54 68 69 73 20 70 72 6f 63 65 tion. This proce
0800: 64 75 72 65 20 6d 61 6e 61 67 65 73 20 74 68 65 dure manages the
0810: 0a 23 09 75 73 65 20 6f 66 20 74 68 65 73 65 20 .#.use of these
0820: 65 78 74 65 6e 73 69 6f 6e 73 20 77 69 74 68 69 extensions withi
0830: 6e 20 74 68 65 20 70 61 63 6b 61 67 65 2e 20 44 n the package. D
0840: 75 72 69 6e 67 20 6e 6f 72 6d 61 6c 20 75 73 61 uring normal usa
0850: 67 65 0a 23 09 74 68 69 73 20 73 68 6f 75 6c 64 ge.#.this should
0860: 20 6e 6f 74 20 62 65 20 63 61 6c 6c 65 64 2c 20 not be called,
0870: 62 75 74 20 74 68 65 20 74 65 73 74 20 70 61 63 but the test pac
0880: 6b 61 67 65 20 6d 61 6e 69 70 75 6c 61 74 65 73 kage manipulates
0890: 20 74 68 65 0a 23 09 6c 69 73 74 20 6f 66 20 65 the.#.list of e
08a0: 6e 61 62 6c 65 64 20 61 63 63 65 6c 65 72 61 74 nabled accelerat
08b0: 6f 72 73 2e 0a 23 0a 70 72 6f 63 20 3a 3a 73 68 ors..#.proc ::sh
08c0: 61 31 3a 3a 4c 6f 61 64 41 63 63 65 6c 65 72 61 a1::LoadAccelera
08d0: 74 6f 72 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 20 tor {name} {.
08e0: 20 76 61 72 69 61 62 6c 65 20 61 63 63 65 6c 0a variable accel.
08f0: 20 20 20 20 73 65 74 20 72 20 30 0a 20 20 20 20 set r 0.
0900: 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d 2d switch -exact --
0910: 20 24 6e 61 6d 65 20 7b 0a 20 20 20 20 20 20 20 $name {.
0920: 20 74 63 6c 20 7b 0a 20 20 20 20 20 20 20 20 20 tcl {.
0930: 20 20 20 23 20 41 6c 72 65 61 64 79 20 70 72 65 # Already pre
0940: 73 65 6e 74 20 28 74 68 69 73 20 66 69 6c 65 29 sent (this file)
0950: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set
0960: 20 72 20 31 0a 20 20 20 20 20 20 20 20 7d 0a 20 r 1. }.
0970: 20 20 20 20 20 20 20 63 72 69 74 63 6c 20 7b 0a critcl {.
0980: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b if {
0990: 21 5b 63 61 74 63 68 20 7b 70 61 63 6b 61 67 65 ![catch {package
09a0: 20 72 65 71 75 69 72 65 20 74 63 6c 6c 69 62 63 require tcllibc
09b0: 7d 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 }].
09c0: 20 20 20 7c 7c 20 21 5b 63 61 74 63 68 20 7b 70 || ![catch {p
09d0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 ackage require s
09e0: 68 61 31 63 7d 5d 7d 20 7b 0a 20 20 20 20 20 20 ha1c}]} {.
09f0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 20 set r
0a00: 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 63 6f 6d [expr {[info com
0a10: 6d 61 6e 64 20 3a 3a 73 68 61 31 3a 3a 73 68 61 mand ::sha1::sha
0a20: 31 63 5d 20 21 3d 20 7b 7d 7d 5d 0a 20 20 20 20 1c] != {}}].
0a30: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
0a40: 20 20 7d 0a 20 20 20 20 20 20 20 20 63 72 79 70 }. cryp
0a50: 74 6b 69 74 20 7b 0a 20 20 20 20 20 20 20 20 20 tkit {.
0a60: 20 20 20 69 66 20 7b 21 5b 63 61 74 63 68 20 7b if {![catch {
0a70: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0a80: 63 72 79 70 74 6b 69 74 7d 5d 7d 20 7b 0a 20 20 cryptkit}]} {.
0a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 se
0aa0: 74 20 72 20 5b 65 78 70 72 20 7b 21 5b 63 61 74 t r [expr {![cat
0ab0: 63 68 20 7b 63 72 79 70 74 6b 69 74 3a 3a 63 72 ch {cryptkit::cr
0ac0: 79 70 74 49 6e 69 74 7d 5d 7d 5d 0a 20 20 20 20 yptInit}]}].
0ad0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
0ae0: 20 20 7d 0a 20 20 20 20 20 20 20 20 74 72 66 20 }. trf
0af0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 {. if
0b00: 20 7b 21 5b 63 61 74 63 68 20 7b 70 61 63 6b 61 {![catch {packa
0b10: 67 65 20 72 65 71 75 69 72 65 20 54 72 66 7d 5d ge require Trf}]
0b20: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 } {.
0b30: 20 20 20 20 73 65 74 20 72 20 5b 65 78 70 72 20 set r [expr
0b40: 7b 21 5b 63 61 74 63 68 20 7b 3a 3a 73 68 61 31 {![catch {::sha1
0b50: 20 61 61 7d 20 6d 73 67 5d 7d 5d 0a 20 20 20 20 aa} msg]}].
0b60: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
0b70: 20 20 7d 0a 20 20 20 20 20 20 20 20 64 65 66 61 }. defa
0b80: 75 6c 74 20 7b 0a 20 20 20 20 20 20 20 20 20 20 ult {.
0b90: 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 return -code e
0ba0: 72 72 6f 72 20 22 69 6e 76 61 6c 69 64 20 61 63 rror "invalid ac
0bb0: 63 65 6c 65 72 61 74 6f 72 20 24 6b 65 79 3a 5c celerator $key:\
0bc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0bd0: 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66 20 must be one of
0be0: 5b 6a 6f 69 6e 20 5b 4b 6e 6f 77 6e 49 6d 70 6c [join [KnownImpl
0bf0: 65 6d 65 6e 74 61 74 69 6f 6e 73 5d 20 7b 2c 20 ementations] {,
0c00: 7d 5d 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }]". }.
0c10: 20 20 7d 0a 20 20 20 20 73 65 74 20 61 63 63 65 }. set acce
0c20: 6c 28 24 6e 61 6d 65 29 20 24 72 0a 20 20 20 20 l($name) $r.
0c30: 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 3a return $r.}..# :
0c40: 3a 73 68 61 31 3a 3a 49 6d 70 6c 65 6d 65 6e 74 :sha1::Implement
0c50: 61 74 69 6f 6e 73 20 2d 2d 0a 23 0a 23 09 44 65 ations --.#.#.De
0c60: 74 65 72 6d 69 6e 65 73 20 77 68 69 63 68 20 69 termines which i
0c70: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 61 mplementations a
0c80: 72 65 0a 23 09 70 72 65 73 65 6e 74 2c 20 69 2e re.#.present, i.
0c90: 65 2e 20 6c 6f 61 64 65 64 2e 0a 23 0a 23 20 41 e. loaded..#.# A
0ca0: 72 67 75 6d 65 6e 74 73 3a 0a 23 09 4e 6f 6e 65 rguments:.#.None
0cb0: 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 ..#.# Results:.#
0cc0: 09 41 20 6c 69 73 74 20 6f 66 20 69 6d 70 6c 65 .A list of imple
0cd0: 6d 65 6e 74 61 74 69 6f 6e 20 6b 65 79 73 2e 0a mentation keys..
0ce0: 0a 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 49 6d .proc ::sha1::Im
0cf0: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 7b 7d plementations {}
0d00: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 {. variable
0d10: 61 63 63 65 6c 0a 20 20 20 20 73 65 74 20 72 65 accel. set re
0d20: 73 20 7b 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 s {}. foreach
0d30: 20 6e 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 n [array names
0d40: 61 63 63 65 6c 5d 20 7b 0a 09 69 66 20 7b 21 24 accel] {..if {!$
0d50: 61 63 63 65 6c 28 24 6e 29 7d 20 63 6f 6e 74 69 accel($n)} conti
0d60: 6e 75 65 0a 09 6c 61 70 70 65 6e 64 20 72 65 73 nue..lappend res
0d70: 20 24 6e 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 $n. }. re
0d80: 74 75 72 6e 20 24 72 65 73 0a 7d 0a 0a 23 20 3a turn $res.}..# :
0d90: 3a 73 68 61 31 3a 3a 4b 6e 6f 77 6e 49 6d 70 6c :sha1::KnownImpl
0da0: 65 6d 65 6e 74 61 74 69 6f 6e 73 20 2d 2d 0a 23 ementations --.#
0db0: 0a 23 09 44 65 74 65 72 6d 69 6e 65 73 20 77 68 .#.Determines wh
0dc0: 69 63 68 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 ich implementati
0dd0: 6f 6e 73 20 61 72 65 20 6b 6e 6f 77 6e 0a 23 09 ons are known.#.
0de0: 61 73 20 70 6f 73 73 69 62 6c 65 20 69 6d 70 6c as possible impl
0df0: 65 6d 65 6e 74 61 74 69 6f 6e 73 2e 0a 23 0a 23 ementations..#.#
0e00: 20 41 72 67 75 6d 65 6e 74 73 3a 0a 23 09 4e 6f Arguments:.#.No
0e10: 6e 65 2e 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a ne..#.# Results:
0e20: 0a 23 09 41 20 6c 69 73 74 20 6f 66 20 69 6d 70 .#.A list of imp
0e30: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6b 65 79 73 lementation keys
0e40: 2e 20 49 6e 20 74 68 65 20 6f 72 64 65 72 0a 23 . In the order.#
0e50: 09 6f 66 20 70 72 65 66 65 72 65 6e 63 65 2c 20 .of preference,
0e60: 6d 6f 73 74 20 70 72 65 66 65 72 65 64 20 66 69 most prefered fi
0e70: 72 73 74 2e 0a 0a 70 72 6f 63 20 3a 3a 73 68 61 rst...proc ::sha
0e80: 31 3a 3a 4b 6e 6f 77 6e 49 6d 70 6c 65 6d 65 6e 1::KnownImplemen
0e90: 74 61 74 69 6f 6e 73 20 7b 7d 20 7b 0a 20 20 20 tations {} {.
0ea0: 20 72 65 74 75 72 6e 20 7b 63 72 69 74 63 6c 20 return {critcl
0eb0: 63 72 79 70 74 6b 69 74 20 74 72 66 20 74 63 6c cryptkit trf tcl
0ec0: 7d 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 73 68 61 31 }.}..proc ::sha1
0ed0: 3a 3a 4e 61 6d 65 73 20 7b 7d 20 7b 0a 20 20 20 ::Names {} {.
0ee0: 20 72 65 74 75 72 6e 20 7b 0a 09 63 72 69 74 63 return {..critc
0ef0: 6c 20 20 20 7b 74 63 6c 6c 69 62 63 20 62 61 73 l {tcllibc bas
0f00: 65 64 7d 0a 20 20 20 20 20 20 20 20 63 72 79 70 ed}. cryp
0f10: 74 6b 69 74 20 7b 63 72 79 70 74 6b 69 74 20 62 tkit {cryptkit b
0f20: 61 73 65 64 7d 0a 20 20 20 20 20 20 20 20 74 72 ased}. tr
0f30: 66 20 20 20 20 20 20 7b 54 72 66 20 62 61 73 65 f {Trf base
0f40: 64 7d 0a 09 74 63 6c 20 20 20 20 20 20 7b 70 75 d}..tcl {pu
0f50: 72 65 20 54 63 6c 7d 0a 20 20 20 20 7d 0a 7d 0a re Tcl}. }.}.
0f60: 0a 23 20 3a 3a 73 68 61 31 3a 3a 53 77 69 74 63 .# ::sha1::Switc
0f70: 68 54 6f 20 2d 2d 0a 23 0a 23 09 41 63 74 69 76 hTo --.#.#.Activ
0f80: 61 74 65 73 20 61 20 6c 6f 61 64 65 64 20 6e 61 ates a loaded na
0f90: 6d 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 med implementati
0fa0: 6f 6e 2e 0a 23 0a 23 20 41 72 67 75 6d 65 6e 74 on..#.# Argument
0fb0: 73 3a 0a 23 09 6b 65 79 09 4e 61 6d 65 20 6f 66 s:.#.key.Name of
0fc0: 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 the implementat
0fd0: 69 6f 6e 20 74 6f 20 61 63 74 69 76 61 74 65 2e ion to activate.
0fe0: 0a 23 0a 23 20 52 65 73 75 6c 74 73 3a 0a 23 09 .#.# Results:.#.
0ff0: 4e 6f 6e 65 2e 0a 0a 70 72 6f 63 20 3a 3a 73 68 None...proc ::sh
1000: 61 31 3a 3a 53 77 69 74 63 68 54 6f 20 7b 6b 65 a1::SwitchTo {ke
1010: 79 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c y} {. variabl
1020: 65 20 61 63 63 65 6c 0a 20 20 20 20 76 61 72 69 e accel. vari
1030: 61 62 6c 65 20 61 63 74 69 76 65 0a 20 20 20 20 able active.
1040: 76 61 72 69 61 62 6c 65 20 6c 6f 61 64 65 64 0a variable loaded.
1050: 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 . if {[string
1060: 20 65 71 75 61 6c 20 24 6b 65 79 20 24 6c 6f 61 equal $key $loa
1070: 64 65 64 5d 7d 20 7b 0a 09 23 20 4e 6f 20 63 68 ded]} {..# No ch
1080: 61 6e 67 65 2c 20 6e 6f 74 68 69 6e 67 20 74 6f ange, nothing to
1090: 20 64 6f 2e 0a 09 72 65 74 75 72 6e 0a 20 20 20 do...return.
10a0: 20 7d 20 65 6c 73 65 69 66 20 7b 21 5b 73 74 72 } elseif {![str
10b0: 69 6e 67 20 65 71 75 61 6c 20 24 6b 65 79 20 22 ing equal $key "
10c0: 22 5d 7d 20 7b 0a 09 23 20 56 61 6c 69 64 61 74 "]} {..# Validat
10d0: 65 20 74 68 65 20 74 61 72 67 65 74 20 69 6d 70 e the target imp
10e0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 lementation of t
10f0: 68 65 20 73 77 69 74 63 68 2e 0a 0a 09 69 66 20 he switch....if
1100: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 61 {![info exists a
1110: 63 63 65 6c 28 24 6b 65 79 29 5d 7d 20 7b 0a 09 ccel($key)]} {..
1120: 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 return -code
1130: 20 65 72 72 6f 72 20 22 55 6e 61 62 6c 65 20 74 error "Unable t
1140: 6f 20 61 63 74 69 76 61 74 65 20 75 6e 6b 6e 6f o activate unkno
1150: 77 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f wn implementatio
1160: 6e 20 5c 22 24 6b 65 79 5c 22 22 0a 09 7d 20 65 n \"$key\""..} e
1170: 6c 73 65 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 lseif {![info ex
1180: 69 73 74 73 20 61 63 63 65 6c 28 24 6b 65 79 29 ists accel($key)
1190: 5d 20 7c 7c 20 21 24 61 63 63 65 6c 28 24 6b 65 ] || !$accel($ke
11a0: 79 29 7d 20 7b 0a 09 20 20 20 20 72 65 74 75 72 y)} {.. retur
11b0: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 n -code error "U
11c0: 6e 61 62 6c 65 20 74 6f 20 61 63 74 69 76 61 74 nable to activat
11d0: 65 20 6d 69 73 73 69 6e 67 20 69 6d 70 6c 65 6d e missing implem
11e0: 65 6e 74 61 74 69 6f 6e 20 5c 22 24 6b 65 79 5c entation \"$key\
11f0: 22 22 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 ""..}. }..
1200: 20 69 66 20 7b 21 5b 73 74 72 69 6e 67 20 65 71 if {![string eq
1210: 75 61 6c 20 24 6c 6f 61 64 65 64 20 22 22 5d 7d ual $loaded ""]}
1220: 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 61 {. set a
1230: 63 74 69 76 65 28 24 6c 6f 61 64 65 64 29 20 30 ctive($loaded) 0
1240: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 21 . }. if {!
1250: 5b 73 74 72 69 6e 67 20 65 71 75 61 6c 20 24 6b [string equal $k
1260: 65 79 20 22 22 5d 7d 20 7b 0a 20 20 20 20 20 20 ey ""]} {.
1270: 20 20 73 65 74 20 61 63 74 69 76 65 28 24 6b 65 set active($ke
1280: 79 29 20 31 0a 20 20 20 20 7d 0a 0a 20 20 20 20 y) 1. }..
1290: 23 20 52 65 6d 65 6d 62 65 72 20 74 68 65 20 61 # Remember the a
12a0: 63 74 69 76 65 20 69 6d 70 6c 65 6d 65 6e 74 61 ctive implementa
12b0: 74 69 6f 6e 2c 20 66 6f 72 20 64 65 61 63 74 69 tion, for deacti
12c0: 76 61 74 69 6f 6e 20 62 79 20 66 75 74 75 72 65 vation by future
12d0: 0a 20 20 20 20 23 20 73 77 69 74 63 68 65 73 2e . # switches.
12e0: 0a 0a 20 20 20 20 73 65 74 20 6c 6f 61 64 65 64 .. set loaded
12f0: 20 24 6b 65 79 0a 20 20 20 20 72 65 74 75 72 6e $key. return
1300: 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .}..# ----------
1310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1350: 0a 23 20 53 48 41 31 49 6e 69 74 20 2d 2d 0a 23 .# SHA1Init --.#
1360: 0a 23 20 20 20 43 72 65 61 74 65 20 61 6e 64 20 .# Create and
1370: 69 6e 69 74 69 61 6c 69 7a 65 20 61 6e 20 53 48 initialize an SH
1380: 41 31 20 73 74 61 74 65 20 76 61 72 69 61 62 6c A1 state variabl
1390: 65 2e 20 54 68 69 73 20 77 69 6c 6c 20 62 65 0a e. This will be.
13a0: 23 20 20 20 63 6c 65 61 6e 65 64 20 75 70 20 77 # cleaned up w
13b0: 68 65 6e 20 77 65 20 63 61 6c 6c 20 53 48 41 31 hen we call SHA1
13c0: 46 69 6e 61 6c 0a 23 0a 0a 70 72 6f 63 20 3a 3a Final.#..proc ::
13d0: 73 68 61 31 3a 3a 53 48 41 31 49 6e 69 74 20 7b sha1::SHA1Init {
13e0: 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 } {. variable
13f0: 20 61 63 74 69 76 65 0a 20 20 20 20 76 61 72 69 active. vari
1400: 61 62 6c 65 20 75 69 64 0a 20 20 20 20 73 65 74 able uid. set
1410: 20 74 6f 6b 65 6e 20 5b 6e 61 6d 65 73 70 61 63 token [namespac
1420: 65 20 63 75 72 72 65 6e 74 5d 3a 3a 5b 69 6e 63 e current]::[inc
1430: 72 20 75 69 64 5d 0a 20 20 20 20 75 70 76 61 72 r uid]. upvar
1440: 20 23 30 20 24 74 6f 6b 65 6e 20 73 74 61 74 65 #0 $token state
1450: 0a 0a 20 20 20 20 23 20 46 49 50 53 20 31 38 30 .. # FIPS 180
1460: 2d 31 3a 20 37 20 2d 20 49 6e 69 74 69 61 6c 69 -1: 7 - Initiali
1470: 7a 65 20 74 68 65 20 68 61 73 68 20 73 74 61 74 ze the hash stat
1480: 65 0a 20 20 20 20 61 72 72 61 79 20 73 65 74 20 e. array set
1490: 73 74 61 74 65 20 5c 0a 20 20 20 20 20 20 20 20 state \.
14a0: 5b 6c 69 73 74 20 5c 0a 20 20 20 20 20 20 20 20 [list \.
14b0: 20 20 20 20 20 41 20 5b 65 78 70 72 20 7b 69 6e A [expr {in
14c0: 74 28 30 78 36 37 34 35 32 33 30 31 29 7d 5d 20 t(0x67452301)}]
14d0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 42 \. B
14e0: 20 5b 65 78 70 72 20 7b 69 6e 74 28 30 78 45 46 [expr {int(0xEF
14f0: 43 44 41 42 38 39 29 7d 5d 20 5c 0a 20 20 20 20 CDAB89)}] \.
1500: 20 20 20 20 20 20 20 20 20 43 20 5b 65 78 70 72 C [expr
1510: 20 7b 69 6e 74 28 30 78 39 38 42 41 44 43 46 45 {int(0x98BADCFE
1520: 29 7d 5d 20 5c 0a 20 20 20 20 20 20 20 20 20 20 )}] \.
1530: 20 20 20 44 20 5b 65 78 70 72 20 7b 69 6e 74 28 D [expr {int(
1540: 30 78 31 30 33 32 35 34 37 36 29 7d 5d 20 5c 0a 0x10325476)}] \.
1550: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 20 5b E [
1560: 65 78 70 72 20 7b 69 6e 74 28 30 78 43 33 44 32 expr {int(0xC3D2
1570: 45 31 46 30 29 7d 5d 20 5c 0a 20 20 20 20 20 20 E1F0)}] \.
1580: 20 20 20 20 20 20 20 6e 20 30 20 69 20 22 22 20 n 0 i ""
1590: 5d 0a 20 20 20 20 69 66 20 7b 24 61 63 74 69 76 ]. if {$activ
15a0: 65 28 63 72 79 70 74 6b 69 74 29 7d 20 7b 0a 20 e(cryptkit)} {.
15b0: 20 20 20 20 20 20 20 63 72 79 70 74 6b 69 74 3a cryptkit:
15c0: 3a 63 72 79 70 74 43 72 65 61 74 65 43 6f 6e 74 :cryptCreateCont
15d0: 65 78 74 20 73 74 61 74 65 28 63 6b 63 74 78 29 ext state(ckctx)
15e0: 20 43 52 59 50 54 5f 55 4e 55 53 45 44 20 43 52 CRYPT_UNUSED CR
15f0: 59 50 54 5f 41 4c 47 4f 5f 53 48 41 0a 20 20 20 YPT_ALGO_SHA.
1600: 20 7d 20 65 6c 73 65 69 66 20 7b 24 61 63 74 69 } elseif {$acti
1610: 76 65 28 74 72 66 29 7d 20 7b 0a 20 20 20 20 20 ve(trf)} {.
1620: 20 20 20 73 65 74 20 73 20 7b 7d 0a 20 20 20 20 set s {}.
1630: 20 20 20 20 73 77 69 74 63 68 20 2d 65 78 61 63 switch -exac
1640: 74 20 2d 2d 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 t -- $::tcl_plat
1650: 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20 7b form(platform) {
1660: 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 69 6e . win
1670: 64 6f 77 73 20 7b 20 73 65 74 20 73 20 5b 6f 70 dows { set s [op
1680: 65 6e 20 4e 55 4c 20 77 5d 20 7d 0a 20 20 20 20 en NUL w] }.
1690: 20 20 20 20 20 20 20 20 75 6e 69 78 20 20 20 20 unix
16a0: 7b 20 73 65 74 20 73 20 5b 6f 70 65 6e 20 2f 64 { set s [open /d
16b0: 65 76 2f 6e 75 6c 6c 20 77 5d 20 7d 0a 20 20 20 ev/null w] }.
16c0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 }. i
16d0: 66 20 7b 24 73 20 21 3d 20 7b 7d 7d 20 7b 0a 20 f {$s != {}} {.
16e0: 20 20 20 20 20 20 20 20 20 20 20 66 63 6f 6e 66 fconf
16f0: 69 67 75 72 65 20 24 73 20 2d 74 72 61 6e 73 6c igure $s -transl
1700: 61 74 69 6f 6e 20 62 69 6e 61 72 79 20 2d 62 75 ation binary -bu
1710: 66 66 65 72 69 6e 67 20 6e 6f 6e 65 0a 20 20 20 ffering none.
1720: 20 20 20 20 20 20 20 20 20 3a 3a 73 68 61 31 20 ::sha1
1730: 2d 61 74 74 61 63 68 20 24 73 20 2d 6d 6f 64 65 -attach $s -mode
1740: 20 77 72 69 74 65 20 5c 0a 20 20 20 20 20 20 20 write \.
1750: 20 20 20 20 20 20 20 20 20 2d 72 65 61 64 2d 74 -read-t
1760: 79 70 65 20 76 61 72 69 61 62 6c 65 20 5c 0a 20 ype variable \.
1770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d -
1780: 72 65 61 64 2d 64 65 73 74 69 6e 61 74 69 6f 6e read-destination
1790: 20 5b 73 75 62 73 74 20 24 74 6f 6b 65 6e 5d 28 [subst $token](
17a0: 74 72 66 72 65 61 64 29 20 5c 0a 20 20 20 20 20 trfread) \.
17b0: 20 20 20 20 20 20 20 20 20 20 20 2d 77 72 69 74 -writ
17c0: 65 2d 74 79 70 65 20 76 61 72 69 61 62 6c 65 20 e-type variable
17d0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 \.
17e0: 20 20 2d 77 72 69 74 65 2d 64 65 73 74 69 6e 61 -write-destina
17f0: 74 69 6f 6e 20 5b 73 75 62 73 74 20 24 74 6f 6b tion [subst $tok
1800: 65 6e 5d 28 74 72 66 77 72 69 74 65 29 0a 20 20 en](trfwrite).
1810: 20 20 20 20 20 20 20 20 20 20 61 72 72 61 79 20 array
1820: 73 65 74 20 73 74 61 74 65 20 5b 6c 69 73 74 20 set state [list
1830: 74 72 66 72 65 61 64 20 30 20 74 72 66 77 72 69 trfread 0 trfwri
1840: 74 65 20 30 20 74 72 66 20 24 73 5d 0a 20 20 20 te 0 trf $s].
1850: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
1860: 20 72 65 74 75 72 6e 20 24 74 6f 6b 65 6e 0a 7d return $token.}
1870: 0a 0a 23 20 53 48 41 31 55 70 64 61 74 65 20 2d ..# SHA1Update -
1880: 2d 0a 23 0a 23 20 20 20 54 68 69 73 20 69 73 20 -.#.# This is
1890: 63 61 6c 6c 65 64 20 74 6f 20 61 64 64 20 6d 6f called to add mo
18a0: 72 65 20 64 61 74 61 20 69 6e 74 6f 20 74 68 65 re data into the
18b0: 20 68 61 73 68 2e 20 59 6f 75 20 6d 61 79 20 63 hash. You may c
18c0: 61 6c 6c 20 74 68 69 73 0a 23 20 20 20 61 73 20 all this.# as
18d0: 6d 61 6e 79 20 74 69 6d 65 73 20 61 73 20 79 6f many times as yo
18e0: 75 20 72 65 71 75 69 72 65 2e 20 4e 6f 74 65 20 u require. Note
18f0: 74 68 61 74 20 70 61 73 73 69 6e 67 20 69 6e 20 that passing in
1900: 22 41 42 43 22 20 69 73 20 65 71 75 69 76 61 6c "ABC" is equival
1910: 65 6e 74 0a 23 20 20 20 74 6f 20 70 61 73 73 69 ent.# to passi
1920: 6e 67 20 74 68 65 73 65 20 6c 65 74 74 65 72 73 ng these letters
1930: 20 69 6e 20 61 73 20 73 65 70 61 72 61 74 65 20 in as separate
1940: 63 61 6c 6c 73 20 2d 2d 20 68 65 6e 63 65 20 74 calls -- hence t
1950: 68 69 73 20 70 72 6f 63 20 0a 23 20 20 20 70 65 his proc .# pe
1960: 72 6d 69 74 73 20 68 61 73 68 69 6e 67 20 6f 66 rmits hashing of
1970: 20 63 68 75 6e 6b 65 64 20 64 61 74 61 0a 23 0a chunked data.#.
1980: 23 20 20 20 49 66 20 77 65 20 68 61 76 65 20 61 # If we have a
1990: 20 43 2d 62 61 73 65 64 20 69 6d 70 6c 65 6d 65 C-based impleme
19a0: 6e 74 61 74 69 6f 6e 20 61 76 61 69 6c 61 62 6c ntation availabl
19b0: 65 2c 20 74 68 65 6e 20 77 65 20 77 69 6c 6c 20 e, then we will
19c0: 75 73 65 0a 23 20 20 20 69 74 20 68 65 72 65 20 use.# it here
19d0: 69 6e 20 70 72 65 66 65 72 65 6e 63 65 20 74 6f in preference to
19e0: 20 74 68 65 20 70 75 72 65 2d 54 63 6c 20 69 6d the pure-Tcl im
19f0: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 0a 23 0a plementation..#.
1a00: 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 53 48 41 proc ::sha1::SHA
1a10: 31 55 70 64 61 74 65 20 7b 74 6f 6b 65 6e 20 64 1Update {token d
1a20: 61 74 61 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 ata} {. varia
1a30: 62 6c 65 20 61 63 74 69 76 65 0a 20 20 20 20 75 ble active. u
1a40: 70 76 61 72 20 23 30 20 24 74 6f 6b 65 6e 20 73 pvar #0 $token s
1a50: 74 61 74 65 0a 0a 20 20 20 20 69 66 20 7b 24 61 tate.. if {$a
1a60: 63 74 69 76 65 28 63 72 69 74 63 6c 29 7d 20 7b ctive(critcl)} {
1a70: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 6e . if {[in
1a80: 66 6f 20 65 78 69 73 74 73 20 73 74 61 74 65 28 fo exists state(
1a90: 73 68 61 31 63 29 5d 7d 20 7b 0a 20 20 20 20 20 sha1c)]} {.
1aa0: 20 20 20 20 20 20 20 73 65 74 20 73 74 61 74 65 set state
1ab0: 28 73 68 61 31 63 29 20 5b 73 68 61 31 63 20 24 (sha1c) [sha1c $
1ac0: 64 61 74 61 20 24 73 74 61 74 65 28 73 68 61 31 data $state(sha1
1ad0: 63 29 5d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c c)]. } el
1ae0: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 se {.
1af0: 20 73 65 74 20 73 74 61 74 65 28 73 68 61 31 63 set state(sha1c
1b00: 29 20 5b 73 68 61 31 63 20 24 64 61 74 61 5d 0a ) [sha1c $data].
1b10: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
1b20: 20 20 72 65 74 75 72 6e 0a 20 20 20 20 7d 20 65 return. } e
1b30: 6c 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 lseif {[info exi
1b40: 73 74 73 20 73 74 61 74 65 28 63 6b 63 74 78 29 sts state(ckctx)
1b50: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 ]} {. if
1b60: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
1b70: 24 64 61 74 61 5d 20 3e 20 30 7d 20 7b 0a 20 20 $data] > 0} {.
1b80: 20 20 20 20 20 20 20 20 20 20 63 72 79 70 74 6b cryptk
1b90: 69 74 3a 3a 63 72 79 70 74 45 6e 63 72 79 70 74 it::cryptEncrypt
1ba0: 20 24 73 74 61 74 65 28 63 6b 63 74 78 29 20 24 $state(ckctx) $
1bb0: 64 61 74 61 0a 20 20 20 20 20 20 20 20 7d 0a 20 data. }.
1bc0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a 20 20 return.
1bd0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 } elseif {[inf
1be0: 6f 20 65 78 69 73 74 73 20 73 74 61 74 65 28 74 o exists state(t
1bf0: 72 66 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 rf)]} {.
1c00: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 puts -nonewline
1c10: 24 73 74 61 74 65 28 74 72 66 29 20 24 64 61 74 $state(trf) $dat
1c20: 61 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e a. return
1c30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 55 70 . }.. # Up
1c40: 64 61 74 65 20 74 68 65 20 73 74 61 74 65 20 76 date the state v
1c50: 61 6c 75 65 73 0a 20 20 20 20 69 6e 63 72 20 73 alues. incr s
1c60: 74 61 74 65 28 6e 29 20 5b 73 74 72 69 6e 67 20 tate(n) [string
1c70: 6c 65 6e 67 74 68 20 24 64 61 74 61 5d 0a 20 20 length $data].
1c80: 20 20 61 70 70 65 6e 64 20 73 74 61 74 65 28 69 append state(i
1c90: 29 20 24 64 61 74 61 0a 0a 20 20 20 20 23 20 43 ) $data.. # C
1ca0: 61 6c 63 75 6c 61 74 65 20 74 68 65 20 68 61 73 alculate the has
1cb0: 68 20 66 6f 72 20 61 6e 79 20 63 6f 6d 70 6c 65 h for any comple
1cc0: 74 65 20 62 6c 6f 63 6b 73 0a 20 20 20 20 73 65 te blocks. se
1cd0: 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67 20 6c 65 t len [string le
1ce0: 6e 67 74 68 20 24 73 74 61 74 65 28 69 29 5d 0a ngth $state(i)].
1cf0: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 6e 20 30 for {set n 0
1d00: 7d 20 7b 28 24 6e 20 2b 20 36 34 29 20 3c 3d 20 } {($n + 64) <=
1d10: 24 6c 65 6e 7d 20 7b 7d 20 7b 0a 20 20 20 20 20 $len} {} {.
1d20: 20 20 20 53 48 41 31 54 72 61 6e 73 66 6f 72 6d SHA1Transform
1d30: 20 24 74 6f 6b 65 6e 20 5b 73 74 72 69 6e 67 20 $token [string
1d40: 72 61 6e 67 65 20 24 73 74 61 74 65 28 69 29 20 range $state(i)
1d50: 24 6e 20 5b 69 6e 63 72 20 6e 20 36 34 5d 5d 0a $n [incr n 64]].
1d60: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 41 64 6a }.. # Adj
1d70: 75 73 74 20 74 68 65 20 73 74 61 74 65 20 66 6f ust the state fo
1d80: 72 20 74 68 65 20 62 6c 6f 63 6b 73 20 63 6f 6d r the blocks com
1d90: 70 6c 65 74 65 64 2e 0a 20 20 20 20 73 65 74 20 pleted.. set
1da0: 73 74 61 74 65 28 69 29 20 5b 73 74 72 69 6e 67 state(i) [string
1db0: 20 72 61 6e 67 65 20 24 73 74 61 74 65 28 69 29 range $state(i)
1dc0: 20 24 6e 20 65 6e 64 5d 0a 20 20 20 20 72 65 74 $n end]. ret
1dd0: 75 72 6e 0a 7d 0a 0a 23 20 53 48 41 31 46 69 6e urn.}..# SHA1Fin
1de0: 61 6c 20 2d 2d 0a 23 0a 23 20 20 20 20 54 68 69 al --.#.# Thi
1df0: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 75 s procedure is u
1e00: 73 65 64 20 74 6f 20 63 6c 6f 73 65 20 74 68 65 sed to close the
1e10: 20 63 75 72 72 65 6e 74 20 68 61 73 68 20 61 6e current hash an
1e20: 64 20 72 65 74 75 72 6e 73 20 74 68 65 0a 23 20 d returns the.#
1e30: 20 20 20 68 61 73 68 20 64 61 74 61 2e 20 4f 6e hash data. On
1e40: 63 65 20 74 68 69 73 20 70 72 6f 63 65 64 75 72 ce this procedur
1e50: 65 20 68 61 73 20 62 65 65 6e 20 63 61 6c 6c 65 e has been calle
1e60: 64 20 74 68 65 20 68 61 73 68 20 63 6f 6e 74 65 d the hash conte
1e70: 78 74 0a 23 20 20 20 20 69 73 20 66 72 65 65 64 xt.# is freed
1e80: 20 61 6e 64 20 63 61 6e 6e 6f 74 20 62 65 20 75 and cannot be u
1e90: 73 65 64 20 61 67 61 69 6e 2e 0a 23 0a 23 20 20 sed again..#.#
1ea0: 20 20 4e 6f 74 65 20 74 68 61 74 20 74 68 65 20 Note that the
1eb0: 6f 75 74 70 75 74 20 69 73 20 31 36 30 20 62 69 output is 160 bi
1ec0: 74 73 20 72 65 70 72 65 73 65 6e 74 65 64 20 61 ts represented a
1ed0: 73 20 62 69 6e 61 72 79 20 64 61 74 61 2e 0a 23 s binary data..#
1ee0: 0a 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 53 48 .proc ::sha1::SH
1ef0: 41 31 46 69 6e 61 6c 20 7b 74 6f 6b 65 6e 7d 20 A1Final {token}
1f00: 7b 0a 20 20 20 20 75 70 76 61 72 20 23 30 20 24 {. upvar #0 $
1f10: 74 6f 6b 65 6e 20 73 74 61 74 65 0a 0a 20 20 20 token state..
1f20: 20 23 20 43 68 65 63 6b 20 66 6f 72 20 65 69 74 # Check for eit
1f30: 68 65 72 20 6f 66 20 74 68 65 20 43 2d 63 6f 6d her of the C-com
1f40: 70 69 6c 65 64 20 76 65 72 73 69 6f 6e 73 2e 0a piled versions..
1f50: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
1f60: 69 73 74 73 20 73 74 61 74 65 28 73 68 61 31 63 ists state(sha1c
1f70: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 )]} {. se
1f80: 74 20 72 20 24 73 74 61 74 65 28 73 68 61 31 63 t r $state(sha1c
1f90: 29 0a 20 20 20 20 20 20 20 20 75 6e 73 65 74 20 ). unset
1fa0: 73 74 61 74 65 0a 20 20 20 20 20 20 20 20 72 65 state. re
1fb0: 74 75 72 6e 20 24 72 0a 20 20 20 20 7d 20 65 6c turn $r. } el
1fc0: 73 65 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 seif {[info exis
1fd0: 74 73 20 73 74 61 74 65 28 63 6b 63 74 78 29 5d ts state(ckctx)]
1fe0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 63 72 79 70 } {. cryp
1ff0: 74 6b 69 74 3a 3a 63 72 79 70 74 45 6e 63 72 79 tkit::cryptEncry
2000: 70 74 20 24 73 74 61 74 65 28 63 6b 63 74 78 29 pt $state(ckctx)
2010: 20 22 22 0a 20 20 20 20 20 20 20 20 63 72 79 70 "". cryp
2020: 74 6b 69 74 3a 3a 63 72 79 70 74 47 65 74 41 74 tkit::cryptGetAt
2030: 74 72 69 62 75 74 65 53 74 72 69 6e 67 20 24 73 tributeString $s
2040: 74 61 74 65 28 63 6b 63 74 78 29 20 5c 0a 20 20 tate(ckctx) \.
2050: 20 20 20 20 20 20 20 20 20 20 43 52 59 50 54 5f CRYPT_
2060: 43 54 58 49 4e 46 4f 5f 48 41 53 48 56 41 4c 55 CTXINFO_HASHVALU
2070: 45 20 72 20 32 30 0a 20 20 20 20 20 20 20 20 63 E r 20. c
2080: 72 79 70 74 6b 69 74 3a 3a 63 72 79 70 74 44 65 ryptkit::cryptDe
2090: 73 74 72 6f 79 43 6f 6e 74 65 78 74 20 24 73 74 stroyContext $st
20a0: 61 74 65 28 63 6b 63 74 78 29 0a 20 20 20 20 20 ate(ckctx).
20b0: 20 20 20 23 20 49 66 20 6e 6f 74 68 69 6e 67 20 # If nothing
20c0: 77 61 73 20 68 61 73 68 65 64 2c 20 77 65 20 67 was hashed, we g
20d0: 65 74 20 6e 6f 20 72 20 76 61 72 69 61 62 6c 65 et no r variable
20e0: 20 73 65 74 21 0a 20 20 20 20 20 20 20 20 69 66 set!. if
20f0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 72 {[info exists r
2100: 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 ]} {.
2110: 20 75 6e 73 65 74 20 73 74 61 74 65 0a 20 20 20 unset state.
2120: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
2130: 24 72 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 $r. }.
2140: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 6f } elseif {[info
2150: 20 65 78 69 73 74 73 20 73 74 61 74 65 28 74 72 exists state(tr
2160: 66 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 63 f)]} {. c
2170: 6c 6f 73 65 20 24 73 74 61 74 65 28 74 72 66 29 lose $state(trf)
2180: 0a 20 20 20 20 20 20 20 20 73 65 74 20 72 20 24 . set r $
2190: 73 74 61 74 65 28 74 72 66 77 72 69 74 65 29 0a state(trfwrite).
21a0: 20 20 20 20 20 20 20 20 75 6e 73 65 74 20 73 74 unset st
21b0: 61 74 65 0a 20 20 20 20 20 20 20 20 72 65 74 75 ate. retu
21c0: 72 6e 20 24 72 0a 20 20 20 20 7d 0a 0a 20 20 20 rn $r. }..
21d0: 20 23 20 50 61 64 64 69 6e 67 0a 20 20 20 20 23 # Padding. #
21e0: 0a 20 20 20 20 73 65 74 20 6c 65 6e 20 5b 73 74 . set len [st
21f0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 73 74 61 ring length $sta
2200: 74 65 28 69 29 5d 0a 20 20 20 20 73 65 74 20 70 te(i)]. set p
2210: 61 64 20 5b 65 78 70 72 20 7b 35 36 20 2d 20 28 ad [expr {56 - (
2220: 24 6c 65 6e 20 25 20 36 34 29 7d 5d 0a 20 20 20 $len % 64)}].
2230: 20 69 66 20 7b 24 6c 65 6e 20 25 20 36 34 20 3e if {$len % 64 >
2240: 20 35 36 7d 20 7b 0a 20 20 20 20 20 20 20 20 69 56} {. i
2250: 6e 63 72 20 70 61 64 20 36 34 0a 20 20 20 20 7d ncr pad 64. }
2260: 0a 20 20 20 20 69 66 20 7b 24 70 61 64 20 3d 3d . if {$pad ==
2270: 20 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 0} {. in
2280: 63 72 20 70 61 64 20 36 34 0a 20 20 20 20 7d 0a cr pad 64. }.
2290: 20 20 20 20 61 70 70 65 6e 64 20 73 74 61 74 65 append state
22a0: 28 69 29 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d (i) [binary form
22b0: 61 74 20 61 24 70 61 64 20 5c 78 38 30 5d 0a 0a at a$pad \x80]..
22c0: 20 20 20 20 23 20 41 70 70 65 6e 64 20 6c 65 6e # Append len
22d0: 67 74 68 20 69 6e 20 62 69 74 73 20 61 73 20 62 gth in bits as b
22e0: 69 67 2d 65 6e 64 69 61 6e 20 77 69 64 65 20 69 ig-endian wide i
22f0: 6e 74 2e 0a 20 20 20 20 73 65 74 20 64 6c 65 6e nt.. set dlen
2300: 20 5b 65 78 70 72 20 7b 38 20 2a 20 24 73 74 61 [expr {8 * $sta
2310: 74 65 28 6e 29 7d 5d 0a 20 20 20 20 61 70 70 65 te(n)}]. appe
2320: 6e 64 20 73 74 61 74 65 28 69 29 20 5b 62 69 6e nd state(i) [bin
2330: 61 72 79 20 66 6f 72 6d 61 74 20 49 49 20 30 20 ary format II 0
2340: 24 64 6c 65 6e 5d 0a 0a 20 20 20 20 23 20 43 61 $dlen].. # Ca
2350: 6c 63 75 6c 61 74 65 20 74 68 65 20 68 61 73 68 lculate the hash
2360: 20 66 6f 72 20 74 68 65 20 72 65 6d 61 69 6e 69 for the remaini
2370: 6e 67 20 62 6c 6f 63 6b 2e 0a 20 20 20 20 73 65 ng block.. se
2380: 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67 20 6c 65 t len [string le
2390: 6e 67 74 68 20 24 73 74 61 74 65 28 69 29 5d 0a ngth $state(i)].
23a0: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 6e 20 30 for {set n 0
23b0: 7d 20 7b 28 24 6e 20 2b 20 36 34 29 20 3c 3d 20 } {($n + 64) <=
23c0: 24 6c 65 6e 7d 20 7b 7d 20 7b 0a 20 20 20 20 20 $len} {} {.
23d0: 20 20 20 53 48 41 31 54 72 61 6e 73 66 6f 72 6d SHA1Transform
23e0: 20 24 74 6f 6b 65 6e 20 5b 73 74 72 69 6e 67 20 $token [string
23f0: 72 61 6e 67 65 20 24 73 74 61 74 65 28 69 29 20 range $state(i)
2400: 24 6e 20 5b 69 6e 63 72 20 6e 20 36 34 5d 5d 0a $n [incr n 64]].
2410: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 4f 75 74 }.. # Out
2420: 70 75 74 0a 20 20 20 20 73 65 74 20 72 20 5b 62 put. set r [b
2430: 79 74 65 73 20 24 73 74 61 74 65 28 41 29 5d 5b ytes $state(A)][
2440: 62 79 74 65 73 20 24 73 74 61 74 65 28 42 29 5d bytes $state(B)]
2450: 5b 62 79 74 65 73 20 24 73 74 61 74 65 28 43 29 [bytes $state(C)
2460: 5d 5b 62 79 74 65 73 20 24 73 74 61 74 65 28 44 ][bytes $state(D
2470: 29 5d 5b 62 79 74 65 73 20 24 73 74 61 74 65 28 )][bytes $state(
2480: 45 29 5d 0a 20 20 20 20 75 6e 73 65 74 20 73 74 E)]. unset st
2490: 61 74 65 0a 20 20 20 20 72 65 74 75 72 6e 20 24 ate. return $
24a0: 72 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d r.}..# ---------
24b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24f0: 0a 23 20 48 4d 41 43 20 48 61 73 68 65 64 20 4d .# HMAC Hashed M
2500: 65 73 73 61 67 65 20 41 75 74 68 65 6e 74 69 63 essage Authentic
2510: 61 74 69 6f 6e 20 28 52 46 43 20 32 31 30 34 29 ation (RFC 2104)
2520: 0a 23 0a 23 20 68 6d 61 63 20 3d 20 48 28 4b 20 .#.# hmac = H(K
2530: 78 6f 72 20 6f 70 61 64 2c 20 48 28 4b 20 78 6f xor opad, H(K xo
2540: 72 20 69 70 61 64 2c 20 74 65 78 74 29 29 0a 23 r ipad, text)).#
2550: 0a 0a 23 20 48 4d 41 43 49 6e 69 74 20 2d 2d 0a ..# HMACInit --.
2560: 23 0a 23 20 20 20 20 54 68 69 73 20 69 73 20 65 #.# This is e
2570: 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 74 68 65 quivalent to the
2580: 20 53 48 41 31 49 6e 69 74 20 70 72 6f 63 65 64 SHA1Init proced
2590: 75 72 65 20 65 78 63 65 70 74 20 74 68 61 74 20 ure except that
25a0: 61 20 6b 65 79 20 69 73 0a 23 20 20 20 20 61 64 a key is.# ad
25b0: 64 65 64 20 69 6e 74 6f 20 74 68 65 20 61 6c 67 ded into the alg
25c0: 6f 72 69 74 68 6d 0a 23 0a 70 72 6f 63 20 3a 3a orithm.#.proc ::
25d0: 73 68 61 31 3a 3a 48 4d 41 43 49 6e 69 74 20 7b sha1::HMACInit {
25e0: 4b 7d 20 7b 0a 0a 20 20 20 20 23 20 4b 65 79 20 K} {.. # Key
25f0: 4b 20 69 73 20 61 64 6a 75 73 74 65 64 20 74 6f K is adjusted to
2600: 20 62 65 20 36 34 20 62 79 74 65 73 20 6c 6f 6e be 64 bytes lon
2610: 67 2e 20 49 66 20 4b 20 69 73 20 6c 61 72 67 65 g. If K is large
2620: 72 2c 20 74 68 65 6e 20 75 73 65 0a 20 20 20 20 r, then use.
2630: 23 20 74 68 65 20 53 48 41 31 20 64 69 67 65 73 # the SHA1 diges
2640: 74 20 6f 66 20 4b 20 61 6e 64 20 70 61 64 20 74 t of K and pad t
2650: 68 69 73 20 69 6e 73 74 65 61 64 2e 0a 20 20 20 his instead..
2660: 20 73 65 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67 set len [string
2670: 20 6c 65 6e 67 74 68 20 24 4b 5d 0a 20 20 20 20 length $K].
2680: 69 66 20 7b 24 6c 65 6e 20 3e 20 36 34 7d 20 7b if {$len > 64} {
2690: 0a 20 20 20 20 20 20 20 20 73 65 74 20 74 6f 6b . set tok
26a0: 20 5b 53 48 41 31 49 6e 69 74 5d 0a 20 20 20 20 [SHA1Init].
26b0: 20 20 20 20 53 48 41 31 55 70 64 61 74 65 20 24 SHA1Update $
26c0: 74 6f 6b 20 24 4b 0a 20 20 20 20 20 20 20 20 73 tok $K. s
26d0: 65 74 20 4b 20 5b 53 48 41 31 46 69 6e 61 6c 20 et K [SHA1Final
26e0: 24 74 6f 6b 5d 0a 20 20 20 20 20 20 20 20 73 65 $tok]. se
26f0: 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67 20 6c 65 t len [string le
2700: 6e 67 74 68 20 24 4b 5d 0a 20 20 20 20 7d 0a 20 ngth $K]. }.
2710: 20 20 20 73 65 74 20 70 61 64 20 5b 65 78 70 72 set pad [expr
2720: 20 7b 36 34 20 2d 20 24 6c 65 6e 7d 5d 0a 20 20 {64 - $len}].
2730: 20 20 61 70 70 65 6e 64 20 4b 20 5b 73 74 72 69 append K [stri
2740: 6e 67 20 72 65 70 65 61 74 20 5c 30 20 24 70 61 ng repeat \0 $pa
2750: 64 5d 0a 0a 20 20 20 20 23 20 43 61 63 6c 75 61 d].. # Caclua
2760: 74 65 20 74 68 65 20 70 61 64 64 69 6e 67 20 62 te the padding b
2770: 75 66 66 65 72 73 2e 0a 20 20 20 20 73 65 74 20 uffers.. set
2780: 4b 69 20 7b 7d 0a 20 20 20 20 73 65 74 20 4b 6f Ki {}. set Ko
2790: 20 7b 7d 0a 20 20 20 20 62 69 6e 61 72 79 20 73 {}. binary s
27a0: 63 61 6e 20 24 4b 20 69 31 36 20 4b 73 0a 20 20 can $K i16 Ks.
27b0: 20 20 66 6f 72 65 61 63 68 20 6b 20 24 4b 73 20 foreach k $Ks
27c0: 7b 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e 64 {. append
27d0: 20 4b 69 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d Ki [binary form
27e0: 61 74 20 69 20 5b 65 78 70 72 20 7b 24 6b 20 5e at i [expr {$k ^
27f0: 20 30 78 33 36 33 36 33 36 33 36 7d 5d 5d 0a 20 0x36363636}]].
2800: 20 20 20 20 20 20 20 61 70 70 65 6e 64 20 4b 6f append Ko
2810: 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d 61 74 20 [binary format
2820: 69 20 5b 65 78 70 72 20 7b 24 6b 20 5e 20 30 78 i [expr {$k ^ 0x
2830: 35 63 35 63 35 63 35 63 7d 5d 5d 0a 20 20 20 20 5c5c5c5c}]].
2840: 7d 0a 0a 20 20 20 20 73 65 74 20 74 6f 6b 20 5b }.. set tok [
2850: 53 48 41 31 49 6e 69 74 5d 0a 20 20 20 20 53 48 SHA1Init]. SH
2860: 41 31 55 70 64 61 74 65 20 24 74 6f 6b 20 24 4b A1Update $tok $K
2870: 69 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 i;
2880: 20 20 20 23 20 69 6e 69 74 69 61 6c 69 7a 65 20 # initialize
2890: 77 69 74 68 20 74 68 65 20 69 6e 6e 65 72 20 70 with the inner p
28a0: 61 64 0a 20 20 20 20 0a 20 20 20 20 23 20 70 72 ad. . # pr
28b0: 65 73 65 72 76 65 20 74 68 65 20 4b 6f 20 76 61 eserve the Ko va
28c0: 6c 75 65 20 66 6f 72 20 74 68 65 20 66 69 6e 61 lue for the fina
28d0: 6c 20 73 74 61 67 65 2e 0a 20 20 20 20 23 20 46 l stage.. # F
28e0: 52 49 4e 4b 3a 20 6e 6f 63 68 65 63 6b 0a 20 20 RINK: nocheck.
28f0: 20 20 73 65 74 20 5b 73 75 62 73 74 20 24 74 6f set [subst $to
2900: 6b 5d 28 4b 6f 29 20 24 4b 6f 0a 0a 20 20 20 20 k](Ko) $Ko..
2910: 72 65 74 75 72 6e 20 24 74 6f 6b 0a 7d 0a 0a 23 return $tok.}..#
2920: 20 48 4d 41 43 55 70 64 61 74 65 20 2d 2d 0a 23 HMACUpdate --.#
2930: 0a 23 20 20 20 20 49 64 65 6e 74 69 63 61 6c 20 .# Identical
2940: 74 6f 20 63 61 6c 6c 69 6e 67 20 53 48 41 31 55 to calling SHA1U
2950: 70 64 61 74 65 0a 23 0a 70 72 6f 63 20 3a 3a 73 pdate.#.proc ::s
2960: 68 61 31 3a 3a 48 4d 41 43 55 70 64 61 74 65 20 ha1::HMACUpdate
2970: 7b 74 6f 6b 65 6e 20 64 61 74 61 7d 20 7b 0a 20 {token data} {.
2980: 20 20 20 53 48 41 31 55 70 64 61 74 65 20 24 74 SHA1Update $t
2990: 6f 6b 65 6e 20 24 64 61 74 61 0a 20 20 20 20 72 oken $data. r
29a0: 65 74 75 72 6e 0a 7d 0a 0a 23 20 48 4d 41 43 46 eturn.}..# HMACF
29b0: 69 6e 61 6c 20 2d 2d 0a 23 0a 23 20 20 20 20 54 inal --.#.# T
29c0: 68 69 73 20 69 73 20 65 71 75 69 76 61 6c 65 6e his is equivalen
29d0: 74 20 74 6f 20 74 68 65 20 53 48 41 31 46 69 6e t to the SHA1Fin
29e0: 61 6c 20 70 72 6f 63 65 64 75 72 65 2e 20 54 68 al procedure. Th
29f0: 65 20 68 61 73 68 20 63 6f 6e 74 65 78 74 20 69 e hash context i
2a00: 73 0a 23 20 20 20 20 63 6c 6f 73 65 64 20 61 6e s.# closed an
2a10: 64 20 74 68 65 20 62 69 6e 61 72 79 20 72 65 70 d the binary rep
2a20: 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 resentation of t
2a30: 68 65 20 68 61 73 68 20 72 65 73 75 6c 74 20 69 he hash result i
2a40: 73 20 72 65 74 75 72 6e 65 64 2e 0a 23 0a 70 72 s returned..#.pr
2a50: 6f 63 20 3a 3a 73 68 61 31 3a 3a 48 4d 41 43 46 oc ::sha1::HMACF
2a60: 69 6e 61 6c 20 7b 74 6f 6b 65 6e 7d 20 7b 0a 20 inal {token} {.
2a70: 20 20 20 75 70 76 61 72 20 23 30 20 24 74 6f 6b upvar #0 $tok
2a80: 65 6e 20 73 74 61 74 65 0a 0a 20 20 20 20 73 65 en state.. se
2a90: 74 20 74 6f 6b 20 5b 53 48 41 31 49 6e 69 74 5d t tok [SHA1Init]
2aa0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;
2ab0: 20 20 23 20 69 6e 69 74 20 74 68 65 20 6f 75 74 # init the out
2ac0: 65 72 20 68 61 73 68 69 6e 67 20 66 75 6e 63 74 er hashing funct
2ad0: 69 6f 6e 0a 20 20 20 20 53 48 41 31 55 70 64 61 ion. SHA1Upda
2ae0: 74 65 20 24 74 6f 6b 20 24 73 74 61 74 65 28 4b te $tok $state(K
2af0: 6f 29 3b 20 20 20 20 20 20 20 20 20 23 20 70 72 o); # pr
2b00: 65 70 61 72 65 20 77 69 74 68 20 74 68 65 20 6f epare with the o
2b10: 75 74 65 72 20 70 61 64 2e 0a 20 20 20 20 53 48 uter pad.. SH
2b20: 41 31 55 70 64 61 74 65 20 24 74 6f 6b 20 5b 53 A1Update $tok [S
2b30: 48 41 31 46 69 6e 61 6c 20 24 74 6f 6b 65 6e 5d HA1Final $token]
2b40: 3b 20 23 20 68 61 73 68 20 74 68 65 20 69 6e 6e ; # hash the inn
2b50: 65 72 20 72 65 73 75 6c 74 0a 20 20 20 20 72 65 er result. re
2b60: 74 75 72 6e 20 5b 53 48 41 31 46 69 6e 61 6c 20 turn [SHA1Final
2b70: 24 74 6f 6b 5d 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d $tok].}..# -----
2b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bc0: 2d 2d 2d 2d 0a 23 20 44 65 73 63 72 69 70 74 69 ----.# Descripti
2bd0: 6f 6e 3a 0a 23 20 20 54 68 69 73 20 69 73 20 74 on:.# This is t
2be0: 68 65 20 63 6f 72 65 20 53 48 41 31 20 61 6c 67 he core SHA1 alg
2bf0: 6f 72 69 74 68 6d 2e 20 49 74 20 69 73 20 61 20 orithm. It is a
2c00: 6c 6f 74 20 6c 69 6b 65 20 74 68 65 20 4d 44 34 lot like the MD4
2c10: 20 61 6c 67 6f 72 69 74 68 6d 20 62 75 74 0a 23 algorithm but.#
2c20: 20 20 69 6e 63 6c 75 64 65 73 20 61 6e 20 65 78 includes an ex
2c30: 74 72 61 20 72 6f 75 6e 64 20 61 6e 64 20 61 20 tra round and a
2c40: 73 65 74 20 6f 66 20 63 6f 6e 73 74 61 6e 74 20 set of constant
2c50: 6d 6f 64 69 66 69 65 72 73 20 74 68 72 6f 75 67 modifiers throug
2c60: 68 6f 75 74 2e 0a 23 0a 73 65 74 20 3a 3a 73 68 hout..#.set ::sh
2c70: 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 a1::SHA1Transfor
2c80: 6d 5f 62 6f 64 79 20 7b 0a 20 20 20 20 75 70 76 m_body {. upv
2c90: 61 72 20 23 30 20 24 74 6f 6b 65 6e 20 73 74 61 ar #0 $token sta
2ca0: 74 65 0a 0a 20 20 20 20 23 20 46 49 50 53 20 31 te.. # FIPS 1
2cb0: 38 30 2d 31 3a 20 37 61 3a 20 50 72 6f 63 65 73 80-1: 7a: Proces
2cc0: 73 20 4d 65 73 73 61 67 65 20 69 6e 20 31 36 2d s Message in 16-
2cd0: 57 6f 72 64 20 42 6c 6f 63 6b 73 0a 20 20 20 20 Word Blocks.
2ce0: 62 69 6e 61 72 79 20 73 63 61 6e 20 24 6d 73 67 binary scan $msg
2cf0: 20 49 2a 20 62 6c 6f 63 6b 73 0a 20 20 20 20 73 I* blocks. s
2d00: 65 74 20 62 6c 6f 63 6b 4c 65 6e 20 5b 6c 6c 65 et blockLen [lle
2d10: 6e 67 74 68 20 24 62 6c 6f 63 6b 73 5d 0a 20 20 ngth $blocks].
2d20: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 for {set i 0}
2d30: 7b 24 69 20 3c 20 24 62 6c 6f 63 6b 4c 65 6e 7d {$i < $blockLen}
2d40: 20 7b 69 6e 63 72 20 69 20 31 36 7d 20 7b 0a 20 {incr i 16} {.
2d50: 20 20 20 20 20 20 20 73 65 74 20 57 20 5b 6c 72 set W [lr
2d60: 61 6e 67 65 20 24 62 6c 6f 63 6b 73 20 24 69 20 ange $blocks $i
2d70: 5b 65 78 70 72 20 7b 24 69 2b 31 35 7d 5d 5d 0a [expr {$i+15}]].
2d80: 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 .
2d90: 20 23 20 46 49 50 53 20 31 38 30 2d 31 3a 20 37 # FIPS 180-1: 7
2da0: 62 3a 20 45 78 70 61 6e 64 20 74 68 65 20 69 6e b: Expand the in
2db0: 70 75 74 20 69 6e 74 6f 20 38 30 20 77 6f 72 64 put into 80 word
2dc0: 73 0a 20 20 20 20 20 20 20 20 23 20 46 6f 72 20 s. # For
2dd0: 74 20 3d 20 31 36 20 74 6f 20 37 39 20 0a 20 20 t = 16 to 79 .
2de0: 20 20 20 20 20 20 23 20 20 20 6c 65 74 20 57 74 # let Wt
2df0: 20 3d 20 28 57 74 2d 33 20 5e 20 57 74 2d 38 20 = (Wt-3 ^ Wt-8
2e00: 5e 20 57 74 2d 31 34 20 5e 20 57 74 2d 31 36 29 ^ Wt-14 ^ Wt-16)
2e10: 20 3c 3c 3c 20 31 0a 20 20 20 20 20 20 20 20 73 <<< 1. s
2e20: 65 74 20 74 33 20 20 31 32 0a 20 20 20 20 20 20 et t3 12.
2e30: 20 20 73 65 74 20 74 38 20 20 20 37 0a 20 20 20 set t8 7.
2e40: 20 20 20 20 20 73 65 74 20 74 31 34 20 20 31 0a set t14 1.
2e50: 20 20 20 20 20 20 20 20 73 65 74 20 74 31 36 20 set t16
2e60: 2d 31 0a 20 20 20 20 20 20 20 20 66 6f 72 20 7b -1. for {
2e70: 73 65 74 20 74 20 31 36 7d 20 7b 24 74 20 3c 20 set t 16} {$t <
2e80: 38 30 7d 20 7b 69 6e 63 72 20 74 7d 20 7b 0a 20 80} {incr t} {.
2e90: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 78 set x
2ea0: 20 5b 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20 [expr {[lindex
2eb0: 24 57 20 5b 69 6e 63 72 20 74 33 5d 5d 20 5e 20 $W [incr t3]] ^
2ec0: 5b 6c 69 6e 64 65 78 20 24 57 20 5b 69 6e 63 72 [lindex $W [incr
2ed0: 20 74 38 5d 5d 20 5e 20 5c 0a 20 20 20 20 20 20 t8]] ^ \.
2ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ef0: 20 20 20 20 20 20 20 5b 6c 69 6e 64 65 78 20 24 [lindex $
2f00: 57 20 5b 69 6e 63 72 20 74 31 34 5d 5d 20 5e 20 W [incr t14]] ^
2f10: 5b 6c 69 6e 64 65 78 20 24 57 20 5b 69 6e 63 72 [lindex $W [incr
2f20: 20 74 31 36 5d 5d 7d 5d 0a 20 20 20 20 20 20 20 t16]]}].
2f30: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 57 20 5b lappend W [
2f40: 65 78 70 72 20 7b 69 6e 74 28 28 24 78 20 3c 3c expr {int(($x <<
2f50: 20 31 29 20 7c 20 28 28 24 78 20 3e 3e 20 33 31 1) | (($x >> 31
2f60: 29 20 26 20 31 29 29 7d 5d 0a 20 20 20 20 20 20 ) & 1))}].
2f70: 20 20 7d 0a 20 20 20 20 20 20 20 20 0a 20 20 20 }. .
2f80: 20 20 20 20 20 23 20 46 49 50 53 20 31 38 30 2d # FIPS 180-
2f90: 31 3a 20 37 63 3a 20 43 6f 70 79 20 68 61 73 68 1: 7c: Copy hash
2fa0: 20 73 74 61 74 65 2e 0a 20 20 20 20 20 20 20 20 state..
2fb0: 73 65 74 20 41 20 24 73 74 61 74 65 28 41 29 0a set A $state(A).
2fc0: 20 20 20 20 20 20 20 20 73 65 74 20 42 20 24 73 set B $s
2fd0: 74 61 74 65 28 42 29 0a 20 20 20 20 20 20 20 20 tate(B).
2fe0: 73 65 74 20 43 20 24 73 74 61 74 65 28 43 29 0a set C $state(C).
2ff0: 20 20 20 20 20 20 20 20 73 65 74 20 44 20 24 73 set D $s
3000: 74 61 74 65 28 44 29 0a 20 20 20 20 20 20 20 20 tate(D).
3010: 73 65 74 20 45 20 24 73 74 61 74 65 28 45 29 0a set E $state(E).
3020: 0a 20 20 20 20 20 20 20 20 23 20 46 49 50 53 20 . # FIPS
3030: 31 38 30 2d 31 3a 20 37 64 3a 20 44 6f 20 70 65 180-1: 7d: Do pe
3040: 72 6d 75 74 61 74 69 6f 6e 20 72 6f 75 6e 64 73 rmutation rounds
3050: 0a 20 20 20 20 20 20 20 20 23 20 46 6f 72 20 74 . # For t
3060: 20 3d 20 30 20 74 6f 20 37 39 20 64 6f 0a 20 20 = 0 to 79 do.
3070: 20 20 20 20 20 20 23 20 20 20 54 45 4d 50 20 3d # TEMP =
3080: 20 28 41 3c 3c 3c 35 29 20 2b 20 66 74 28 42 2c (A<<<5) + ft(B,
3090: 43 2c 44 29 20 2b 20 45 20 2b 20 57 74 20 2b 20 C,D) + E + Wt +
30a0: 4b 74 3b 0a 20 20 20 20 20 20 20 20 23 20 20 20 Kt;. #
30b0: 45 20 3d 20 44 3b 20 44 20 3d 20 43 3b 20 43 20 E = D; D = C; C
30c0: 3d 20 53 33 30 28 42 29 3b 20 42 20 3d 20 41 3b = S30(B); B = A;
30d0: 20 41 20 3d 20 54 45 4d 50 3b 0a 0a 20 20 20 20 A = TEMP;..
30e0: 20 20 20 20 23 20 52 6f 75 6e 64 20 31 3a 20 66 # Round 1: f
30f0: 74 28 42 2c 43 2c 44 29 20 3d 20 28 42 20 26 20 t(B,C,D) = (B &
3100: 43 29 20 7c 20 28 7e 42 20 26 20 44 29 20 28 20 C) | (~B & D) (
3110: 30 20 3c 3d 20 74 20 3c 3d 20 31 39 29 0a 20 20 0 <= t <= 19).
3120: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 74 for {set t
3130: 20 30 7d 20 7b 24 74 20 3c 20 32 30 7d 20 7b 69 0} {$t < 20} {i
3140: 6e 63 72 20 74 7d 20 7b 0a 20 20 20 20 20 20 20 ncr t} {.
3150: 20 20 20 20 20 73 65 74 20 54 45 4d 50 20 5b 46 set TEMP [F
3160: 31 20 24 41 20 24 42 20 24 43 20 24 44 20 24 45 1 $A $B $C $D $E
3170: 20 5b 6c 69 6e 64 65 78 20 24 57 20 24 74 5d 5d [lindex $W $t]]
3180: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set
3190: 20 45 20 24 44 0a 20 20 20 20 20 20 20 20 20 20 E $D.
31a0: 20 20 73 65 74 20 44 20 24 43 0a 20 20 20 20 20 set D $C.
31b0: 20 20 20 20 20 20 20 73 65 74 20 43 20 5b 72 6f set C [ro
31c0: 74 6c 33 32 20 24 42 20 33 30 5d 0a 20 20 20 20 tl32 $B 30].
31d0: 20 20 20 20 20 20 20 20 73 65 74 20 42 20 24 41 set B $A
31e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set
31f0: 20 41 20 24 54 45 4d 50 0a 20 20 20 20 20 20 20 A $TEMP.
3200: 20 7d 0a 0a 20 20 20 20 20 20 20 20 23 20 52 6f }.. # Ro
3210: 75 6e 64 20 32 3a 20 66 74 28 42 2c 43 2c 44 29 und 2: ft(B,C,D)
3220: 20 3d 20 28 42 20 5e 20 43 20 5e 20 44 29 20 28 = (B ^ C ^ D) (
3230: 20 32 30 20 3c 3d 20 74 20 3c 3d 20 33 39 29 0a 20 <= t <= 39).
3240: 20 20 20 20 20 20 20 20 66 6f 72 20 7b 7d 20 7b for {} {
3250: 24 74 20 3c 20 34 30 7d 20 7b 69 6e 63 72 20 74 $t < 40} {incr t
3260: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 } {.
3270: 73 65 74 20 54 45 4d 50 20 5b 46 32 20 24 41 20 set TEMP [F2 $A
3280: 24 42 20 24 43 20 24 44 20 24 45 20 5b 6c 69 6e $B $C $D $E [lin
3290: 64 65 78 20 24 57 20 24 74 5d 5d 0a 20 20 20 20 dex $W $t]].
32a0: 20 20 20 20 20 20 20 20 73 65 74 20 45 20 24 44 set E $D
32b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set
32c0: 20 44 20 24 43 0a 20 20 20 20 20 20 20 20 20 20 D $C.
32d0: 20 20 73 65 74 20 43 20 5b 72 6f 74 6c 33 32 20 set C [rotl32
32e0: 24 42 20 33 30 5d 0a 20 20 20 20 20 20 20 20 20 $B 30].
32f0: 20 20 20 73 65 74 20 42 20 24 41 0a 20 20 20 20 set B $A.
3300: 20 20 20 20 20 20 20 20 73 65 74 20 41 20 24 54 set A $T
3310: 45 4d 50 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 EMP. }..
3320: 20 20 20 20 20 20 20 23 20 52 6f 75 6e 64 20 33 # Round 3
3330: 3a 20 66 74 28 42 2c 43 2c 44 29 20 3d 20 28 28 : ft(B,C,D) = ((
3340: 42 20 26 20 43 29 20 7c 20 28 42 20 26 20 44 29 B & C) | (B & D)
3350: 20 7c 20 28 43 20 26 20 44 29 29 20 28 20 34 30 | (C & D)) ( 40
3360: 20 3c 3d 20 74 20 3c 3d 20 35 39 29 0a 20 20 20 <= t <= 59).
3370: 20 20 20 20 20 66 6f 72 20 7b 7d 20 7b 24 74 20 for {} {$t
3380: 3c 20 36 30 7d 20 7b 69 6e 63 72 20 74 7d 20 7b < 60} {incr t} {
3390: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 . set
33a0: 20 54 45 4d 50 20 5b 46 33 20 24 41 20 24 42 20 TEMP [F3 $A $B
33b0: 24 43 20 24 44 20 24 45 20 5b 6c 69 6e 64 65 78 $C $D $E [lindex
33c0: 20 24 57 20 24 74 5d 5d 0a 20 20 20 20 20 20 20 $W $t]].
33d0: 20 20 20 20 20 73 65 74 20 45 20 24 44 0a 20 20 set E $D.
33e0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 44 20 set D
33f0: 24 43 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 $C. s
3400: 65 74 20 43 20 5b 72 6f 74 6c 33 32 20 24 42 20 et C [rotl32 $B
3410: 33 30 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 30].
3420: 73 65 74 20 42 20 24 41 0a 20 20 20 20 20 20 20 set B $A.
3430: 20 20 20 20 20 73 65 74 20 41 20 24 54 45 4d 50 set A $TEMP
3440: 0a 20 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 . }..
3450: 20 20 20 20 20 23 20 52 6f 75 6e 64 20 34 3a 20 # Round 4:
3460: 66 74 28 42 2c 43 2c 44 29 20 3d 20 28 42 20 5e ft(B,C,D) = (B ^
3470: 20 43 20 5e 20 44 29 20 28 20 36 30 20 3c 3d 20 C ^ D) ( 60 <=
3480: 74 20 3c 3d 20 37 39 29 0a 20 20 20 20 20 20 20 t <= 79).
3490: 20 66 6f 72 20 7b 7d 20 7b 24 74 20 3c 20 38 30 for {} {$t < 80
34a0: 7d 20 7b 69 6e 63 72 20 74 7d 20 7b 0a 20 20 20 } {incr t} {.
34b0: 20 20 20 20 20 20 20 20 20 73 65 74 20 54 45 4d set TEM
34c0: 50 20 5b 46 34 20 24 41 20 24 42 20 24 43 20 24 P [F4 $A $B $C $
34d0: 44 20 24 45 20 5b 6c 69 6e 64 65 78 20 24 57 20 D $E [lindex $W
34e0: 24 74 5d 5d 0a 20 20 20 20 20 20 20 20 20 20 20 $t]].
34f0: 20 73 65 74 20 45 20 24 44 0a 20 20 20 20 20 20 set E $D.
3500: 20 20 20 20 20 20 73 65 74 20 44 20 24 43 0a 20 set D $C.
3510: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 43 set C
3520: 20 5b 72 6f 74 6c 33 32 20 24 42 20 33 30 5d 0a [rotl32 $B 30].
3530: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 set
3540: 42 20 24 41 0a 20 20 20 20 20 20 20 20 20 20 20 B $A.
3550: 20 73 65 74 20 41 20 24 54 45 4d 50 0a 20 20 20 set A $TEMP.
3560: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 }..
3570: 23 20 54 68 65 6e 20 70 65 72 66 6f 72 6d 20 74 # Then perform t
3580: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 64 64 he following add
3590: 69 74 69 6f 6e 73 2e 20 28 54 68 61 74 20 69 73 itions. (That is
35a0: 2c 20 69 6e 63 72 65 6d 65 6e 74 20 65 61 63 68 , increment each
35b0: 0a 20 20 20 20 20 20 20 20 23 20 6f 66 20 74 68 . # of th
35c0: 65 20 66 6f 75 72 20 72 65 67 69 73 74 65 72 73 e four registers
35d0: 20 62 79 20 74 68 65 20 76 61 6c 75 65 20 69 74 by the value it
35e0: 20 68 61 64 20 62 65 66 6f 72 65 20 74 68 69 73 had before this
35f0: 20 62 6c 6f 63 6b 0a 20 20 20 20 20 20 20 20 23 block. #
3600: 20 77 61 73 20 73 74 61 72 74 65 64 2e 29 0a 20 was started.).
3610: 20 20 20 20 20 20 20 69 6e 63 72 20 73 74 61 74 incr stat
3620: 65 28 41 29 20 24 41 0a 20 20 20 20 20 20 20 20 e(A) $A.
3630: 69 6e 63 72 20 73 74 61 74 65 28 42 29 20 24 42 incr state(B) $B
3640: 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 73 74 . incr st
3650: 61 74 65 28 43 29 20 24 43 0a 20 20 20 20 20 20 ate(C) $C.
3660: 20 20 69 6e 63 72 20 73 74 61 74 65 28 44 29 20 incr state(D)
3670: 24 44 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 $D. incr
3680: 73 74 61 74 65 28 45 29 20 24 45 0a 20 20 20 20 state(E) $E.
3690: 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a }.. return.}.
36a0: 0a 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 46 31 .proc ::sha1::F1
36b0: 20 7b 41 20 42 20 43 20 44 20 45 20 57 7d 20 7b {A B C D E W} {
36c0: 0a 20 20 20 20 65 78 70 72 20 7b 28 28 28 28 24 . expr {(((($
36d0: 41 20 3c 3c 20 35 29 20 26 20 30 78 66 66 66 66 A << 5) & 0xffff
36e0: 66 66 66 66 29 20 7c 20 28 28 24 41 20 3e 3e 20 ffff) | (($A >>
36f0: 32 37 29 20 26 20 30 78 31 66 29 29 20 5c 0a 20 27) & 0x1f)) \.
3700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 +
3710: 28 24 44 20 5e 20 28 24 42 20 26 20 28 24 43 20 ($D ^ ($B & ($C
3720: 5e 20 24 44 29 29 29 20 2b 20 24 45 20 2b 20 24 ^ $D))) + $E + $
3730: 57 20 2b 20 30 78 35 61 38 32 37 39 39 39 29 20 W + 0x5a827999)
3740: 26 20 30 78 66 66 66 66 66 66 66 66 7d 0a 7d 0a & 0xffffffff}.}.
3750: 0a 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 46 32 .proc ::sha1::F2
3760: 20 7b 41 20 42 20 43 20 44 20 45 20 57 7d 20 7b {A B C D E W} {
3770: 0a 20 20 20 20 65 78 70 72 20 7b 28 28 28 28 24 . expr {(((($
3780: 41 20 3c 3c 20 35 29 20 26 20 30 78 66 66 66 66 A << 5) & 0xffff
3790: 66 66 66 66 29 20 7c 20 28 28 24 41 20 3e 3e 20 ffff) | (($A >>
37a0: 32 37 29 20 26 20 30 78 31 66 29 29 20 5c 0a 20 27) & 0x1f)) \.
37b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2b 20 +
37c0: 28 24 42 20 5e 20 24 43 20 5e 20 24 44 29 20 2b ($B ^ $C ^ $D) +
37d0: 20 24 45 20 2b 20 24 57 20 2b 20 30 78 36 65 64 $E + $W + 0x6ed
37e0: 39 65 62 61 31 29 20 26 20 30 78 66 66 66 66 66 9eba1) & 0xfffff
37f0: 66 66 66 7d 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 73 fff}.}..proc ::s
3800: 68 61 31 3a 3a 46 33 20 7b 41 20 42 20 43 20 44 ha1::F3 {A B C D
3810: 20 45 20 57 7d 20 7b 0a 20 20 20 20 65 78 70 72 E W} {. expr
3820: 20 7b 28 28 28 28 24 41 20 3c 3c 20 35 29 20 26 {(((($A << 5) &
3830: 20 30 78 66 66 66 66 66 66 66 66 29 7c 20 28 28 0xffffffff)| ((
3840: 24 41 20 3e 3e 20 32 37 29 20 26 20 30 78 31 66 $A >> 27) & 0x1f
3850: 29 29 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 )) \.
3860: 20 20 20 20 2b 20 28 28 24 42 20 26 20 24 43 29 + (($B & $C)
3870: 20 7c 20 28 24 44 20 26 20 28 24 42 20 7c 20 24 | ($D & ($B | $
3880: 43 29 29 29 20 2b 20 24 45 20 2b 20 24 57 20 2b C))) + $E + $W +
3890: 20 30 78 38 66 31 62 62 63 64 63 29 20 26 20 30 0x8f1bbcdc) & 0
38a0: 78 66 66 66 66 66 66 66 66 7d 0a 7d 0a 0a 70 72 xffffffff}.}..pr
38b0: 6f 63 20 3a 3a 73 68 61 31 3a 3a 46 34 20 7b 41 oc ::sha1::F4 {A
38c0: 20 42 20 43 20 44 20 45 20 57 7d 20 7b 0a 20 20 B C D E W} {.
38d0: 20 20 65 78 70 72 20 7b 28 28 28 28 24 41 20 3c expr {(((($A <
38e0: 3c 20 35 29 20 26 20 30 78 66 66 66 66 66 66 66 < 5) & 0xfffffff
38f0: 66 29 7c 20 28 28 24 41 20 3e 3e 20 32 37 29 20 f)| (($A >> 27)
3900: 26 20 30 78 31 66 29 29 20 5c 0a 20 20 20 20 20 & 0x1f)) \.
3910: 20 20 20 20 20 20 20 20 20 20 2b 20 28 24 42 20 + ($B
3920: 5e 20 24 43 20 5e 20 24 44 29 20 2b 20 24 45 20 ^ $C ^ $D) + $E
3930: 2b 20 24 57 20 2b 20 30 78 63 61 36 32 63 31 64 + $W + 0xca62c1d
3940: 36 29 20 26 20 30 78 66 66 66 66 66 66 66 66 7d 6) & 0xffffffff}
3950: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 73 68 61 31 3a .}..proc ::sha1:
3960: 3a 72 6f 74 6c 33 32 20 7b 76 20 6e 7d 20 7b 0a :rotl32 {v n} {.
3970: 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 return [expr
3980: 20 7b 28 28 28 24 76 20 3c 3c 20 24 6e 29 20 5c {((($v << $n) \
3990: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
39a0: 20 20 20 20 20 20 20 20 20 7c 20 28 28 24 76 20 | (($v
39b0: 3e 3e 20 28 33 32 20 2d 20 24 6e 29 29 20 5c 0a >> (32 - $n)) \.
39c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
39d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 &
39e0: 20 28 30 78 37 46 46 46 46 46 46 46 20 3e 3e 20 (0x7FFFFFFF >>
39f0: 28 33 31 20 2d 20 24 6e 29 29 29 29 29 20 5c 0a (31 - $n))))) \.
3a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a10: 20 20 20 20 20 20 26 20 30 78 46 46 46 46 46 46 & 0xFFFFFF
3a20: 46 46 7d 5d 0a 7d 0a 0a 0a 23 20 2d 2d 2d 2d 2d FF}].}...# -----
3a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a70: 2d 2d 2d 2d 0a 23 20 0a 23 20 49 6e 20 6f 72 64 ----.# .# In ord
3a80: 65 72 20 74 6f 20 67 65 74 20 74 68 69 73 20 63 er to get this c
3a90: 6f 64 65 20 74 6f 20 67 6f 20 61 73 20 66 61 73 ode to go as fas
3aa0: 74 20 61 73 20 70 6f 73 73 69 62 6c 65 20 77 68 t as possible wh
3ab0: 69 6c 65 20 6c 65 61 76 69 6e 67 0a 23 20 74 68 ile leaving.# th
3ac0: 65 20 6d 61 69 6e 20 63 6f 64 65 20 72 65 61 64 e main code read
3ad0: 61 62 6c 65 20 77 65 20 63 61 6e 20 73 75 62 73 able we can subs
3ae0: 74 69 74 75 74 65 20 74 68 65 20 61 62 6f 76 65 titute the above
3af0: 20 66 75 6e 63 74 69 6f 6e 20 62 6f 64 69 65 73 function bodies
3b00: 0a 23 20 69 6e 74 6f 20 74 68 65 20 74 72 61 6e .# into the tran
3b10: 73 66 6f 72 6d 20 70 72 6f 63 65 64 75 72 65 2e sform procedure.
3b20: 20 54 68 69 73 20 69 6e 6c 69 6e 65 73 20 74 68 This inlines th
3b30: 65 20 63 6f 64 65 20 66 6f 72 20 75 73 20 61 6e e code for us an
3b40: 20 61 76 6f 69 64 73 0a 23 20 61 20 70 72 6f 63 avoids.# a proc
3b50: 65 64 75 72 65 20 63 61 6c 6c 20 6f 76 65 72 68 edure call overh
3b60: 65 61 64 20 77 69 74 68 69 6e 20 74 68 65 20 6c ead within the l
3b70: 6f 6f 70 73 2e 0a 23 0a 23 20 57 65 20 63 61 6e oops..#.# We can
3b80: 20 64 6f 20 73 6f 6d 65 20 6d 69 6e 6f 72 20 74 do some minor t
3b90: 77 65 61 6b 69 6e 67 20 74 6f 20 69 6d 70 72 6f weaking to impro
3ba0: 76 65 20 73 70 65 65 64 20 6f 6e 20 54 63 6c 20 ve speed on Tcl
3bb0: 3c 20 38 2e 35 20 77 68 65 72 65 20 77 65 0a 23 < 8.5 where we.#
3bc0: 20 6b 6e 6f 77 20 6f 75 72 20 61 72 69 74 68 6d know our arithm
3bd0: 65 74 69 63 20 69 73 20 6c 69 6d 69 74 65 64 20 etic is limited
3be0: 74 6f 20 36 34 20 62 69 74 73 2e 20 4f 6e 20 3e to 64 bits. On >
3bf0: 20 38 2e 35 20 77 65 20 6d 61 79 20 68 61 76 65 8.5 we may have
3c00: 20 0a 23 20 75 6e 63 6f 6e 73 74 72 61 69 6e 65 .# unconstraine
3c10: 64 20 69 6e 74 65 67 65 72 20 61 72 69 74 68 6d d integer arithm
3c20: 65 74 69 63 20 61 6e 64 20 6d 75 73 74 20 61 76 etic and must av
3c30: 6f 69 64 20 6c 65 74 74 69 6e 67 20 69 74 20 72 oid letting it r
3c40: 75 6e 20 61 77 61 79 2e 0a 23 0a 0a 72 65 67 73 un away..#..regs
3c50: 75 62 20 2d 61 6c 6c 20 2d 6c 69 6e 65 20 5c 0a ub -all -line \.
3c60: 20 20 20 20 7b 5c 5b 46 31 20 5c 24 41 20 5c 24 {\[F1 \$A \$
3c70: 42 20 5c 24 43 20 5c 24 44 20 5c 24 45 20 28 5c B \$C \$D \$E (\
3c80: 5b 2e 2a 3f 5c 5d 29 5c 5d 7d 20 5c 0a 20 20 20 [.*?\])\]} \.
3c90: 20 24 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 $::sha1::SHA1Tr
3ca0: 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 20 5c 0a 20 ansform_body \.
3cb0: 20 20 20 7b 5b 65 78 70 72 20 7b 28 72 6f 74 6c {[expr {(rotl
3cc0: 33 32 28 24 41 2c 35 29 20 2b 20 28 24 44 20 5e 32($A,5) + ($D ^
3cd0: 20 28 24 42 20 5c 26 20 28 24 43 20 5e 20 24 44 ($B \& ($C ^ $D
3ce0: 29 29 29 20 2b 20 24 45 20 2b 20 5c 31 20 2b 20 ))) + $E + \1 +
3cf0: 30 78 35 61 38 32 37 39 39 39 29 20 5c 26 20 30 0x5a827999) \& 0
3d00: 78 66 66 66 66 66 66 66 66 7d 5d 7d 20 5c 0a 20 xffffffff}]} \.
3d10: 20 20 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 ::sha1::SHA1T
3d20: 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d ransform_body_tm
3d30: 70 0a 0a 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d p..regsub -all -
3d40: 6c 69 6e 65 20 5c 0a 20 20 20 20 7b 5c 5b 46 32 line \. {\[F2
3d50: 20 5c 24 41 20 5c 24 42 20 5c 24 43 20 5c 24 44 \$A \$B \$C \$D
3d60: 20 5c 24 45 20 28 5c 5b 2e 2a 3f 5c 5d 29 5c 5d \$E (\[.*?\])\]
3d70: 7d 20 5c 0a 20 20 20 20 24 3a 3a 73 68 61 31 3a } \. $::sha1:
3d80: 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 :SHA1Transform_b
3d90: 6f 64 79 5f 74 6d 70 20 5c 0a 20 20 20 20 7b 5b ody_tmp \. {[
3da0: 65 78 70 72 20 7b 28 72 6f 74 6c 33 32 28 24 41 expr {(rotl32($A
3db0: 2c 35 29 20 2b 20 28 24 42 20 5e 20 24 43 20 5e ,5) + ($B ^ $C ^
3dc0: 20 24 44 29 20 2b 20 24 45 20 2b 20 5c 31 20 2b $D) + $E + \1 +
3dd0: 20 30 78 36 65 64 39 65 62 61 31 29 20 5c 26 20 0x6ed9eba1) \&
3de0: 30 78 66 66 66 66 66 66 66 66 7d 5d 7d 20 5c 0a 0xffffffff}]} \.
3df0: 20 20 20 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 ::sha1::SHA1
3e00: 54 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 Transform_body_t
3e10: 6d 70 0a 0a 72 65 67 73 75 62 20 2d 61 6c 6c 20 mp..regsub -all
3e20: 2d 6c 69 6e 65 20 5c 0a 20 20 20 20 7b 5c 5b 46 -line \. {\[F
3e30: 33 20 5c 24 41 20 5c 24 42 20 5c 24 43 20 5c 24 3 \$A \$B \$C \$
3e40: 44 20 5c 24 45 20 28 5c 5b 2e 2a 3f 5c 5d 29 5c D \$E (\[.*?\])\
3e50: 5d 7d 20 5c 0a 20 20 20 20 24 3a 3a 73 68 61 31 ]} \. $::sha1
3e60: 3a 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f ::SHA1Transform_
3e70: 62 6f 64 79 5f 74 6d 70 20 5c 0a 20 20 20 20 7b body_tmp \. {
3e80: 5b 65 78 70 72 20 7b 28 72 6f 74 6c 33 32 28 24 [expr {(rotl32($
3e90: 41 2c 35 29 20 2b 20 28 28 24 42 20 5c 26 20 24 A,5) + (($B \& $
3ea0: 43 29 20 7c 20 28 24 44 20 5c 26 20 28 24 42 20 C) | ($D \& ($B
3eb0: 7c 20 24 43 29 29 29 20 2b 20 24 45 20 2b 20 5c | $C))) + $E + \
3ec0: 31 20 2b 20 30 78 38 66 31 62 62 63 64 63 29 20 1 + 0x8f1bbcdc)
3ed0: 5c 26 20 30 78 66 66 66 66 66 66 66 66 7d 5d 7d \& 0xffffffff}]}
3ee0: 20 5c 0a 20 20 20 20 3a 3a 73 68 61 31 3a 3a 53 \. ::sha1::S
3ef0: 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 HA1Transform_bod
3f00: 79 5f 74 6d 70 0a 0a 72 65 67 73 75 62 20 2d 61 y_tmp..regsub -a
3f10: 6c 6c 20 2d 6c 69 6e 65 20 5c 0a 20 20 20 20 7b ll -line \. {
3f20: 5c 5b 46 34 20 5c 24 41 20 5c 24 42 20 5c 24 43 \[F4 \$A \$B \$C
3f30: 20 5c 24 44 20 5c 24 45 20 28 5c 5b 2e 2a 3f 5c \$D \$E (\[.*?\
3f40: 5d 29 5c 5d 7d 20 5c 0a 20 20 20 20 24 3a 3a 73 ])\]} \. $::s
3f50: 68 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 6f ha1::SHA1Transfo
3f60: 72 6d 5f 62 6f 64 79 5f 74 6d 70 20 5c 0a 20 20 rm_body_tmp \.
3f70: 20 20 7b 5b 65 78 70 72 20 7b 28 72 6f 74 6c 33 {[expr {(rotl3
3f80: 32 28 24 41 2c 35 29 20 2b 20 28 24 42 20 5e 20 2($A,5) + ($B ^
3f90: 24 43 20 5e 20 24 44 29 20 2b 20 24 45 20 2b 20 $C ^ $D) + $E +
3fa0: 5c 31 20 2b 20 30 78 63 61 36 32 63 31 64 36 29 \1 + 0xca62c1d6)
3fb0: 20 5c 26 20 30 78 66 66 66 66 66 66 66 66 7d 5d \& 0xffffffff}]
3fc0: 7d 20 5c 0a 20 20 20 20 3a 3a 73 68 61 31 3a 3a } \. ::sha1::
3fd0: 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 6f SHA1Transform_bo
3fe0: 64 79 5f 74 6d 70 0a 0a 72 65 67 73 75 62 20 2d dy_tmp..regsub -
3ff0: 61 6c 6c 20 2d 6c 69 6e 65 20 5c 0a 20 20 20 20 all -line \.
4000: 7b 72 6f 74 6c 33 32 5c 28 5c 24 41 2c 35 5c 29 {rotl32\(\$A,5\)
4010: 7d 20 5c 0a 20 20 20 20 24 3a 3a 73 68 61 31 3a } \. $::sha1:
4020: 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 :SHA1Transform_b
4030: 6f 64 79 5f 74 6d 70 20 5c 0a 20 20 20 20 7b 28 ody_tmp \. {(
4040: 28 28 24 41 20 3c 3c 20 35 29 20 5c 26 20 30 78 (($A << 5) \& 0x
4050: 66 66 66 66 66 66 66 66 29 20 7c 20 28 28 24 41 ffffffff) | (($A
4060: 20 3e 3e 20 32 37 29 20 5c 26 20 30 78 31 66 29 >> 27) \& 0x1f)
4070: 29 7d 20 5c 0a 20 20 20 20 3a 3a 73 68 61 31 3a )} \. ::sha1:
4080: 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 :SHA1Transform_b
4090: 6f 64 79 5f 74 6d 70 0a 0a 72 65 67 73 75 62 20 ody_tmp..regsub
40a0: 2d 61 6c 6c 20 2d 6c 69 6e 65 20 5c 0a 20 20 20 -all -line \.
40b0: 20 7b 5c 5b 72 6f 74 6c 33 32 20 5c 24 42 20 33 {\[rotl32 \$B 3
40c0: 30 5c 5d 7d 20 5c 0a 20 20 20 20 24 3a 3a 73 68 0\]} \. $::sh
40d0: 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 a1::SHA1Transfor
40e0: 6d 5f 62 6f 64 79 5f 74 6d 70 20 5c 0a 20 20 20 m_body_tmp \.
40f0: 20 7b 5b 65 78 70 72 20 7b 69 6e 74 28 28 24 42 {[expr {int(($B
4100: 20 3c 3c 20 33 30 29 20 7c 20 28 28 24 42 20 3e << 30) | (($B >
4110: 3e 20 32 29 20 5c 26 20 30 78 33 66 66 66 66 66 > 2) \& 0x3fffff
4120: 66 66 29 29 7d 5d 7d 20 5c 0a 20 20 20 20 3a 3a ff))}]} \. ::
4130: 73 68 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 sha1::SHA1Transf
4140: 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 0a 23 0a 23 orm_body_tmp.#.#
4150: 20 56 65 72 73 69 6f 6e 20 32 20 61 76 6f 69 64 Version 2 avoid
4160: 73 20 61 20 66 65 77 20 74 72 75 6e 63 61 74 69 s a few truncati
4170: 6f 6e 73 20 74 6f 20 33 32 20 62 69 74 73 20 69 ons to 32 bits i
4180: 6e 20 6e 6f 6e 2d 65 73 73 65 6e 74 69 61 6c 20 n non-essential
4190: 70 6c 61 63 65 73 2e 0a 23 0a 72 65 67 73 75 62 places..#.regsub
41a0: 20 2d 61 6c 6c 20 2d 6c 69 6e 65 20 5c 0a 20 20 -all -line \.
41b0: 20 20 7b 5c 5b 46 31 20 5c 24 41 20 5c 24 42 20 {\[F1 \$A \$B
41c0: 5c 24 43 20 5c 24 44 20 5c 24 45 20 28 5c 5b 2e \$C \$D \$E (\[.
41d0: 2a 3f 5c 5d 29 5c 5d 7d 20 5c 0a 20 20 20 20 24 *?\])\]} \. $
41e0: 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 6e ::sha1::SHA1Tran
41f0: 73 66 6f 72 6d 5f 62 6f 64 79 20 5c 0a 20 20 20 sform_body \.
4200: 20 7b 5b 65 78 70 72 20 7b 72 6f 74 6c 33 32 28 {[expr {rotl32(
4210: 24 41 2c 35 29 20 2b 20 28 24 44 20 5e 20 28 24 $A,5) + ($D ^ ($
4220: 42 20 5c 26 20 28 24 43 20 5e 20 24 44 29 29 29 B \& ($C ^ $D)))
4230: 20 2b 20 24 45 20 2b 20 5c 31 20 2b 20 30 78 35 + $E + \1 + 0x5
4240: 61 38 32 37 39 39 39 7d 5d 7d 20 5c 0a 20 20 20 a827999}]} \.
4250: 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 ::sha1::SHA1Tra
4260: 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 32 nsform_body_tmp2
4270: 0a 0a 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 6c ..regsub -all -l
4280: 69 6e 65 20 5c 0a 20 20 20 20 7b 5c 5b 46 32 20 ine \. {\[F2
4290: 5c 24 41 20 5c 24 42 20 5c 24 43 20 5c 24 44 20 \$A \$B \$C \$D
42a0: 5c 24 45 20 28 5c 5b 2e 2a 3f 5c 5d 29 5c 5d 7d \$E (\[.*?\])\]}
42b0: 20 5c 0a 20 20 20 20 24 3a 3a 73 68 61 31 3a 3a \. $::sha1::
42c0: 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 6f SHA1Transform_bo
42d0: 64 79 5f 74 6d 70 32 20 5c 0a 20 20 20 20 7b 5b dy_tmp2 \. {[
42e0: 65 78 70 72 20 7b 72 6f 74 6c 33 32 28 24 41 2c expr {rotl32($A,
42f0: 35 29 20 2b 20 28 24 42 20 5e 20 24 43 20 5e 20 5) + ($B ^ $C ^
4300: 24 44 29 20 2b 20 24 45 20 2b 20 5c 31 20 2b 20 $D) + $E + \1 +
4310: 30 78 36 65 64 39 65 62 61 31 7d 5d 7d 20 5c 0a 0x6ed9eba1}]} \.
4320: 20 20 20 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 ::sha1::SHA1
4330: 54 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 Transform_body_t
4340: 6d 70 32 0a 0a 72 65 67 73 75 62 20 2d 61 6c 6c mp2..regsub -all
4350: 20 2d 6c 69 6e 65 20 5c 0a 20 20 20 20 7b 5c 5b -line \. {\[
4360: 46 33 20 5c 24 41 20 5c 24 42 20 5c 24 43 20 5c F3 \$A \$B \$C \
4370: 24 44 20 5c 24 45 20 28 5c 5b 2e 2a 3f 5c 5d 29 $D \$E (\[.*?\])
4380: 5c 5d 7d 20 5c 0a 20 20 20 20 24 3a 3a 73 68 61 \]} \. $::sha
4390: 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 1::SHA1Transform
43a0: 5f 62 6f 64 79 5f 74 6d 70 32 20 5c 0a 20 20 20 _body_tmp2 \.
43b0: 20 7b 5b 65 78 70 72 20 7b 72 6f 74 6c 33 32 28 {[expr {rotl32(
43c0: 24 41 2c 35 29 20 2b 20 28 28 24 42 20 5c 26 20 $A,5) + (($B \&
43d0: 24 43 29 20 7c 20 28 24 44 20 5c 26 20 28 24 42 $C) | ($D \& ($B
43e0: 20 7c 20 24 43 29 29 29 20 2b 20 24 45 20 2b 20 | $C))) + $E +
43f0: 5c 31 20 2b 20 30 78 38 66 31 62 62 63 64 63 7d \1 + 0x8f1bbcdc}
4400: 5d 7d 20 5c 0a 20 20 20 20 3a 3a 73 68 61 31 3a ]} \. ::sha1:
4410: 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 :SHA1Transform_b
4420: 6f 64 79 5f 74 6d 70 32 0a 0a 72 65 67 73 75 62 ody_tmp2..regsub
4430: 20 2d 61 6c 6c 20 2d 6c 69 6e 65 20 5c 0a 20 20 -all -line \.
4440: 20 20 7b 5c 5b 46 34 20 5c 24 41 20 5c 24 42 20 {\[F4 \$A \$B
4450: 5c 24 43 20 5c 24 44 20 5c 24 45 20 28 5c 5b 2e \$C \$D \$E (\[.
4460: 2a 3f 5c 5d 29 5c 5d 7d 20 5c 0a 20 20 20 20 24 *?\])\]} \. $
4470: 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 6e ::sha1::SHA1Tran
4480: 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 32 20 sform_body_tmp2
4490: 5c 0a 20 20 20 20 7b 5b 65 78 70 72 20 7b 72 6f \. {[expr {ro
44a0: 74 6c 33 32 28 24 41 2c 35 29 20 2b 20 28 24 42 tl32($A,5) + ($B
44b0: 20 5e 20 24 43 20 5e 20 24 44 29 20 2b 20 24 45 ^ $C ^ $D) + $E
44c0: 20 2b 20 5c 31 20 2b 20 30 78 63 61 36 32 63 31 + \1 + 0xca62c1
44d0: 64 36 7d 5d 7d 20 5c 0a 20 20 20 20 3a 3a 73 68 d6}]} \. ::sh
44e0: 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 6f 72 a1::SHA1Transfor
44f0: 6d 5f 62 6f 64 79 5f 74 6d 70 32 0a 0a 72 65 67 m_body_tmp2..reg
4500: 73 75 62 20 2d 61 6c 6c 20 2d 6c 69 6e 65 20 5c sub -all -line \
4510: 0a 20 20 20 20 7b 72 6f 74 6c 33 32 5c 28 5c 24 . {rotl32\(\$
4520: 41 2c 35 5c 29 7d 20 5c 0a 20 20 20 20 24 3a 3a A,5\)} \. $::
4530: 73 68 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 66 sha1::SHA1Transf
4540: 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 32 20 5c 0a orm_body_tmp2 \.
4550: 20 20 20 20 7b 28 28 24 41 20 3c 3c 20 35 29 20 {(($A << 5)
4560: 7c 20 28 28 24 41 20 3e 3e 20 32 37 29 20 5c 26 | (($A >> 27) \&
4570: 20 30 78 31 66 29 29 7d 20 5c 0a 20 20 20 20 3a 0x1f))} \. :
4580: 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 6e 73 :sha1::SHA1Trans
4590: 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 32 0a 0a form_body_tmp2..
45a0: 72 65 67 73 75 62 20 2d 61 6c 6c 20 2d 6c 69 6e regsub -all -lin
45b0: 65 20 5c 0a 20 20 20 20 7b 5c 5b 72 6f 74 6c 33 e \. {\[rotl3
45c0: 32 20 5c 24 42 20 33 30 5c 5d 7d 20 5c 0a 20 20 2 \$B 30\]} \.
45d0: 20 20 24 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 $::sha1::SHA1T
45e0: 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d ransform_body_tm
45f0: 70 32 20 5c 0a 20 20 20 20 7b 5b 65 78 70 72 20 p2 \. {[expr
4600: 7b 28 24 42 20 3c 3c 20 33 30 29 20 7c 20 28 28 {($B << 30) | ((
4610: 24 42 20 3e 3e 20 32 29 20 5c 26 20 30 78 33 66 $B >> 2) \& 0x3f
4620: 66 66 66 66 66 66 29 7d 5d 7d 20 5c 0a 20 20 20 ffffff)}]} \.
4630: 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 ::sha1::SHA1Tra
4640: 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 32 nsform_body_tmp2
4650: 0a 0a 69 66 20 7b 5b 70 61 63 6b 61 67 65 20 76 ..if {[package v
4660: 73 61 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61 satisfies [packa
4670: 67 65 20 70 72 6f 76 69 64 65 20 54 63 6c 5d 20 ge provide Tcl]
4680: 38 2e 35 5d 7d 20 7b 0a 20 20 20 20 70 72 6f 63 8.5]} {. proc
4690: 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 ::sha1::SHA1Tra
46a0: 6e 73 66 6f 72 6d 20 7b 74 6f 6b 65 6e 20 6d 73 nsform {token ms
46b0: 67 7d 20 24 3a 3a 73 68 61 31 3a 3a 53 48 41 31 g} $::sha1::SHA1
46c0: 54 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 Transform_body_t
46d0: 6d 70 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 mp.} else {.
46e0: 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 53 48 41 proc ::sha1::SHA
46f0: 31 54 72 61 6e 73 66 6f 72 6d 20 7b 74 6f 6b 65 1Transform {toke
4700: 6e 20 6d 73 67 7d 20 24 3a 3a 73 68 61 31 3a 3a n msg} $::sha1::
4710: 53 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 6f SHA1Transform_bo
4720: 64 79 5f 74 6d 70 32 0a 7d 0a 0a 75 6e 73 65 74 dy_tmp2.}..unset
4730: 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 61 ::sha1::SHA1Tra
4740: 6e 73 66 6f 72 6d 5f 62 6f 64 79 0a 75 6e 73 65 nsform_body.unse
4750: 74 20 3a 3a 73 68 61 31 3a 3a 53 48 41 31 54 72 t ::sha1::SHA1Tr
4760: 61 6e 73 66 6f 72 6d 5f 62 6f 64 79 5f 74 6d 70 ansform_body_tmp
4770: 0a 75 6e 73 65 74 20 3a 3a 73 68 61 31 3a 3a 53 .unset ::sha1::S
4780: 48 41 31 54 72 61 6e 73 66 6f 72 6d 5f 62 6f 64 HA1Transform_bod
4790: 79 5f 74 6d 70 32 0a 0a 23 20 2d 2d 2d 2d 2d 2d y_tmp2..# ------
47a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47e0: 2d 2d 2d 0a 0a 70 72 6f 63 20 3a 3a 73 68 61 31 ---..proc ::sha1
47f0: 3a 3a 62 79 74 65 20 7b 6e 20 76 7d 20 7b 65 78 ::byte {n v} {ex
4800: 70 72 20 7b 28 28 30 78 46 46 20 3c 3c 20 28 38 pr {((0xFF << (8
4810: 20 2a 20 24 6e 29 29 20 26 20 24 76 29 20 3e 3e * $n)) & $v) >>
4820: 20 28 38 20 2a 20 24 6e 29 7d 7d 0a 70 72 6f 63 (8 * $n)}}.proc
4830: 20 3a 3a 73 68 61 31 3a 3a 62 79 74 65 73 20 7b ::sha1::bytes {
4840: 76 7d 20 7b 20 0a 20 20 20 20 23 66 6f 72 6d 61 v} { . #forma
4850: 74 20 25 63 25 63 25 63 25 63 20 5b 62 79 74 65 t %c%c%c%c [byte
4860: 20 30 20 24 76 5d 20 5b 62 79 74 65 20 31 20 24 0 $v] [byte 1 $
4870: 76 5d 20 5b 62 79 74 65 20 32 20 24 76 5d 20 5b v] [byte 2 $v] [
4880: 62 79 74 65 20 33 20 24 76 5d 0a 20 20 20 20 66 byte 3 $v]. f
4890: 6f 72 6d 61 74 20 25 63 25 63 25 63 25 63 20 5c ormat %c%c%c%c \
48a0: 0a 20 20 20 20 20 20 20 20 5b 65 78 70 72 20 7b . [expr {
48b0: 28 28 30 78 46 46 30 30 30 30 30 30 20 26 20 24 ((0xFF000000 & $
48c0: 76 29 20 3e 3e 20 32 34 29 20 26 20 30 78 46 46 v) >> 24) & 0xFF
48d0: 7d 5d 20 5c 0a 20 20 20 20 20 20 20 20 5b 65 78 }] \. [ex
48e0: 70 72 20 7b 28 30 78 46 46 30 30 30 30 20 26 20 pr {(0xFF0000 &
48f0: 24 76 29 20 3e 3e 20 31 36 7d 5d 20 5c 0a 20 20 $v) >> 16}] \.
4900: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 28 30 78 [expr {(0x
4910: 46 46 30 30 20 26 20 24 76 29 20 3e 3e 20 38 7d FF00 & $v) >> 8}
4920: 5d 20 5c 0a 20 20 20 20 20 20 20 20 5b 65 78 70 ] \. [exp
4930: 72 20 7b 30 78 46 46 20 26 20 24 76 7d 5d 0a 7d r {0xFF & $v}].}
4940: 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..# ------------
4950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 70 -------------..p
4990: 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 48 65 78 20 roc ::sha1::Hex
49a0: 7b 64 61 74 61 7d 20 7b 0a 20 20 20 20 62 69 6e {data} {. bin
49b0: 61 72 79 20 73 63 61 6e 20 24 64 61 74 61 20 48 ary scan $data H
49c0: 2a 20 72 65 73 75 6c 74 0a 20 20 20 20 72 65 74 * result. ret
49d0: 75 72 6e 20 24 72 65 73 75 6c 74 0a 7d 0a 0a 23 urn $result.}..#
49e0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
49f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 23 20 44 65 ----------..# De
4a30: 73 63 72 69 70 74 69 6f 6e 3a 0a 23 20 20 50 6f scription:.# Po
4a40: 70 20 74 68 65 20 6e 74 68 20 65 6c 65 6d 65 6e p the nth elemen
4a50: 74 20 6f 66 66 20 61 20 6c 69 73 74 2e 20 55 73 t off a list. Us
4a60: 65 64 20 69 6e 20 6f 70 74 69 6f 6e 73 20 70 72 ed in options pr
4a70: 6f 63 65 73 73 69 6e 67 2e 0a 23 0a 70 72 6f 63 ocessing..#.proc
4a80: 20 3a 3a 73 68 61 31 3a 3a 50 6f 70 20 7b 76 61 ::sha1::Pop {va
4a90: 72 6e 61 6d 65 20 7b 6e 74 68 20 30 7d 7d 20 7b rname {nth 0}} {
4aa0: 0a 20 20 20 20 75 70 76 61 72 20 24 76 61 72 6e . upvar $varn
4ab0: 61 6d 65 20 61 72 67 73 0a 20 20 20 20 73 65 74 ame args. set
4ac0: 20 72 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 r [lindex $args
4ad0: 20 24 6e 74 68 5d 0a 20 20 20 20 73 65 74 20 61 $nth]. set a
4ae0: 72 67 73 20 5b 6c 72 65 70 6c 61 63 65 20 24 61 rgs [lreplace $a
4af0: 72 67 73 20 24 6e 74 68 20 24 6e 74 68 5d 0a 20 rgs $nth $nth].
4b00: 20 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a return $r.}..
4b10: 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d # --------------
4b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 23 20 66 -----------..# f
4b60: 69 6c 65 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 ileevent handler
4b70: 20 66 6f 72 20 63 68 75 6e 6b 65 64 20 66 69 6c for chunked fil
4b80: 65 20 68 61 73 68 69 6e 67 2e 0a 23 0a 70 72 6f e hashing..#.pro
4b90: 63 20 3a 3a 73 68 61 31 3a 3a 43 68 75 6e 6b 20 c ::sha1::Chunk
4ba0: 7b 74 6f 6b 65 6e 20 63 68 61 6e 6e 65 6c 20 7b {token channel {
4bb0: 63 68 75 6e 6b 73 69 7a 65 20 34 30 39 36 7d 7d chunksize 4096}}
4bc0: 20 7b 0a 20 20 20 20 75 70 76 61 72 20 23 30 20 {. upvar #0
4bd0: 24 74 6f 6b 65 6e 20 73 74 61 74 65 0a 20 20 20 $token state.
4be0: 20 0a 20 20 20 20 69 66 20 7b 5b 65 6f 66 20 24 . if {[eof $
4bf0: 63 68 61 6e 6e 65 6c 5d 7d 20 7b 0a 20 20 20 20 channel]} {.
4c00: 20 20 20 20 66 69 6c 65 65 76 65 6e 74 20 24 63 fileevent $c
4c10: 68 61 6e 6e 65 6c 20 72 65 61 64 61 62 6c 65 20 hannel readable
4c20: 7b 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 73 {}. set s
4c30: 74 61 74 65 28 72 65 61 64 69 6e 67 29 20 30 0a tate(reading) 0.
4c40: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 0a 20 }. .
4c50: 20 20 20 53 48 41 31 55 70 64 61 74 65 20 24 74 SHA1Update $t
4c60: 6f 6b 65 6e 20 5b 72 65 61 64 20 24 63 68 61 6e oken [read $chan
4c70: 6e 65 6c 20 24 63 68 75 6e 6b 73 69 7a 65 5d 0a nel $chunksize].
4c80: 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }..# -----------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a --------------..
4cd0: 70 72 6f 63 20 3a 3a 73 68 61 31 3a 3a 73 68 61 proc ::sha1::sha
4ce0: 31 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20 61 1 {args} {. a
4cf0: 72 72 61 79 20 73 65 74 20 6f 70 74 73 20 7b 2d rray set opts {-
4d00: 68 65 78 20 30 20 2d 66 69 6c 65 6e 61 6d 65 20 hex 0 -filename
4d10: 7b 7d 20 2d 63 68 61 6e 6e 65 6c 20 7b 7d 20 2d {} -channel {} -
4d20: 63 68 75 6e 6b 73 69 7a 65 20 34 30 39 36 7d 0a chunksize 4096}.
4d30: 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 if {[llength
4d40: 20 24 61 72 67 73 5d 20 3d 3d 20 31 7d 20 7b 0a $args] == 1} {.
4d50: 20 20 20 20 20 20 20 20 73 65 74 20 6f 70 74 73 set opts
4d60: 28 2d 68 65 78 29 20 31 0a 20 20 20 20 7d 20 65 (-hex) 1. } e
4d70: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 77 68 lse {. wh
4d80: 69 6c 65 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 ile {[string mat
4d90: 63 68 20 2d 2a 20 5b 73 65 74 20 6f 70 74 69 6f ch -* [set optio
4da0: 6e 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 n [lindex $args
4db0: 30 5d 5d 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 0]]]} {.
4dc0: 20 20 20 20 73 77 69 74 63 68 20 2d 67 6c 6f 62 switch -glob
4dd0: 20 2d 2d 20 24 6f 70 74 69 6f 6e 20 7b 0a 20 20 -- $option {.
4de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 68 -h
4df0: 65 78 20 20 20 20 20 20 20 7b 20 73 65 74 20 6f ex { set o
4e00: 70 74 73 28 2d 68 65 78 29 20 31 20 7d 0a 20 20 pts(-hex) 1 }.
4e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 62 -b
4e20: 69 6e 20 20 20 20 20 20 20 7b 20 73 65 74 20 6f in { set o
4e30: 70 74 73 28 2d 68 65 78 29 20 30 20 7d 0a 20 20 pts(-hex) 0 }.
4e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 66 -f
4e50: 69 6c 65 2a 20 20 20 20 20 7b 20 73 65 74 20 6f ile* { set o
4e60: 70 74 73 28 2d 66 69 6c 65 6e 61 6d 65 29 20 5b pts(-filename) [
4e70: 50 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 Pop args 1] }.
4e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 63 -c
4e90: 68 61 6e 6e 65 6c 20 20 20 7b 20 73 65 74 20 6f hannel { set o
4ea0: 70 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20 5b 50 pts(-channel) [P
4eb0: 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 20 op args 1] }.
4ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 63 68 -ch
4ed0: 75 6e 6b 73 69 7a 65 20 7b 20 73 65 74 20 6f 70 unksize { set op
4ee0: 74 73 28 2d 63 68 75 6e 6b 73 69 7a 65 29 20 5b ts(-chunksize) [
4ef0: 50 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 Pop args 1] }.
4f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 de
4f10: 66 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20 20 fault {.
4f20: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b if {
4f30: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 20 [llength $args]
4f40: 3d 3d 20 31 7d 20 7b 20 62 72 65 61 6b 20 7d 0a == 1} { break }.
4f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4f60: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 if {[string
4f70: 63 6f 6d 70 61 72 65 20 24 6f 70 74 69 6f 6e 20 compare $option
4f80: 22 2d 2d 22 5d 20 3d 3d 20 30 7d 20 7b 20 50 6f "--"] == 0} { Po
4f90: 70 20 61 72 67 73 3b 20 62 72 65 61 6b 20 7d 0a p args; break }.
4fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4fb0: 20 20 20 20 73 65 74 20 65 72 72 20 5b 6a 6f 69 set err [joi
4fc0: 6e 20 5b 6c 73 6f 72 74 20 5b 63 6f 6e 63 61 74 n [lsort [concat
4fd0: 20 2d 62 69 6e 20 5b 61 72 72 61 79 20 6e 61 6d -bin [array nam
4fe0: 65 73 20 6f 70 74 73 5d 5d 5d 20 22 2c 20 22 5d es opts]]] ", "]
4ff0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5000: 20 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 return -cod
5010: 65 20 65 72 72 6f 72 20 22 62 61 64 20 6f 70 74 e error "bad opt
5020: 69 6f 6e 20 24 6f 70 74 69 6f 6e 3a 5c 0a 20 20 ion $option:\.
5030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5040: 20 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66 must be one of
5050: 20 24 65 72 72 22 0a 20 20 20 20 20 20 20 20 20 $err".
5060: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
5070: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 }.
5080: 20 20 20 50 6f 70 20 61 72 67 73 0a 20 20 20 20 Pop args.
5090: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 }. }..
50a0: 20 69 66 20 7b 24 6f 70 74 73 28 2d 66 69 6c 65 if {$opts(-file
50b0: 6e 61 6d 65 29 20 21 3d 20 7b 7d 7d 20 7b 0a 20 name) != {}} {.
50c0: 20 20 20 20 20 20 20 73 65 74 20 6f 70 74 73 28 set opts(
50d0: 2d 63 68 61 6e 6e 65 6c 29 20 5b 6f 70 65 6e 20 -channel) [open
50e0: 24 6f 70 74 73 28 2d 66 69 6c 65 6e 61 6d 65 29 $opts(-filename)
50f0: 20 72 5d 0a 20 20 20 20 20 20 20 20 66 63 6f 6e r]. fcon
5100: 66 69 67 75 72 65 20 24 6f 70 74 73 28 2d 63 68 figure $opts(-ch
5110: 61 6e 6e 65 6c 29 20 2d 74 72 61 6e 73 6c 61 74 annel) -translat
5120: 69 6f 6e 20 62 69 6e 61 72 79 0a 20 20 20 20 7d ion binary. }
5130: 0a 0a 20 20 20 20 69 66 20 7b 24 6f 70 74 73 28 .. if {$opts(
5140: 2d 63 68 61 6e 6e 65 6c 29 20 3d 3d 20 7b 7d 7d -channel) == {}}
5150: 20 7b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 7b {.. if {
5160: 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 20 [llength $args]
5170: 21 3d 20 31 7d 20 7b 0a 20 20 20 20 20 20 20 20 != 1} {.
5180: 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 return -code
5190: 20 65 72 72 6f 72 20 22 77 72 6f 6e 67 20 23 20 error "wrong #
51a0: 61 72 67 73 3a 5c 0a 20 20 20 20 20 20 20 20 20 args:\.
51b0: 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 65 should be
51c0: 20 5c 22 73 68 61 31 20 3f 2d 68 65 78 3f 20 2d \"sha1 ?-hex? -
51d0: 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 20 7c 20 filename file |
51e0: 73 74 72 69 6e 67 5c 22 22 0a 20 20 20 20 20 20 string\"".
51f0: 20 20 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 }. set
5200: 74 6f 6b 20 5b 53 48 41 31 49 6e 69 74 5d 0a 20 tok [SHA1Init].
5210: 20 20 20 20 20 20 20 53 48 41 31 55 70 64 61 74 SHA1Updat
5220: 65 20 24 74 6f 6b 20 5b 6c 69 6e 64 65 78 20 24 e $tok [lindex $
5230: 61 72 67 73 20 30 5d 0a 20 20 20 20 20 20 20 20 args 0].
5240: 73 65 74 20 72 20 5b 53 48 41 31 46 69 6e 61 6c set r [SHA1Final
5250: 20 24 74 6f 6b 5d 0a 0a 20 20 20 20 7d 20 65 6c $tok].. } el
5260: 73 65 20 7b 0a 0a 20 20 20 20 20 20 20 20 73 65 se {.. se
5270: 74 20 74 6f 6b 20 5b 53 48 41 31 49 6e 69 74 5d t tok [SHA1Init]
5280: 0a 20 20 20 20 20 20 20 20 23 20 46 52 49 4e 4b . # FRINK
5290: 3a 20 6e 6f 63 68 65 63 6b 0a 20 20 20 20 20 20 : nocheck.
52a0: 20 20 73 65 74 20 5b 73 75 62 73 74 20 24 74 6f set [subst $to
52b0: 6b 5d 28 72 65 61 64 69 6e 67 29 20 31 0a 20 20 k](reading) 1.
52c0: 20 20 20 20 20 20 66 69 6c 65 65 76 65 6e 74 20 fileevent
52d0: 24 6f 70 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20 $opts(-channel)
52e0: 72 65 61 64 61 62 6c 65 20 5c 0a 20 20 20 20 20 readable \.
52f0: 20 20 20 20 20 20 20 5b 6c 69 73 74 20 5b 6e 61 [list [na
5300: 6d 65 73 70 61 63 65 20 6f 72 69 67 69 6e 20 43 mespace origin C
5310: 68 75 6e 6b 5d 20 5c 0a 20 20 20 20 20 20 20 20 hunk] \.
5320: 20 20 20 20 20 20 20 20 20 24 74 6f 6b 20 24 6f $tok $o
5330: 70 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20 24 6f pts(-channel) $o
5340: 70 74 73 28 2d 63 68 75 6e 6b 73 69 7a 65 29 5d pts(-chunksize)]
5350: 0a 20 20 20 20 20 20 20 20 23 20 46 52 49 4e 4b . # FRINK
5360: 3a 20 6e 6f 63 68 65 63 6b 0a 20 20 20 20 20 20 : nocheck.
5370: 20 20 76 77 61 69 74 20 5b 73 75 62 73 74 20 24 vwait [subst $
5380: 74 6f 6b 5d 28 72 65 61 64 69 6e 67 29 0a 20 20 tok](reading).
5390: 20 20 20 20 20 20 73 65 74 20 72 20 5b 53 48 41 set r [SHA
53a0: 31 46 69 6e 61 6c 20 24 74 6f 6b 5d 0a 0a 20 20 1Final $tok]..
53b0: 20 20 20 20 20 20 23 20 49 66 20 77 65 20 6f 70 # If we op
53c0: 65 6e 65 64 20 74 68 65 20 63 68 61 6e 6e 65 6c ened the channel
53d0: 20 2d 20 77 65 20 73 68 6f 75 6c 64 20 63 6c 6f - we should clo
53e0: 73 65 20 69 74 20 74 6f 6f 2e 0a 20 20 20 20 20 se it too..
53f0: 20 20 20 69 66 20 7b 24 6f 70 74 73 28 2d 66 69 if {$opts(-fi
5400: 6c 65 6e 61 6d 65 29 20 21 3d 20 7b 7d 7d 20 7b lename) != {}} {
5410: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f . clo
5420: 73 65 20 24 6f 70 74 73 28 2d 63 68 61 6e 6e 65 se $opts(-channe
5430: 6c 29 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 l). }.
5440: 20 7d 0a 20 20 20 20 0a 20 20 20 20 69 66 20 7b }. . if {
5450: 24 6f 70 74 73 28 2d 68 65 78 29 7d 20 7b 0a 20 $opts(-hex)} {.
5460: 20 20 20 20 20 20 20 73 65 74 20 72 20 5b 48 65 set r [He
5470: 78 20 24 72 5d 0a 20 20 20 20 7d 0a 20 20 20 20 x $r]. }.
5480: 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 20 2d return $r.}..# -
5490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
54a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
54b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
54c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
54d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 70 72 6f 63 20 3a --------..proc :
54e0: 3a 73 68 61 31 3a 3a 68 6d 61 63 20 7b 61 72 67 :sha1::hmac {arg
54f0: 73 7d 20 7b 0a 20 20 20 20 61 72 72 61 79 20 73 s} {. array s
5500: 65 74 20 6f 70 74 73 20 7b 2d 68 65 78 20 31 20 et opts {-hex 1
5510: 2d 66 69 6c 65 6e 61 6d 65 20 7b 7d 20 2d 63 68 -filename {} -ch
5520: 61 6e 6e 65 6c 20 7b 7d 20 2d 63 68 75 6e 6b 73 annel {} -chunks
5530: 69 7a 65 20 34 30 39 36 7d 0a 20 20 20 20 69 66 ize 4096}. if
5540: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 {[llength $args
5550: 5d 20 21 3d 20 32 7d 20 7b 0a 20 20 20 20 20 20 ] != 2} {.
5560: 20 20 77 68 69 6c 65 20 7b 5b 73 74 72 69 6e 67 while {[string
5570: 20 6d 61 74 63 68 20 2d 2a 20 5b 73 65 74 20 6f match -* [set o
5580: 70 74 69 6f 6e 20 5b 6c 69 6e 64 65 78 20 24 61 ption [lindex $a
5590: 72 67 73 20 30 5d 5d 5d 7d 20 7b 0a 20 20 20 20 rgs 0]]]} {.
55a0: 20 20 20 20 20 20 20 20 73 77 69 74 63 68 20 2d switch -
55b0: 67 6c 6f 62 20 2d 2d 20 24 6f 70 74 69 6f 6e 20 glob -- $option
55c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
55d0: 20 20 2d 6b 65 79 20 20 20 20 20 20 20 7b 20 73 -key { s
55e0: 65 74 20 6f 70 74 73 28 2d 6b 65 79 29 20 5b 50 et opts(-key) [P
55f0: 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 20 op args 1] }.
5600: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 68 65 -he
5610: 78 20 20 20 20 20 20 20 7b 20 73 65 74 20 6f 70 x { set op
5620: 74 73 28 2d 68 65 78 29 20 31 20 7d 0a 20 20 20 ts(-hex) 1 }.
5630: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 62 69 -bi
5640: 6e 20 20 20 20 20 20 20 7b 20 73 65 74 20 6f 70 n { set op
5650: 74 73 28 2d 68 65 78 29 20 30 20 7d 0a 20 20 20 ts(-hex) 0 }.
5660: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 66 69 -fi
5670: 6c 65 2a 20 20 20 20 20 7b 20 73 65 74 20 6f 70 le* { set op
5680: 74 73 28 2d 66 69 6c 65 6e 61 6d 65 29 20 5b 50 ts(-filename) [P
5690: 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 20 op args 1] }.
56a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 63 68 -ch
56b0: 61 6e 6e 65 6c 20 20 20 7b 20 73 65 74 20 6f 70 annel { set op
56c0: 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20 5b 50 6f ts(-channel) [Po
56d0: 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 20 20 p args 1] }.
56e0: 20 20 20 20 20 20 20 20 20 20 20 20 2d 63 68 75 -chu
56f0: 6e 6b 73 69 7a 65 20 7b 20 73 65 74 20 6f 70 74 nksize { set opt
5700: 73 28 2d 63 68 75 6e 6b 73 69 7a 65 29 20 5b 50 s(-chunksize) [P
5710: 6f 70 20 61 72 67 73 20 31 5d 20 7d 0a 20 20 20 op args 1] }.
5720: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 def
5730: 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20 20 20 ault {.
5740: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b if {[
5750: 6c 6c 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3d llength $args] =
5760: 3d 20 31 7d 20 7b 20 62 72 65 61 6b 20 7d 0a 20 = 1} { break }.
5770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5780: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 63 if {[string c
5790: 6f 6d 70 61 72 65 20 24 6f 70 74 69 6f 6e 20 22 ompare $option "
57a0: 2d 2d 22 5d 20 3d 3d 20 30 7d 20 7b 20 50 6f 70 --"] == 0} { Pop
57b0: 20 61 72 67 73 3b 20 62 72 65 61 6b 20 7d 0a 20 args; break }.
57c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
57d0: 20 20 20 73 65 74 20 65 72 72 20 5b 6a 6f 69 6e set err [join
57e0: 20 5b 6c 73 6f 72 74 20 5b 61 72 72 61 79 20 6e [lsort [array n
57f0: 61 6d 65 73 20 6f 70 74 73 5d 5d 20 22 2c 20 22 ames opts]] ", "
5800: 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ].
5810: 20 20 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f return -co
5820: 64 65 20 65 72 72 6f 72 20 22 62 61 64 20 6f 70 de error "bad op
5830: 74 69 6f 6e 20 24 6f 70 74 69 6f 6e 3a 5c 0a 20 tion $option:\.
5840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5850: 20 20 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f must be one o
5860: 66 20 24 65 72 72 22 0a 20 20 20 20 20 20 20 20 f $err".
5870: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
5880: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
5890: 20 20 20 20 50 6f 70 20 61 72 67 73 0a 20 20 20 Pop args.
58a0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20 }. }..
58b0: 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 if {[llength $
58c0: 61 72 67 73 5d 20 3d 3d 20 32 7d 20 7b 0a 20 20 args] == 2} {.
58d0: 20 20 20 20 20 20 73 65 74 20 6f 70 74 73 28 2d set opts(-
58e0: 6b 65 79 29 20 5b 50 6f 70 20 61 72 67 73 5d 0a key) [Pop args].
58f0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b 21 }.. if {!
5900: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6f 70 74 [info exists opt
5910: 73 28 2d 6b 65 79 29 5d 7d 20 7b 0a 20 20 20 20 s(-key)]} {.
5920: 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 return -code
5930: 20 65 72 72 6f 72 20 22 77 72 6f 6e 67 20 23 20 error "wrong #
5940: 61 72 67 73 3a 5c 0a 20 20 20 20 20 20 20 20 20 args:\.
5950: 20 20 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 68 should be \"h
5960: 6d 61 63 20 3f 2d 68 65 78 3f 20 2d 6b 65 79 20 mac ?-hex? -key
5970: 6b 65 79 20 2d 66 69 6c 65 6e 61 6d 65 20 66 69 key -filename fi
5980: 6c 65 20 7c 20 73 74 72 69 6e 67 5c 22 22 0a 20 le | string\"".
5990: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b 24 6f }.. if {$o
59a0: 70 74 73 28 2d 66 69 6c 65 6e 61 6d 65 29 20 21 pts(-filename) !
59b0: 3d 20 7b 7d 7d 20 7b 0a 20 20 20 20 20 20 20 20 = {}} {.
59c0: 73 65 74 20 6f 70 74 73 28 2d 63 68 61 6e 6e 65 set opts(-channe
59d0: 6c 29 20 5b 6f 70 65 6e 20 24 6f 70 74 73 28 2d l) [open $opts(-
59e0: 66 69 6c 65 6e 61 6d 65 29 20 72 5d 0a 20 20 20 filename) r].
59f0: 20 20 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20 fconfigure
5a00: 24 6f 70 74 73 28 2d 63 68 61 6e 6e 65 6c 29 20 $opts(-channel)
5a10: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e -translation bin
5a20: 61 72 79 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 ary. }.. i
5a30: 66 20 7b 24 6f 70 74 73 28 2d 63 68 61 6e 6e 65 f {$opts(-channe
5a40: 6c 29 20 3d 3d 20 7b 7d 7d 20 7b 0a 0a 20 20 20 l) == {}} {..
5a50: 20 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 if {[llengt
5a60: 68 20 24 61 72 67 73 5d 20 21 3d 20 31 7d 20 7b h $args] != 1} {
5a70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
5a80: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
5a90: 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 5c 0a "wrong # args:\.
5aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5ab0: 73 68 6f 75 6c 64 20 62 65 20 5c 22 68 6d 61 63 should be \"hmac
5ac0: 20 3f 2d 68 65 78 3f 20 2d 6b 65 79 20 6b 65 79 ?-hex? -key key
5ad0: 20 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 20 -filename file
5ae0: 7c 20 73 74 72 69 6e 67 5c 22 22 0a 20 20 20 20 | string\"".
5af0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 73 65 }. se
5b00: 74 20 74 6f 6b 20 5b 48 4d 41 43 49 6e 69 74 20 t tok [HMACInit
5b10: 24 6f 70 74 73 28 2d 6b 65 79 29 5d 0a 20 20 20 $opts(-key)].
5b20: 20 20 20 20 20 48 4d 41 43 55 70 64 61 74 65 20 HMACUpdate
5b30: 24 74 6f 6b 20 5b 6c 69 6e 64 65 78 20 24 61 72 $tok [lindex $ar
5b40: 67 73 20 30 5d 0a 20 20 20 20 20 20 20 20 73 65 gs 0]. se
5b50: 74 20 72 20 5b 48 4d 41 43 46 69 6e 61 6c 20 24 t r [HMACFinal $
5b60: 74 6f 6b 5d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 tok].. } else
5b70: 20 7b 0a 0a 20 20 20 20 20 20 20 20 73 65 74 20 {.. set
5b80: 74 6f 6b 20 5b 48 4d 41 43 49 6e 69 74 20 24 6f tok [HMACInit $o
5b90: 70 74 73 28 2d 6b 65 79 29 5d 0a 20 20 20 20 20 pts(-key)].
5ba0: 20 20 20 23 20 46 52 49 4e 4b 3a 20 6e 6f 63 68 # FRINK: noch
5bb0: 65 63 6b 0a 20 20 20 20 20 20 20 20 73 65 74 20 eck. set
5bc0: 5b 73 75 62 73 74 20 24 74 6f 6b 5d 28 72 65 61 [subst $tok](rea
5bd0: 64 69 6e 67 29 20 31 0a 20 20 20 20 20 20 20 20 ding) 1.
5be0: 66 69 6c 65 65 76 65 6e 74 20 24 6f 70 74 73 28 fileevent $opts(
5bf0: 2d 63 68 61 6e 6e 65 6c 29 20 72 65 61 64 61 62 -channel) readab
5c00: 6c 65 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 le \.
5c10: 20 5b 6c 69 73 74 20 5b 6e 61 6d 65 73 70 61 63 [list [namespac
5c20: 65 20 6f 72 69 67 69 6e 20 43 68 75 6e 6b 5d 20 e origin Chunk]
5c30: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 \.
5c40: 20 20 20 24 74 6f 6b 20 24 6f 70 74 73 28 2d 63 $tok $opts(-c
5c50: 68 61 6e 6e 65 6c 29 20 24 6f 70 74 73 28 2d 63 hannel) $opts(-c
5c60: 68 75 6e 6b 73 69 7a 65 29 5d 0a 20 20 20 20 20 hunksize)].
5c70: 20 20 20 23 20 46 52 49 4e 4b 3a 20 6e 6f 63 68 # FRINK: noch
5c80: 65 63 6b 0a 20 20 20 20 20 20 20 20 76 77 61 69 eck. vwai
5c90: 74 20 5b 73 75 62 73 74 20 24 74 6f 6b 5d 28 72 t [subst $tok](r
5ca0: 65 61 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 eading).
5cb0: 73 65 74 20 72 20 5b 48 4d 41 43 46 69 6e 61 6c set r [HMACFinal
5cc0: 20 24 74 6f 6b 5d 0a 0a 20 20 20 20 20 20 20 20 $tok]..
5cd0: 23 20 49 66 20 77 65 20 6f 70 65 6e 65 64 20 74 # If we opened t
5ce0: 68 65 20 63 68 61 6e 6e 65 6c 20 2d 20 77 65 20 he channel - we
5cf0: 73 68 6f 75 6c 64 20 63 6c 6f 73 65 20 69 74 20 should close it
5d00: 74 6f 6f 2e 0a 20 20 20 20 20 20 20 20 69 66 20 too.. if
5d10: 7b 24 6f 70 74 73 28 2d 66 69 6c 65 6e 61 6d 65 {$opts(-filename
5d20: 29 20 21 3d 20 7b 7d 7d 20 7b 0a 20 20 20 20 20 ) != {}} {.
5d30: 20 20 20 20 20 20 20 63 6c 6f 73 65 20 24 6f 70 close $op
5d40: 74 73 28 2d 63 68 61 6e 6e 65 6c 29 0a 20 20 20 ts(-channel).
5d50: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 }. }.
5d60: 20 0a 20 20 20 20 69 66 20 7b 24 6f 70 74 73 28 . if {$opts(
5d70: 2d 68 65 78 29 7d 20 7b 0a 20 20 20 20 20 20 20 -hex)} {.
5d80: 20 73 65 74 20 72 20 5b 48 65 78 20 24 72 5d 0a set r [Hex $r].
5d90: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
5da0: 20 24 72 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d $r.}..# -------
5db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dc0: 2d 2d 2d 2d 2d 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 0a 0a 23 20 54 72 79 20 61 6e 64 20 6c 6f --..# Try and lo
5e00: 61 64 20 61 20 63 6f 6d 70 69 6c 65 64 20 65 78 ad a compiled ex
5e10: 74 65 6e 73 69 6f 6e 20 74 6f 20 68 65 6c 70 2e tension to help.
5e20: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
5e30: 3a 3a 73 68 61 31 20 7b 0a 20 20 20 20 76 61 72 ::sha1 {. var
5e40: 69 61 62 6c 65 20 65 20 7b 7d 0a 20 20 20 20 66 iable e {}. f
5e50: 6f 72 65 61 63 68 20 65 20 5b 4b 6e 6f 77 6e 49 oreach e [KnownI
5e60: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 5d 20 mplementations]
5e70: 7b 0a 09 69 66 20 7b 5b 4c 6f 61 64 41 63 63 65 {..if {[LoadAcce
5e80: 6c 65 72 61 74 6f 72 20 24 65 5d 7d 20 7b 0a 09 lerator $e]} {..
5e90: 20 20 20 20 53 77 69 74 63 68 54 6f 20 24 65 0a SwitchTo $e.
5ea0: 09 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a 20 20 . break..}.
5eb0: 20 20 7d 0a 20 20 20 20 75 6e 73 65 74 20 65 0a }. unset e.
5ec0: 7d 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 }..package provi
5ed0: 64 65 20 73 68 61 31 20 24 3a 3a 73 68 61 31 3a de sha1 $::sha1:
5ee0: 3a 76 65 72 73 69 6f 6e 0a 0a 23 20 2d 2d 2d 2d :version..# ----
5ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f30: 2d 2d 2d 2d 2d 0a 23 20 4c 6f 63 61 6c 20 56 61 -----.# Local Va
5f40: 72 69 61 62 6c 65 73 3a 0a 23 20 20 20 6d 6f 64 riables:.# mod
5f50: 65 3a 20 74 63 6c 0a 23 20 20 20 69 6e 64 65 6e e: tcl.# inden
5f60: 74 2d 74 61 62 73 2d 6d 6f 64 65 3a 20 6e 69 6c t-tabs-mode: nil
5f70: 0a 23 20 45 6e 64 3a 0a .# End:.