TclTLS: Hex Artifact Content

Artifact 6534eaf1399f8c3c9b6161f7910d52938df0bc778ec0f722b04bb6cee4afe5b2:

File tests/test_vectors/Hash/SHA1ShortMsg.test — part of check-in [25db067636] at 2023-12-19 05:53:21 on branch crypto — Added test vectors files for hash functions. Added test files and make script to generate TCL test cases from test vector files. These files come from NIST, IETC, etc. documents, examples, etc. (user: bohagan, size: 18666) [annotate] [blame] [check-ins using]
0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64  # Auto generated
0010: 20 66 72 6f 6d 20 22 53 48 41 31 53 68 6f 72 74   from "SHA1Short
0020: 4d 73 67 2e 72 73 70 22 0a 70 61 63 6b 61 67 65  Msg.rsp".package
0030: 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63   require tls.pac
0040: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c  kage require tcl
0050: 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  test..tcltest::t
0060: 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20 53 48  estConstraint SH
0070: 41 31 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72  A1 [expr {[lsear
0080: 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73 3a  ch -nocase [tls:
0090: 3a 64 69 67 65 73 74 73 5d 20 53 48 41 31 5d 20  :digests] SHA1] 
00a0: 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a  > -1}]..tcltest:
00b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
00c0: 32 2e 31 20 7b 53 48 41 31 53 68 6f 72 74 4d 73  2.1 {SHA1ShortMs
00d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
00e0: 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75  ts SHA1 \..-setu
00f0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20  p {set data ""} 
0100: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0110: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0120: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
0130: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0140: 2d 72 65 73 75 6c 74 20 64 61 33 39 61 33 65 65  -result da39a3ee
0150: 35 65 36 62 34 62 30 64 33 32 35 35 62 66 65 66  5e6b4b0d3255bfef
0160: 39 35 36 30 31 38 39 30 61 66 64 38 30 37 30 39  95601890afd80709
0170: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0180: 48 61 73 68 5f 53 48 41 31 2d 32 2e 32 20 7b 53  Hash_SHA1-2.2 {S
0190: 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  HA1ShortMsg} \..
01a0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
01b0: 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  1 \..-setup {set
01c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
01d0: 63 6f 64 65 20 68 65 78 20 33 36 5d 7d 20 5c 0a  code hex 36]} \.
01e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
01f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 31  est -digest SHA1
0200: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0210: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0220: 65 73 75 6c 74 20 63 31 64 66 64 39 36 65 65 61  esult c1dfd96eea
0230: 38 63 63 32 62 36 32 37 38 35 32 37 35 62 63 61  8cc2b62785275bca
0240: 33 38 61 63 32 36 31 32 35 36 65 32 37 38 0a 0a  38ac261256e278..
0250: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0260: 73 68 5f 53 48 41 31 2d 32 2e 33 20 7b 53 48 41  sh_SHA1-2.3 {SHA
0270: 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  1ShortMsg} \..-c
0280: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 20  onstraints SHA1 
0290: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
02a0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
02b0: 64 65 20 68 65 78 20 31 39 35 61 5d 7d 20 5c 0a  de hex 195a]} \.
02c0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
02d0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 31  est -digest SHA1
02e0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
02f0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0300: 65 73 75 6c 74 20 30 61 31 63 32 64 35 35 35 62  esult 0a1c2d555b
0310: 62 65 34 33 31 61 64 36 32 38 38 61 66 35 61 35  be431ad6288af5a5
0320: 34 66 39 33 65 30 34 34 39 63 39 32 33 32 0a 0a  4f93e0449c9232..
0330: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0340: 73 68 5f 53 48 41 31 2d 32 2e 34 20 7b 53 48 41  sh_SHA1-2.4 {SHA
0350: 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  1ShortMsg} \..-c
0360: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 20  onstraints SHA1 
0370: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
0380: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
0390: 64 65 20 68 65 78 20 64 66 34 62 64 32 5d 7d 20  de hex df4bd2]} 
03a0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
03b0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
03c0: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
03d0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
03e0: 2d 72 65 73 75 6c 74 20 62 66 33 36 65 64 35 64  -result bf36ed5d
03f0: 37 34 37 32 37 64 66 64 35 64 37 38 35 34 65 63  74727dfd5d7854ec
0400: 36 62 31 64 34 39 34 36 38 64 38 65 65 38 61 61  6b1d49468d8ee8aa
0410: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0420: 48 61 73 68 5f 53 48 41 31 2d 32 2e 35 20 7b 53  Hash_SHA1-2.5 {S
0430: 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  HA1ShortMsg} \..
0440: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0450: 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  1 \..-setup {set
0460: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0470: 63 6f 64 65 20 68 65 78 20 35 34 39 65 39 35 39  code hex 549e959
0480: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
0490: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
04a0: 74 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61  t SHA1 -data $da
04b0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
04c0: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 37 38 62  act -result b78b
04d0: 61 65 36 64 31 34 33 33 38 66 66 63 63 66 64 35  ae6d14338ffccfd5
04e0: 64 35 62 35 36 37 34 61 32 37 35 66 36 65 66 39  d5b5674a275f6ef9
04f0: 63 37 31 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  c717..tcltest::t
0500: 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e  est Hash_SHA1-2.
0510: 36 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  6 {SHA1ShortMsg}
0520: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0530: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
0540: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0550: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 37 66  y decode hex f7f
0560: 62 31 62 65 32 30 35 5d 7d 20 5c 0a 09 2d 62 6f  b1be205]} \..-bo
0570: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0580: 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 61  -digest SHA1 -da
0590: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
05a0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
05b0: 74 20 36 30 62 37 64 35 62 62 35 36 30 61 31 61  t 60b7d5bb560a1a
05c0: 63 66 36 66 61 34 35 37 32 31 62 64 30 61 62 62  cf6fa45721bd0abb
05d0: 34 31 39 61 38 34 31 61 38 39 0a 0a 74 63 6c 74  419a841a89..tclt
05e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
05f0: 48 41 31 2d 32 2e 37 20 7b 53 48 41 31 53 68 6f  HA1-2.7 {SHA1Sho
0600: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0610: 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d  raints SHA1 \..-
0620: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0630: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0640: 65 78 20 63 30 65 35 61 62 65 61 65 61 36 33 5d  ex c0e5abeaea63]
0650: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0660: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0670: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
0680: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0690: 74 20 2d 72 65 73 75 6c 74 20 61 36 64 33 33 38  t -result a6d338
06a0: 34 35 39 37 38 30 63 30 38 33 36 33 30 39 30 66  459780c08363090f
06b0: 64 38 66 63 37 64 32 38 64 63 38 30 65 38 65 30  d8fc7d28dc80e8e0
06c0: 31 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  1f..tcltest::tes
06d0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 38 20  t Hash_SHA1-2.8 
06e0: 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c  {SHA1ShortMsg} \
06f0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0700: 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  HA1 \..-setup {s
0710: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
0720: 64 65 63 6f 64 65 20 68 65 78 20 36 33 62 66 63  decode hex 63bfc
0730: 31 65 64 37 66 37 38 61 62 5d 7d 20 5c 0a 09 2d  1ed7f78ab]} \..-
0740: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0750: 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d  t -digest SHA1 -
0760: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0770: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0780: 75 6c 74 20 38 36 30 33 32 38 64 38 30 35 30 39  ult 860328d80509
0790: 35 30 30 63 31 37 38 33 31 36 39 65 62 66 30 62  500c1783169ebf0b
07a0: 61 30 63 34 62 39 34 64 61 35 65 35 0a 0a 74 63  a0c4b94da5e5..tc
07b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
07c0: 5f 53 48 41 31 2d 32 2e 39 20 7b 53 48 41 31 53  _SHA1-2.9 {SHA1S
07d0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
07e0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
07f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0800: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0810: 20 68 65 78 20 37 65 33 64 37 62 33 65 61 64 61   hex 7e3d7b3eada
0820: 39 38 38 36 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  98866]} \..-body
0830: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0840: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
0850: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0860: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0870: 32 34 61 32 63 33 34 62 39 37 36 33 30 35 32 37  24a2c34b97630527
0880: 37 63 65 35 38 63 32 66 34 32 64 35 30 39 32 30  7ce58c2f42d50920
0890: 33 31 35 37 32 35 32 30 0a 0a 74 63 6c 74 65 73  31572520..tcltes
08a0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
08b0: 31 2d 32 2e 31 30 20 7b 53 48 41 31 53 68 6f 72  1-2.10 {SHA1Shor
08c0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
08d0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
08e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
08f0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0900: 78 20 39 65 36 31 65 35 35 64 39 65 64 33 37 62  x 9e61e55d9ed37b
0910: 31 63 32 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1c20]} \..-body 
0920: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0930: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
0940: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0950: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34   exact -result 4
0960: 31 31 63 63 65 65 31 66 36 65 33 36 37 37 64 66  11ccee1f6e3677df
0970: 31 32 36 39 38 34 31 31 65 62 30 39 64 33 66 66  12698411eb09d3ff
0980: 35 38 30 61 66 39 37 0a 0a 74 63 6c 74 65 73 74  580af97..tcltest
0990: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
09a0: 2d 32 2e 31 31 20 7b 53 48 41 31 53 68 6f 72 74  -2.11 {SHA1Short
09b0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
09c0: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
09d0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
09e0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
09f0: 20 39 37 37 37 63 66 39 30 64 64 37 63 37 65 38   9777cf90dd7c7e8
0a00: 36 33 35 30 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  63506]} \..-body
0a10: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0a20: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
0a30: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0a40: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0a50: 30 35 63 39 31 35 62 35 65 64 34 65 34 63 34 61  05c915b5ed4e4c4a
0a60: 66 66 66 63 32 30 32 39 36 31 66 33 31 37 34 33  fffc202961f31743
0a70: 37 31 65 39 30 62 35 63 0a 0a 74 63 6c 74 65 73  71e90b5c..tcltes
0a80: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0a90: 31 2d 32 2e 31 32 20 7b 53 48 41 31 53 68 6f 72  1-2.12 {SHA1Shor
0aa0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
0ab0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
0ac0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0ad0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0ae0: 78 20 34 65 62 30 38 63 39 65 36 38 33 63 39 34  x 4eb08c9e683c94
0af0: 62 65 61 30 30 64 66 61 5d 7d 20 5c 0a 09 2d 62  bea00dfa]} \..-b
0b00: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0b10: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
0b20: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0b30: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0b40: 6c 74 20 61 66 33 32 30 62 34 32 64 37 37 38 35  lt af320b42d7785
0b50: 63 61 36 63 38 64 64 32 32 30 34 36 33 62 65 32  ca6c8dd220463be2
0b60: 33 61 32 64 32 63 62 35 61 66 63 0a 0a 74 63 6c  3a2d2cb5afc..tcl
0b70: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0b80: 53 48 41 31 2d 32 2e 31 33 20 7b 53 48 41 31 53  SHA1-2.13 {SHA1S
0b90: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0ba0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
0bb0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0bc0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0bd0: 20 68 65 78 20 30 39 33 38 66 32 65 32 65 62 62   hex 0938f2e2ebb
0be0: 36 34 66 38 61 66 38 62 62 66 63 39 31 5d 7d 20  64f8af8bbfc91]} 
0bf0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0c00: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0c10: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
0c20: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0c30: 2d 72 65 73 75 6c 74 20 39 66 34 65 36 36 62 36  -result 9f4e66b6
0c40: 63 65 65 61 34 30 64 63 66 34 62 39 31 36 36 63  ceea40dcf4b9166c
0c50: 32 38 66 31 63 38 38 34 37 34 31 34 31 64 61 39  28f1c88474141da9
0c60: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0c70: 48 61 73 68 5f 53 48 41 31 2d 32 2e 31 34 20 7b  Hash_SHA1-2.14 {
0c80: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
0c90: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0ca0: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
0cb0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0cc0: 65 63 6f 64 65 20 68 65 78 20 37 34 63 39 39 39  ecode hex 74c999
0cd0: 36 64 31 34 65 38 37 64 33 65 36 63 62 65 61 37  6d14e87d3e6cbea7
0ce0: 30 32 39 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  029d]} \..-body 
0cf0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0d00: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
0d10: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0d20: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65   exact -result e
0d30: 36 63 34 33 36 33 63 30 38 35 32 39 35 31 39 39  6c4363c085295199
0d40: 31 30 35 37 66 34 30 64 65 32 37 65 63 30 38 39  1057f40de27ec089
0d50: 30 34 36 36 66 30 31 0a 0a 74 63 6c 74 65 73 74  0466f01..tcltest
0d60: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
0d70: 2d 32 2e 31 35 20 7b 53 48 41 31 53 68 6f 72 74  -2.15 {SHA1Short
0d80: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0d90: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
0da0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0db0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0dc0: 20 35 31 64 63 61 35 63 30 66 38 65 35 64 34 39   51dca5c0f8e5d49
0dd0: 35 39 36 66 33 32 64 33 65 62 38 37 34 5d 7d 20  596f32d3eb874]} 
0de0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0df0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0e00: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
0e10: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0e20: 2d 72 65 73 75 6c 74 20 30 34 36 61 37 62 33 39  -result 046a7b39
0e30: 36 63 30 31 33 37 39 61 36 38 34 61 38 39 34 35  6c01379a684a8945
0e40: 35 38 37 37 39 62 30 37 64 38 63 37 64 61 32 30  58779b07d8c7da20
0e50: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0e60: 48 61 73 68 5f 53 48 41 31 2d 32 2e 31 36 20 7b  Hash_SHA1-2.16 {
0e70: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
0e80: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0e90: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
0ea0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0eb0: 65 63 6f 64 65 20 68 65 78 20 33 61 33 36 65 61  ecode hex 3a36ea
0ec0: 34 39 36 38 34 38 32 30 61 32 61 64 63 37 66 63  49684820a2adc7fc
0ed0: 34 31 37 35 62 61 37 38 5d 7d 20 5c 0a 09 2d 62  4175ba78]} \..-b
0ee0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0ef0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
0f00: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0f10: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0f20: 6c 74 20 64 35 38 61 32 36 32 65 65 37 62 36 35  lt d58a262ee7b65
0f30: 37 37 63 30 37 32 32 38 65 37 31 61 65 39 62 33  77c07228e71ae9b3
0f40: 65 30 34 63 38 61 62 63 64 61 39 0a 0a 74 63 6c  e04c8abcda9..tcl
0f50: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0f60: 53 48 41 31 2d 32 2e 31 37 20 7b 53 48 41 31 53  SHA1-2.17 {SHA1S
0f70: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0f80: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
0f90: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0fa0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0fb0: 20 68 65 78 20 33 35 35 32 36 39 34 63 64 66 36   hex 3552694cdf6
0fc0: 36 33 66 64 39 34 62 32 32 34 37 34 37 61 63 34  63fd94b224747ac4
0fd0: 30 36 61 61 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  06aaf]} \..-body
0fe0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0ff0: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
1000: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1010: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1020: 61 31 35 30 64 65 39 32 37 34 35 34 32 30 32 64  a150de927454202d
1030: 39 34 65 36 35 36 64 65 34 63 37 63 30 63 61 36  94e656de4c7c0ca6
1040: 39 31 64 65 39 35 35 64 0a 0a 74 63 6c 74 65 73  91de955d..tcltes
1050: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1060: 31 2d 32 2e 31 38 20 7b 53 48 41 31 53 68 6f 72  1-2.18 {SHA1Shor
1070: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
1080: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
1090: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
10a0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
10b0: 78 20 66 32 31 36 61 31 63 62 64 65 32 34 34 36  x f216a1cbde2446
10c0: 62 31 65 64 66 34 31 65 39 33 34 38 31 64 33 33  b1edf41e93481d33
10d0: 65 32 65 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e2ed]} \..-body 
10e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
10f0: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
1100: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1110: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33   exact -result 3
1120: 35 61 34 62 33 39 66 65 66 35 36 30 65 37 65 61  5a4b39fef560e7ea
1130: 36 31 32 34 36 36 37 36 65 31 62 37 65 31 33 64  61246676e1b7e13d
1140: 35 38 37 62 65 33 30 0a 0a 74 63 6c 74 65 73 74  587be30..tcltest
1150: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
1160: 2d 32 2e 31 39 20 7b 53 48 41 31 53 68 6f 72 74  -2.19 {SHA1Short
1170: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
1180: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
1190: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
11a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
11b0: 20 61 33 63 66 37 31 34 62 66 31 31 32 36 34 37   a3cf714bf112647
11c0: 65 37 32 37 65 38 63 66 64 34 36 34 39 39 61 63  e727e8cfd46499ac
11d0: 64 33 35 61 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  d35a6]} \..-body
11e0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
11f0: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
1200: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1210: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1220: 37 63 65 36 39 62 31 61 63 64 63 65 35 32 65 61  7ce69b1acdce52ea
1230: 37 64 62 64 33 38 32 35 33 31 66 61 31 61 38 33  7dbd382531fa1a83
1240: 64 66 31 33 63 61 65 37 0a 0a 74 63 6c 74 65 73  df13cae7..tcltes
1250: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1260: 31 2d 32 2e 32 30 20 7b 53 48 41 31 53 68 6f 72  1-2.20 {SHA1Shor
1270: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
1280: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
1290: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
12a0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
12b0: 78 20 31 34 38 64 65 36 34 30 66 33 63 31 31 35  x 148de640f3c115
12c0: 39 31 61 36 66 38 63 35 63 34 38 36 33 32 63 35  91a6f8c5c48632c5
12d0: 66 62 37 39 64 33 62 37 5d 7d 20 5c 0a 09 2d 62  fb79d3b7]} \..-b
12e0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
12f0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1300: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1310: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1320: 6c 74 20 62 34 37 62 65 32 63 36 34 31 32 34 66  lt b47be2c64124f
1330: 61 39 61 31 32 34 61 38 38 37 61 66 39 35 35 31  a9a124a887af9551
1340: 61 37 34 33 35 34 63 61 34 31 31 0a 0a 74 63 6c  a74354ca411..tcl
1350: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
1360: 53 48 41 31 2d 32 2e 32 31 20 7b 53 48 41 31 53  SHA1-2.21 {SHA1S
1370: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1380: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
1390: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
13a0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
13b0: 20 68 65 78 20 36 33 61 33 63 63 38 33 66 64 31   hex 63a3cc83fd1
13c0: 65 63 31 62 36 36 38 30 65 39 39 37 34 61 30 35  ec1b6680e9974a05
13d0: 31 34 65 31 61 39 65 63 65 62 62 36 61 5d 7d 20  14e1a9ecebb6a]} 
13e0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
13f0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1400: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
1410: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
1420: 2d 72 65 73 75 6c 74 20 38 62 62 38 63 30 64 38  -result 8bb8c0d8
1430: 31 35 61 39 63 36 38 61 31 64 32 39 31 30 66 33  15a9c68a1d2910f3
1440: 39 64 39 34 32 36 30 33 64 38 30 37 66 62 63 63  9d942603d807fbcc
1450: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
1460: 48 61 73 68 5f 53 48 41 31 2d 32 2e 32 32 20 7b  Hash_SHA1-2.22 {
1470: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
1480: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1490: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
14a0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
14b0: 65 63 6f 64 65 20 68 65 78 20 38 37 35 61 39 30  ecode hex 875a90
14c0: 39 30 39 61 38 61 66 63 39 32 66 62 37 30 37 30  909a8afc92fb7070
14d0: 30 34 37 65 39 64 30 38 31 65 63 39 32 66 33 64  047e9d081ec92f3d
14e0: 30 38 62 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  08b8]} \..-body 
14f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1500: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
1510: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1520: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
1530: 34 38 36 66 38 37 66 62 38 33 33 65 62 66 30 33  486f87fb833ebf03
1540: 32 38 33 39 33 31 32 38 36 34 36 61 36 66 36 65  28393128646a6f6e
1550: 36 36 30 66 63 62 31 0a 0a 74 63 6c 74 65 73 74  660fcb1..tcltest
1560: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
1570: 2d 32 2e 32 33 20 7b 53 48 41 31 53 68 6f 72 74  -2.23 {SHA1Short
1580: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
1590: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
15a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
15b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
15c0: 20 34 34 34 62 32 35 66 39 63 39 32 35 39 64 63   444b25f9c9259dc
15d0: 32 31 37 37 37 32 63 63 34 34 37 38 63 34 34 62  217772cc4478c44b
15e0: 36 66 65 66 66 36 32 33 35 33 36 37 33 5d 7d 20  6feff62353673]} 
15f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1600: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1610: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
1620: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
1630: 2d 72 65 73 75 6c 74 20 37 36 31 35 39 33 36 38  -result 76159368
1640: 66 39 39 64 65 63 65 33 30 61 61 64 63 66 62 39  f99dece30aadcfb9
1650: 62 37 62 34 31 64 61 62 33 33 36 38 38 38 35 38  b7b41dab33688858
1660: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
1670: 48 61 73 68 5f 53 48 41 31 2d 32 2e 32 34 20 7b  Hash_SHA1-2.24 {
1680: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
1690: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
16a0: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
16b0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
16c0: 65 63 6f 64 65 20 68 65 78 20 34 38 37 33 35 31  ecode hex 487351
16d0: 63 38 61 35 66 34 34 30 65 34 64 30 33 33 38 36  c8a5f440e4d03386
16e0: 34 38 33 64 35 66 65 37 62 62 36 36 39 64 34 31  483d5fe7bb669d41
16f0: 61 64 63 62 66 64 62 37 5d 7d 20 5c 0a 09 2d 62  adcbfdb7]} \..-b
1700: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1710: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1720: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1730: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1740: 6c 74 20 64 62 63 31 63 62 35 37 35 63 65 36 61  lt dbc1cb575ce6a
1750: 65 62 39 64 63 34 65 62 66 30 66 38 34 33 62 61  eb9dc4ebf0f843ba
1760: 38 61 65 62 31 34 35 31 65 38 39 0a 0a 74 63 6c  8aeb1451e89..tcl
1770: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
1780: 53 48 41 31 2d 32 2e 32 35 20 7b 53 48 41 31 53  SHA1-2.25 {SHA1S
1790: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
17a0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
17b0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
17c0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
17d0: 20 68 65 78 20 34 36 62 30 36 31 65 66 31 33 32   hex 46b061ef132
17e0: 62 38 37 66 36 64 33 62 30 65 65 32 34 36 32 66  b87f6d3b0ee2462f
17f0: 36 37 64 39 31 30 39 37 37 64 61 32 30 61 65 64  67d910977da20aed
1800: 31 33 37 30 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79  13705]} \..-body
1810: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
1820: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
1830: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1840: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1850: 64 37 61 39 38 32 38 39 36 37 39 30 30 35 65 62  d7a98289679005eb
1860: 39 33 30 61 62 37 35 65 66 64 38 66 36 35 30 66  930ab75efd8f650f
1870: 39 39 31 65 65 39 35 32 0a 0a 74 63 6c 74 65 73  991ee952..tcltes
1880: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1890: 31 2d 32 2e 32 36 20 7b 53 48 41 31 53 68 6f 72  1-2.26 {SHA1Shor
18a0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
18b0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
18c0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
18d0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
18e0: 78 20 33 38 34 32 62 36 31 33 37 62 62 39 64 32  x 3842b6137bb9d2
18f0: 37 66 33 63 61 35 62 61 66 65 35 62 62 62 36 32  7f3ca5bafe5bbb62
1900: 38 35 38 33 34 34 66 65 34 62 61 35 63 34 31 35  858344fe4ba5c415
1910: 38 39 61 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  89a5]} \..-body 
1920: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1930: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
1940: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1950: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66   exact -result f
1960: 64 61 32 36 66 61 39 62 34 38 37 34 61 62 37 30  da26fa9b4874ab70
1970: 31 65 64 30 62 62 36 34 64 31 33 34 66 38 39 62  1ed0bb64d134f89b
1980: 39 63 34 63 63 35 30 0a 0a 74 63 6c 74 65 73 74  9c4cc50..tcltest
1990: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
19a0: 2d 32 2e 32 37 20 7b 53 48 41 31 53 68 6f 72 74  -2.27 {SHA1Short
19b0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
19c0: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
19d0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
19e0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
19f0: 20 34 34 64 39 31 64 33 64 34 36 35 61 34 31 31   44d91d3d465a411
1a00: 31 34 36 32 62 61 30 63 37 65 63 32 32 33 64 61  1462ba0c7ec223da
1a10: 36 37 33 35 66 34 66 35 32 30 30 34 35 33 63 66  6735f4f5200453cf
1a20: 31 33 32 63 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79  132c3]} \..-body
1a30: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
1a40: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
1a50: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1a60: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1a70: 63 32 66 66 37 63 63 64 65 31 34 33 63 38 66 30  c2ff7ccde143c8f0
1a80: 36 30 31 66 36 39 37 34 62 31 39 30 33 65 62 38  601f6974b1903eb8
1a90: 64 35 37 34 31 62 36 65 0a 0a 74 63 6c 74 65 73  d5741b6e..tcltes
1aa0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1ab0: 31 2d 32 2e 32 38 20 7b 53 48 41 31 53 68 6f 72  1-2.28 {SHA1Shor
1ac0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
1ad0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
1ae0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
1af0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
1b00: 78 20 63 63 65 37 33 66 32 65 61 62 63 62 35 32  x cce73f2eabcb52
1b10: 66 37 38 35 64 35 61 36 64 66 36 33 63 30 61 31  f785d5a6df63c0a1
1b20: 30 35 66 33 34 61 39 31 63 61 32 33 37 66 65 35  05f34a91ca237fe5
1b30: 33 34 65 65 33 39 39 64 5d 7d 20 5c 0a 09 2d 62  34ee399d]} \..-b
1b40: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1b50: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1b60: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1b70: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1b80: 6c 74 20 36 34 33 63 39 64 63 32 30 61 39 32 39  lt 643c9dc20a929
1b90: 36 30 38 66 36 63 61 61 39 37 30 39 64 38 34 33  608f6caa9709d843
1ba0: 63 61 36 66 61 37 61 37 36 66 34 0a 0a 74 63 6c  ca6fa7a76f4..tcl
1bb0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
1bc0: 53 48 41 31 2d 32 2e 32 39 20 7b 53 48 41 31 53  SHA1-2.29 {SHA1S
1bd0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1be0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
1bf0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1c00: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1c10: 20 68 65 78 20 36 36 34 65 36 65 37 39 34 36 38   hex 664e6e79468
1c20: 33 39 32 30 33 30 33 37 61 36 35 61 31 32 31 37  39203037a65a1217
1c30: 34 62 32 34 34 64 65 38 63 62 63 36 65 63 33 66  4b244de8cbc6ec3f
1c40: 35 37 38 39 36 37 61 38 34 66 39 63 65 5d 7d 20  578967a84f9ce]} 
1c50: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1c60: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1c70: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
1c80: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
1c90: 2d 72 65 73 75 6c 74 20 35 30 39 65 66 37 38 37  -result 509ef787
1ca0: 33 34 33 64 35 62 35 61 32 36 39 32 32 39 62 39  343d5b5a269229b9
1cb0: 36 31 62 39 36 32 34 31 38 36 34 61 33 64 37 34  61b96241864a3d74
1cc0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
1cd0: 48 61 73 68 5f 53 48 41 31 2d 32 2e 33 30 20 7b  Hash_SHA1-2.30 {
1ce0: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
1cf0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1d00: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
1d10: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1d20: 65 63 6f 64 65 20 68 65 78 20 39 35 39 37 66 37  ecode hex 9597f7
1d30: 31 34 62 32 65 34 35 65 33 33 39 39 61 37 66 30  14b2e45e3399a7f0
1d40: 32 61 65 63 34 34 39 32 31 62 64 37 38 62 65 30  2aec44921bd78be0
1d50: 66 65 66 65 65 30 63 35 65 39 62 34 39 39 34 38  fefee0c5e9b49948
1d60: 38 66 36 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8f6e]} \..-body 
1d70: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1d80: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
1d90: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1da0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
1db0: 36 31 63 65 35 33 38 66 31 61 31 65 36 63 39 30  61ce538f1a1e6c90
1dc0: 34 33 32 62 32 33 33 64 37 61 66 35 62 36 35 32  432b233d7af5b652
1dd0: 34 65 62 66 62 65 33 0a 0a 74 63 6c 74 65 73 74  4ebfbe3..tcltest
1de0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
1df0: 2d 32 2e 33 31 20 7b 53 48 41 31 53 68 6f 72 74  -2.31 {SHA1Short
1e00: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
1e10: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
1e20: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1e30: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1e40: 20 37 35 63 35 61 64 31 66 33 63 62 64 32 32 65   75c5ad1f3cbd22e
1e50: 38 61 39 35 66 63 33 62 30 38 39 35 32 36 37 38  8a95fc3b08952678
1e60: 38 66 62 34 65 62 63 65 65 64 33 65 37 64 34 34  8fb4ebceed3e7d44
1e70: 34 33 64 61 36 65 30 38 31 61 33 35 65 5d 7d 20  43da6e081a35e]} 
1e80: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1e90: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1ea0: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
1eb0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
1ec0: 2d 72 65 73 75 6c 74 20 35 62 37 62 39 34 30 37  -result 5b7b9407
1ed0: 36 62 32 66 63 32 30 64 36 61 64 62 38 32 34 37  6b2fc20d6adb8247
1ee0: 39 65 36 62 32 38 64 30 37 63 39 30 32 62 37 35  9e6b28d07c902b75
1ef0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
1f00: 48 61 73 68 5f 53 48 41 31 2d 32 2e 33 32 20 7b  Hash_SHA1-2.32 {
1f10: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
1f20: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1f30: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
1f40: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1f50: 65 63 6f 64 65 20 68 65 78 20 64 64 32 34 35 62  ecode hex dd245b
1f60: 66 66 65 36 61 36 33 38 38 30 36 36 36 37 37 36  ffe6a63880666776
1f70: 38 33 36 30 61 39 35 64 30 35 37 34 65 31 61 30  8360a95d0574e1a0
1f80: 62 64 30 64 31 38 33 32 39 66 64 62 39 31 35 63  bd0d18329fdb915c
1f90: 61 34 38 34 61 63 30 64 5d 7d 20 5c 0a 09 2d 62  a484ac0d]} \..-b
1fa0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1fb0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1fc0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1fd0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1fe0: 6c 74 20 36 30 36 36 64 62 39 39 66 63 33 35 38  lt 6066db99fc358
1ff0: 39 35 32 63 66 37 66 62 30 65 63 34 64 38 39 63  952cf7fb0ec4d89c
2000: 62 30 31 35 38 65 64 39 31 64 37 0a 0a 74 63 6c  b0158ed91d7..tcl
2010: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
2020: 53 48 41 31 2d 32 2e 33 33 20 7b 53 48 41 31 53  SHA1-2.33 {SHA1S
2030: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2040: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
2050: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2060: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
2070: 20 68 65 78 20 30 33 32 31 37 39 34 62 37 33 39   hex 0321794b739
2080: 34 31 38 63 32 34 65 37 63 32 65 35 36 35 32 37  418c24e7c2e56527
2090: 34 37 39 31 63 34 62 65 37 34 39 37 35 32 61 64  4791c4be749752ad
20a0: 32 33 34 65 64 35 36 63 62 30 61 36 33 34 37 34  234ed56cb0a63474
20b0: 33 30 63 36 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79  30c6b]} \..-body
20c0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
20d0: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
20e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
20f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2100: 62 38 39 39 36 32 63 39 34 64 36 30 66 36 61 33  b89962c94d60f6a3
2110: 33 32 66 64 36 30 66 36 66 30 37 64 34 66 30 33  32fd60f6f07d4f03
2120: 32 61 35 38 36 62 37 36 0a 0a 74 63 6c 74 65 73  2a586b76..tcltes
2130: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2140: 31 2d 32 2e 33 34 20 7b 53 48 41 31 53 68 6f 72  1-2.34 {SHA1Shor
2150: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
2160: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
2170: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2180: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2190: 78 20 34 63 33 64 63 66 39 35 63 32 66 30 62 35  x 4c3dcf95c2f0b5
21a0: 32 35 38 63 36 35 31 66 63 64 31 64 35 31 62 64  258c651fcd1d51bd
21b0: 31 30 34 32 35 64 36 32 30 33 30 36 37 64 30 37  10425d6203067d07
21c0: 34 38 64 33 37 64 31 33 34 30 64 39 64 64 64 61  48d37d1340d9ddda
21d0: 37 64 62 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7db3]} \..-body 
21e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
21f0: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
2200: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
2210: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31   exact -result 1
2220: 37 62 64 61 38 39 39 63 31 33 64 33 35 34 31 33  7bda899c13d35413
2230: 64 32 35 34 36 32 31 32 62 63 64 38 61 39 33 63  d2546212bcd8a93c
2240: 65 62 30 36 35 37 62 0a 0a 74 63 6c 74 65 73 74  eb0657b..tcltest
2250: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
2260: 2d 32 2e 33 35 20 7b 53 48 41 31 53 68 6f 72 74  -2.35 {SHA1Short
2270: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
2280: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
2290: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
22a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
22b0: 20 62 38 64 31 32 35 38 32 64 32 35 62 34 35 32   b8d12582d25b452
22c0: 39 30 61 36 65 31 62 62 39 35 64 61 34 32 39 62  90a6e1bb95da429b
22d0: 65 66 63 66 64 62 66 35 62 34 64 64 34 31 63 64  efcfdbf5b4dd41cd
22e0: 66 33 33 31 31 64 36 39 38 38 66 61 31 37 63 65  f3311d6988fa17ce
22f0: 63 30 37 32 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79  c0723]} \..-body
2300: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2310: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
2320: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2330: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2340: 62 61 64 63 64 64 35 33 66 64 63 31 34 34 62 38  badcdd53fdc144b8
2350: 62 66 32 63 63 31 65 36 34 64 31 30 66 36 37 36  bf2cc1e64d10f676
2360: 65 65 62 65 36 36 65 64 0a 0a 74 63 6c 74 65 73  eebe66ed..tcltes
2370: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2380: 31 2d 32 2e 33 36 20 7b 53 48 41 31 53 68 6f 72  1-2.36 {SHA1Shor
2390: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
23a0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
23b0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
23c0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
23d0: 78 20 36 66 64 61 39 37 35 32 37 61 36 36 32 35  x 6fda97527a6625
23e0: 35 32 62 65 31 35 65 66 61 65 62 61 33 32 61 33  52be15efaeba32a3
23f0: 61 65 61 34 65 64 34 34 39 61 62 62 35 63 31 65  aea4ed449abb5c1e
2400: 64 38 64 39 62 66 66 66 35 34 34 37 30 38 61 34  d8d9bfff544708a4
2410: 32 35 64 36 39 62 37 32 5d 7d 20 5c 0a 09 2d 62  25d69b72]} \..-b
2420: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2430: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
2440: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2450: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2460: 6c 74 20 30 31 62 34 36 34 36 31 38 30 66 31 66  lt 01b4646180f1f
2470: 36 64 32 65 30 36 62 62 65 32 32 63 32 30 65 35  6d2e06bbe22c20e5
2480: 30 30 33 30 33 32 32 36 37 33 61 0a 0a 74 63 6c  0030322673a..tcl
2490: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
24a0: 53 48 41 31 2d 32 2e 33 37 20 7b 53 48 41 31 53  SHA1-2.37 {SHA1S
24b0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
24c0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
24d0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
24e0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
24f0: 20 68 65 78 20 30 39 66 61 32 37 39 32 61 63 62   hex 09fa2792acb
2500: 62 32 34 31 37 65 38 65 64 32 36 39 30 34 31 63  b2417e8ed269041c
2510: 63 30 33 63 37 37 30 30 36 34 36 36 65 36 65 37  c03c77006466e6e7
2520: 61 65 30 30 32 63 66 33 66 31 61 66 35 35 31 65  ae002cf3f1af551e
2530: 38 63 65 30 62 62 35 30 36 64 37 30 35 5d 7d 20  8ce0bb506d705]} 
2540: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
2550: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
2560: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
2570: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
2580: 2d 72 65 73 75 6c 74 20 31 30 30 31 36 64 63 33  -result 10016dc3
2590: 61 32 37 31 39 66 39 30 33 34 66 66 63 63 36 38  a2719f9034ffcc68
25a0: 39 34 32 36 64 32 38 32 39 32 63 34 32 66 63 39  9426d28292c42fc9
25b0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
25c0: 48 61 73 68 5f 53 48 41 31 2d 32 2e 33 38 20 7b  Hash_SHA1-2.38 {
25d0: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
25e0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
25f0: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
2600: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2610: 65 63 6f 64 65 20 68 65 78 20 35 65 66 61 32 39  ecode hex 5efa29
2620: 38 37 64 61 30 62 61 66 30 61 35 34 64 38 64 37  87da0baf0a54d8d7
2630: 32 38 37 39 32 62 63 66 61 37 30 37 61 31 35 37  28792bcfa707a157
2640: 39 38 64 63 36 36 37 34 33 37 35 34 34 30 36 39  98dc667437544069
2650: 31 34 64 31 63 66 65 33 37 30 39 62 31 33 37 34  14d1cfe3709b1374
2660: 65 61 65 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  eaeb]} \..-body 
2670: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2680: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
2690: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
26a0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39   exact -result 9
26b0: 66 34 32 66 61 32 62 63 65 36 65 66 30 32 31 64  f42fa2bce6ef021d
26c0: 39 33 63 36 62 32 64 39 30 32 32 37 33 37 39 37  93c6b2d902273797
26d0: 65 34 32 36 35 33 35 0a 0a 74 63 6c 74 65 73 74  e426535..tcltest
26e0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
26f0: 2d 32 2e 33 39 20 7b 53 48 41 31 53 68 6f 72 74  -2.39 {SHA1Short
2700: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
2710: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
2720: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2730: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2740: 20 32 38 33 36 64 65 39 39 63 30 66 36 34 31 63   2836de99c0f641c
2750: 64 35 35 65 38 39 66 35 61 66 37 36 36 33 38 39  d55e89f5af766389
2760: 34 37 62 38 32 32 37 33 37 37 65 66 38 38 62 66  47b8227377ef88bf
2770: 62 61 36 36 32 65 35 36 38 32 62 61 62 63 31 65  ba662e5682babc1e
2780: 63 39 36 63 36 39 39 32 62 63 39 61 30 5d 7d 20  c96c6992bc9a0]} 
2790: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
27a0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
27b0: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
27c0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
27d0: 2d 72 65 73 75 6c 74 20 63 64 66 34 38 62 61 63  -result cdf48bac
27e0: 62 66 66 36 66 36 31 35 32 35 31 35 33 32 33 66  bff6f6152515323f
27f0: 39 62 34 33 61 32 38 36 65 30 63 62 38 31 31 33  9b43a286e0cb8113
2800: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
2810: 48 61 73 68 5f 53 48 41 31 2d 32 2e 34 30 20 7b  Hash_SHA1-2.40 {
2820: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
2830: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2840: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
2850: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2860: 65 63 6f 64 65 20 68 65 78 20 34 32 31 34 33 61  ecode hex 42143a
2870: 32 62 39 65 31 64 30 62 33 35 34 64 66 33 32 36  2b9e1d0b354df326
2880: 34 64 30 38 66 37 62 36 30 32 66 35 34 61 61 64  4d08f7b602f54aad
2890: 39 32 32 61 33 64 36 33 30 30 36 64 30 39 37 66  922a3d63006d097f
28a0: 36 38 33 64 63 31 31 62 39 30 31 37 38 34 32 33  683dc11b90178423
28b0: 62 66 66 32 66 37 66 65 5d 7d 20 5c 0a 09 2d 62  bff2f7fe]} \..-b
28c0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
28d0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
28e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
28f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2900: 6c 74 20 62 38 38 66 62 37 35 32 37 34 62 39 62  lt b88fb75274b9b
2910: 30 66 64 35 37 63 30 30 34 35 39 38 38 63 66 63  0fd57c0045988cfc
2920: 65 66 36 63 33 63 65 36 35 35 34 0a 0a 74 63 6c  ef6c3ce6554..tcl
2930: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
2940: 53 48 41 31 2d 32 2e 34 31 20 7b 53 48 41 31 53  SHA1-2.41 {SHA1S
2950: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2960: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
2970: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2980: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
2990: 20 68 65 78 20 65 62 36 30 63 32 38 61 64 38 61   hex eb60c28ad8a
29a0: 65 64 61 38 30 37 64 36 39 65 62 63 38 37 35 35  eda807d69ebc8755
29b0: 32 30 32 34 61 64 38 61 63 61 36 38 32 30 34 66  2024ad8aca68204f
29c0: 31 62 63 64 32 39 64 63 35 61 38 31 64 64 32 32  1bcd29dc5a81dd22
29d0: 38 62 35 39 31 65 32 65 66 62 37 63 34 64 66 37  8b591e2efb7c4df7
29e0: 35 65 66 30 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79  5ef03]} \..-body
29f0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2a00: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
2a10: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2a20: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2a30: 63 30 36 64 33 61 36 61 31 32 64 39 65 38 64 62  c06d3a6a12d9e8db
2a40: 36 32 65 38 63 66 66 34 30 63 61 32 33 38 32 30  62e8cff40ca23820
2a50: 64 36 31 64 38 61 61 37 0a 0a 74 63 6c 74 65 73  d61d8aa7..tcltes
2a60: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2a70: 31 2d 32 2e 34 32 20 7b 53 48 41 31 53 68 6f 72  1-2.42 {SHA1Shor
2a80: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
2a90: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
2aa0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2ab0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2ac0: 78 20 37 64 65 34 62 61 38 35 65 63 35 34 37 34  x 7de4ba85ec5474
2ad0: 37 63 64 63 34 32 62 31 66 32 33 35 34 36 62 37  7cdc42b1f23546b7
2ae0: 65 34 39 30 65 33 31 32 38 30 66 30 36 36 65 35  e490e31280f066e5
2af0: 32 66 61 63 31 31 37 66 64 33 62 30 37 39 32 65  2fac117fd3b0792e
2b00: 34 64 65 36 32 64 35 38 34 33 65 65 39 38 63 37  4de62d5843ee98c7
2b10: 32 30 31 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  2015]} \..-body 
2b20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2b30: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
2b40: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
2b50: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36   exact -result 6
2b60: 65 34 30 66 39 65 38 33 61 34 62 65 39 33 38 37  e40f9e83a4be9387
2b70: 34 62 63 39 37 63 64 65 62 62 38 64 61 36 38 38  4bc97cdebb8da688
2b80: 39 61 65 32 63 37 61 0a 0a 74 63 6c 74 65 73 74  9ae2c7a..tcltest
2b90: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
2ba0: 2d 32 2e 34 33 20 7b 53 48 41 31 53 68 6f 72 74  -2.43 {SHA1Short
2bb0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
2bc0: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
2bd0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2be0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2bf0: 20 65 37 30 36 35 33 36 33 37 62 63 35 65 33 38   e70653637bc5e38
2c00: 38 63 63 64 38 64 63 34 34 65 35 65 61 63 65 33  8ccd8dc44e5eace3
2c10: 36 66 37 33 39 38 66 32 62 61 63 39 39 33 30 34  6f7398f2bac99304
2c20: 32 62 39 62 63 32 66 34 66 62 33 62 30 65 65 37  2b9bc2f4fb3b0ee7
2c30: 65 32 33 61 39 36 34 33 39 64 63 30 31 31 33 34  e23a96439dc01134
2c40: 62 38 63 37 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b8c7d]} \..-body
2c50: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2c60: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
2c70: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2c80: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2c90: 33 65 66 63 39 34 30 63 33 31 32 65 66 30 64 66  3efc940c312ef0df
2ca0: 64 34 65 31 31 34 33 38 31 32 32 34 38 64 62 38  d4e1143812248db8
2cb0: 39 35 34 32 66 36 61 35 0a 0a 74 63 6c 74 65 73  9542f6a5..tcltes
2cc0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2cd0: 31 2d 32 2e 34 34 20 7b 53 48 41 31 53 68 6f 72  1-2.44 {SHA1Shor
2ce0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
2cf0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
2d00: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2d10: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2d20: 78 20 64 64 33 37 62 63 39 66 30 62 33 61 34 37  x dd37bc9f0b3a47
2d30: 38 38 66 39 62 35 34 39 36 36 66 32 35 32 31 37  88f9b54966f25217
2d40: 34 63 38 63 65 34 38 37 63 62 65 35 39 63 35 33  4c8ce487cbe59c53
2d50: 63 32 32 62 38 31 62 66 37 37 36 32 31 61 37 63  c22b81bf77621a7c
2d60: 65 37 36 31 36 64 63 62 35 62 31 65 32 65 65 36  e7616dcb5b1e2ee6
2d70: 33 63 32 63 33 30 39 62 5d 7d 20 5c 0a 09 2d 62  3c2c309b]} \..-b
2d80: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2d90: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
2da0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2db0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2dc0: 6c 74 20 61 30 63 66 30 33 66 37 62 61 64 64 30  lt a0cf03f7badd0
2dd0: 63 33 63 33 63 34 65 61 33 37 31 37 66 35 61 34  c3c3c4ea3717f5a4
2de0: 66 62 37 65 36 37 62 32 65 35 36 0a 0a 74 63 6c  fb7e67b2e56..tcl
2df0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
2e00: 53 48 41 31 2d 32 2e 34 35 20 7b 53 48 41 31 53  SHA1-2.45 {SHA1S
2e10: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2e20: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
2e30: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2e40: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
2e50: 20 68 65 78 20 35 66 34 38 35 63 36 33 37 61 65   hex 5f485c637ae
2e60: 33 30 62 31 65 33 30 34 39 37 66 30 66 62 37 65  30b1e30497f0fb7e
2e70: 63 33 36 34 65 31 33 63 39 30 36 65 32 38 31 33  c364e13c906e2813
2e80: 64 61 61 33 34 31 36 31 62 37 61 63 34 61 34 66  daa34161b7ac4a4f
2e90: 64 37 61 31 62 64 64 64 37 39 36 30 31 62 62 64  d7a1bddd79601bbd
2ea0: 32 32 63 65 66 31 66 35 37 63 62 63 37 5d 7d 20  22cef1f57cbc7]} 
2eb0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
2ec0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
2ed0: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
2ee0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
2ef0: 2d 72 65 73 75 6c 74 20 61 35 34 34 65 30 36 66  -result a544e06f
2f00: 31 61 30 37 63 65 62 31 37 35 61 35 31 64 36 64  1a07ceb175a51d6d
2f10: 39 63 30 31 31 31 62 33 65 31 35 65 39 38 35 39  9c0111b3e15e9859
2f20: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
2f30: 48 61 73 68 5f 53 48 41 31 2d 32 2e 34 36 20 7b  Hash_SHA1-2.46 {
2f40: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
2f50: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2f60: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
2f70: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2f80: 65 63 6f 64 65 20 68 65 78 20 66 36 63 32 33 37  ecode hex f6c237
2f90: 66 62 33 63 66 65 39 35 65 63 38 34 31 34 63 63  fb3cfe95ec8414cc
2fa0: 31 36 64 32 30 33 62 34 38 37 34 65 36 34 34 63  16d203b4874e644c
2fb0: 63 39 61 35 34 33 34 36 35 63 61 64 32 64 63 35  c9a543465cad2dc5
2fc0: 36 33 34 38 38 61 36 35 39 65 38 61 32 65 37 63  63488a659e8a2e7c
2fd0: 39 38 31 65 32 61 39 66 32 32 65 35 65 38 36 38  981e2a9f22e5e868
2fe0: 66 66 65 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ffe1]} \..-body 
2ff0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3000: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
3010: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3020: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31   exact -result 1
3030: 39 39 64 39 38 36 65 64 39 39 31 62 39 39 61 30  99d986ed991b99a0
3040: 37 31 66 34 35 30 63 36 62 31 31 32 31 61 37 32  71f450c6b1121a72
3050: 37 65 38 63 37 33 35 0a 0a 74 63 6c 74 65 73 74  7e8c735..tcltest
3060: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
3070: 2d 32 2e 34 37 20 7b 53 48 41 31 53 68 6f 72 74  -2.47 {SHA1Short
3080: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
3090: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
30a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
30b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
30c0: 20 64 61 37 61 62 33 32 39 31 35 35 33 63 36 35   da7ab3291553c65
30d0: 39 38 37 33 63 39 35 39 31 33 37 36 38 39 35 33  9873c95913768953
30e0: 63 36 65 35 32 36 64 33 61 32 36 35 39 30 38 39  c6e526d3a2659089
30f0: 38 63 30 61 64 65 38 39 66 66 35 36 66 62 64 31  8c0ade89ff56fbd1
3100: 31 30 66 31 34 33 36 61 66 35 39 30 62 31 37 66  10f1436af590b17f
3110: 65 64 34 39 66 38 63 34 62 32 62 31 65 5d 7d 20  ed49f8c4b2b1e]} 
3120: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
3130: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
3140: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
3150: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
3160: 2d 72 65 73 75 6c 74 20 33 33 62 61 63 36 31 30  -result 33bac610
3170: 34 62 30 61 64 36 31 32 38 64 30 39 31 62 35 64  4b0ad6128d091b5d
3180: 35 65 32 39 39 39 30 39 39 63 39 66 30 35 64 65  5e2999099c9f05de
3190: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
31a0: 48 61 73 68 5f 53 48 41 31 2d 32 2e 34 38 20 7b  Hash_SHA1-2.48 {
31b0: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
31c0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
31d0: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
31e0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
31f0: 65 63 6f 64 65 20 68 65 78 20 38 63 66 61 35 66  ecode hex 8cfa5f
3200: 64 35 36 65 65 32 33 39 63 61 34 37 37 33 37 35  d56ee239ca477375
3210: 39 31 63 62 61 31 30 33 65 34 31 61 31 38 61 63  91cba103e41a18ac
3220: 66 38 65 38 64 32 35 37 62 30 64 62 65 38 38 35  f8e8d257b0dbe885
3230: 31 31 33 34 61 38 31 66 66 36 62 32 65 39 37 31  1134a81ff6b2e971
3240: 30 34 62 33 39 62 37 36 65 31 39 64 61 32 35 36  04b39b76e19da256
3250: 61 31 37 63 65 35 32 64 5d 7d 20 5c 0a 09 2d 62  a17ce52d]} \..-b
3260: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3270: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
3280: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3290: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
32a0: 6c 74 20 37 36 64 37 64 62 36 65 31 38 63 31 66  lt 76d7db6e18c1f
32b0: 34 61 65 32 32 35 63 65 38 63 63 63 39 33 63 38  4ae225ce8ccc93c8
32c0: 66 39 61 30 64 66 65 62 39 36 39 0a 0a 74 63 6c  f9a0dfeb969..tcl
32d0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
32e0: 53 48 41 31 2d 32 2e 34 39 20 7b 53 48 41 31 53  SHA1-2.49 {SHA1S
32f0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3300: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
3310: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3320: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3330: 20 68 65 78 20 35 37 65 38 39 36 35 39 64 38 37   hex 57e89659d87
3340: 38 66 33 36 30 61 66 36 64 65 34 35 61 39 61 35  8f360af6de45a9a5
3350: 65 33 37 32 65 66 34 30 63 33 38 34 39 38 38 65  e372ef40c384988e
3360: 38 32 36 34 30 61 33 64 35 65 34 62 37 36 64 32  82640a3d5e4b76d2
3370: 65 66 31 38 31 37 38 30 62 39 61 30 39 39 61 63  ef181780b9a099ac
3380: 30 36 65 66 30 66 38 61 37 66 33 66 37 36 34 32  06ef0f8a7f3f7642
3390: 30 39 37 32 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79  09720]} \..-body
33a0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
33b0: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
33c0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
33d0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
33e0: 66 36 35 32 66 33 62 31 35 34 39 66 31 36 37 31  f652f3b1549f1671
33f0: 30 63 37 34 30 32 38 39 35 39 31 31 65 32 62 38  0c7402895911e2b8
3400: 36 61 39 62 32 61 65 65 0a 0a 74 63 6c 74 65 73  6a9b2aee..tcltes
3410: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3420: 31 2d 32 2e 35 30 20 7b 53 48 41 31 53 68 6f 72  1-2.50 {SHA1Shor
3430: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
3440: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
3450: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
3460: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
3470: 78 20 62 39 31 65 36 34 32 33 35 64 62 64 32 33  x b91e64235dbd23
3480: 34 65 65 61 32 61 65 31 34 61 39 32 61 31 37 33  4eea2ae14a92a173
3490: 65 62 65 38 33 35 33 34 37 32 33 39 63 66 66 38  ebe835347239cff8
34a0: 62 30 32 30 37 34 34 31 36 66 35 35 63 36 62 36  b02074416f55c6b6
34b0: 30 64 63 36 63 65 64 30 36 61 65 39 66 38 64 37  0dc6ced06ae9f8d7
34c0: 30 35 35 30 35 66 30 64 36 31 37 65 34 62 32 39  05505f0d617e4b29
34d0: 61 65 66 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  aef9]} \..-body 
34e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
34f0: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
3500: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3510: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36   exact -result 6
3520: 33 66 61 65 62 62 38 30 37 66 33 32 62 65 37 30  3faebb807f32be70
3530: 38 63 66 30 30 66 63 33 35 35 31 39 39 39 31 64  8cf00fc35519991d
3540: 63 34 65 37 66 36 38 0a 0a 74 63 6c 74 65 73 74  c4e7f68..tcltest
3550: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
3560: 2d 32 2e 35 31 20 7b 53 48 41 31 53 68 6f 72 74  -2.51 {SHA1Short
3570: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
3580: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
3590: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
35a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
35b0: 20 65 34 32 61 36 37 33 36 32 61 35 38 31 65 38   e42a67362a581e8
35c0: 63 66 33 64 38 34 37 35 30 32 32 31 35 37 35 35  cf3d847502215755
35d0: 64 37 61 64 34 32 35 63 61 30 33 30 63 34 33 36  d7ad425ca030c436
35e0: 30 62 30 66 37 65 66 35 31 33 65 36 39 38 30 32  0b0f7ef513e69802
35f0: 36 35 66 36 31 63 39 66 61 31 38 64 64 39 63 65  65f61c9fa18dd9ce
3600: 36 36 38 66 33 38 64 62 63 32 61 31 65 66 38 66  668f38dbc2a1ef8f
3610: 38 33 63 64 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  83cd6]} \..-body
3620: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3630: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
3640: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
3650: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3660: 30 65 36 37 33 30 62 63 34 61 30 65 39 33 32 32  0e6730bc4a0e9322
3670: 65 61 32 30 35 66 34 65 64 66 66 66 31 66 66 66  ea205f4edfff1fff
3680: 64 61 32 36 61 66 30 61 0a 0a 74 63 6c 74 65 73  da26af0a..tcltes
3690: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
36a0: 31 2d 32 2e 35 32 20 7b 53 48 41 31 53 68 6f 72  1-2.52 {SHA1Shor
36b0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
36c0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
36d0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
36e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
36f0: 78 20 36 33 34 64 62 39 32 63 32 32 30 31 30 65  x 634db92c22010e
3700: 31 63 62 66 31 65 31 36 32 33 39 32 33 31 38 30  1cbf1e1623923180
3710: 34 30 36 63 35 31 35 32 37 32 32 30 39 61 38 61  406c515272209a8a
3720: 63 63 34 32 64 65 30 35 63 63 32 65 39 36 61 31  cc42de05cc2e96a1
3730: 65 39 34 63 31 66 39 66 36 62 39 33 32 33 34 62  e94c1f9f6b93234b
3740: 37 66 34 63 35 35 64 65 38 62 31 39 36 31 61 33  7f4c55de8b1961a3
3750: 62 66 33 35 32 32 35 39 5d 7d 20 5c 0a 09 2d 62  bf352259]} \..-b
3760: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3770: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
3780: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3790: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
37a0: 6c 74 20 62 36 31 61 33 61 36 66 34 32 65 38 65  lt b61a3a6f42e8e
37b0: 36 36 30 34 62 39 33 31 39 36 63 34 33 63 39 65  6604b93196c43c9e
37c0: 38 34 64 35 33 35 39 65 36 66 65 0a 0a 74 63 6c  84d5359e6fe..tcl
37d0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
37e0: 53 48 41 31 2d 32 2e 35 33 20 7b 53 48 41 31 53  SHA1-2.53 {SHA1S
37f0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3800: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
3810: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3820: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3830: 20 68 65 78 20 63 63 36 63 61 33 61 38 63 62 33   hex cc6ca3a8cb3
3840: 39 31 63 64 38 61 35 61 66 66 31 66 61 61 37 62  91cd8a5aff1faa7b
3850: 33 66 66 62 64 64 32 31 61 35 61 33 63 65 36 36  3ffbdd21a5a3ce66
3860: 63 66 61 64 64 62 66 65 38 62 31 37 39 65 34 63  cfaddbfe8b179e4c
3870: 38 36 30 62 65 35 65 63 36 36 62 64 32 63 36 64  860be5ec66bd2c6d
3880: 65 36 61 33 39 61 32 35 36 32 32 66 39 66 32 66  e6a39a25622f9f2f
3890: 63 62 33 66 63 30 35 61 66 31 32 62 35 5d 7d 20  cb3fc05af12b5]} 
38a0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
38b0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
38c0: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
38d0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
38e0: 2d 72 65 73 75 6c 74 20 33 32 64 39 37 39 63 61  -result 32d979ca
38f0: 31 62 33 65 64 30 65 64 38 63 38 39 30 64 39 39  1b3ed0ed8c890d99
3900: 65 63 36 64 64 38 35 65 36 63 31 36 61 62 66 34  ec6dd85e6c16abf4
3910: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
3920: 48 61 73 68 5f 53 48 41 31 2d 32 2e 35 34 20 7b  Hash_SHA1-2.54 {
3930: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
3940: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3950: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
3960: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3970: 65 63 6f 64 65 20 68 65 78 20 37 63 30 65 36 61  ecode hex 7c0e6a
3980: 30 64 33 35 66 38 61 63 38 35 34 63 37 32 34 35  0d35f8ac854c7245
3990: 65 62 63 37 33 36 39 33 37 33 31 62 62 62 63 33  ebc73693731bbbc3
39a0: 65 36 66 61 62 36 34 34 34 36 36 64 65 32 37 62  e6fab644466de27b
39b0: 62 35 32 32 66 63 62 39 39 33 30 37 31 32 36 61  b522fcb99307126a
39c0: 65 37 31 38 66 65 38 66 30 30 37 34 32 65 36 65  e718fe8f00742e6e
39d0: 35 63 62 37 61 36 38 37 63 38 38 34 34 37 63 62  5cb7a687c88447cb
39e0: 63 39 36 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c961]} \..-body 
39f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3a00: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
3a10: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3a20: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36   exact -result 6
3a30: 66 31 38 31 39 30 62 64 32 64 30 32 66 63 39 33  f18190bd2d02fc93
3a40: 62 63 65 36 34 37 35 36 35 37 35 63 65 61 33 36  bce64756575cea36
3a50: 64 30 38 62 31 63 33 0a 0a 74 63 6c 74 65 73 74  d08b1c3..tcltest
3a60: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
3a70: 2d 32 2e 35 35 20 7b 53 48 41 31 53 68 6f 72 74  -2.55 {SHA1Short
3a80: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
3a90: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
3aa0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3ab0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3ac0: 20 63 35 35 38 31 64 34 30 62 33 33 31 65 32 34   c5581d40b331e24
3ad0: 30 30 33 39 30 31 62 64 36 62 66 32 34 34 61 63  003901bd6bf244ac
3ae0: 61 39 65 39 36 30 31 62 39 64 38 31 32 35 32 62  a9e9601b9d81252b
3af0: 62 33 38 30 34 38 36 34 32 37 33 31 66 31 31 34  b38048642731f114
3b00: 36 62 38 61 34 63 36 39 66 38 38 65 31 34 38 62  6b8a4c69f88e148b
3b10: 32 63 38 66 38 63 31 34 66 31 35 65 31 64 36 64  2c8f8c14f15e1d6d
3b20: 61 35 37 62 32 64 61 61 39 39 39 31 65 5d 7d 20  a57b2daa9991e]} 
3b30: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
3b40: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
3b50: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
3b60: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
3b70: 2d 72 65 73 75 6c 74 20 36 38 66 35 32 35 66 65  -result 68f525fe
3b80: 65 61 31 64 38 64 62 65 30 31 31 37 65 34 31 37  ea1d8dbe0117e417
3b90: 63 61 34 36 37 30 38 64 31 38 64 37 36 32 39 61  ca46708d18d7629a
3ba0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
3bb0: 48 61 73 68 5f 53 48 41 31 2d 32 2e 35 36 20 7b  Hash_SHA1-2.56 {
3bc0: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
3bd0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3be0: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
3bf0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3c00: 65 63 6f 64 65 20 68 65 78 20 65 63 36 62 34 61  ecode hex ec6b4a
3c10: 38 38 37 31 33 64 66 32 37 63 30 66 32 64 30 32  88713df27c0f2d02
3c20: 65 37 33 38 62 36 39 64 62 34 33 61 62 64 61 33  e738b69db43abda3
3c30: 39 32 31 33 31 37 32 35 39 63 38 36 34 63 31 63  921317259c864c1c
3c40: 33 38 36 65 39 61 35 61 33 66 35 33 33 64 63 30  386e9a5a3f533dc0
3c50: 35 66 33 62 65 65 62 32 62 65 63 32 61 61 63 38  5f3beeb2bec2aac8
3c60: 65 30 36 64 62 34 63 36 63 62 33 63 64 64 63 66  e06db4c6cb3cddcf
3c70: 36 39 37 65 30 33 64 35 5d 7d 20 5c 0a 09 2d 62  697e03d5]} \..-b
3c80: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3c90: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
3ca0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3cb0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
3cc0: 6c 74 20 61 37 32 37 32 65 32 33 30 38 36 32 32  lt a7272e2308622
3cd0: 66 66 37 61 33 33 39 34 36 30 61 64 63 36 31 65  ff7a339460adc61e
3ce0: 66 64 30 65 61 38 64 61 62 64 63 0a 0a 74 63 6c  fd0ea8dabdc..tcl
3cf0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
3d00: 53 48 41 31 2d 32 2e 35 37 20 7b 53 48 41 31 53  SHA1-2.57 {SHA1S
3d10: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3d20: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
3d30: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3d40: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3d50: 20 68 65 78 20 30 33 32 31 37 33 36 62 65 62 61   hex 0321736beba
3d60: 35 37 38 65 39 30 61 62 63 31 61 39 30 61 61 35  578e90abc1a90aa5
3d70: 36 31 35 37 64 38 37 31 36 31 38 66 36 64 65 30  6157d871618f6de0
3d80: 64 37 36 34 63 63 38 63 39 31 65 30 36 63 36 38  d764cc8c91e06c68
3d90: 65 63 64 33 62 39 64 65 33 38 32 34 30 36 34 35  ecd3b9de38240645
3da0: 30 33 33 38 34 64 62 36 37 62 65 62 37 66 65 30  03384db67beb7fe0
3db0: 31 32 32 33 32 64 61 63 61 65 66 39 33 61 30 30  12232dacaef93a00
3dc0: 30 66 62 61 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79  0fba7]} \..-body
3dd0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3de0: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
3df0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
3e00: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3e10: 61 65 66 38 34 33 62 38 36 39 31 36 63 31 36 66  aef843b86916c16f
3e20: 36 36 63 38 34 64 38 33 61 36 30 30 35 64 32 33  66c84d83a6005d23
3e30: 66 64 30 30 35 63 39 65 0a 0a 74 63 6c 74 65 73  fd005c9e..tcltes
3e40: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3e50: 31 2d 32 2e 35 38 20 7b 53 48 41 31 53 68 6f 72  1-2.58 {SHA1Shor
3e60: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
3e70: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
3e80: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
3e90: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
3ea0: 78 20 64 30 61 32 34 39 61 39 37 62 35 66 31 34  x d0a249a97b5f14
3eb0: 38 36 37 32 31 61 35 30 64 34 63 34 61 62 33 66  86721a50d4c4ab3f
3ec0: 35 64 36 37 34 61 30 65 32 39 39 32 35 64 35 62  5d674a0e29925d5b
3ed0: 66 32 36 37 38 65 66 36 64 38 64 35 32 31 65 34  f2678ef6d8d521e4
3ee0: 35 36 62 64 38 34 61 61 37 35 35 33 32 38 63 38  56bd84aa755328c8
3ef0: 33 66 63 38 39 30 38 33 37 37 32 36 61 38 65 37  3fc890837726a8e7
3f00: 38 37 37 62 35 37 30 64 62 61 33 39 35 37 39 61  877b570dba39579a
3f10: 61 62 64 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  abdd]} \..-body 
3f20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3f30: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
3f40: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3f50: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
3f60: 65 32 63 64 36 66 33 38 30 39 36 39 62 65 35 39  e2cd6f380969be59
3f70: 63 64 65 32 64 66 66 35 65 38 34 38 61 34 34 65  cde2dff5e848a44e
3f80: 37 38 38 30 62 64 36 0a 0a 74 63 6c 74 65 73 74  7880bd6..tcltest
3f90: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
3fa0: 2d 32 2e 35 39 20 7b 53 48 41 31 53 68 6f 72 74  -2.59 {SHA1Short
3fb0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
3fc0: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
3fd0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3fe0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3ff0: 20 63 33 32 31 33 38 35 33 31 31 31 38 66 30 38   c32138531118f08
4000: 63 37 64 63 63 32 39 32 34 32 38 61 64 32 30 62  c7dcc292428ad20b
4010: 34 35 61 62 32 37 64 39 35 31 37 61 31 38 34 34  45ab27d9517a1844
4020: 35 66 33 38 62 38 66 30 63 32 37 39 35 62 63 64  5f38b8f0c2795bcd
4030: 66 65 33 66 66 65 33 38 34 65 36 35 65 63 62 66  fe3ffe384e65ecbf
4040: 37 34 64 32 63 39 64 30 64 61 38 38 33 39 38 35  74d2c9d0da883985
4050: 37 35 33 32 36 30 37 34 39 30 34 63 31 37 30 39  75326074904c1709
4060: 62 61 30 37 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79  ba072]} \..-body
4070: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4080: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
4090: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
40a0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
40b0: 65 35 65 62 34 35 34 33 64 65 65 65 38 66 36 61  e5eb4543deee8f6a
40c0: 35 32 38 37 38 34 35 61 66 38 62 35 39 33 61 39  5287845af8b593a9
40d0: 35 61 39 37 34 39 61 31 0a 0a 74 63 6c 74 65 73  5a9749a1..tcltes
40e0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
40f0: 31 2d 32 2e 36 30 20 7b 53 48 41 31 53 68 6f 72  1-2.60 {SHA1Shor
4100: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
4110: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
4120: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4130: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4140: 78 20 62 30 66 34 63 66 62 39 33 39 65 61 37 38  x b0f4cfb939ea78
4150: 35 65 61 62 62 37 65 37 63 61 37 63 34 37 36 63  5eabb7e7ca7c476c
4160: 64 64 39 62 32 32 37 66 30 31 35 64 39 30 35 33  dd9b227f015d9053
4170: 36 38 62 61 30 30 61 65 39 36 62 39 61 61 66 37  68ba00ae96b9aaf7
4180: 32 30 32 39 37 34 39 31 62 33 39 32 31 32 36 37  20297491b3921267
4190: 35 37 36 62 37 32 63 38 66 35 38 64 35 37 37 36  576b72c8f58d5776
41a0: 31 37 65 38 34 34 66 39 66 30 37 35 39 62 33 39  17e844f9f0759b39
41b0: 39 63 36 62 30 36 34 63 5d 7d 20 5c 0a 09 2d 62  9c6b064c]} \..-b
41c0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
41d0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
41e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
41f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
4200: 6c 74 20 35 33 34 63 38 35 30 34 34 38 64 64 34  lt 534c850448dd4
4210: 38 36 37 38 37 62 36 32 62 64 65 63 32 64 34 61  86787b62bdec2d4a
4220: 30 62 31 34 30 61 31 62 31 37 30 0a 0a 74 63 6c  0b140a1b170..tcl
4230: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
4240: 53 48 41 31 2d 32 2e 36 31 20 7b 53 48 41 31 53  SHA1-2.61 {SHA1S
4250: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
4260: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
4270: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4280: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4290: 20 68 65 78 20 62 64 30 32 65 35 31 62 30 63 66   hex bd02e51b0cf
42a0: 32 63 32 62 38 64 32 30 34 61 30 32 36 62 34 31  2c2b8d204a026b41
42b0: 61 36 36 66 62 66 63 32 61 63 33 37 65 65 39 34  a66fbfc2ac37ee94
42c0: 31 31 66 63 34 34 39 63 38 64 31 31 39 34 61 30  11fc449c8d1194a0
42d0: 37 39 32 61 32 38 65 65 37 33 31 34 30 37 64 66  792a28ee731407df
42e0: 63 38 39 62 36 64 66 63 32 62 31 30 66 61 61 32  c89b6dfc2b10faa2
42f0: 37 37 32 33 61 31 38 34 61 66 65 66 38 66 64 38  7723a184afef8fd8
4300: 33 64 65 66 38 35 38 61 33 32 64 33 66 5d 7d 20  3def858a32d3f]} 
4310: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
4320: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
4330: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
4340: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
4350: 2d 72 65 73 75 6c 74 20 36 66 62 66 61 36 65 34  -result 6fbfa6e4
4360: 65 64 63 65 34 63 63 38 35 61 38 34 35 62 66 30  edce4cc85a845bf0
4370: 64 32 32 38 64 63 33 39 61 63 65 66 63 32 66 61  d228dc39acefc2fa
4380: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
4390: 48 61 73 68 5f 53 48 41 31 2d 32 2e 36 32 20 7b  Hash_SHA1-2.62 {
43a0: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
43b0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
43c0: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
43d0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
43e0: 65 63 6f 64 65 20 68 65 78 20 65 33 33 31 34 36  ecode hex e33146
43f0: 62 38 33 65 34 62 62 36 37 31 33 39 32 32 31 38  b83e4bb671392218
4400: 64 61 39 61 37 37 66 38 64 39 66 35 39 37 34 31  da9a77f8d9f59741
4410: 34 37 31 38 32 66 62 39 35 62 61 36 36 32 63 62  47182fb95ba662cb
4420: 36 36 30 31 31 39 38 39 63 31 36 64 39 61 66 31  66011989c16d9af1
4430: 30 34 37 33 35 64 36 66 37 39 38 34 31 61 61 34  04735d6f79841aa4
4440: 64 31 64 66 32 37 36 36 31 35 62 35 30 31 30 38  d1df276615b50108
4450: 64 66 38 61 32 39 64 62 63 39 64 65 33 31 66 34  df8a29dbc9de31f4
4460: 32 36 30 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  260d]} \..-body 
4470: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4480: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
4490: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
44a0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30   exact -result 0
44b0: 31 38 38 37 32 36 39 31 64 39 62 30 34 65 38 32  18872691d9b04e82
44c0: 32 30 65 30 39 31 38 37 64 66 35 62 63 35 66 61  20e09187df5bc5fa
44d0: 36 32 35 37 63 64 39 0a 0a 74 63 6c 74 65 73 74  6257cd9..tcltest
44e0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
44f0: 2d 32 2e 36 33 20 7b 53 48 41 31 53 68 6f 72 74  -2.63 {SHA1Short
4500: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
4510: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65  ints SHA1 \..-se
4520: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4530: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4540: 20 34 31 31 63 31 33 63 37 35 30 37 33 63 31 65   411c13c75073c1e
4550: 32 64 34 62 31 65 63 66 31 33 31 33 39 62 61 39  2d4b1ecf13139ba9
4560: 36 35 36 63 64 33 35 63 31 34 32 30 31 66 31 63  656cd35c14201f1c
4570: 37 63 36 66 30 65 65 62 35 38 64 32 64 62 66 65  7c6f0eeb58d2dbfe
4580: 33 35 62 66 64 65 63 63 63 39 32 63 33 39 36 31  35bfdeccc92c3961
4590: 63 66 61 62 62 35 39 30 62 63 31 65 62 37 37 65  cfabb590bc1eb77e
45a0: 61 63 31 35 37 33 32 66 62 30 32 37 35 37 39 38  ac15732fb0275798
45b0: 36 38 30 65 30 63 37 32 39 32 65 35 30 5d 7d 20  680e0c7292e50]} 
45c0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
45d0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
45e0: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  A1 -data $data} 
45f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
4600: 2d 72 65 73 75 6c 74 20 64 39 38 64 35 31 32 61  -result d98d512a
4610: 33 35 35 37 32 66 38 62 64 32 30 64 65 36 32 65  35572f8bd20de62e
4620: 39 35 31 30 63 63 32 31 31 34 35 63 35 62 66 34  9510cc21145c5bf4
4630: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
4640: 48 61 73 68 5f 53 48 41 31 2d 32 2e 36 34 20 7b  Hash_SHA1-2.64 {
4650: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
4660: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
4670: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
4680: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
4690: 65 63 6f 64 65 20 68 65 78 20 66 32 63 37 36 65  ecode hex f2c76e
46a0: 66 36 31 37 66 61 32 62 66 63 38 61 34 64 36 62  f617fa2bfc8a4d6b
46b0: 63 62 62 31 35 66 65 38 38 34 33 36 66 64 63 32  cbb15fe88436fdc2
46c0: 31 36 35 64 33 30 37 34 36 32 39 35 37 39 30 37  165d307462957907
46d0: 39 64 34 64 35 62 38 36 66 35 30 38 31 61 62 31  9d4d5b86f5081ab1
46e0: 37 37 62 34 63 33 66 35 33 30 33 37 36 63 39 63  77b4c3f530376c9c
46f0: 39 32 34 63 62 64 34 32 31 61 38 64 61 66 38 38  924cbd421a8daf88
4700: 33 30 64 30 39 34 30 63 34 66 62 37 35 38 39 38  30d0940c4fb75898
4710: 36 35 38 33 30 36 39 39 5d 7d 20 5c 0a 09 2d 62  65830699]} \..-b
4720: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
4730: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
4740: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
4750: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
4760: 6c 74 20 39 66 33 65 61 32 35 35 66 36 61 66 39  lt 9f3ea255f6af9
4770: 35 63 35 34 35 34 65 35 35 64 37 33 35 34 63 61  5c5454e55d7354ca
4780: 62 62 34 35 33 35 32 65 61 30 62 0a 0a 74 63 6c  bb45352ea0b..tcl
4790: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
47a0: 53 48 41 31 2d 32 2e 36 35 20 7b 53 48 41 31 53  SHA1-2.65 {SHA1S
47b0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
47c0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
47d0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
47e0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
47f0: 20 68 65 78 20 34 35 39 32 37 65 33 32 64 64 66   hex 45927e32ddf
4800: 38 30 31 63 61 66 33 35 65 31 38 65 37 62 35 30  801caf35e18e7b50
4810: 37 38 62 37 66 35 34 33 35 32 37 38 32 31 32 65  78b7f5435278212e
4820: 63 36 62 62 39 39 64 66 38 38 34 66 34 39 62 33  c6bb99df884f49b3
4830: 32 37 63 36 34 38 36 66 65 61 65 34 36 62 61 31  27c6486feae46ba1
4840: 38 37 64 63 31 63 63 39 31 34 35 31 32 31 65 31  87dc1cc9145121e1
4850: 34 39 32 65 36 62 30 36 65 39 30 30 37 33 39 34  492e6b06e9007394
4860: 64 63 33 33 62 37 37 34 38 66 38 36 61 63 33 32  dc33b7748f86ac32
4870: 30 37 63 66 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79  07cfe]} \..-body
4880: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4890: 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61  igest SHA1 -data
48a0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
48b0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
48c0: 61 37 30 63 66 62 66 65 37 35 36 33 64 64 30 65  a70cfbfe7563dd0e
48d0: 36 36 35 63 37 63 36 37 31 35 61 39 36 61 38 64  665c7c6715a96a8d
48e0: 37 35 36 39 35 30 63 30 0a 0a                    756950c0..