Hex Artifact Content

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:.