Artifact 9847c1b7e5dc4d248863b506b52f6aeb9e9d062c77de2d4df18ae36028862bfb:

• File tests/test_vectors/Hash/SHA3_224ShortMsg.test — part of check-in [feef0d0cef] at 2023-12-24 06:36:24 on branch crypto — Added MAC test vectors. Added all.tcl files to each test subdirectory so all tests run. Updated Hash and KDF test vectors to add missing cleanupTests. Corrected bug with using dash in constraints. Added constraints for ciphers, digests, and kdfs. (user: bohagan, size: 57805) [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 33 5f 32 32 34 53   from "SHA3_224S
0020: 68 6f 72 74 4d 73 67 2e 72 73 70 22 0a 70 61 63  hortMsg.rsp".pac
0030: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73  kage require tls
0040: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
0050: 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73   tcltest..tcltes
0060: 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e  t::testConstrain
0070: 74 20 53 48 41 33 5f 32 32 34 20 5b 65 78 70 72  t SHA3_224 [expr
0080: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61   {[lsearch -noca
0090: 73 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73  se [tls::digests
00a0: 5d 20 53 48 41 33 2d 32 32 34 5d 20 3e 20 2d 31  ] SHA3-224] > -1
00b0: 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  }]..tcltest::tes
00c0: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d  t Hash_SHA3-224-
00d0: 32 2e 31 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  2.1 {SHA3_224Sho
00e0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
00f0: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
0100: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
0110: 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79  ata ""} \..-body
0120: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0130: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
0140: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0150: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0160: 75 6c 74 20 36 62 34 65 30 33 34 32 33 36 36 37  ult 6b4e03423667
0170: 64 62 62 37 33 62 36 65 31 35 34 35 34 66 30 65  dbb73b6e15454f0e
0180: 62 31 61 62 64 34 35 39 37 66 39 61 31 62 30 37  b1abd4597f9a1b07
0190: 38 65 33 66 35 62 35 61 36 62 63 37 0a 0a 74 63  8e3f5b5a6bc7..tc
01a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
01b0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 32 20 7b 53  _SHA3-224-2.2 {S
01c0: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
01d0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
01e0: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
01f0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0200: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0210: 20 30 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b   01]} \..-body {
0220: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0230: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
0240: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0250: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0260: 74 20 34 38 38 32 38 36 64 39 64 33 32 37 31 36  t 488286d9d32716
0270: 65 35 38 38 31 65 61 31 65 65 35 31 66 33 36 64  e5881ea1ee51f36d
0280: 33 36 36 30 64 37 30 66 30 64 62 30 33 62 33 66  3660d70f0db03b3f
0290: 36 31 32 63 65 39 65 64 61 34 0a 0a 74 63 6c 74  612ce9eda4..tclt
02a0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
02b0: 48 41 33 2d 32 32 34 2d 32 2e 33 20 7b 53 48 41  HA3-224-2.3 {SHA
02c0: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
02d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
02e0: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
02f0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
0300: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36  ary decode hex 6
0310: 39 63 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  9cb]} \..-body {
0320: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0330: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
0340: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0350: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0360: 74 20 39 34 62 64 32 35 63 34 63 66 36 63 61 38  t 94bd25c4cf6ca8
0370: 38 39 31 32 36 64 66 33 37 64 64 64 39 63 33 36  89126df37ddd9c36
0380: 65 36 61 39 62 32 38 61 34 66 65 31 35 63 63 33  e6a9b28a4fe15cc3
0390: 64 61 36 64 65 62 63 64 64 37 0a 0a 74 63 6c 74  da6debcdd7..tclt
03a0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
03b0: 48 41 33 2d 32 32 34 2d 32 2e 34 20 7b 53 48 41  HA3-224-2.4 {SHA
03c0: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
03d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
03e0: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
03f0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
0400: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62  ary decode hex b
0410: 66 35 38 33 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79  f5831]} \..-body
0420: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0430: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
0440: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0450: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0460: 75 6c 74 20 31 62 62 33 36 62 65 62 64 65 35 66  ult 1bb36bebde5f
0470: 33 63 62 36 64 38 65 34 36 37 32 61 63 66 36 65  3cb6d8e4672acf6e
0480: 65 63 38 37 32 38 66 33 31 61 35 34 64 61 63 63  ec8728f31a54dacc
0490: 32 35 36 30 64 61 32 61 30 30 63 63 0a 0a 74 63  2560da2a00cc..tc
04a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
04b0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 35 20 7b 53  _SHA3-224-2.5 {S
04c0: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
04d0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
04e0: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
04f0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0500: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0510: 20 64 31 34 38 63 65 36 64 5d 7d 20 5c 0a 09 2d   d148ce6d]} \..-
0520: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0530: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
0540: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
0550: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0560: 2d 72 65 73 75 6c 74 20 30 62 35 32 31 64 61 63  -result 0b521dac
0570: 31 65 66 65 32 39 32 65 32 30 64 66 62 35 38 35  1efe292e20dfb585
0580: 63 38 62 66 66 34 38 31 38 39 39 64 66 37 32 64  c8bff481899df72d
0590: 35 39 39 38 33 33 31 35 39 35 38 33 39 31 62 61  59983315958391ba
05a0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
05b0: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
05c0: 36 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  6 {SHA3_224Short
05d0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
05e0: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
05f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0600: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0610: 20 68 65 78 20 39 31 63 37 31 30 36 38 66 38 5d   hex 91c71068f8]
0620: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0630: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0640: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
0650: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0660: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 38  exact -result 98
0670: 39 66 30 31 37 37 30 39 66 35 30 62 64 30 32 33  9f017709f50bd023
0680: 30 36 32 33 63 34 31 37 66 33 64 61 66 31 39 34  0623c417f3daf194
0690: 35 30 37 66 37 62 39 30 61 31 31 31 32 37 62 61  507f7b90a11127ba
06a0: 31 36 33 38 66 61 0a 0a 74 63 6c 74 65 73 74 3a  1638fa..tcltest:
06b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
06c0: 32 32 34 2d 32 2e 37 20 7b 53 48 41 33 5f 32 32  224-2.7 {SHA3_22
06d0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
06e0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
06f0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
0700: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
0710: 64 65 63 6f 64 65 20 68 65 78 20 65 37 31 38 33  decode hex e7183
0720: 65 34 64 38 39 63 39 5d 7d 20 5c 0a 09 2d 62 6f  e4d89c9]} \..-bo
0730: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0740: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
0750: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0760: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0770: 65 73 75 6c 74 20 36 35 30 36 31 38 66 33 62 39  esult 650618f3b9
0780: 34 35 63 30 37 64 65 38 35 62 38 34 37 38 64 36  45c07de85b8478d6
0790: 39 36 30 39 36 34 37 64 35 65 32 61 34 33 32 63  9609647d5e2a432c
07a0: 36 62 31 35 66 62 62 33 64 62 39 31 65 34 0a 0a  6b15fbb3db91e4..
07b0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
07c0: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 38 20  sh_SHA3-224-2.8 
07d0: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
07e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
07f0: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
0800: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0810: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0820: 65 78 20 64 38 35 65 34 37 30 61 37 63 36 39 38  ex d85e470a7c698
0830: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
0840: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0850: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
0860: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0870: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0880: 38 61 31 33 34 63 33 33 63 37 61 62 64 36 37 33  8a134c33c7abd673
0890: 63 64 33 64 30 63 33 33 39 35 36 37 30 30 37 36  cd3d0c3395670076
08a0: 30 64 65 39 38 30 63 35 61 65 65 37 34 63 39 36  0de980c5aee74c96
08b0: 65 36 62 61 30 38 62 32 0a 0a 74 63 6c 74 65 73  e6ba08b2..tcltes
08c0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
08d0: 33 2d 32 32 34 2d 32 2e 39 20 7b 53 48 41 33 5f  3-224-2.9 {SHA3_
08e0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
08f0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0900: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
0910: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0920: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 34 65  y decode hex e4e
0930: 61 32 63 31 36 33 36 36 62 38 30 64 36 5d 7d 20  a2c16366b80d6]} 
0940: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0950: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0960: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
0970: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0980: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 64 64 31  act -result 7dd1
0990: 61 38 65 33 66 66 65 38 63 39 39 63 63 35 34 37  a8e3ffe8c99cc547
09a0: 61 36 39 61 66 31 34 62 64 36 33 62 31 35 61 63  a69af14bd63b15ac
09b0: 32 36 62 64 33 64 33 36 62 38 61 39 39 35 31 33  26bd3d36b8a99513
09c0: 65 38 39 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  e89e..tcltest::t
09d0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
09e0: 34 2d 32 2e 31 30 20 7b 53 48 41 33 5f 32 32 34  4-2.10 {SHA3_224
09f0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0a00: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
0a10: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
0a20: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0a30: 65 63 6f 64 65 20 68 65 78 20 62 32 39 33 37 33  ecode hex b29373
0a40: 66 36 66 38 38 33 39 62 64 34 39 38 5d 7d 20 5c  f6f8839bd498]} \
0a50: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0a60: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0a70: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
0a80: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
0a90: 63 74 20 2d 72 65 73 75 6c 74 20 65 30 32 61 31  ct -result e02a1
0aa0: 33 66 61 34 37 37 30 66 38 32 34 62 63 64 36 39  3fa4770f824bcd69
0ab0: 37 39 39 32 38 34 38 37 38 66 31 39 62 66 64 63  799284878f19bfdc
0ac0: 38 33 33 61 63 36 64 38 36 35 66 32 38 62 37 35  833ac6d865f28b75
0ad0: 37 64 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  7d0..tcltest::te
0ae0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
0af0: 2d 32 2e 31 31 20 7b 53 48 41 33 5f 32 32 34 53  -2.11 {SHA3_224S
0b00: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0b10: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
0b20: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0b30: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0b40: 63 6f 64 65 20 68 65 78 20 34 39 65 63 37 32 63  code hex 49ec72c
0b50: 32 39 62 36 33 30 33 36 64 62 65 63 64 5d 7d 20  29b63036dbecd]} 
0b60: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0b70: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0b80: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
0b90: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0ba0: 61 63 74 20 2d 72 65 73 75 6c 74 20 34 37 63 61  act -result 47ca
0bb0: 62 34 34 36 31 38 66 36 32 64 64 34 33 31 63 63  b44618f62dd431cc
0bc0: 62 31 33 62 33 62 39 63 64 39 38 35 64 38 31 36  b13b3b9cd985d816
0bd0: 63 35 64 36 30 32 36 61 66 63 33 38 61 32 38 31  c5d6026afc38a281
0be0: 61 61 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  aa00..tcltest::t
0bf0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
0c00: 34 2d 32 2e 31 32 20 7b 53 48 41 33 5f 32 32 34  4-2.12 {SHA3_224
0c10: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0c20: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
0c30: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
0c40: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0c50: 65 63 6f 64 65 20 68 65 78 20 35 30 32 66 34 65  ecode hex 502f4e
0c60: 32 38 61 36 66 65 62 34 63 36 61 31 63 63 34 37  28a6feb4c6a1cc47
0c70: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0c80: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0c90: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
0ca0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0cb0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
0cc0: 62 65 36 31 64 38 35 62 34 63 61 65 37 31 36 33  be61d85b4cae7163
0cd0: 32 39 65 32 62 63 63 34 30 33 38 65 32 38 32 62  29e2bcc4038e282b
0ce0: 34 64 37 38 33 36 65 62 38 34 36 32 32 38 38 33  4d7836eb84622883
0cf0: 35 66 36 35 33 30 38 0a 0a 74 63 6c 74 65 73 74  5f65308..tcltest
0d00: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
0d10: 2d 32 32 34 2d 32 2e 31 33 20 7b 53 48 41 33 5f  -224-2.13 {SHA3_
0d20: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
0d30: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0d40: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
0d50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0d60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 37 32  y decode hex e72
0d70: 33 63 36 34 62 32 32 35 38 62 35 31 32 34 66 38  3c64b2258b5124f8
0d80: 38 34 30 35 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  8405f]} \..-body
0d90: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0da0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
0db0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0dc0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0dd0: 75 6c 74 20 64 30 39 64 61 30 39 34 63 66 65 66  ult d09da094cfef
0de0: 61 61 64 34 36 62 37 62 33 33 35 38 33 30 61 39  aad46b7b335830a9
0df0: 33 30 35 35 37 30 66 34 66 34 61 66 65 37 39 66  305570f4f4afe79f
0e00: 38 36 32 39 66 66 39 64 30 63 33 64 0a 0a 74 63  8629ff9d0c3d..tc
0e10: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0e20: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 34 20 7b  _SHA3-224-2.14 {
0e30: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
0e40: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0e50: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
0e60: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0e70: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0e80: 78 20 30 64 35 31 32 65 63 65 62 37 34 64 38 61  x 0d512eceb74d8a
0e90: 30 34 37 35 33 31 63 31 66 37 31 36 5d 7d 20 5c  047531c1f716]} \
0ea0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0eb0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0ec0: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
0ed0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
0ee0: 63 74 20 2d 72 65 73 75 6c 74 20 32 39 61 65 30  ct -result 29ae0
0ef0: 37 34 34 30 35 31 65 35 35 31 36 37 31 37 36 33  744051e551671763
0f00: 31 37 65 62 31 37 38 35 30 61 32 32 39 33 39 64  17eb17850a22939d
0f10: 38 64 39 34 65 62 62 30 61 39 30 62 36 64 39 38  8d94ebb0a90b6d98
0f20: 66 64 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  fde..tcltest::te
0f30: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
0f40: 2d 32 2e 31 35 20 7b 53 48 41 33 5f 32 32 34 53  -2.15 {SHA3_224S
0f50: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0f60: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
0f70: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0f80: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0f90: 63 6f 64 65 20 68 65 78 20 33 62 39 61 62 37 36  code hex 3b9ab76
0fa0: 61 32 33 61 65 35 36 33 34 30 62 35 66 34 62 38  a23ae56340b5f4b8
0fb0: 30 65 31 66 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79  0e1f3]} \..-body
0fc0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0fd0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
0fe0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0ff0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1000: 75 6c 74 20 63 30 39 30 33 62 65 39 36 66 33 38  ult c0903be96f38
1010: 30 35 31 63 66 63 32 61 35 61 64 32 35 36 61 61  051cfc2a5ad256aa
1020: 30 62 38 33 33 32 32 31 37 66 34 35 30 65 61 62  0b8332217f450eab
1030: 39 30 34 65 65 38 34 62 36 35 34 31 0a 0a 74 63  904ee84b6541..tc
1040: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1050: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 36 20 7b  _SHA3-224-2.16 {
1060: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
1070: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1080: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-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 65 39 66 65 66 37 35 31 61 32 30 32 39 37  x e9fef751a20297
10c0: 61 64 31 39 33 38 36 36 32 64 31 33 31 65 37 61  ad1938662d131e7a
10d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
10e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
10f0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -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 34   exact -result 4
1120: 38 65 62 61 33 36 64 66 65 30 35 37 35 35 39 37  8eba36dfe0575597
1130: 64 31 33 63 61 32 36 31 33 33 32 36 37 31 39 39  d13ca26133267199
1140: 64 61 65 37 36 64 36 33 64 31 62 39 65 39 36 31  dae76d63d1b9e961
1150: 32 37 32 30 64 30 38 0a 0a 74 63 6c 74 65 73 74  2720d08..tcltest
1160: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
1170: 2d 32 32 34 2d 32 2e 31 37 20 7b 53 48 41 33 5f  -224-2.17 {SHA3_
1180: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
1190: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
11a0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
11b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
11c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 62 62  y decode hex 2bb
11d0: 62 34 32 62 39 32 30 62 37 66 65 62 34 65 33 39  b42b920b7feb4e39
11e0: 36 32 61 31 35 35 32 63 63 33 39 30 66 5d 7d 20  62a1552cc390f]} 
11f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1200: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1210: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
1220: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1230: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 64 66 61  act -result 0dfa
1240: 36 31 66 36 62 34 33 39 62 66 38 65 33 61 36 66  61f6b439bf8e3a6f
1250: 33 37 38 66 65 33 30 61 34 31 33 34 65 38 62 32  378fe30a4134e8b2
1260: 64 66 62 36 35 32 39 39 37 61 32 61 37 36 63 32  dfb652997a2a76c2
1270: 37 38 39 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  789f..tcltest::t
1280: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
1290: 34 2d 32 2e 31 38 20 7b 53 48 41 33 5f 32 32 34  4-2.18 {SHA3_224
12a0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
12b0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
12c0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
12d0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
12e0: 65 63 6f 64 65 20 68 65 78 20 32 32 35 34 65 31  ecode hex 2254e1
12f0: 30 30 62 64 65 39 32 39 35 30 39 33 35 36 35 61  00bde9295093565a
1300: 39 34 38 37 37 63 32 31 64 30 35 61 5d 7d 20 5c  94877c21d05a]} \
1310: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1320: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1330: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
1340: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
1350: 63 74 20 2d 72 65 73 75 6c 74 20 36 39 36 35 32  ct -result 69652
1360: 35 36 34 36 33 32 37 36 64 62 62 32 36 61 64 33  56463276dbb26ad3
1370: 34 61 33 37 38 63 34 62 61 63 61 65 61 65 37 39  4a378c4bacaeae79
1380: 64 37 30 30 32 38 33 62 31 38 38 64 34 34 64 37  d700283b188d44d7
1390: 33 65 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  3eb..tcltest::te
13a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
13b0: 2d 32 2e 31 39 20 7b 53 48 41 33 5f 32 32 34 53  -2.19 {SHA3_224S
13c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
13d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
13e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
13f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1400: 63 6f 64 65 20 68 65 78 20 37 38 34 65 66 37 61  code hex 784ef7a
1410: 64 65 63 62 62 39 61 34 63 62 35 61 63 31 64 66  decbb9a4cb5ac1df
1420: 38 35 31 33 64 38 37 61 65 39 37 37 32 5d 7d 20  8513d87ae9772]} 
1430: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1440: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1450: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
1460: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1470: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 39 31 38  act -result e918
1480: 61 35 64 35 32 61 30 64 34 32 61 62 38 62 61 32  a5d52a0d42ab8ba2
1490: 65 61 33 38 36 65 62 36 61 64 38 33 63 62 38 64  ea386eb6ad83cb8d
14a0: 64 39 61 36 62 64 34 36 31 35 30 36 62 65 33 35  d9a6bd461506be35
14b0: 36 65 61 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  6ead..tcltest::t
14c0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
14d0: 34 2d 32 2e 32 30 20 7b 53 48 41 33 5f 32 32 34  4-2.20 {SHA3_224
14e0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
14f0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
1500: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
1510: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1520: 65 63 6f 64 65 20 68 65 78 20 66 34 65 36 38 39  ecode hex f4e689
1530: 36 34 66 37 38 34 66 65 35 63 34 64 30 65 30 30  64f784fe5c4d0e00
1540: 62 62 34 36 32 32 30 34 32 66 61 37 30 34 38 65  bb4622042fa7048e
1550: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1560: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1570: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
1580: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1590: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37   exact -result 7
15a0: 36 35 66 30 35 30 63 39 35 61 65 33 33 34 37 63  65f050c95ae3347c
15b0: 66 33 66 34 66 35 30 33 32 62 34 32 38 66 61 65  f3f4f5032b428fae
15c0: 61 62 31 33 36 39 34 65 38 63 37 37 39 38 65 61  ab13694e8c7798ea
15d0: 66 62 38 32 34 37 35 0a 0a 74 63 6c 74 65 73 74  fb82475..tcltest
15e0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
15f0: 2d 32 32 34 2d 32 2e 32 31 20 7b 53 48 41 33 5f  -224-2.21 {SHA3_
1600: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
1610: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1620: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
1630: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1640: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 39 63  y decode hex a9c
1650: 61 37 65 63 37 61 61 66 38 39 64 62 33 35 32 66  a7ec7aaf89db352f
1660: 65 63 62 61 36 34 36 66 66 37 33 65 66 65 38 65  ecba646ff73efe8e
1670: 34 61 37 65 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  4a7e8]} \..-body
1680: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
1690: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
16a0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
16b0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
16c0: 75 6c 74 20 36 35 64 36 61 34 39 37 33 39 63 30  ult 65d6a49739c0
16d0: 65 32 38 37 35 38 34 66 66 39 64 31 66 33 34 36  e287584ff9d1f346
16e0: 33 63 65 32 65 35 35 35 61 65 39 36 37 38 31 34  3ce2e555ae967814
16f0: 37 65 32 31 62 35 38 38 39 65 39 38 0a 0a 74 63  7e21b5889e98..tc
1700: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1710: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 32 32 20 7b  _SHA3-224-2.22 {
1720: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
1730: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1740: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
1750: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
1760: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
1770: 78 20 62 32 66 37 30 31 38 35 38 31 61 34 65 34  x b2f7018581a4e4
1780: 35 39 63 66 39 62 39 64 39 38 31 36 66 63 31 37  59cf9b9d9816fc17
1790: 39 30 33 62 61 38 30 33 33 66 31 33 5d 7d 20 5c  903ba8033f13]} \
17a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
17b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
17c0: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
17d0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
17e0: 63 74 20 2d 72 65 73 75 6c 74 20 63 36 38 33 37  ct -result c6837
17f0: 66 31 32 32 32 37 62 66 62 64 38 36 63 63 66 65  f12227bfbd86ccfe
1800: 37 39 34 30 35 33 63 65 33 61 35 34 30 35 32 63  794053ce3a54052c
1810: 38 63 61 38 34 33 30 66 35 32 36 66 64 36 34 62  8ca8430f526fd64b
1820: 35 66 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  5f2..tcltest::te
1830: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
1840: 2d 32 2e 32 33 20 7b 53 48 41 33 5f 32 32 34 53  -2.23 {SHA3_224S
1850: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1860: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
1870: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1880: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1890: 63 6f 64 65 20 68 65 78 20 66 35 30 30 38 36 62  code hex f50086b
18a0: 34 64 63 37 62 63 61 30 62 61 65 63 30 30 37 36  4dc7bca0baec0076
18b0: 61 38 37 38 64 64 38 39 35 37 31 64 35 32 65 34  a878dd89571d52e4
18c0: 37 38 35 35 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79  7855b]} \..-body
18d0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
18e0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
18f0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
1900: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1910: 75 6c 74 20 65 33 39 61 61 39 36 66 61 64 35 38  ult e39aa96fad58
1920: 31 39 36 31 62 64 61 30 33 32 65 64 33 33 64 63  1961bda032ed33dc
1930: 65 33 36 64 65 66 64 65 39 35 38 62 61 66 39 62  e36defde958baf9b
1940: 61 65 35 64 63 35 35 38 63 66 38 39 0a 0a 74 63  ae5dc558cf89..tc
1950: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1960: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 32 34 20 7b  _SHA3-224-2.24 {
1970: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
1980: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1990: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
19a0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
19b0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
19c0: 78 20 36 65 36 65 66 39 36 33 66 35 30 30 30 64  x 6e6ef963f5000d
19d0: 30 62 39 31 62 30 61 64 35 33 37 64 64 63 39 36  0b91b0ad537ddc96
19e0: 39 37 66 38 64 62 38 66 31 30 61 33 64 35 65 65  97f8db8f10a3d5ee
19f0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1a00: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1a10: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
1a20: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1a30: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36   exact -result 6
1a40: 36 64 63 62 32 39 32 62 34 64 36 62 62 34 63 64  6dcb292b4d6bb4cd
1a50: 64 34 30 39 39 62 38 65 37 62 66 65 61 39 36 35  d4099b8e7bfea965
1a60: 38 36 38 30 63 39 32 63 35 31 35 36 32 63 30 39  8680c92c51562c09
1a70: 31 35 37 37 30 35 36 0a 0a 74 63 6c 74 65 73 74  1577056..tcltest
1a80: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
1a90: 2d 32 32 34 2d 32 2e 32 35 20 7b 53 48 41 33 5f  -224-2.25 {SHA3_
1aa0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
1ab0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1ac0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
1ad0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1ae0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 32 61  y decode hex 12a
1af0: 37 62 31 61 37 33 62 30 62 32 36 61 36 36 33 36  7b1a73b0b26a6636
1b00: 32 65 63 32 61 39 31 65 61 35 66 66 31 31 61 66  2ec2a91ea5ff11af
1b10: 34 39 61 37 61 31 34 38 61 38 63 63 35 5d 7d 20  49a7a148a8cc5]} 
1b20: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1b30: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1b40: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
1b50: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1b60: 61 63 74 20 2d 72 65 73 75 6c 74 20 36 66 63 39  act -result 6fc9
1b70: 31 65 63 38 61 64 34 34 38 31 37 33 66 35 39 31  1ec8ad448173f591
1b80: 62 38 36 35 65 64 33 65 62 38 39 31 31 35 61 32  b865ed3eb89115a2
1b90: 37 38 30 30 33 33 37 36 35 32 33 63 30 30 65 32  78003376523c00e2
1ba0: 32 66 32 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  2f2a..tcltest::t
1bb0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
1bc0: 34 2d 32 2e 32 36 20 7b 53 48 41 33 5f 32 32 34  4-2.26 {SHA3_224
1bd0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1be0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
1bf0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
1c00: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1c10: 65 63 6f 64 65 20 68 65 78 20 38 61 34 37 36 38  ecode hex 8a4768
1c20: 61 64 64 34 61 39 62 64 37 62 33 66 32 37 34 36  add4a9bd7b3f2746
1c30: 31 32 32 30 63 65 61 65 30 32 31 38 63 66 33 33  1220ceae0218cf33
1c40: 32 32 66 34 64 32 61 39 38 30 64 31 5d 7d 20 5c  22f4d2a980d1]} \
1c50: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1c60: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1c70: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
1c80: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
1c90: 63 74 20 2d 72 65 73 75 6c 74 20 39 61 38 38 62  ct -result 9a88b
1ca0: 63 36 34 65 37 34 33 66 32 61 63 61 61 31 36 37  c64e743f2acaa167
1cb0: 30 63 63 61 37 65 32 30 31 61 32 39 39 65 31 63  0cca7e201a299e1c
1cc0: 63 65 36 64 66 37 30 31 35 62 30 64 32 35 33 35  ce6df7015b0d2535
1cd0: 32 31 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  213..tcltest::te
1ce0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
1cf0: 2d 32 2e 32 37 20 7b 53 48 41 33 5f 32 32 34 53  -2.27 {SHA3_224S
1d00: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1d10: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
1d20: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1d30: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1d40: 63 6f 64 65 20 68 65 78 20 35 63 35 62 38 63 31  code hex 5c5b8c1
1d50: 39 30 32 63 38 36 30 38 63 32 30 34 65 37 32 61  902c8608c204e72a
1d60: 38 31 33 65 32 62 36 32 35 30 32 31 62 33 31 38  813e2b625021b318
1d70: 32 63 34 38 62 30 30 66 37 66 65 34 66 5d 7d 20  2c48b00f7fe4f]} 
1d80: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1d90: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1da0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
1db0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1dc0: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 31 38 30  act -result 3180
1dd0: 32 61 30 66 61 39 61 65 37 61 65 38 38 36 32 36  2a0fa9ae7ae88626
1de0: 36 30 34 61 64 39 61 65 34 31 33 38 31 64 36 66  604ad9ae41381d6f
1df0: 37 63 33 63 39 30 65 66 66 63 66 63 66 37 30 65  7c3c90effcfcf70e
1e00: 66 63 66 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  fcf7..tcltest::t
1e10: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
1e20: 34 2d 32 2e 32 38 20 7b 53 48 41 33 5f 32 32 34  4-2.28 {SHA3_224
1e30: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1e40: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
1e50: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
1e60: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1e70: 65 63 6f 64 65 20 68 65 78 20 65 38 39 65 35 63  ecode hex e89e5c
1e80: 66 30 37 61 66 62 34 61 35 38 65 62 65 65 65 31  f07afb4a58ebeee1
1e90: 37 66 66 35 39 36 64 39 30 62 33 32 37 34 62 61  7ff596d90b3274ba
1ea0: 33 34 38 66 31 34 66 32 38 34 66 66 66 30 32 35  348f14f284fff025
1eb0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1ec0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1ed0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
1ee0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1ef0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33   exact -result 3
1f00: 62 63 39 62 37 39 37 33 66 35 35 37 33 35 62 36  bc9b7973f55735b6
1f10: 31 32 64 64 65 65 38 63 63 37 39 30 37 61 33 66  12ddee8cc7907a3f
1f20: 31 34 32 39 62 30 36 64 66 37 63 62 31 32 39 33  1429b06df7cb1293
1f30: 62 39 38 39 38 30 32 0a 0a 74 63 6c 74 65 73 74  b989802..tcltest
1f40: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
1f50: 2d 32 32 34 2d 32 2e 32 39 20 7b 53 48 41 33 5f  -224-2.29 {SHA3_
1f60: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
1f70: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1f80: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
1f90: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1fa0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 62 39  y decode hex eb9
1fb0: 65 31 31 34 33 37 38 32 61 30 66 39 66 61 38 31  e1143782a0f9fa81
1fc0: 35 32 36 31 63 32 61 64 63 32 37 35 38 66 62 31  5261c2adc2758fb1
1fd0: 64 38 38 66 66 65 34 30 61 30 61 65 31 34 34 31  d88ffe40a0ae1441
1fe0: 38 39 61 34 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  89a48]} \..-body
1ff0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2000: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
2010: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2020: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2030: 75 6c 74 20 39 64 37 30 64 32 32 35 32 30 30 39  ult 9d70d2252009
2040: 34 61 31 31 33 32 39 37 61 31 39 32 65 61 64 33  4a113297a192ead3
2050: 33 65 33 31 36 39 32 34 66 64 63 37 61 32 61 39  3e316924fdc7a2a9
2060: 66 38 65 61 37 30 39 38 62 38 34 62 0a 0a 74 63  f8ea7098b84b..tc
2070: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2080: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 33 30 20 7b  _SHA3-224-2.30 {
2090: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
20a0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
20b0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
20c0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
20d0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
20e0: 78 20 63 34 62 61 33 62 66 66 38 38 35 66 62 37  x c4ba3bff885fb7
20f0: 38 33 35 37 32 32 31 61 39 61 39 30 33 62 63 37  8357221a9a903bc7
2100: 65 62 64 31 31 63 37 37 31 66 61 66 35 37 38 39  ebd11c771faf5789
2110: 65 35 61 61 62 63 39 39 33 61 35 66 5d 7d 20 5c  e5aabc993a5f]} \
2120: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2130: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2140: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
2150: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
2160: 63 74 20 2d 72 65 73 75 6c 74 20 37 62 30 32 31  ct -result 7b021
2170: 32 62 34 65 65 30 62 31 34 64 62 61 36 32 63 32  2b4ee0b14dba62c2
2180: 64 62 37 61 37 36 35 61 63 35 36 64 62 34 36 65  db7a765ac56db46e
2190: 30 62 30 36 65 62 37 34 34 65 65 33 35 37 32 36  0b06eb744ee35726
21a0: 64 64 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  ddd..tcltest::te
21b0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
21c0: 2d 32 2e 33 31 20 7b 53 48 41 33 5f 32 32 34 53  -2.31 {SHA3_224S
21d0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
21e0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
21f0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2200: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2210: 63 6f 64 65 20 68 65 78 20 30 37 38 31 30 65 36  code hex 07810e6
2220: 62 37 38 35 31 37 37 65 35 32 64 30 66 65 61 63  b785177e52d0feac
2230: 30 33 39 34 66 33 65 63 63 34 31 66 33 35 61 61  0394f3ecc41f35aa
2240: 30 38 66 66 31 65 64 38 31 36 32 35 37 35 66 38  08ff1ed8162575f8
2250: 35 38 38 38 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79  5888c]} \..-body
2260: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2270: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
2280: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2290: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
22a0: 75 6c 74 20 62 34 31 33 64 36 66 30 63 63 65 31  ult b413d6f0cce1
22b0: 34 62 37 61 31 30 34 34 61 31 34 62 62 32 38 30  4b7a1044a14bb280
22c0: 33 64 35 33 62 65 66 39 30 37 30 39 33 37 36 39  3d53bef907093769
22d0: 61 35 61 61 36 33 61 38 65 33 31 36 0a 0a 74 63  a5aa63a8e316..tc
22e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
22f0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 33 32 20 7b  _SHA3-224-2.32 {
2300: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
2310: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2320: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
2330: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2340: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2350: 78 20 30 31 63 37 34 32 64 63 39 61 62 30 62 30  x 01c742dc9ab0b0
2360: 35 64 66 39 32 35 64 34 61 33 35 31 65 33 38 62  5df925d4a351e38b
2370: 65 61 37 63 61 37 61 64 37 38 33 35 39 34 65 32  ea7ca7ad783594e2
2380: 32 34 38 37 64 35 62 38 31 39 38 35 38 33 66 33  2487d5b8198583f3
2390: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
23a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
23b0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
23c0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
23d0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63   exact -result c
23e0: 34 32 63 37 30 37 64 64 63 37 62 36 33 30 39 33  42c707ddc7b63093
23f0: 39 35 34 34 61 64 62 64 62 65 35 36 37 61 33 33  9544adbdbe567a33
2400: 33 61 63 38 38 63 33 62 35 65 37 33 38 64 65 65  3ac88c3b5e738dee
2410: 38 66 38 36 32 62 65 0a 0a 74 63 6c 74 65 73 74  8f862be..tcltest
2420: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2430: 2d 32 32 34 2d 32 2e 33 33 20 7b 53 48 41 33 5f  -224-2.33 {SHA3_
2440: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
2450: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2460: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
2470: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2480: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 64 30  y decode hex dd0
2490: 66 38 35 62 35 35 66 64 66 35 36 62 61 32 35 34  f85b55fdf56ba254
24a0: 65 30 36 66 38 63 32 62 36 35 30 63 63 36 62 38  e06f8c2b650cc6b8
24b0: 36 62 66 32 38 61 31 34 64 37 31 34 30 31 31 31  6bf28a14d7140111
24c0: 34 31 61 38 36 62 38 66 31 34 62 64 39 5d 7d 20  41a86b8f14bd9]} 
24d0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
24e0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
24f0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
2500: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2510: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 66 65 39  act -result 0fe9
2520: 32 34 36 39 32 39 37 63 32 63 33 34 39 31 31 65  2469297c2c34911e
2530: 61 65 34 32 34 37 31 30 64 62 36 64 33 31 32 30  ae424710db6d3120
2540: 34 37 38 39 38 62 39 37 35 36 65 64 63 35 63 32  47898b9756edc5c2
2550: 64 65 62 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  deb2..tcltest::t
2560: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
2570: 34 2d 32 2e 33 34 20 7b 53 48 41 33 5f 32 32 34  4-2.34 {SHA3_224
2580: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2590: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
25a0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
25b0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
25c0: 65 63 6f 64 65 20 68 65 78 20 64 64 66 34 38 66  ecode hex ddf48f
25d0: 34 63 64 63 38 35 36 63 34 34 38 33 32 36 30 39  4cdc856c44832609
25e0: 32 64 63 66 36 62 66 63 34 65 62 63 66 34 62 33  2dcf6bfc4ebcf4b3
25f0: 36 66 63 32 65 35 31 36 65 62 61 30 39 35 36 38  6fc2e516eba09568
2600: 30 37 35 38 38 62 36 65 38 32 37 62 5d 7d 20 5c  07588b6e827b]} \
2610: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2620: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2630: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
2640: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
2650: 63 74 20 2d 72 65 73 75 6c 74 20 36 63 64 38 33  ct -result 6cd83
2660: 62 61 37 30 65 31 62 64 33 38 37 64 36 30 33 61  ba70e1bd387d603a
2670: 62 31 34 63 39 66 64 63 62 66 39 38 36 32 64 32  b14c9fdcbf9862d2
2680: 65 62 66 30 39 38 37 32 31 35 66 30 31 31 61 62  ebf0987215f011ab
2690: 65 65 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  ee8..tcltest::te
26a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
26b0: 2d 32 2e 33 35 20 7b 53 48 41 33 5f 32 32 34 53  -2.35 {SHA3_224S
26c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
26d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
26e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
26f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2700: 63 6f 64 65 20 68 65 78 20 63 33 34 64 31 66 38  code hex c34d1f8
2710: 37 32 39 36 36 33 35 36 39 35 36 39 66 38 37 62  729663569569f87b
2720: 31 66 64 36 65 30 62 39 35 34 61 65 32 65 33 62  1fd6e0b954ae2e3b
2730: 37 32 33 64 36 63 39 66 63 61 65 36 61 62 30 39  723d6c9fcae6ab09
2740: 62 31 33 62 34 61 38 37 34 38 33 62 32 5d 7d 20  b13b4a87483b2]} 
2750: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
2760: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
2770: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
2780: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2790: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 35 37 65  act -result e57e
27a0: 31 64 32 34 64 62 64 39 61 33 30 61 62 33 31 31  1d24dbd9a30ab311
27b0: 32 39 31 66 35 64 36 61 39 35 35 33 30 63 61 61  291f5d6a95530caa
27c0: 30 32 39 63 34 32 31 64 64 65 30 62 34 38 37 61  029c421dde0b487a
27d0: 35 37 37 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  577e..tcltest::t
27e0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
27f0: 34 2d 32 2e 33 36 20 7b 53 48 41 33 5f 32 32 34  4-2.36 {SHA3_224
2800: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2810: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
2820: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
2830: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2840: 65 63 6f 64 65 20 68 65 78 20 38 30 38 64 65 37  ecode hex 808de7
2850: 63 62 66 38 64 38 33 31 61 64 34 66 31 37 65 62  cbf8d831ad4f17eb
2860: 35 38 30 33 31 64 61 65 64 33 38 62 64 61 62 38  58031daed38bdab8
2870: 32 66 34 36 37 66 38 37 63 36 62 32 65 33 61 37  2f467f87c6b2e3a7
2880: 63 35 64 65 32 35 63 38 65 38 32 32 39 34 31 33  c5de25c8e8229413
2890: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
28a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
28b0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
28c0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
28d0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
28e0: 33 63 31 33 66 31 31 32 32 37 66 34 33 38 36 61  3c13f11227f4386a
28f0: 66 64 63 66 37 36 36 33 61 31 32 30 39 39 30 66  fdcf7663a120990f
2900: 32 37 64 61 32 30 35 66 66 62 39 62 66 38 33 36  27da205ffb9bf836
2910: 37 36 66 38 36 64 63 0a 0a 74 63 6c 74 65 73 74  76f86dc..tcltest
2920: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2930: 2d 32 32 34 2d 32 2e 33 37 20 7b 53 48 41 33 5f  -224-2.37 {SHA3_
2940: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
2950: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2960: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
2970: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2980: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 32 30  y decode hex 520
2990: 34 61 30 61 36 33 37 30 37 62 64 31 63 61 62 36  4a0a63707bd1cab6
29a0: 37 61 38 37 39 37 39 39 34 61 30 35 32 65 65 37  7a8797994a052ee7
29b0: 33 38 38 34 62 33 32 35 66 64 66 33 37 64 38 36  3884b325fdf37d86
29c0: 65 66 32 38 30 62 33 66 35 35 30 63 39 65 62 34  ef280b3f550c9eb4
29d0: 65 37 66 64 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79  e7fd3]} \..-body
29e0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
29f0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
2a00: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2a10: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2a20: 75 6c 74 20 36 61 61 31 30 36 30 66 38 34 31 32  ult 6aa1060f8412
2a30: 37 62 66 32 63 39 38 38 32 33 30 61 39 30 37 32  7bf2c988230a9072
2a40: 34 32 65 37 64 36 39 37 32 61 30 31 63 36 37 37  42e7d6972a01c677
2a50: 32 62 61 30 66 37 62 38 62 63 38 36 0a 0a 74 63  2ba0f7b8bc86..tc
2a60: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2a70: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 33 38 20 7b  _SHA3-224-2.38 {
2a80: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
2a90: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2aa0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
2ab0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2ac0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2ad0: 78 20 64 61 39 34 33 39 62 64 30 39 30 64 66 63  x da9439bd090dfc
2ae0: 32 65 63 63 63 31 32 30 33 61 37 61 38 32 63 35  2eccc1203a7a82c5
2af0: 64 36 34 36 37 66 65 63 34 65 35 62 30 61 32 62  d6467fec4e5b0a2b
2b00: 32 63 32 62 39 65 61 36 35 62 30 33 32 30 33 61  2c2b9ea65b03203a
2b10: 38 63 65 33 36 35 66 62 64 39 38 65 5d 7d 20 5c  8ce365fbd98e]} \
2b20: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2b30: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2b40: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
2b50: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
2b60: 63 74 20 2d 72 65 73 75 6c 74 20 65 38 66 30 39  ct -result e8f09
2b70: 32 39 66 31 66 36 32 30 39 64 34 31 31 38 35 32  29f1f6209d411852
2b80: 39 32 64 33 35 65 62 62 66 35 61 33 62 66 65 35  92d35ebbf5a3bfe5
2b90: 34 39 32 37 31 33 62 30 36 64 35 36 35 37 39 34  492713b06d565794
2ba0: 35 38 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  58d..tcltest::te
2bb0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
2bc0: 2d 32 2e 33 39 20 7b 53 48 41 33 5f 32 32 34 53  -2.39 {SHA3_224S
2bd0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2be0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
2bf0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2c00: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2c10: 63 6f 64 65 20 68 65 78 20 36 36 38 62 62 64 33  code hex 668bbd3
2c20: 38 63 30 61 64 30 38 38 31 61 37 66 30 39 35 31  8c0ad0881a7f0951
2c30: 35 37 64 30 30 66 32 39 62 35 37 36 62 30 31 62  57d00f29b576b01b
2c40: 61 35 34 61 38 66 31 33 39 32 65 35 38 36 63 36  a54a8f1392e586c6
2c50: 34 30 65 63 62 31 32 62 32 61 35 63 36 32 37 61  40ecb12b2a5c627a
2c60: 36 37 38 38 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  67884]} \..-body
2c70: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2c80: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
2c90: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2ca0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2cb0: 75 6c 74 20 37 35 64 64 30 35 36 39 36 32 63 35  ult 75dd056962c5
2cc0: 62 62 35 64 36 66 36 31 36 61 39 66 35 37 38 39  bb5d6f616a9f5789
2cd0: 32 39 39 32 39 34 36 64 30 34 38 64 66 35 37 63  2992946d048df57c
2ce0: 30 61 33 36 61 34 30 61 33 36 35 61 0a 0a 74 63  0a36a40a365a..tc
2cf0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2d00: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 34 30 20 7b  _SHA3-224-2.40 {
2d10: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
2d20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2d30: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
2d40: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2d50: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2d60: 78 20 64 36 33 61 63 33 62 63 66 65 65 33 61 35  x d63ac3bcfee3a5
2d70: 62 63 35 30 33 63 66 32 30 66 65 38 66 66 34 39  bc503cf20fe8ff49
2d80: 36 62 66 37 61 38 30 36 34 37 36 39 38 37 30 63  6bf7a8064769870c
2d90: 38 66 63 35 31 34 63 32 39 62 35 35 38 32 35 62  8fc514c29b55825b
2da0: 36 32 38 38 39 37 35 62 65 62 39 34 62 61 35 36  6288975beb94ba56
2db0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2dc0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2dd0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
2de0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
2df0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63   exact -result c
2e00: 36 39 34 64 61 39 34 31 61 37 61 35 30 36 63 65  694da941a7a506ce
2e10: 66 34 37 31 66 64 66 66 62 35 32 33 30 62 62 36  f471fdffb5230bb6
2e20: 63 33 63 64 32 37 31 35 33 34 31 30 33 33 61 62  c3cd2715341033ab
2e30: 37 32 36 38 65 39 62 0a 0a 74 63 6c 74 65 73 74  7268e9b..tcltest
2e40: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2e50: 2d 32 32 34 2d 32 2e 34 31 20 7b 53 48 41 33 5f  -224-2.41 {SHA3_
2e60: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
2e70: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2e80: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
2e90: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2ea0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 38 35  y decode hex 985
2eb0: 66 30 36 31 32 31 61 65 64 36 30 33 31 37 31 30  f06121aed6031710
2ec0: 32 30 62 61 64 63 32 30 37 35 66 64 33 33 32 35  20badc2075fd3325
2ed0: 36 64 36 37 64 34 30 34 33 30 38 33 39 35 37 35  6d67d40430839575
2ee0: 64 64 61 61 37 61 33 66 31 66 32 32 33 32 35 64  ddaa7a3f1f22325d
2ef0: 30 36 65 61 34 30 32 35 32 64 35 65 34 5d 7d 20  06ea40252d5e4]} 
2f00: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
2f10: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
2f20: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
2f30: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2f40: 61 63 74 20 2d 72 65 73 75 6c 74 20 32 39 66 38  act -result 29f8
2f50: 38 34 36 61 61 66 32 33 34 32 38 31 62 35 31 35  846aaf234281b515
2f60: 65 61 31 64 34 35 36 37 34 35 33 35 61 36 31 32  ea1d45674535a612
2f70: 36 63 33 38 62 64 39 35 39 63 31 39 39 35 63 61  6c38bd959c1995ca
2f80: 64 37 63 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  d7c9..tcltest::t
2f90: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
2fa0: 34 2d 32 2e 34 32 20 7b 53 48 41 33 5f 32 32 34  4-2.42 {SHA3_224
2fb0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2fc0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
2fd0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
2fe0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2ff0: 65 63 6f 64 65 20 68 65 78 20 38 37 38 33 38 34  ecode hex 878384
3000: 39 35 35 32 62 65 34 35 34 30 63 62 32 34 64 36  9552be4540cb24d6
3010: 37 39 39 36 61 31 30 64 31 36 34 34 34 62 32 64  7996a10d16444b2d
3020: 39 33 36 64 32 66 61 35 66 63 66 66 35 31 66 62  936d2fa5fcff51fb
3030: 30 64 64 35 65 65 30 33 39 39 38 63 30 34 35 34  0dd5ee03998c0454
3040: 32 38 39 32 31 35 66 63 65 34 37 66 5d 7d 20 5c  289215fce47f]} \
3050: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3060: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3070: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
3080: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
3090: 63 74 20 2d 72 65 73 75 6c 74 20 38 34 35 30 32  ct -result 84502
30a0: 32 35 36 65 33 66 34 32 39 31 65 66 34 64 31 35  256e3f4291ef4d15
30b0: 65 38 37 30 35 65 35 37 39 39 35 31 66 63 30 65  e8705e579951fc0e
30c0: 33 39 61 32 64 35 38 66 64 61 37 34 38 35 32 35  39a2d58fda748525
30d0: 35 31 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  51f..tcltest::te
30e0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
30f0: 2d 32 2e 34 33 20 7b 53 48 41 33 5f 32 32 34 53  -2.43 {SHA3_224S
3100: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3110: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
3120: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3130: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3140: 63 6f 64 65 20 68 65 78 20 64 61 62 33 31 63 37  code hex dab31c7
3150: 62 33 66 34 30 38 32 35 61 61 63 31 33 66 36 37  b3f40825aac13f67
3160: 37 32 37 37 31 62 37 65 37 66 62 63 30 39 66 65  72771b7e7fbc09fe
3170: 64 66 36 65 66 66 37 37 38 64 35 31 31 39 30 65  df6eff778d51190e
3180: 63 66 64 34 62 30 66 32 35 36 63 66 31 38 39 62  cfd4b0f256cf189b
3190: 61 65 65 65 63 35 30 37 65 39 34 35 66 5d 7d 20  aeeec507e945f]} 
31a0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
31b0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
31c0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
31d0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
31e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 37 31 36  act -result 9716
31f0: 38 61 39 63 33 62 30 37 65 63 34 39 38 37 61 34  8a9c3b07ec4987a4
3200: 63 66 31 66 32 34 37 38 37 33 31 66 63 36 37 34  cf1f2478731fc674
3210: 66 35 36 61 32 63 61 65 65 66 30 37 34 35 39 30  f56a2caeef074590
3220: 65 64 36 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  ed6b..tcltest::t
3230: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
3240: 34 2d 32 2e 34 34 20 7b 53 48 41 33 5f 32 32 34  4-2.44 {SHA3_224
3250: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3260: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
3270: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
3280: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3290: 65 63 6f 64 65 20 68 65 78 20 31 31 31 39 62 39  ecode hex 1119b9
32a0: 36 32 62 65 64 35 38 31 35 37 33 34 61 66 37 38  62bed5815734af78
32b0: 32 37 65 63 35 33 36 37 30 31 61 34 39 34 61 63  27ec536701a494ac
32c0: 35 64 34 61 62 38 33 65 65 61 31 62 31 36 65 63  5d4ab83eea1b16ec
32d0: 63 38 30 63 65 34 65 35 66 38 36 39 34 61 37 64  c80ce4e5f8694a7d
32e0: 31 31 62 63 62 61 32 65 33 34 66 30 38 34 64 64  11bcba2e34f084dd
32f0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3300: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3310: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
3320: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3330: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32   exact -result 2
3340: 30 35 64 38 39 65 30 33 32 66 30 33 63 38 35 31  05d89e032f03c851
3350: 39 63 66 34 33 62 37 32 30 34 37 38 33 38 39 62  9cf43b720478389b
3360: 31 37 38 38 66 33 35 32 32 63 33 64 33 34 37 66  1788f3522c3d347f
3370: 65 62 64 32 63 37 30 0a 0a 74 63 6c 74 65 73 74  ebd2c70..tcltest
3380: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
3390: 2d 32 32 34 2d 32 2e 34 35 20 7b 53 48 41 33 5f  -224-2.45 {SHA3_
33a0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
33b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
33c0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
33d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
33e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 32 63  y decode hex d2c
33f0: 34 35 65 32 63 31 66 61 30 63 34 34 65 66 63 38  45e2c1fa0c44efc8
3400: 34 65 36 63 30 36 35 34 63 63 30 64 38 36 37 61  4e6c0654cc0d867a
3410: 33 65 33 33 37 33 33 63 37 32 35 61 61 37 31 38  3e33733c725aa718
3420: 64 39 37 34 65 64 36 61 34 62 37 66 38 66 39 31  d974ed6a4b7f8f91
3430: 64 65 37 64 33 36 32 32 62 31 65 34 62 65 34 32  de7d3622b1e4be42
3440: 38 64 65 32 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79  8de2a]} \..-body
3450: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3460: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
3470: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3480: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3490: 75 6c 74 20 64 34 38 33 65 33 39 62 37 61 64 64  ult d483e39b7add
34a0: 30 35 30 65 62 34 61 37 39 33 65 35 34 63 38 35  050eb4a793e54c85
34b0: 62 32 35 30 37 34 36 65 33 38 32 33 39 39 63 37  b250746e382399c7
34c0: 34 37 33 36 66 33 33 64 61 38 39 30 0a 0a 74 63  4736f33da890..tc
34d0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
34e0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 34 36 20 7b  _SHA3-224-2.46 {
34f0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
3500: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
3510: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
3520: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
3530: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
3540: 78 20 61 38 37 33 62 31 34 38 66 65 31 38 30 37  x a873b148fe1807
3550: 62 38 39 63 62 65 64 39 33 30 61 37 38 30 32 61  b89cbed930a7802a
3560: 62 61 64 36 63 61 30 34 34 32 33 34 30 65 36 32  bad6ca0442340e62
3570: 65 64 32 31 62 38 34 65 61 64 39 61 36 33 34 37  ed21b84ead9a6347
3580: 31 33 62 62 34 64 65 35 36 34 38 32 30 38 63 30  13bb4de5648208c0
3590: 65 65 64 36 37 33 38 64 39 63 63 38 5d 7d 20 5c  eed6738d9cc8]} \
35a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
35b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
35c0: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
35d0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
35e0: 63 74 20 2d 72 65 73 75 6c 74 20 63 38 36 62 63  ct -result c86bc
35f0: 63 31 32 61 36 61 62 37 39 32 63 31 34 39 61 61  c12a6ab792c149aa
3600: 38 33 61 36 37 38 33 63 61 38 62 62 35 32 62 30  83a6783ca8bb52b0
3610: 63 61 34 62 32 63 31 32 36 36 31 63 30 61 32 35  ca4b2c12661c0a25
3620: 64 32 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  d22..tcltest::te
3630: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
3640: 2d 32 2e 34 37 20 7b 53 48 41 33 5f 32 32 34 53  -2.47 {SHA3_224S
3650: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3660: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
3670: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3680: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3690: 63 6f 64 65 20 68 65 78 20 62 33 30 30 38 66 36  code hex b3008f6
36a0: 66 35 36 37 64 31 65 65 64 39 61 62 35 62 33 62  f567d1eed9ab5b3b
36b0: 62 63 65 38 32 34 64 32 39 30 65 36 36 66 36 36  bce824d290e66f66
36c0: 62 63 66 63 66 66 37 66 39 62 38 39 39 34 38 33  bcfcff7f9b899483
36d0: 35 62 34 64 35 34 61 34 65 34 35 63 39 62 38 36  5b4d54a4e45c9b86
36e0: 35 31 62 33 37 64 62 65 66 65 35 65 33 66 65 35  51b37dbefe5e3fe5
36f0: 62 36 37 34 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b674f]} \..-body
3700: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3710: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
3720: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3730: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3740: 75 6c 74 20 32 33 39 32 39 37 35 33 61 64 30 37  ult 23929753ad07
3750: 65 38 34 37 36 65 37 62 64 61 63 38 61 30 63 61  e8476e7bdac8a0ca
3760: 33 39 65 39 61 61 63 31 35 38 31 33 32 36 35 33  39e9aac158132653
3770: 62 65 31 30 65 62 65 65 62 35 30 63 0a 0a 74 63  be10ebeeb50c..tc
3780: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
3790: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 34 38 20 7b  _SHA3-224-2.48 {
37a0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
37b0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
37c0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
37d0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
37e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
37f0: 78 20 37 38 64 30 37 33 62 34 65 31 33 66 36 38  x 78d073b4e13f68
3800: 35 30 64 63 31 63 61 33 36 36 38 33 61 62 61 63  50dc1ca36683abac
3810: 37 32 33 33 36 34 36 35 64 37 39 30 65 62 33 35  72336465d790eb35
3820: 37 35 63 39 34 32 36 36 37 64 31 65 33 65 63 63  75c942667d1e3ecc
3830: 38 34 39 66 33 37 61 38 64 37 33 36 30 34 63 62  849f37a8d73604cb
3840: 30 66 65 37 32 36 66 66 65 35 35 37 34 34 61 32  0fe726ffe55744a2
3850: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3860: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3870: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
3880: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3890: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36   exact -result 6
38a0: 32 32 39 32 33 33 66 63 36 35 35 65 61 34 38 62  229233fc655ea48b
38b0: 62 35 62 34 38 62 37 33 61 30 38 31 38 39 37 64  b5b48b73a081897d
38c0: 38 35 35 66 36 63 66 31 30 34 37 38 32 32 38 66  855f6cf10478228f
38d0: 63 33 30 35 38 34 32 0a 0a 74 63 6c 74 65 73 74  c305842..tcltest
38e0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
38f0: 2d 32 32 34 2d 32 2e 34 39 20 7b 53 48 41 33 5f  -224-2.49 {SHA3_
3900: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
3910: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
3920: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
3930: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3940: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 35 33  y decode hex 453
3950: 32 35 62 38 30 65 30 34 33 63 30 63 64 63 65 33  25b80e043c0cdce3
3960: 65 63 34 32 31 65 63 64 61 35 32 39 34 38 31 39  ec421ecda5294819
3970: 31 30 63 30 39 37 33 30 31 32 38 62 34 62 62 39  10c09730128b4bb9
3980: 32 37 64 64 61 31 36 35 39 64 64 64 38 66 64 33  27dda1659ddd8fd3
3990: 63 61 36 36 37 64 38 35 37 39 34 31 65 36 66 39  ca667d857941e6f9
39a0: 66 64 39 33 39 61 31 63 35 37 30 39 38 5d 7d 20  fd939a1c57098]} 
39b0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
39c0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
39d0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
39e0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
39f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 37 36 61  act -result 776a
3a00: 61 31 66 35 34 65 30 33 38 66 33 39 30 34 39 31  a1f54e038f390491
3a10: 61 35 64 36 39 62 64 65 37 61 32 64 62 63 62 61  a5d69bde7a2dbcba
3a20: 39 37 63 33 35 35 37 34 65 62 65 36 30 63 39 61  97c35574ebe60c9a
3a30: 37 37 32 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  772f..tcltest::t
3a40: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
3a50: 34 2d 32 2e 35 30 20 7b 53 48 41 33 5f 32 32 34  4-2.50 {SHA3_224
3a60: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3a70: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
3a80: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
3a90: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3aa0: 65 63 6f 64 65 20 68 65 78 20 33 62 64 64 36 38  ecode hex 3bdd68
3ab0: 32 31 64 39 33 38 66 61 63 35 32 31 30 31 66 62  21d938fac52101fb
3ac0: 65 65 35 64 36 62 61 31 39 31 66 62 33 62 36 63  ee5d6ba191fb3b6c
3ad0: 62 36 33 34 64 62 66 34 32 63 65 62 61 61 65 35  b634dbf42cebaae5
3ae0: 37 62 64 38 39 37 34 38 31 61 65 35 65 65 30 34  7bd897481ae5ee04
3af0: 65 32 64 38 37 31 61 34 63 33 33 33 61 62 35 61  e2d871a4c333ab5a
3b00: 62 36 35 38 38 31 34 34 66 32 66 31 5d 7d 20 5c  b6588144f2f1]} \
3b10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3b20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3b30: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
3b40: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
3b50: 63 74 20 2d 72 65 73 75 6c 74 20 36 32 66 38 66  ct -result 62f8f
3b60: 33 62 61 65 61 36 64 63 66 35 61 66 32 35 64 35  3baea6dcf5af25d5
3b70: 33 64 64 66 64 61 63 30 62 64 63 64 65 38 38 65  3ddfdac0bdcde88e
3b80: 33 38 39 35 64 66 35 36 37 63 36 63 34 31 36 61  3895df567c6c416a
3b90: 35 34 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  541..tcltest::te
3ba0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
3bb0: 2d 32 2e 35 31 20 7b 53 48 41 33 5f 32 32 34 53  -2.51 {SHA3_224S
3bc0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3bd0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
3be0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3bf0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3c00: 63 6f 64 65 20 68 65 78 20 38 36 66 63 36 36 66  code hex 86fc66f
3c10: 32 36 31 38 63 39 38 66 65 39 65 66 61 31 65 33  2618c98fe9efa1e3
3c20: 61 63 30 34 65 33 34 30 33 38 35 64 63 32 62 37  ac04e340385dc2b7
3c30: 34 36 63 62 63 30 66 37 63 37 35 37 62 38 38 33  46cbc0f7c757b883
3c40: 34 32 38 31 30 66 65 37 30 64 38 31 32 30 30 39  42810fe70d812009
3c50: 35 32 39 32 38 65 37 61 61 64 30 63 30 62 36 62  52928e7aad0c0b6b
3c60: 31 39 61 30 34 34 35 33 37 62 30 30 39 5d 7d 20  19a044537b009]} 
3c70: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
3c80: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
3c90: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
3ca0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3cb0: 61 63 74 20 2d 72 65 73 75 6c 74 20 32 30 61 32  act -result 20a2
3cc0: 31 65 62 31 64 33 31 33 30 61 34 35 31 39 63 65  1eb1d3130a4519ce
3cd0: 36 61 62 64 35 61 62 36 38 31 37 30 38 31 61 65  6abd5ab6817081ae
3ce0: 31 62 65 66 33 36 30 33 30 35 36 34 37 36 61 30  1bef3603056476a0
3cf0: 30 65 34 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  0e41..tcltest::t
3d00: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
3d10: 34 2d 32 2e 35 32 20 7b 53 48 41 33 5f 32 32 34  4-2.52 {SHA3_224
3d20: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3d30: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
3d40: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
3d50: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3d60: 65 63 6f 64 65 20 68 65 78 20 66 32 61 36 31 36  ecode hex f2a616
3d70: 38 65 37 66 39 32 64 33 31 33 66 63 33 30 66 39  8e7f92d313fc30f9
3d80: 65 36 66 38 32 35 61 34 38 30 39 31 36 32 31 36  e6f825a480916216
3d90: 66 30 32 65 30 33 30 38 64 62 37 30 37 37 33 65  f02e0308db70773e
3da0: 63 31 36 35 65 32 35 65 38 31 66 66 62 66 30 32  c165e25e81ffbf02
3db0: 32 30 63 35 63 61 30 63 63 36 63 39 31 64 33 61  20c5ca0cc6c91d3a
3dc0: 30 39 64 61 39 39 66 61 36 65 66 61 38 37 37 66  09da99fa6efa877f
3dd0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3de0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3df0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
3e00: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3e10: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35   exact -result 5
3e20: 64 36 65 35 63 38 32 35 37 34 66 35 65 35 63 30  d6e5c82574f5e5c0
3e30: 33 33 39 64 33 61 66 31 66 39 63 32 38 65 31 37  339d3af1f9c28e17
3e40: 62 63 64 64 63 33 30 36 61 31 35 31 38 37 61 66  bcddc306a15187af
3e50: 66 35 64 33 64 64 37 0a 0a 74 63 6c 74 65 73 74  f5d3dd7..tcltest
3e60: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
3e70: 2d 32 32 34 2d 32 2e 35 33 20 7b 53 48 41 33 5f  -224-2.53 {SHA3_
3e80: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
3e90: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
3ea0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
3eb0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3ec0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 65 33  y decode hex 5e3
3ed0: 62 36 62 37 35 62 35 34 66 32 31 62 38 30 31 36  b6b75b54f21b8016
3ee0: 65 66 66 62 33 39 32 37 36 66 35 65 37 66 34 39  effb39276f5e7f49
3ef0: 33 31 31 37 61 63 34 63 30 66 32 64 65 63 33 38  3117ac4c0f2dec38
3f00: 61 38 30 61 65 32 39 31 37 64 61 64 38 33 63 36  a80ae2917dad83c6
3f10: 38 39 30 30 31 32 30 64 62 31 33 32 35 66 31 66  8900120db1325f1f
3f20: 34 36 39 37 65 30 66 35 63 32 35 61 38 62 39 32  4697e0f5c25a8b92
3f30: 61 39 37 30 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79  a9702]} \..-body
3f40: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3f50: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
3f60: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3f70: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3f80: 75 6c 74 20 35 64 63 32 31 34 37 66 31 63 66 36  ult 5dc2147f1cf6
3f90: 35 35 64 61 62 62 35 63 61 34 62 32 39 37 30 62  55dabb5ca4b2970b
3fa0: 34 35 36 34 65 62 31 39 65 63 34 35 36 65 36 66  4564eb19ec456e6f
3fb0: 39 36 36 62 62 61 65 31 39 37 36 32 0a 0a 74 63  966bbae19762..tc
3fc0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
3fd0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 35 34 20 7b  _SHA3-224-2.54 {
3fe0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
3ff0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4000: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
4010: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4020: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4030: 78 20 65 37 66 31 37 63 31 33 31 39 35 30 63 30  x e7f17c131950c0
4040: 36 33 31 31 66 34 37 37 39 39 61 30 66 35 61 36  6311f47799a0f5a6
4050: 62 34 39 39 36 66 34 63 63 38 39 30 33 33 34 34  b4996f4cc8903344
4060: 35 30 65 31 62 64 36 63 63 36 66 35 36 37 30 37  50e1bd6cc6f56707
4070: 37 31 63 30 64 63 36 30 37 66 38 65 63 65 62 31  71c0dc607f8eceb1
4080: 35 33 30 30 65 63 34 32 32 30 35 31 30 65 64 35  5300ec4220510ed5
4090: 62 37 64 65 62 33 34 32 39 64 65 36 5d 7d 20 5c  b7deb3429de6]} \
40a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
40b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
40c0: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
40d0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
40e0: 63 74 20 2d 72 65 73 75 6c 74 20 34 63 65 38 30  ct -result 4ce80
40f0: 64 61 62 39 66 39 33 33 31 31 32 61 33 66 64 37  dab9f933112a3fd7
4100: 38 63 31 66 37 36 34 33 34 62 31 39 37 38 30 36  8c1f76434b197806
4110: 65 64 64 66 65 33 35 63 62 30 62 64 64 38 34 35  eddfe35cb0bdd845
4120: 63 31 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  c15..tcltest::te
4130: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
4140: 2d 32 2e 35 35 20 7b 53 48 41 33 5f 32 32 34 53  -2.55 {SHA3_224S
4150: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
4160: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
4170: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4180: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4190: 63 6f 64 65 20 68 65 78 20 63 39 61 61 33 64 30  code hex c9aa3d0
41a0: 66 36 64 38 37 38 64 62 31 31 32 33 35 65 37 62  f6d878db11235e7b
41b0: 30 32 38 66 38 64 36 37 65 32 63 65 32 36 65 65  028f8d67e2ce26ee
41c0: 65 37 31 38 66 33 30 38 65 32 31 31 33 32 65 33  e718f308e21132e3
41d0: 37 37 65 33 31 37 30 65 32 36 65 63 65 39 35 62  77e3170e26ece95b
41e0: 64 33 37 61 34 62 64 37 66 38 37 33 62 61 37 66  d37a4bd7f873ba7f
41f0: 38 62 37 31 35 31 37 65 63 35 30 32 39 37 62 32  8b71517ec50297b2
4200: 31 63 66 39 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  1cf94]} \..-body
4210: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4220: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
4230: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4240: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4250: 75 6c 74 20 35 39 36 33 62 34 31 62 31 33 39 32  ult 5963b41b1392
4260: 35 61 39 30 63 39 65 38 66 62 63 64 65 64 39 61  5a90c9e8fbcded9a
4270: 38 32 61 64 65 38 61 61 65 33 36 64 65 65 39 32  82ade8aae36dee92
4280: 30 31 39 39 66 36 64 36 61 63 37 66 0a 0a 74 63  0199f6d6ac7f..tc
4290: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
42a0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 35 36 20 7b  _SHA3-224-2.56 {
42b0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
42c0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
42d0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
42e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
42f0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4300: 78 20 30 66 31 37 30 61 66 61 66 63 65 66 64 66  x 0f170afafcefdf
4310: 61 38 62 30 64 65 33 32 38 64 61 62 33 30 62 34  a8b0de328dab30b4
4320: 65 34 34 64 39 38 64 36 61 65 61 32 62 63 33 39  e44d98d6aea2bc39
4330: 35 35 37 66 66 34 36 35 38 66 63 65 34 66 62 66  557ff4658fce4fbf
4340: 38 35 32 36 64 38 62 35 33 35 39 66 31 37 33 63  8526d8b5359f173c
4350: 31 34 65 34 64 61 37 63 66 38 38 39 33 35 63 39  14e4da7cf88935c9
4360: 33 36 39 66 63 37 64 36 30 37 38 36 33 66 32 35  369fc7d607863f25
4370: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4380: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4390: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
43a0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
43b0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66   exact -result f
43c0: 65 37 65 35 39 30 32 38 63 37 38 35 35 63 33 37  e7e59028c7855c37
43d0: 61 65 33 64 63 35 65 65 33 32 34 38 36 34 63 66  ae3dc5ee324864cf
43e0: 65 65 36 62 38 62 63 63 63 32 63 33 62 35 61 34  ee6b8bccc2c3b5a4
43f0: 31 30 62 36 35 64 39 0a 0a 74 63 6c 74 65 73 74  10b65d9..tcltest
4400: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4410: 2d 32 32 34 2d 32 2e 35 37 20 7b 53 48 41 33 5f  -224-2.57 {SHA3_
4420: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
4430: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
4440: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
4450: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4460: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 62 32  y decode hex 6b2
4470: 62 39 32 35 38 34 31 34 36 61 34 33 33 62 65 65  b92584146a433bee
4480: 38 62 39 34 37 63 63 31 66 33 35 62 36 31 37 62  8b947cc1f35b617b
4490: 37 33 66 35 62 31 65 30 33 37 36 61 63 38 62 64  73f5b1e0376ac8bd
44a0: 61 64 66 65 35 62 66 64 66 32 32 36 33 62 32 30  adfe5bfdf2263b20
44b0: 35 66 37 34 64 66 61 35 33 64 62 37 61 32 39 65  5f74dfa53db7a29e
44c0: 35 30 37 38 66 35 63 33 34 61 32 36 38 31 31 39  5078f5c34a268119
44d0: 37 33 36 62 61 33 39 30 39 36 31 66 36 5d 7d 20  736ba390961f6]} 
44e0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
44f0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
4500: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
4510: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4520: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 33 32 63  act -result 132c
4530: 66 61 37 65 37 31 66 65 30 39 39 31 61 62 62 64  fa7e71fe0991abbd
4540: 38 38 65 66 35 38 38 61 63 39 35 61 63 39 32 38  88ef588ac95ac928
4550: 39 62 31 64 37 37 35 62 34 32 30 33 33 35 36 37  9b1d775b42033567
4560: 64 64 33 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  dd33..tcltest::t
4570: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
4580: 34 2d 32 2e 35 38 20 7b 53 48 41 33 5f 32 32 34  4-2.58 {SHA3_224
4590: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
45a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
45b0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
45c0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
45d0: 65 63 6f 64 65 20 68 65 78 20 33 39 66 37 61 39  ecode hex 39f7a9
45e0: 34 33 31 32 62 65 61 31 62 34 66 61 39 38 39 66  4312bea1b4fa989f
45f0: 35 61 36 37 37 35 64 66 35 33 38 66 30 31 37 30  5a6775df538f0170
4600: 34 31 32 30 38 33 38 63 34 61 33 31 30 34 32 35  4120838c4a310425
4610: 36 34 37 38 62 35 63 30 63 66 62 65 38 62 38 36  6478b5c0cfbe8b86
4620: 65 32 39 31 32 63 39 38 30 62 33 39 30 65 61 34  e2912c980b390ea4
4630: 31 32 65 64 64 64 62 36 39 64 34 36 31 65 35 30  12edddb69d461e50
4640: 66 39 66 33 31 33 62 63 31 37 61 66 5d 7d 20 5c  f9f313bc17af]} \
4650: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4660: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4670: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
4680: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
4690: 63 74 20 2d 72 65 73 75 6c 74 20 66 63 63 35 39  ct -result fcc59
46a0: 36 35 35 62 38 66 65 63 31 61 33 64 38 37 38 33  655b8fec1a3d8783
46b0: 34 35 64 66 39 31 30 38 62 64 39 39 66 34 64 64  45df9108bd99f4dd
46c0: 30 65 35 32 31 38 61 35 35 66 63 33 33 35 65 35  0e5218a55fc335e5
46d0: 37 66 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  7f7..tcltest::te
46e0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
46f0: 2d 32 2e 35 39 20 7b 53 48 41 33 5f 32 32 34 53  -2.59 {SHA3_224S
4700: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
4710: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
4720: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4730: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4740: 63 6f 64 65 20 68 65 78 20 61 63 35 38 32 62 35  code hex ac582b5
4750: 61 34 62 62 30 63 35 65 39 63 34 30 64 38 66 32  a4bb0c5e9c40d8f2
4760: 37 37 62 64 61 39 64 65 33 64 30 37 66 66 66 30  77bda9de3d07fff0
4770: 31 65 38 32 30 61 31 63 64 61 66 38 38 37 30 38  1e820a1cdaf88708
4780: 66 31 64 36 30 62 65 36 30 62 39 61 35 65 38 33  f1d60be60b9a5e83
4790: 62 35 63 35 39 33 36 35 37 33 38 37 38 30 32 62  b5c593657387802b
47a0: 34 31 38 32 64 31 64 66 34 65 39 34 36 36 65 36  4182d1df4e9466e6
47b0: 64 37 61 65 36 64 63 37 63 38 30 37 39 5d 7d 20  d7ae6dc7c8079]} 
47c0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
47d0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
47e0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
47f0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4800: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 63 32 65  act -result 5c2e
4810: 31 30 66 61 65 38 66 34 33 30 34 63 64 39 33 36  10fae8f4304cd936
4820: 31 36 39 30 65 35 64 32 63 34 63 64 31 35 66 31  1690e5d2c4cd15f1
4830: 30 61 37 62 31 34 65 61 36 30 32 30 38 37 33 39  0a7b14ea60208739
4840: 35 37 39 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  579b..tcltest::t
4850: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
4860: 34 2d 32 2e 36 30 20 7b 53 48 41 33 5f 32 32 34  4-2.60 {SHA3_224
4870: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4880: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
4890: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
48a0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
48b0: 65 63 6f 64 65 20 68 65 78 20 30 37 32 37 35 33  ecode hex 072753
48c0: 39 38 31 39 39 38 34 35 33 34 33 38 61 35 32 30  981998453438a520
48d0: 64 39 64 65 32 64 35 37 30 34 32 39 32 39 31 30  d9de2d5704292910
48e0: 31 34 38 62 38 66 37 39 34 65 63 33 37 36 35 62  148b8f794ec3765b
48f0: 32 34 30 63 37 61 66 31 62 37 39 34 36 32 66 61  240c7af1b79462fa
4900: 39 61 32 66 30 30 30 64 64 39 34 64 35 39 32 64  9a2f000dd94d592d
4910: 33 61 32 61 30 36 39 64 63 32 34 34 64 61 66 35  3a2a069dc244daf5
4920: 37 62 31 32 63 35 37 36 37 35 66 33 66 38 39 62  7b12c57675f3f89b
4930: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4940: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4950: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
4960: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
4970: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
4980: 30 64 32 39 30 61 36 65 62 64 64 39 35 30 38 31  0d290a6ebdd95081
4990: 31 61 32 37 31 35 66 33 35 34 62 30 64 38 39 33  1a2715f354b0d893
49a0: 35 63 62 36 31 30 61 34 37 31 63 66 63 35 64 66  5cb610a471cfc5df
49b0: 66 35 65 30 36 36 30 0a 0a 74 63 6c 74 65 73 74  f5e0660..tcltest
49c0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
49d0: 2d 32 32 34 2d 32 2e 36 31 20 7b 53 48 41 33 5f  -224-2.61 {SHA3_
49e0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
49f0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
4a00: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
4a10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4a20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 36 61  y decode hex 66a
4a30: 39 61 36 64 30 61 33 32 32 65 64 32 38 35 32 33  9a6d0a322ed28523
4a40: 37 38 61 66 38 32 63 30 61 32 63 30 32 37 62 31  78af82c0a2c027b1
4a50: 30 38 32 30 39 38 61 62 37 35 30 39 32 35 61 34  082098ab750925a4
4a60: 64 63 32 65 38 39 36 31 64 30 30 36 32 63 39 64  dc2e8961d0062c9d
4a70: 62 30 32 65 38 63 66 34 32 61 36 62 34 38 61 66  b02e8cf42a6b48af
4a80: 62 30 30 35 36 64 36 63 31 66 31 66 62 62 65 63  b0056d6c1f1fbbec
4a90: 33 66 62 65 65 66 30 34 39 35 33 35 66 36 65 39  3fbeef049535f6e9
4aa0: 62 33 38 36 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b3864]} \..-body
4ab0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4ac0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
4ad0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4ae0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4af0: 75 6c 74 20 64 36 38 33 34 38 38 63 38 34 32 30  ult d683488c8420
4b00: 65 62 32 64 36 31 65 35 32 38 61 62 30 61 37 62  eb2d61e528ab0a7b
4b10: 37 33 61 61 37 38 30 61 30 38 35 62 39 63 37 39  73aa780a085b9c79
4b20: 38 32 32 39 33 62 32 61 63 36 61 64 0a 0a 74 63  82293b2ac6ad..tc
4b30: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4b40: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 36 32 20 7b  _SHA3-224-2.62 {
4b50: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
4b60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4b70: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
4b80: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4b90: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4ba0: 78 20 31 38 34 31 39 61 38 34 39 38 64 34 65 39  x 18419a8498d4e9
4bb0: 62 66 61 61 39 31 31 37 34 38 31 38 36 63 35 37  bfaa911748186c57
4bc0: 35 33 64 35 64 61 35 61 61 30 33 33 33 37 31 66  53d5da5aa033371f
4bd0: 66 63 35 36 36 35 30 64 30 61 65 39 62 37 33 66  fc56650d0ae9b73f
4be0: 34 33 30 66 30 64 31 66 33 63 39 64 34 30 33 36  430f0d1f3c9d4036
4bf0: 32 37 38 36 63 30 34 32 39 64 39 37 37 62 38 39  2786c0429d977b89
4c00: 39 62 36 34 30 31 36 65 63 61 38 32 65 36 34 32  9b64016eca82e642
4c10: 30 33 66 36 36 38 35 63 31 32 65 65 5d 7d 20 5c  03f6685c12ee]} \
4c20: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4c30: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4c40: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
4c50: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
4c60: 63 74 20 2d 72 65 73 75 6c 74 20 35 31 64 30 63  ct -result 51d0c
4c70: 64 33 33 66 64 36 35 37 39 62 30 35 63 33 36 36  d33fd6579b05c366
4c80: 63 36 66 63 63 36 35 33 36 33 38 62 37 62 31 33  c6fcc653638b7b13
4c90: 62 36 32 37 39 38 62 39 39 62 33 36 37 39 32 63  b62798b99b36792c
4ca0: 64 63 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  dc4..tcltest::te
4cb0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
4cc0: 2d 32 2e 36 33 20 7b 53 48 41 33 5f 32 32 34 53  -2.63 {SHA3_224S
4cd0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
4ce0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
4cf0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4d00: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4d10: 63 6f 64 65 20 68 65 78 20 34 66 63 35 32 30 30  code hex 4fc5200
4d20: 39 64 35 38 61 30 66 63 32 35 37 33 65 38 33 66  9d58a0fc2573e83f
4d30: 61 33 33 35 62 35 63 31 64 66 38 63 31 34 62 32  a335b5c1df8c14b2
4d40: 65 36 64 61 61 66 30 35 62 64 36 65 31 33 66 64  e6daaf05bd6e13fd
4d50: 35 37 32 32 66 32 38 64 65 34 38 31 36 37 37 32  5722f28de4816772
4d60: 34 32 34 63 32 66 39 34 64 64 63 33 64 65 30 64  424c2f94ddc3de0d
4d70: 33 64 37 65 32 36 38 31 32 64 30 31 34 62 62 39  3d7e26812d014bb9
4d80: 66 64 38 33 30 31 32 64 63 39 61 62 66 31 65 63  fd83012dc9abf1ec
4d90: 39 65 33 66 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79  9e3f1]} \..-body
4da0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4db0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
4dc0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4dd0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4de0: 75 6c 74 20 36 33 30 65 65 32 62 65 61 66 31 63  ult 630ee2beaf1c
4df0: 31 35 39 32 65 61 61 36 32 36 33 66 63 35 36 32  1592eaa6263fc562
4e00: 61 32 36 30 62 36 30 35 34 65 39 65 61 62 31 61  a260b6054e9eab1a
4e10: 61 31 39 35 33 36 66 64 61 31 37 30 0a 0a 74 63  a19536fda170..tc
4e20: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4e30: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 36 34 20 7b  _SHA3-224-2.64 {
4e40: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
4e50: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4e60: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
4e70: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4e80: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4e90: 78 20 61 63 64 61 61 32 38 36 39 32 66 33 33 34  x acdaa28692f334
4ea0: 37 33 32 30 38 38 66 35 65 66 61 62 32 63 37 39  732088f5efab2c79
4eb0: 35 31 66 65 30 66 38 34 35 62 39 65 32 63 36 66  51fe0f845b9e2c6f
4ec0: 31 32 35 33 63 33 63 64 63 64 65 33 30 61 34 65  1253c3cdcde30a4e
4ed0: 38 64 32 31 32 30 65 33 38 63 32 36 34 32 32 32  8d2120e38c264222
4ee0: 31 39 64 66 34 31 65 64 61 32 63 38 33 33 34 65  19df41eda2c8334e
4ef0: 31 33 66 36 36 39 61 36 35 66 35 62 61 32 30 37  13f669a65f5ba207
4f00: 35 62 34 36 37 65 64 65 64 33 32 39 33 36 64 35  5b467eded32936d5
4f10: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4f20: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4f30: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
4f40: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
4f50: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37   exact -result 7
4f60: 64 34 39 39 31 64 35 34 63 37 38 61 66 35 38 30  d4991d54c78af580
4f70: 39 63 64 31 37 30 32 34 63 61 64 61 65 37 38 33  9cd17024cadae783
4f80: 63 36 66 35 61 31 66 30 66 65 62 33 36 35 62 35  c6f5a1f0feb365b5
4f90: 33 32 35 38 30 63 32 0a 0a 74 63 6c 74 65 73 74  32580c2..tcltest
4fa0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4fb0: 2d 32 32 34 2d 32 2e 36 35 20 7b 53 48 41 33 5f  -224-2.65 {SHA3_
4fc0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
4fd0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
4fe0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
4ff0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5000: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 31 35  y decode hex d15
5010: 39 33 63 64 33 33 38 62 37 61 32 35 62 62 35 34  93cd338b7a25bb54
5020: 31 33 66 31 31 32 61 36 33 39 66 65 33 31 63 39  13f112a639fe31c9
5030: 38 31 65 35 30 35 63 38 31 61 38 32 30 65 36 33  81e505c81a820e63
5040: 38 63 32 35 32 30 39 65 32 63 65 35 36 63 38 38  8c25209e2ce56c88
5050: 33 38 61 37 63 38 31 31 37 64 62 61 64 63 63 64  38a7c8117dbadccd
5060: 65 63 39 35 39 61 36 66 37 63 61 62 30 63 66 33  ec959a6f7cab0cf3
5070: 30 34 33 31 35 37 30 31 64 34 63 63 66 30 31 36  04315701d4ccf016
5080: 37 62 34 30 32 36 61 36 37 34 34 64 65 5d 7d 20  7b4026a6744de]} 
5090: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
50a0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
50b0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
50c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
50d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 34 65 31  act -result 84e1
50e0: 38 33 33 30 37 32 33 65 34 66 39 30 35 32 30 64  8330723e4f90520d
50f0: 30 62 30 35 31 61 39 62 66 39 62 64 37 62 35 63  0b051a9bf9bd7b5c
5100: 37 65 63 30 31 37 37 38 30 33 66 31 35 63 66 37  7ec0177803f15cf7
5110: 34 30 65 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  40e5..tcltest::t
5120: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
5130: 34 2d 32 2e 36 36 20 7b 53 48 41 33 5f 32 32 34  4-2.66 {SHA3_224
5140: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
5150: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
5160: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
5170: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
5180: 65 63 6f 64 65 20 68 65 78 20 38 63 66 38 65 61  ecode hex 8cf8ea
5190: 32 35 33 31 30 31 32 36 61 65 31 66 64 63 65 33  25310126ae1fdce3
51a0: 63 39 31 39 35 33 39 35 61 39 64 34 35 30 35 31  c9195395a9d45051
51b0: 61 32 61 33 66 30 38 63 65 31 35 34 64 38 32 36  a2a3f08ce154d826
51c0: 35 62 35 34 63 63 61 37 30 33 31 61 37 65 63 38  5b54cca7031a7ec8
51d0: 34 30 63 33 61 33 33 35 39 65 66 61 34 63 39 31  40c3a3359efa4c91
51e0: 63 34 31 62 37 34 62 61 61 36 39 38 64 35 34 66  c41b74baa698d54f
51f0: 66 62 39 62 30 31 37 30 66 32 65 64 61 64 63 35  fb9b0170f2edadc5
5200: 32 30 31 36 35 30 63 32 62 64 63 36 5d 7d 20 5c  201650c2bdc6]} \
5210: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5220: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5230: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
5240: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
5250: 63 74 20 2d 72 65 73 75 6c 74 20 37 35 64 65 31  ct -result 75de1
5260: 34 31 36 39 64 31 36 61 39 39 30 32 66 36 65 38  4169d16a9902f6e8
5270: 61 33 33 35 39 64 39 34 35 39 34 61 38 38 39 63  a3359d94594a889c
5280: 34 61 65 64 39 32 34 36 63 61 61 36 63 66 35 36  4aed9246caa6cf56
5290: 31 32 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  12c..tcltest::te
52a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
52b0: 2d 32 2e 36 37 20 7b 53 48 41 33 5f 32 32 34 53  -2.67 {SHA3_224S
52c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
52d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
52e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
52f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5300: 63 6f 64 65 20 68 65 78 20 65 30 33 32 30 66 65  code hex e0320fe
5310: 65 31 39 61 66 35 62 66 64 35 31 31 61 32 33 63  e19af5bfd511a23c
5320: 61 62 62 61 37 35 61 63 62 30 38 31 35 35 32 35  abba75acb0815525
5330: 61 33 37 33 34 33 30 35 61 61 66 61 34 39 63 31  a3734305aafa49c1
5340: 64 38 62 64 66 62 64 38 35 33 35 37 39 36 34 36  d8bdfbd853579646
5350: 61 33 36 61 37 38 37 33 63 34 63 66 66 66 32 65  a36a7873c4cfff2e
5360: 61 62 64 37 65 33 39 30 32 65 63 63 66 66 31 31  abd7e3902eccff11
5370: 39 32 61 63 61 31 66 36 64 63 65 33 63 66 31 63  92aca1f6dce3cf1c
5380: 39 38 38 65 36 61 63 61 39 66 32 63 38 5d 7d 20  988e6aca9f2c8]} 
5390: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
53a0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
53b0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
53c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
53d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 64 37 66 32  act -result d7f2
53e0: 30 31 38 63 33 30 33 65 65 30 34 35 64 65 34 62  018c303ee045de4b
53f0: 38 63 64 65 66 63 66 62 35 33 39 35 36 37 34 65  8cdefcfb5395674e
5400: 33 61 38 37 37 30 64 36 35 66 30 37 35 37 62 34  3a8770d65f0757b4
5410: 63 64 35 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  cd5e..tcltest::t
5420: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
5430: 34 2d 32 2e 36 38 20 7b 53 48 41 33 5f 32 32 34  4-2.68 {SHA3_224
5440: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
5450: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
5460: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
5470: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
5480: 65 63 6f 64 65 20 68 65 78 20 31 61 34 32 34 65  ecode hex 1a424e
5490: 63 63 65 31 61 38 32 63 34 37 37 34 32 31 37 31  cce1a82c47742171
54a0: 61 37 30 31 61 64 36 65 30 66 66 31 61 37 36 32  a701ad6e0ff1a762
54b0: 63 65 32 36 66 38 65 33 33 32 38 31 38 61 37 66  ce26f8e332818a7f
54c0: 61 31 61 38 30 30 61 34 65 35 30 36 61 34 62 64  a1a800a4e506a4bd
54d0: 63 38 31 33 61 30 39 65 65 31 64 35 37 32 32 32  c813a09ee1d57222
54e0: 61 64 61 37 39 61 31 32 65 32 33 39 39 35 34 39  ada79a12e2399549
54f0: 66 66 64 38 30 66 31 36 32 38 65 66 35 35 65 32  ffd80f1628ef55e2
5500: 33 31 63 65 30 39 31 33 66 39 61 62 31 39 33 30  31ce0913f9ab1930
5510: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5520: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
5530: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
5540: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
5550: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32   exact -result 2
5560: 37 37 66 39 36 66 63 61 35 64 39 61 62 30 35 35  77f96fca5d9ab055
5570: 66 61 65 35 64 34 64 64 31 30 63 63 34 39 63 32  fae5d4dd10cc49c2
5580: 32 33 37 62 64 33 38 64 39 35 62 64 38 64 62 64  237bd38d95bd8dbd
5590: 31 36 38 65 63 32 31 0a 0a 74 63 6c 74 65 73 74  168ec21..tcltest
55a0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
55b0: 2d 32 32 34 2d 32 2e 36 39 20 7b 53 48 41 33 5f  -224-2.69 {SHA3_
55c0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
55d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
55e0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
55f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5600: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 66 31  y decode hex af1
5610: 37 32 38 30 39 35 37 30 63 63 33 30 36 33 33 33  72809570cc306333
5620: 63 32 35 35 32 33 66 38 36 33 63 36 64 30 65 30  c25523f863c6d0e0
5630: 31 35 34 63 35 35 65 34 30 34 37 32 32 66 30 64  154c55e404722f0d
5640: 34 65 64 34 31 39 37 31 33 64 61 62 66 38 65 31  4ed419713dabf8e1
5650: 38 34 39 33 61 30 65 30 62 35 33 62 32 32 30 61  8493a0e0b53b220a
5660: 33 36 35 33 35 62 31 65 38 66 30 62 62 65 34 33  36535b1e8f0bbe43
5670: 65 36 32 34 66 61 63 39 66 35 36 36 66 39 39 32  e624fac9f566f992
5680: 38 30 37 62 36 66 32 64 37 30 62 62 38 30 35 39  807b6f2d70bb8059
5690: 33 33 65 32 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79  33e2e]} \..-body
56a0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
56b0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
56c0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
56d0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
56e0: 75 6c 74 20 39 35 38 31 31 37 30 30 39 33 36 30  ult 958117009360
56f0: 30 63 62 36 37 30 36 33 61 33 31 34 64 38 64 65  0cb67063a314d8de
5700: 63 66 31 30 39 66 66 39 33 36 38 66 66 62 63 39  cf109ff9368ffbc9
5710: 30 65 61 32 64 33 32 35 30 35 37 37 0a 0a 74 63  0ea2d3250577..tc
5720: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5730: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 37 30 20 7b  _SHA3-224-2.70 {
5740: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
5750: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5760: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
5770: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
5780: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
5790: 78 20 61 36 32 66 34 62 34 33 32 35 30 63 64 66  x a62f4b43250cdf
57a0: 33 66 34 33 63 31 64 61 34 33 39 62 63 35 65 34  3f43c1da439bc5e4
57b0: 32 32 34 62 31 35 31 38 35 62 36 30 64 36 31 35  224b15185b60d615
57c0: 65 33 38 65 33 63 35 31 32 34 32 35 61 61 62 31  e38e3c512425aab1
57d0: 34 35 34 30 31 62 35 37 61 63 33 66 63 30 62 63  45401b57ac3fc0bc
57e0: 63 31 37 38 65 61 66 65 66 35 32 61 32 62 37 62  c178eafef52a2b7b
57f0: 30 34 62 32 62 38 39 65 37 36 30 32 31 32 66 39  04b2b89e760212f9
5800: 36 63 34 65 65 36 39 34 39 39 30 38 33 31 38 35  6c4ee69499083185
5810: 38 66 30 66 61 37 63 31 33 63 32 34 5d 7d 20 5c  8f0fa7c13c24]} \
5820: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5830: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5840: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
5850: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
5860: 63 74 20 2d 72 65 73 75 6c 74 20 61 30 66 35 37  ct -result a0f57
5870: 37 35 61 32 64 30 30 31 61 36 36 66 30 38 38 32  75a2d001a66f0882
5880: 63 65 31 34 31 35 32 36 31 39 39 34 30 32 31 39  ce14152619940219
5890: 38 38 36 39 30 38 34 30 63 36 62 34 61 33 34 37  88690840c6b4a347
58a0: 30 63 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  0c8..tcltest::te
58b0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
58c0: 2d 32 2e 37 31 20 7b 53 48 41 33 5f 32 32 34 53  -2.71 {SHA3_224S
58d0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
58e0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
58f0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5900: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5910: 63 6f 64 65 20 68 65 78 20 66 63 66 38 31 63 39  code hex fcf81c9
5920: 33 66 39 31 37 62 62 30 36 66 32 37 38 66 34 38  3f917bb06f278f48
5930: 38 32 36 65 66 39 63 61 38 62 61 39 39 61 63 38  826ef9ca8ba99ac8
5940: 66 30 30 31 32 39 66 64 39 66 38 65 38 31 63 61  f00129fd9f8e81ca
5950: 33 31 37 35 30 64 35 65 35 34 38 31 38 61 66 30  31750d5e54818af0
5960: 33 33 31 64 64 32 33 39 65 62 37 37 65 65 34 62  331dd239eb77ee4b
5970: 30 63 34 64 30 63 32 64 38 34 37 39 34 63 65 66  0c4d0c2d84794cef
5980: 32 37 64 61 36 62 66 65 62 37 30 37 37 39 34 64  27da6bfeb707794d
5990: 33 62 64 62 63 37 62 33 34 39 39 36 38 66 32 61  3bdbc7b349968f2a
59a0: 33 31 36 64 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  316d8]} \..-body
59b0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
59c0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
59d0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
59e0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
59f0: 75 6c 74 20 61 39 37 61 37 34 66 62 30 31 66 65  ult a97a74fb01fe
5a00: 63 35 63 61 66 33 34 37 37 32 32 30 65 65 66 36  c5caf3477220eef6
5a10: 65 37 63 33 36 64 30 62 61 34 31 39 39 64 64 63  e7c36d0ba4199ddc
5a20: 37 35 35 66 37 63 63 66 39 34 65 65 0a 0a 74 63  755f7ccf94ee..tc
5a30: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5a40: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 37 32 20 7b  _SHA3-224-2.72 {
5a50: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
5a60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5a70: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
5a80: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
5a90: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
5aa0: 78 20 65 36 31 64 32 34 62 35 30 30 35 38 31 37  x e61d24b5005817
5ab0: 33 34 63 32 39 39 30 32 61 64 65 34 63 35 30 33  34c29902ade4c503
5ac0: 35 63 30 39 30 38 36 38 64 66 39 66 32 34 62 62  5c090868df9f24bb
5ad0: 33 33 30 36 30 39 66 63 64 66 66 34 61 37 32 64  330609fcdff4a72d
5ae0: 36 66 31 38 30 30 31 34 32 34 66 64 38 31 33 63  6f18001424fd813c
5af0: 65 61 33 32 39 32 33 64 38 61 61 38 36 63 33 64  ea32923d8aa86c3d
5b00: 32 31 35 62 32 61 62 37 64 31 33 34 32 33 37 62  215b2ab7d134237b
5b10: 62 36 32 65 37 38 66 36 31 63 62 39 65 39 62 34  b62e78f61cb9e9b4
5b20: 65 66 35 63 65 64 32 33 37 32 39 64 30 31 39 61  ef5ced23729d019a
5b30: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5b40: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
5b50: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
5b60: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
5b70: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34   exact -result 4
5b80: 30 37 35 38 33 31 34 66 31 61 62 62 64 34 33 65  0758314f1abbd43e
5b90: 30 62 63 39 63 37 33 61 31 63 37 65 32 34 37 31  0bc9c73a1c7e2471
5ba0: 39 64 35 36 65 65 62 63 64 39 36 37 62 33 39 64  9d56eebcd967b39d
5bb0: 33 35 35 65 39 37 38 0a 0a 74 63 6c 74 65 73 74  355e978..tcltest
5bc0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
5bd0: 2d 32 32 34 2d 32 2e 37 33 20 7b 53 48 41 33 5f  -224-2.73 {SHA3_
5be0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
5bf0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
5c00: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
5c10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5c20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 37 62  y decode hex 37b
5c30: 31 34 66 30 34 32 33 33 64 66 62 34 64 61 35 65  14f04233dfb4da5e
5c40: 35 62 64 31 38 35 32 66 37 37 63 34 31 65 32 35  5bd1852f77c41e25
5c50: 63 34 39 32 36 39 33 36 66 65 34 31 34 63 38 31  c4926936fe414c81
5c60: 30 38 32 30 30 66 36 66 33 63 64 37 38 63 30 33  08200f6f3cd78c03
5c70: 65 32 64 64 39 36 31 35 34 34 36 63 31 34 62 65  e2dd9615446c14be
5c80: 62 63 32 63 37 30 64 36 35 35 30 36 61 37 61 35  bc2c70d65506a7a5
5c90: 64 65 63 34 38 30 38 38 30 36 32 39 31 37 36 39  dec4808806291769
5ca0: 65 30 64 62 61 62 32 30 30 65 35 37 36 66 39 66  e0dbab200e576f9f
5cb0: 64 62 39 65 32 34 30 63 38 62 38 66 66 5d 7d 20  db9e240c8b8ff]} 
5cc0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
5cd0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
5ce0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
5cf0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5d00: 61 63 74 20 2d 72 65 73 75 6c 74 20 32 64 33 36  act -result 2d36
5d10: 61 66 30 64 64 39 35 36 31 39 61 39 36 63 35 36  af0dd95619a96c56
5d20: 36 34 64 38 39 38 37 62 62 62 38 32 64 31 38 33  64d8987bbb82d183
5d30: 34 36 36 66 66 34 34 31 35 31 30 33 34 66 65 64  466ff44151034fed
5d40: 36 38 37 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  687b..tcltest::t
5d50: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
5d60: 34 2d 32 2e 37 34 20 7b 53 48 41 33 5f 32 32 34  4-2.74 {SHA3_224
5d70: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
5d80: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
5d90: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
5da0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
5db0: 65 63 6f 64 65 20 68 65 78 20 34 35 65 66 62 30  ecode hex 45efb0
5dc0: 61 33 64 38 66 62 37 62 62 36 38 33 39 31 33 34  a3d8fb7bb6839134
5dd0: 35 39 37 32 37 65 38 37 35 36 64 36 37 39 35 39  59727e8756d67959
5de0: 63 66 64 64 34 66 35 62 38 30 65 31 33 64 64 66  cfdd4f5b80e13ddf
5df0: 34 35 65 30 39 64 65 62 64 63 32 63 63 36 38 63  45e09debdc2cc68c
5e00: 65 62 36 33 32 64 36 64 34 35 61 32 64 30 61 38  eb632d6d45a2d0a8
5e10: 36 39 66 36 64 34 64 63 34 63 31 33 36 63 38 30  69f6d4dc4c136c80
5e20: 35 38 34 39 66 65 37 37 62 34 62 33 38 31 65 34  5849fe77b4b381e4
5e30: 63 36 62 32 32 61 33 66 66 36 39 39 34 37 61 39  c6b22a3ff69947a9
5e40: 62 35 61 61 36 62 37 63 62 65 34 32 5d 7d 20 5c  b5aa6b7cbe42]} \
5e50: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5e60: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5e70: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
5e80: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
5e90: 63 74 20 2d 72 65 73 75 6c 74 20 31 32 35 65 39  ct -result 125e9
5ea0: 38 33 32 32 39 66 36 35 62 66 30 31 62 35 39 61  83229f65bf01b59a
5eb0: 39 62 36 31 39 38 31 30 61 38 38 66 31 63 35 33  9b619810a88f1c53
5ec0: 62 34 63 33 62 31 39 36 30 62 35 32 61 32 30 35  b4c3b1960b52a205
5ed0: 64 39 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  d99..tcltest::te
5ee0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
5ef0: 2d 32 2e 37 35 20 7b 53 48 41 33 5f 32 32 34 53  -2.75 {SHA3_224S
5f00: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
5f10: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
5f20: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5f30: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5f40: 63 6f 64 65 20 68 65 78 20 39 62 36 63 33 63 37  code hex 9b6c3c7
5f50: 37 37 34 36 32 31 39 64 64 38 38 39 37 36 39 36  7746219dd8897696
5f60: 36 63 36 38 65 61 64 35 39 65 62 36 32 61 61 33  6c68ead59eb62aa3
5f70: 63 66 36 36 34 37 37 39 38 64 63 30 36 64 34 66  cf6647798dc06d4f
5f80: 63 37 65 66 38 62 64 34 34 64 38 39 30 33 66 31  c7ef8bd44d8903f1
5f90: 62 37 62 36 66 38 62 62 66 33 64 36 32 34 39 30  b7b6f8bbf3d62490
5fa0: 35 32 66 38 36 32 65 39 63 63 66 62 30 64 31 39  52f862e9ccfb0d19
5fb0: 35 37 66 30 62 62 61 32 33 33 36 30 33 62 63 61  57f0bba233603bca
5fc0: 30 37 36 36 32 38 36 64 31 37 65 62 39 37 34 36  0766286d17eb9746
5fd0: 62 63 30 30 32 61 62 64 36 39 35 38 33 5d 7d 20  bc002abd69583]} 
5fe0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
5ff0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
6000: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
6010: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6020: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 36 32 36  act -result 7626
6030: 32 39 35 31 38 38 33 33 62 61 36 38 33 33 33 66  29518833ba68333f
6040: 63 33 65 33 62 34 64 34 38 32 63 36 30 62 34 65  c3e3b4d482c60b4e
6050: 30 65 38 32 38 38 37 32 38 32 36 62 36 38 33 31  0e828872826b6831
6060: 33 33 31 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  3315..tcltest::t
6070: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
6080: 34 2d 32 2e 37 36 20 7b 53 48 41 33 5f 32 32 34  4-2.76 {SHA3_224
6090: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
60a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
60b0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
60c0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
60d0: 65 63 6f 64 65 20 68 65 78 20 39 66 34 35 32 66  ecode hex 9f452f
60e0: 39 30 30 32 31 39 30 31 37 31 39 39 65 64 66 63  900219017199edfc
60f0: 35 64 37 64 38 36 61 31 36 32 64 39 37 35 30 62  5d7d86a162d9750b
6100: 62 61 34 63 65 63 37 37 34 32 38 65 64 31 30 33  ba4cec77428ed103
6110: 32 65 35 37 31 31 62 36 66 62 37 63 33 37 63 31  2e5711b6fb7c37c1
6120: 61 36 35 62 33 64 30 34 31 63 37 61 61 31 64 34  a65b3d041c7aa1d4
6130: 66 31 36 62 62 63 66 63 35 34 66 33 35 30 30 31  f16bbcfc54f35001
6140: 34 33 36 62 36 30 61 62 66 62 36 35 34 34 63 30  436b60abfb6544c0
6150: 62 33 39 33 66 63 31 33 38 39 65 35 63 35 62 64  b393fc1389e5c5bd
6160: 62 64 66 32 65 61 61 62 31 64 39 39 64 64 35 39  bdf2eaab1d99dd59
6170: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6180: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6190: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
61a0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
61b0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31   exact -result 1
61c0: 39 62 34 33 32 66 35 63 33 38 66 36 36 35 34 34  9b432f5c38f66544
61d0: 31 64 33 36 63 34 37 32 64 33 38 36 30 30 38 61  1d36c472d386008a
61e0: 35 62 62 64 38 32 61 61 34 65 61 62 65 61 61 62  5bbd82aa4eabeaab
61f0: 65 33 64 32 38 63 63 0a 0a 74 63 6c 74 65 73 74  e3d28cc..tcltest
6200: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6210: 2d 32 32 34 2d 32 2e 37 37 20 7b 53 48 41 33 5f  -224-2.77 {SHA3_
6220: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
6230: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6240: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
6250: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6260: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 62 66  y decode hex cbf
6270: 64 31 38 36 35 39 32 66 61 36 38 64 63 33 61 32  d186592fa68dc3a2
6280: 31 64 36 32 64 62 31 62 61 35 35 31 32 31 66 35  1d62db1ba55121f5
6290: 38 66 65 63 62 31 31 36 39 35 38 35 39 64 37 30  8fecb11695859d70
62a0: 62 64 37 65 64 32 61 32 31 61 32 61 30 31 33 61  bd7ed2a21a2a013a
62b0: 36 39 39 36 34 30 38 34 32 39 37 33 62 35 37 31  699640842973b571
62c0: 62 66 34 61 37 63 38 65 65 34 66 36 31 37 64 35  bf4a7c8ee4f617d5
62d0: 65 38 61 34 64 31 65 38 63 31 35 61 65 33 33 65  e8a4d1e8c15ae33e
62e0: 37 37 30 39 37 64 31 34 36 65 62 61 32 37 39 33  77097d146eba2793
62f0: 34 62 31 65 33 33 64 38 61 30 34 31 66 32 34 34  4b1e33d8a041f244
6300: 34 63 61 33 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79  4ca3a]} \..-body
6310: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
6320: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
6330: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
6340: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
6350: 75 6c 74 20 62 33 32 61 64 31 33 62 61 34 61 30  ult b32ad13ba4a0
6360: 62 39 66 63 31 61 61 39 61 31 61 35 37 62 64 62  b9fc1aa9a1a57bdb
6370: 66 62 65 62 64 66 61 62 37 31 63 66 35 61 31 36  fbebdfab71cf5a16
6380: 65 30 36 30 34 30 66 37 35 37 38 37 0a 0a 74 63  e06040f75787..tc
6390: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
63a0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 37 38 20 7b  _SHA3-224-2.78 {
63b0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
63c0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
63d0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
63e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
63f0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
6400: 78 20 31 37 33 32 32 35 33 32 34 63 36 63 33 35  x 173225324c6c35
6410: 30 64 64 62 61 32 32 37 62 38 39 61 36 35 31 65  0ddba227b89a651e
6420: 35 37 36 64 31 61 62 36 61 39 36 38 39 35 34 35  576d1ab6a9689545
6430: 33 63 33 33 65 61 36 31 64 64 62 33 37 66 61 32  3c33ea61ddb37fa2
6440: 35 33 65 36 36 36 61 38 34 64 30 66 65 61 36 30  53e666a84d0fea60
6450: 39 38 31 34 36 38 38 34 39 35 32 34 36 31 36 31  9814688495246161
6460: 65 62 39 63 63 63 64 64 37 39 32 63 62 31 62 38  eb9cccdd792cb1b8
6470: 38 66 33 36 66 33 31 32 35 64 37 36 36 65 32 65  8f36f3125d766e2e
6480: 61 62 65 38 34 31 37 35 63 62 65 36 36 64 62 65  abe84175cbe66dbe
6490: 63 63 39 31 61 30 63 63 66 31 37 33 5d 7d 20 5c  cc91a0ccf173]} \
64a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
64b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
64c0: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
64d0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
64e0: 63 74 20 2d 72 65 73 75 6c 74 20 66 63 38 66 65  ct -result fc8fe
64f0: 65 63 61 65 66 66 66 64 61 61 39 36 36 65 39 35  ecaefffdaa966e95
6500: 33 36 62 39 31 64 66 63 38 35 65 61 35 31 31 33  36b91dfc85ea5113
6510: 61 30 31 64 36 62 33 32 30 36 37 37 64 37 32 37  a01d6b320677d727
6520: 61 37 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  a7d..tcltest::te
6530: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
6540: 2d 32 2e 37 39 20 7b 53 48 41 33 5f 32 32 34 53  -2.79 {SHA3_224S
6550: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
6560: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
6570: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6580: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6590: 63 6f 64 65 20 68 65 78 20 36 39 39 39 66 33 39  code hex 6999f39
65a0: 38 34 30 37 34 38 30 63 64 34 33 62 61 66 64 61  8407480cd43bafda
65b0: 65 64 62 38 36 32 34 64 39 62 61 30 39 37 32 61  edb8624d9ba0972a
65c0: 61 35 61 32 66 33 35 30 34 61 36 37 66 65 35 34  a5a2f3504a67fe54
65d0: 65 66 37 34 34 62 37 62 62 34 31 65 61 37 30 63  ef744b7bb41ea70c
65e0: 66 38 66 61 61 37 37 31 66 61 63 36 61 32 66 35  f8faa771fac6a2f5
65f0: 38 32 33 64 65 38 33 38 32 36 61 66 34 63 33 38  823de83826af4c38
6600: 36 35 62 36 66 61 65 65 65 65 33 64 31 64 30 65  65b6faeeee3d1d0e
6610: 64 66 65 37 66 30 65 39 66 65 33 32 30 37 66 39  dfe7f0e9fe3207f9
6620: 31 37 62 34 36 37 64 38 34 31 38 35 30 66 63 36  17b467d841850fc6
6630: 65 36 34 38 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  e648f]} \..-body
6640: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
6650: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
6660: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
6670: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
6680: 75 6c 74 20 65 37 61 62 63 62 34 63 30 66 32 31  ult e7abcb4c0f21
6690: 38 38 31 34 65 63 66 34 35 66 62 66 32 38 61 33  8814ecf45fbf28a3
66a0: 66 32 38 36 64 39 30 63 35 65 37 34 30 61 61 66  f286d90c5e740aaf
66b0: 64 31 36 34 37 34 33 37 63 31 65 31 0a 0a 74 63  d1647437c1e1..tc
66c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
66d0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 38 30 20 7b  _SHA3-224-2.80 {
66e0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
66f0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
6700: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
6710: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
6720: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
6730: 78 20 32 37 32 37 65 65 62 31 64 35 31 30 39 38  x 2727eeb1d51098
6740: 63 36 39 66 64 38 31 34 31 64 37 38 66 32 31 32  c69fd8141d78f212
6750: 37 35 62 32 62 62 39 34 39 65 37 31 31 35 66 64  75b2bb949e7115fd
6760: 33 38 36 30 35 32 36 62 62 64 61 32 35 35 34 37  3860526bbda25547
6770: 63 32 30 63 66 33 31 62 37 39 39 31 39 66 61 33  c20cf31b79919fa3
6780: 37 62 66 64 34 37 32 36 63 34 65 37 37 39 30 36  7bfd4726c4e77906
6790: 66 66 65 30 63 61 39 37 30 35 66 31 37 38 32 64  ffe0ca9705f1782d
67a0: 61 30 34 35 34 65 37 39 39 34 32 32 63 38 31 35  a0454e799422c815
67b0: 65 30 31 65 37 38 35 64 34 31 38 66 61 38 38 31  e01e785d418fa881
67c0: 66 38 34 33 34 31 64 38 63 64 37 31 65 63 37 37  f84341d8cd71ec77
67d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
67e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
67f0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
6800: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
6810: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32   exact -result 2
6820: 62 65 33 33 32 63 38 37 33 65 64 34 66 62 37 30  be332c873ed4fb70
6830: 62 63 31 39 31 36 63 37 36 62 65 66 32 63 64 33  bc1916c76bef2cd3
6840: 33 38 35 65 36 37 34 62 38 33 61 61 31 65 65 38  385e674b83aa1ee8
6850: 61 64 32 38 61 30 31 0a 0a 74 63 6c 74 65 73 74  ad28a01..tcltest
6860: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6870: 2d 32 32 34 2d 32 2e 38 31 20 7b 53 48 41 33 5f  -224-2.81 {SHA3_
6880: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
6890: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
68a0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
68b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
68c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 66 34  y decode hex 1f4
68d0: 38 61 35 62 34 30 31 64 38 38 65 36 63 62 65 33  8a5b401d88e6cbe3
68e0: 37 66 33 66 36 33 34 64 35 35 34 36 32 38 36 35  7f3f634d55462865
68f0: 66 37 63 64 65 37 39 39 30 30 35 32 61 31 65 34  f7cde7990052a1e4
6900: 61 31 65 34 63 62 32 65 35 38 63 38 34 63 32 63  a1e4cb2e58c84c2c
6910: 37 65 66 38 32 39 32 33 34 34 37 64 37 63 30 36  7ef82923447d7c06
6920: 38 62 36 61 61 32 35 65 33 38 38 61 63 66 63 30  8b6aa25e388acfc0
6930: 35 37 30 34 65 34 36 64 61 31 34 33 31 36 64 33  5704e46da14316d3
6940: 37 63 63 64 64 32 37 30 36 61 37 62 37 39 64 64  7ccdd2706a7b79dd
6950: 65 62 30 32 64 63 64 64 37 36 66 33 34 32 63 39  eb02dcdd76f342c9
6960: 63 62 32 66 34 39 30 63 31 38 64 63 31 5d 7d 20  cb2f490c18dc1]} 
6970: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
6980: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
6990: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
69a0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
69b0: 61 63 74 20 2d 72 65 73 75 6c 74 20 34 34 38 62  act -result 448b
69c0: 37 30 66 35 37 35 61 38 61 31 65 62 37 34 30 33  70f575a8a1eb7403
69d0: 30 61 39 38 35 65 39 63 35 30 34 64 34 65 61 66  0a985e9c504d4eaf
69e0: 36 62 31 38 31 34 65 31 31 34 36 66 37 38 32 63  6b1814e1146f782c
69f0: 39 61 66 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  9af5..tcltest::t
6a00: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
6a10: 34 2d 32 2e 38 32 20 7b 53 48 41 33 5f 32 32 34  4-2.82 {SHA3_224
6a20: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6a30: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
6a40: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
6a50: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
6a60: 65 63 6f 64 65 20 68 65 78 20 36 64 63 65 39 61  ecode hex 6dce9a
6a70: 39 65 63 62 34 38 62 39 64 61 38 61 65 66 35 31  9ecb48b9da8aef51
6a80: 61 38 39 65 37 66 37 66 63 31 61 36 61 37 38 39  a89e7f7fc1a6a789
6a90: 36 36 62 37 62 61 63 30 61 63 35 62 61 37 61 62  66b7bac0ac5ba7ab
6aa0: 31 38 64 39 32 62 36 31 36 62 62 37 34 35 33 37  18d92b616bb74537
6ab0: 62 66 37 65 65 62 39 62 64 33 62 64 66 62 34 30  bf7eeb9bd3bdfb40
6ac0: 61 34 35 30 37 34 37 63 33 64 65 32 65 36 65 65  a450747c3de2e6ee
6ad0: 63 66 62 31 32 37 36 33 30 34 39 31 34 38 66 61  cfb12763049148fa
6ae0: 39 31 33 34 63 37 38 37 30 62 61 38 30 36 33 36  9134c7870ba80636
6af0: 66 62 32 31 66 63 37 31 33 34 66 39 32 62 30 33  fb21fc7134f92b03
6b00: 36 34 66 35 64 32 37 64 65 61 63 61 5d 7d 20 5c  64f5d27deaca]} \
6b10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
6b20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
6b30: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
6b40: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
6b50: 63 74 20 2d 72 65 73 75 6c 74 20 64 66 38 35 35  ct -result df855
6b60: 64 35 34 34 65 31 37 66 30 31 31 32 35 30 32 32  d544e17f01125022
6b70: 62 63 31 38 65 39 66 66 63 65 64 31 32 66 33 63  bc18e9ffced12f3c
6b80: 64 33 39 36 37 34 65 36 38 31 38 34 36 35 37 65  d39674e68184657e
6b90: 63 37 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  c7e..tcltest::te
6ba0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
6bb0: 2d 32 2e 38 33 20 7b 53 48 41 33 5f 32 32 34 53  -2.83 {SHA3_224S
6bc0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
6bd0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
6be0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6bf0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6c00: 63 6f 64 65 20 68 65 78 20 64 34 39 38 62 36 39  code hex d498b69
6c10: 30 31 33 34 35 61 66 64 64 63 35 61 61 35 30 63  01345afddc5aa50c
6c20: 61 63 37 37 66 37 66 37 39 34 64 37 39 32 39 65  ac77f7f794d7929e
6c30: 65 64 35 37 31 64 39 35 62 35 39 63 32 38 39 61  ed571d95b59c289a
6c40: 30 63 39 66 33 62 38 31 32 62 38 39 36 62 63 37  0c9f3b812b896bc7
6c50: 62 35 36 36 66 35 61 36 33 39 65 64 39 39 34 38  b566f5a639ed9948
6c60: 65 64 30 36 36 63 32 63 36 32 32 63 36 65 34 64  ed066c2c622c6e4d
6c70: 62 62 32 65 61 33 37 65 37 63 30 36 38 30 36 64  bb2ea37e7c06806d
6c80: 36 31 61 32 32 63 33 32 36 64 37 32 33 35 36 65  61a22c326d72356e
6c90: 63 34 38 63 39 62 35 31 38 32 63 32 39 62 35 66  c48c9b5182c29b5f
6ca0: 39 32 33 61 66 32 30 30 34 36 36 30 35 5d 7d 20  923af20046605]} 
6cb0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
6cc0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
6cd0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
6ce0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6cf0: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 62 32 32  act -result 5b22
6d00: 35 63 32 39 65 34 35 34 37 37 37 37 61 32 63 36  5c29e4547777a2c6
6d10: 61 31 61 32 62 62 65 39 64 61 32 64 63 36 61 38  a1a2bbe9da2dc6a8
6d20: 63 36 64 30 64 30 31 64 38 64 38 30 32 32 39 38  c6d0d01d8d802298
6d30: 38 62 65 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  8be2..tcltest::t
6d40: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
6d50: 34 2d 32 2e 38 34 20 7b 53 48 41 33 5f 32 32 34  4-2.84 {SHA3_224
6d60: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6d70: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
6d80: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
6d90: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
6da0: 65 63 6f 64 65 20 68 65 78 20 65 39 35 38 62 38  ecode hex e958b8
6db0: 30 34 38 39 61 61 36 61 33 38 35 32 36 32 34 34  0489aa6a38526244
6dc0: 64 61 31 36 35 64 63 34 34 36 34 65 37 39 36 31  da165dc4464e7961
6dd0: 65 34 35 37 66 37 36 33 61 62 64 62 32 33 66 37  e457f763abdb23f7
6de0: 65 34 38 64 33 36 38 33 33 31 31 39 37 62 33 37  e48d368331197b37
6df0: 63 64 35 61 62 31 65 35 31 35 63 65 62 31 31 32  cd5ab1e515ceb112
6e00: 34 38 34 38 35 30 34 64 38 62 65 35 38 37 62 66  4848504d8be587bf
6e10: 33 30 34 31 64 31 30 34 33 37 65 62 64 35 33 39  3041d10437ebd539
6e20: 31 35 31 36 34 35 35 36 62 35 39 31 30 36 62 65  15164556b59106be
6e30: 62 64 66 39 39 31 31 35 31 32 32 64 39 39 35 32  bdf99115122d9952
6e40: 39 65 30 32 65 65 31 35 35 31 33 38 61 31 33 61  9e02ee155138a13a
6e50: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6e60: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6e70: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
6e80: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
6e90: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33   exact -result 3
6ea0: 36 34 61 39 38 38 34 30 30 34 32 34 35 35 37 61  64a988400424557a
6eb0: 39 63 36 30 65 34 65 31 66 33 32 66 30 38 35 35  9c60e4e1f32f0855
6ec0: 61 33 33 38 33 63 39 30 62 30 30 37 64 33 30 65  a3383c90b007d30e
6ed0: 65 33 65 63 33 33 33 0a 0a 74 63 6c 74 65 73 74  e3ec333..tcltest
6ee0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6ef0: 2d 32 32 34 2d 32 2e 38 35 20 7b 53 48 41 33 5f  -224-2.85 {SHA3_
6f00: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
6f10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6f20: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
6f30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6f40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 33 33  y decode hex f33
6f50: 62 61 39 38 32 62 63 32 63 33 33 30 38 66 39 34  ba982bc2c3308f94
6f60: 38 61 31 62 36 34 63 37 66 62 36 38 66 62 38 39  8a1b64c7fb68fb89
6f70: 31 62 63 30 35 66 61 31 38 37 38 31 62 31 64 63  1bc05fa18781b1dc
6f80: 39 35 64 63 37 34 39 66 37 30 30 39 61 64 63 35  95dc749f7009adc5
6f90: 38 63 63 61 32 62 62 30 63 66 37 39 30 65 62 64  8cca2bb0cf790ebd
6fa0: 62 62 34 31 36 35 62 62 66 61 62 39 33 30 34 61  bb4165bbfab9304a
6fb0: 32 61 36 66 32 33 34 36 38 38 64 63 66 32 37 33  2a6f234688dcf273
6fc0: 30 39 34 64 63 64 38 64 37 62 33 38 34 31 36 62  094dcd8d7b38416b
6fd0: 65 35 37 63 65 64 61 63 65 35 37 38 33 64 38 62  e57cedace5783d8b
6fe0: 39 32 39 39 33 35 34 38 32 35 36 62 35 33 37 33  92993548256b5373
6ff0: 66 32 62 34 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79  f2b4e]} \..-body
7000: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
7010: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
7020: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
7030: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
7040: 75 6c 74 20 63 61 33 37 65 35 32 66 32 38 34 33  ult ca37e52f2843
7050: 61 30 66 36 35 36 39 32 63 35 61 65 65 64 30 31  a0f65692c5aeed01
7060: 36 39 36 30 31 64 61 33 32 37 35 64 66 62 33 65  69601da3275dfb3e
7070: 65 36 64 38 31 62 34 36 37 66 36 30 0a 0a 74 63  e6d81b467f60..tc
7080: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
7090: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 38 36 20 7b  _SHA3-224-2.86 {
70a0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
70b0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
70c0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
70d0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
70e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
70f0: 78 20 38 62 35 64 37 37 61 39 30 36 63 37 65 63  x 8b5d77a906c7ec
7100: 37 35 36 33 61 66 37 35 35 31 61 37 39 36 65 35  7563af7551a796e5
7110: 64 35 64 63 66 30 32 63 34 32 31 32 31 64 37 62  d5dcf02c42121d7b
7120: 31 33 61 34 39 61 61 39 64 34 62 63 37 39 64 36  13a49aa9d4bc79d6
7130: 33 37 31 39 30 65 34 65 36 35 31 30 65 63 61 66  37190e4e6510ecaf
7140: 39 32 64 31 31 30 34 66 64 34 65 63 35 62 64 38  92d1104fd4ec5bd8
7150: 33 35 31 34 34 36 33 35 30 37 32 32 64 31 62 32  351446350722d1b2
7160: 37 37 35 64 62 63 35 65 36 35 66 38 66 61 62 34  775dbc5e65f8fab4
7170: 37 33 64 63 36 33 37 62 35 63 61 38 61 39 65 62  73dc637b5ca8a9eb
7180: 38 38 66 36 38 64 31 31 64 64 65 31 35 32 37 35  88f68d11dde15275
7190: 64 37 63 34 37 32 66 39 64 62 34 33 5d 7d 20 5c  d7c472f9db43]} \
71a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
71b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
71c0: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
71d0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
71e0: 63 74 20 2d 72 65 73 75 6c 74 20 39 33 33 37 35  ct -result 93375
71f0: 33 37 64 65 34 38 32 66 30 63 66 38 38 63 61 64  37de482f0cf88cad
7200: 36 62 38 36 65 31 39 35 61 31 65 34 32 32 65 35  6b86e195a1e422e5
7210: 39 63 63 36 30 64 34 31 64 30 65 63 61 38 62 30  9cc60d41d0eca8b0
7220: 30 39 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  091..tcltest::te
7230: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
7240: 2d 32 2e 38 37 20 7b 53 48 41 33 5f 32 32 34 53  -2.87 {SHA3_224S
7250: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
7260: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
7270: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7280: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7290: 63 6f 64 65 20 68 65 78 20 33 61 35 36 34 61 38  code hex 3a564a8
72a0: 34 63 32 62 34 38 65 65 32 36 64 61 31 33 38 63  4c2b48ee26da138c
72b0: 65 32 64 31 61 65 33 63 37 39 33 33 62 63 64 36  e2d1ae3c7933bcd6
72c0: 35 65 34 30 32 38 38 34 30 36 65 35 36 66 33 30  5e40288406e56f30
72d0: 64 31 63 34 38 36 39 30 61 34 39 39 38 33 38 39  d1c48690a4998389
72e0: 64 64 32 37 62 35 35 33 37 36 66 39 62 34 65 37  dd27b55376f9b4e7
72f0: 66 34 33 36 30 37 66 61 64 62 31 36 65 38 39 33  f43607fadb16e893
7300: 33 37 32 36 66 30 30 61 33 65 34 31 32 36 34 63  3726f00a3e41264c
7310: 64 61 35 35 33 35 33 32 37 36 31 66 65 66 63 37  da553532761fefc7
7320: 33 65 38 36 65 64 37 39 62 38 34 39 62 39 34 65  3e86ed79b849b94e
7330: 30 38 39 35 34 35 31 33 33 32 64 63 38 30 66 65  0895451332dc80fe
7340: 33 39 61 34 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79  39a4b]} \..-body
7350: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
7360: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
7370: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
7380: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
7390: 75 6c 74 20 38 38 65 61 62 33 65 31 36 63 61 38  ult 88eab3e16ca8
73a0: 64 61 35 37 31 36 35 34 32 62 61 65 33 63 37 63  da5716542bae3c7c
73b0: 37 33 36 62 35 34 31 63 38 39 36 31 39 39 62 32  736b541c896199b2
73c0: 63 62 39 34 31 32 31 33 37 36 37 62 0a 0a 74 63  cb941213767b..tc
73d0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
73e0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 38 38 20 7b  _SHA3-224-2.88 {
73f0: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
7400: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
7410: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
7420: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
7430: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
7440: 78 20 36 31 38 61 35 33 39 38 39 66 66 62 62 66  x 618a53989ffbbf
7450: 35 34 61 37 36 66 30 31 66 39 62 38 37 37 37 32  54a76f01f9b87772
7460: 34 39 31 64 38 37 63 38 66 32 35 63 35 38 65 62  491d87c8f25c58eb
7470: 31 31 62 31 38 61 30 34 66 35 62 61 38 65 64 36  11b18a04f5ba8ed6
7480: 32 35 37 34 63 33 35 31 61 34 36 36 64 66 36 34  2574c351a466df64
7490: 37 33 31 63 39 31 31 34 35 38 64 37 36 35 63 62  731c911458d765cb
74a0: 64 65 38 33 65 37 66 32 39 64 65 39 30 62 63 31  de83e7f29de90bc1
74b0: 62 62 32 36 63 63 35 36 62 33 35 63 31 34 30 35  bb26cc56b35c1405
74c0: 35 35 61 37 64 63 66 30 30 66 35 33 39 34 64 37  55a7dcf00f5394d7
74d0: 36 61 34 63 63 35 33 31 64 37 64 35 66 35 37 62  6a4cc531d7d5f57b
74e0: 61 63 37 64 63 62 64 30 36 61 34 66 37 33 62 61  ac7dcbd06a4f73ba
74f0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7500: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7510: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
7520: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
7530: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34   exact -result 4
7540: 61 37 32 37 63 63 36 62 34 62 64 39 33 64 35 66  a727cc6b4bd93d5f
7550: 66 32 65 63 62 38 31 61 62 35 30 35 37 64 66 64  f2ecb81ab5057dfd
7560: 63 62 65 33 65 30 63 34 39 34 33 36 61 35 38 62  cbe3e0c49436a58b
7570: 39 66 66 33 65 66 32 0a 0a 74 63 6c 74 65 73 74  9ff3ef2..tcltest
7580: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
7590: 2d 32 32 34 2d 32 2e 38 39 20 7b 53 48 41 33 5f  -224-2.89 {SHA3_
75a0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
75b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
75c0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
75d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
75e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 31 38  y decode hex 318
75f0: 35 37 62 62 34 65 38 32 34 39 37 62 35 32 36 65  57bb4e82497b526e
7600: 34 32 36 64 65 36 39 32 30 61 36 30 36 33 64 30  426de6920a6063d0
7610: 32 32 36 34 64 35 32 34 39 66 65 66 66 64 31 34  2264d5249feffd14
7620: 61 62 64 62 62 66 30 33 35 36 33 64 34 63 35 39  abdbbf03563d4c59
7630: 61 64 31 66 37 35 37 32 63 37 64 30 65 66 62 63  ad1f7572c7d0efbc
7640: 34 36 61 36 35 64 65 61 39 35 38 30 62 64 65 30  46a65dea9580bde0
7650: 65 33 38 37 63 39 65 64 63 65 32 37 63 64 39 62  e387c9edce27cd9b
7660: 32 30 61 34 36 66 36 32 61 37 30 65 36 64 64 35  20a46f62a70e6dd5
7670: 66 35 38 65 34 30 61 61 63 33 61 32 32 64 66 62  f58e40aac3a22dfb
7680: 36 62 61 30 37 33 66 61 63 64 61 64 64 35 38 63  6ba073facdadd58c
7690: 64 36 66 37 38 63 30 32 62 64 32 31 39 5d 7d 20  d6f78c02bd219]} 
76a0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
76b0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
76c0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
76d0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
76e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 65 36 31  act -result 9e61
76f0: 34 66 63 31 33 39 36 34 35 65 31 35 38 63 64 31  4fc139645e158cd1
7700: 62 32 31 36 65 32 36 32 33 65 35 38 36 32 34 32  b216e2623e586242
7710: 61 66 36 34 66 38 34 38 33 65 36 66 63 61 32 30  af64f8483e6fca20
7720: 65 64 34 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  ed4b..tcltest::t
7730: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
7740: 34 2d 32 2e 39 30 20 7b 53 48 41 33 5f 32 32 34  4-2.90 {SHA3_224
7750: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
7760: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
7770: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
7780: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
7790: 65 63 6f 64 65 20 68 65 78 20 31 34 38 35 39 30  ecode hex 148590
77a0: 30 38 63 38 33 66 32 38 33 31 62 65 34 64 36 65  08c83f2831be4d6e
77b0: 35 34 62 37 38 31 62 39 66 62 36 31 64 61 64 63  54b781b9fb61dadc
77c0: 34 30 63 34 35 39 61 39 33 65 64 65 31 31 62 34  40c459a93ede11b4
77d0: 63 37 38 61 37 65 35 61 35 35 61 37 31 37 30 31  c78a7e5a55a71701
77e0: 34 32 37 35 32 36 61 30 33 62 34 32 64 38 38 33  427526a03b42d883
77f0: 66 32 34 37 39 30 34 38 31 33 63 64 38 31 32 65  f247904813cd812e
7800: 37 61 39 34 37 63 38 66 61 33 37 34 30 36 61 61  7a947c8fa37406aa
7810: 36 31 34 35 61 65 61 36 64 33 66 64 39 65 64 34  6145aea6d3fd9ed4
7820: 39 34 31 38 36 66 33 35 33 33 33 64 34 32 33 63  94186f35333d423c
7830: 65 33 31 65 30 63 64 34 37 33 61 30 33 31 61 35  e31e0cd473a031a5
7840: 38 30 33 63 35 35 39 33 65 39 61 34 5d 7d 20 5c  803c5593e9a4]} \
7850: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
7860: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
7870: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
7880: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
7890: 63 74 20 2d 72 65 73 75 6c 74 20 35 34 35 66 61  ct -result 545fa
78a0: 66 61 34 33 61 66 63 61 66 33 38 30 36 33 64 38  fa43afcaf38063d8
78b0: 61 33 31 32 63 33 61 32 37 65 30 64 37 34 62 66  a312c3a27e0d74bf
78c0: 66 39 35 37 66 38 65 66 34 64 35 31 63 62 32 39  f957f8ef4d51cb29
78d0: 36 39 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  698..tcltest::te
78e0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
78f0: 2d 32 2e 39 31 20 7b 53 48 41 33 5f 32 32 34 53  -2.91 {SHA3_224S
7900: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
7910: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
7920: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7930: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7940: 63 6f 64 65 20 68 65 78 20 32 36 37 61 31 34 62  code hex 267a14b
7950: 61 64 37 30 32 65 66 30 61 38 34 36 38 62 33 31  ad702ef0a8468b31
7960: 63 37 32 37 31 35 66 30 35 33 33 66 36 62 39 37  c72715f0533f6b97
7970: 65 36 65 39 34 33 38 33 39 64 65 61 34 32 30 37  e6e943839dea4207
7980: 31 39 64 36 64 65 66 63 35 61 33 39 39 66 38 34  19d6defc5a399f84
7990: 36 38 39 65 36 34 65 63 66 39 33 31 65 65 33 39  689e64ecf931ee39
79a0: 35 65 65 34 39 66 31 66 65 33 36 32 31 39 39 62  5ee49f1fe362199b
79b0: 37 33 63 63 36 63 62 30 31 30 35 62 33 36 35 34  73cc6cb0105b3654
79c0: 62 31 36 66 31 39 66 30 36 65 65 38 61 61 36 62  b16f19f06ee8aa6b
79d0: 35 64 35 34 31 38 37 34 33 64 34 38 30 34 66 39  5d5418743d4804f9
79e0: 61 30 35 39 32 37 30 37 31 30 64 31 32 36 37 36  a059270710d12676
79f0: 35 65 36 61 34 39 63 34 63 65 32 65 33 5d 7d 20  5e6a49c4ce2e3]} 
7a00: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
7a10: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
7a20: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
7a30: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
7a40: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 62 39 33  act -result 9b93
7a50: 36 30 61 35 63 37 34 37 65 36 65 31 32 38 38 66  60a5c747e6e1288f
7a60: 36 66 39 64 39 37 31 30 35 31 66 66 64 38 34 36  6f9d971051ffd846
7a70: 34 31 66 36 64 36 34 65 30 61 34 62 35 31 34 32  41f6d64e0a4b5142
7a80: 65 34 65 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  e4ec..tcltest::t
7a90: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
7aa0: 34 2d 32 2e 39 32 20 7b 53 48 41 33 5f 32 32 34  4-2.92 {SHA3_224
7ab0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
7ac0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
7ad0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
7ae0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
7af0: 65 63 6f 64 65 20 68 65 78 20 36 63 39 38 61 38  ecode hex 6c98a8
7b00: 65 62 33 65 61 34 34 35 31 34 30 31 65 30 34 32  eb3ea4451401e042
7b10: 34 63 31 30 63 62 37 32 32 36 38 33 62 32 33 66  4c10cb722683b23f
7b20: 37 35 61 65 32 35 34 64 36 32 65 62 61 37 35 61  75ae254d62eba75a
7b30: 62 62 39 61 61 39 36 39 38 65 36 35 62 61 31 66  bb9aa9698e65ba1f
7b40: 66 37 63 39 66 38 36 64 33 36 64 31 63 61 36 66  f7c9f86d36d1ca6f
7b50: 30 34 32 35 64 31 39 34 32 38 34 34 31 62 30 30  0425d19428441b00
7b60: 34 35 30 65 39 61 32 65 66 36 38 35 64 35 64 61  450e9a2ef685d5da
7b70: 31 63 64 34 64 65 31 65 37 37 39 31 38 34 64 62  1cd4de1e779184db
7b80: 37 34 33 66 63 39 35 61 34 36 31 37 39 37 33 33  743fc95a46179733
7b90: 33 38 30 38 61 65 36 65 34 32 66 63 65 31 65 39  3808ae6e42fce1e9
7ba0: 64 61 35 64 38 32 66 39 30 63 64 37 31 62 35 34  da5d82f90cd71b54
7bb0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7bc0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7bd0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
7be0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
7bf0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30   exact -result 0
7c00: 63 36 66 33 33 66 39 35 33 34 66 63 35 32 66 33  c6f33f9534fc52f3
7c10: 37 30 30 66 33 37 62 39 65 65 36 37 38 62 34 63  700f37b9ee678b4c
7c20: 35 63 38 61 39 30 62 31 61 32 65 62 31 35 37 34  5c8a90b1a2eb1574
7c30: 30 30 32 65 33 37 37 0a 0a 74 63 6c 74 65 73 74  002e377..tcltest
7c40: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
7c50: 2d 32 32 34 2d 32 2e 39 33 20 7b 53 48 41 33 5f  -224-2.93 {SHA3_
7c60: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
7c70: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
7c80: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
7c90: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7ca0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 62 61  y decode hex 4ba
7cb0: 65 36 32 61 30 30 38 64 39 66 64 62 61 33 35 31  e62a008d9fdba351
7cc0: 61 31 39 30 33 63 36 36 64 35 38 65 35 38 37 33  a1903c66d58e5873
7cd0: 36 31 39 39 30 66 37 63 39 65 65 61 30 35 61 32  61990f7c9eea05a2
7ce0: 66 35 31 66 39 30 61 32 38 39 32 66 36 30 65 36  f51f90a2892f60e6
7cf0: 63 31 34 63 34 65 64 33 36 62 39 30 38 63 34 30  c14c4ed36b908c40
7d00: 33 39 62 63 38 39 37 39 37 66 64 38 38 65 35 34  39bc89797fd88e54
7d10: 32 38 31 62 33 37 66 36 31 39 62 33 64 39 61 32  281b37f619b3d9a2
7d20: 37 34 35 38 37 32 32 39 65 66 34 38 33 35 31 65  74587229ef48351e
7d30: 38 63 62 31 38 38 31 63 62 30 66 63 38 33 65 36  8cb1881cb0fc83e6
7d40: 64 64 63 39 30 61 30 35 62 31 36 30 66 64 37 64  ddc90a05b160fd7d
7d50: 30 61 31 65 62 30 38 33 35 64 35 37 31 35 38 65  0a1eb0835d57158e
7d60: 34 32 63 37 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79  42c7b]} \..-body
7d70: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
7d80: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
7d90: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
7da0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
7db0: 75 6c 74 20 39 38 39 63 31 35 36 62 61 31 66 64  ult 989c156ba1fd
7dc0: 31 66 37 30 64 65 62 33 37 38 65 34 36 66 66 63  1f70deb378e46ffc
7dd0: 62 66 36 66 32 63 66 39 63 66 39 37 37 61 39 32  bf6f2cf9cf977a92
7de0: 61 63 35 31 36 34 33 63 39 37 62 34 0a 0a 74 63  ac51643c97b4..tc
7df0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
7e00: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 39 34 20 7b  _SHA3-224-2.94 {
7e10: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
7e20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
7e30: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
7e40: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
7e50: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
7e60: 78 20 38 33 63 61 36 64 34 65 62 64 66 31 63 30  x 83ca6d4ebdf1c0
7e70: 34 30 36 32 63 61 31 61 62 62 39 37 37 36 37 30  4062ca1abb977670
7e80: 65 66 39 62 63 63 38 38 39 39 30 36 39 33 35 66  ef9bcc889906935f
7e90: 64 36 34 66 66 34 63 37 33 39 39 31 32 65 35 34  d64ff4c739912e54
7ea0: 31 62 38 66 38 63 37 39 33 32 66 35 39 35 65 66  1b8f8c7932f595ef
7eb0: 36 36 65 31 38 32 35 36 64 66 61 31 66 35 31 66  66e18256dfa1f51f
7ec0: 36 33 62 66 65 37 61 39 64 66 33 61 65 32 61 61  63bfe7a9df3ae2aa
7ed0: 34 33 31 37 37 31 64 31 39 33 31 38 64 36 61 61  431771d19318d6aa
7ee0: 33 62 63 63 66 61 63 31 61 34 63 38 61 61 30 61  3bccfac1a4c8aa0a
7ef0: 30 34 33 33 66 66 38 30 37 61 38 38 31 65 30 64  0433ff807a881e0d
7f00: 35 61 39 37 32 32 61 61 63 36 63 64 35 37 63 37  5a9722aac6cd57c7
7f10: 37 65 62 36 61 39 65 64 66 38 63 30 5d 7d 20 5c  7eb6a9edf8c0]} \
7f20: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
7f30: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
7f40: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
7f50: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
7f60: 63 74 20 2d 72 65 73 75 6c 74 20 66 62 38 33 31  ct -result fb831
7f70: 66 32 34 35 36 35 39 35 66 61 62 65 65 39 64 34  f2456595fabee9d4
7f80: 35 38 36 32 35 32 38 33 61 38 30 62 62 34 66 38  58625283a80bb4f8
7f90: 66 30 33 31 65 39 61 62 64 62 66 34 38 62 37 62  f031e9abdbf48b7b
7fa0: 35 31 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  51e..tcltest::te
7fb0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
7fc0: 2d 32 2e 39 35 20 7b 53 48 41 33 5f 32 32 34 53  -2.95 {SHA3_224S
7fd0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
7fe0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
7ff0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
8000: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8010: 63 6f 64 65 20 68 65 78 20 66 34 63 37 61 64 38  code hex f4c7ad8
8020: 64 32 34 65 64 35 61 36 38 32 63 34 37 33 34 36  d24ed5a682c47346
8030: 33 65 38 35 33 39 31 30 35 30 63 30 32 36 66 65  3e85391050c026fe
8040: 66 30 62 30 65 36 64 63 61 33 38 38 65 31 61 37  f0b0e6dca388e1a7
8050: 65 32 62 63 38 37 32 61 34 36 37 34 36 61 36 33  e2bc872a46746a63
8060: 66 33 61 32 63 31 63 61 36 65 34 63 38 62 37 63  f3a2c1ca6e4c8b7c
8070: 35 66 62 36 62 35 38 38 35 30 64 37 37 61 35 38  5fb6b58850d77a58
8080: 39 38 38 62 61 30 39 31 62 64 37 66 61 66 62 36  988ba091bd7fafb6
8090: 36 63 65 64 31 38 34 65 35 34 38 62 63 66 62 31  6ced184e548bcfb1
80a0: 62 30 65 36 65 31 34 38 35 66 62 36 61 31 39 63  b0e6e1485fb6a19c
80b0: 64 35 65 64 30 37 36 34 30 61 30 37 37 37 62 38  d5ed07640a0777b8
80c0: 32 32 37 33 64 35 65 38 30 37 39 39 62 37 66 61  2273d5e80799b7fa
80d0: 37 61 35 37 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79  7a57d]} \..-body
80e0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
80f0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
8100: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
8110: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
8120: 75 6c 74 20 31 33 62 65 65 36 31 37 34 37 34 62  ult 13bee617474b
8130: 33 66 63 33 34 34 37 30 32 35 66 32 61 34 38 38  3fc3447025f2a488
8140: 64 62 61 38 38 32 35 64 34 36 61 34 65 31 32 38  dba8825d46a4e128
8150: 62 39 61 38 62 64 65 62 31 62 38 35 0a 0a 74 63  b9a8bdeb1b85..tc
8160: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
8170: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 39 36 20 7b  _SHA3-224-2.96 {
8180: 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67  SHA3_224ShortMsg
8190: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
81a0: 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73  s SHA3_224 \..-s
81b0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
81c0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
81d0: 78 20 35 66 38 31 63 35 61 65 63 39 32 33 38 35  x 5f81c5aec92385
81e0: 62 66 64 63 35 35 65 62 64 36 30 30 66 32 33 63  bfdc55ebd600f23c
81f0: 62 30 34 61 63 39 64 35 63 37 61 31 33 39 36 66  b04ac9d5c7a1396f
8200: 38 30 31 66 66 65 61 31 61 36 62 39 34 61 61 36  801ffea1a6b94aa6
8210: 31 37 32 33 31 37 36 31 62 64 65 65 62 63 39 65  17231761bdeebc9e
8220: 63 30 66 34 62 66 39 62 66 61 66 35 65 62 63 37  c0f4bf9bfaf5ebc7
8230: 61 63 38 32 61 32 63 39 36 66 31 61 37 34 63 34  ac82a2c96f1a74c4
8240: 36 64 39 34 66 30 64 61 64 30 62 63 62 39 65 66  6d94f0dad0bcb9ef
8250: 37 62 34 31 64 64 61 66 66 38 63 66 36 33 64 32  7b41ddaff8cf63d2
8260: 62 32 37 38 32 33 39 65 36 35 35 38 64 62 61 65  b278239e6558dbae
8270: 64 32 37 39 37 65 66 33 62 37 66 34 63 66 66 38  d2797ef3b7f4cff8
8280: 66 65 35 39 32 66 36 61 33 35 35 31 62 33 64 37  fe592f6a3551b3d7
8290: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
82a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
82b0: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20   SHA3-224 -data 
82c0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
82d0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31   exact -result 1
82e0: 34 33 61 36 66 30 61 32 30 64 35 62 34 64 62 63  43a6f0a20d5b4dbc
82f0: 35 64 66 36 34 61 37 65 35 30 66 39 39 38 35 36  5df64a7e50f99856
8300: 33 31 34 35 33 65 62 30 39 64 65 64 37 31 36 36  31453eb09ded7166
8310: 37 37 30 39 30 38 33 0a 0a 74 63 6c 74 65 73 74  7709083..tcltest
8320: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
8330: 2d 32 32 34 2d 32 2e 39 37 20 7b 53 48 41 33 5f  -224-2.97 {SHA3_
8340: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
8350: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
8360: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
8370: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8380: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 37 33  y decode hex 073
8390: 35 63 65 63 61 65 64 65 66 39 39 62 66 34 63 35  5cecaedef99bf4c5
83a0: 33 32 34 32 66 30 35 35 32 66 34 39 66 35 36 62  3242f0552f49f56b
83b0: 62 65 35 38 39 61 32 66 36 31 31 61 66 37 35 66  be589a2f611af75f
83c0: 34 66 33 61 65 63 33 36 36 63 64 64 36 37 30 32  4f3aec366cdd6702
83d0: 64 34 36 33 39 31 35 31 32 35 38 30 32 30 32 62  d46391512580202b
83e0: 38 36 39 30 39 37 66 63 65 62 38 61 34 35 38 38  869097fceb8a4588
83f0: 39 66 62 62 66 39 38 35 32 34 37 32 66 39 34 62  9fbbf9852472f94b
8400: 63 32 66 34 33 32 62 62 38 33 30 39 63 34 64 30  c2f432bb8309c4d0
8410: 63 34 64 33 66 62 61 30 31 66 36 65 39 30 63 35  c4d3fba01f6e90c5
8420: 63 32 65 61 33 66 38 39 30 65 64 39 35 64 31 33  c2ea3f890ed95d13
8430: 32 63 33 31 66 34 64 61 64 62 66 32 36 38 63 33  2c31f4dadbf268c3
8440: 37 38 66 61 63 35 36 30 34 65 38 61 34 5d 7d 20  78fac5604e8a4]} 
8450: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
8460: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
8470: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
8480: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
8490: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 66 35 65  act -result 9f5e
84a0: 39 66 37 34 32 39 65 35 34 38 38 61 38 34 33 63  9f7429e5488a843c
84b0: 35 32 66 66 62 34 36 61 65 32 65 38 34 32 32 38  52ffb46ae2e84228
84c0: 39 31 39 64 33 32 33 33 30 61 39 31 39 33 61 66  919d32330a9193af
84d0: 33 62 32 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  3b21..tcltest::t
84e0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
84f0: 34 2d 32 2e 39 38 20 7b 53 48 41 33 5f 32 32 34  4-2.98 {SHA3_224
8500: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
8510: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32  nstraints SHA3_2
8520: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
8530: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
8540: 65 63 6f 64 65 20 68 65 78 20 39 62 34 65 34 64  ecode hex 9b4e4d
8550: 66 39 32 65 35 31 35 32 66 65 31 65 63 35 36 61  f92e5152fe1ec56a
8560: 39 66 63 38 36 35 66 33 30 62 61 63 37 65 39 34  9fc865f30bac7e94
8570: 39 66 63 34 66 36 32 66 30 62 31 35 38 64 31 30  9fc4f62f0b158d10
8580: 62 30 38 33 36 33 36 62 34 64 65 39 62 62 30 35  b083636b4de9bb05
8590: 64 62 36 39 66 65 33 31 62 35 30 31 30 33 66 65  db69fe31b50103fe
85a0: 66 63 35 66 38 64 61 66 33 61 66 37 31 35 36 62  fc5f8daf3af7156b
85b0: 34 35 35 32 63 61 33 36 36 37 61 39 64 37 32 30  4552ca3667a9d720
85c0: 62 62 62 32 65 34 62 63 64 61 62 61 64 66 64 34  bbb2e4bcdabadfd4
85d0: 62 37 66 34 66 63 35 62 63 38 31 31 66 61 61 33  b7f4fc5bc811faa3
85e0: 36 37 31 30 61 39 64 31 37 37 35 38 61 39 38 64  6710a9d17758a98d
85f0: 34 61 30 34 37 34 66 65 63 32 37 65 39 65 66 35  4a0474fec27e9ef5
8600: 62 37 34 66 35 63 36 38 39 39 33 35 5d 7d 20 5c  b74f5c689935]} \
8610: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
8620: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
8630: 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  3-224 -data $dat
8640: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
8650: 63 74 20 2d 72 65 73 75 6c 74 20 34 38 37 61 36  ct -result 487a6
8660: 66 32 66 38 37 35 63 62 32 35 33 64 65 34 63 65  f2f875cb253de4ce
8670: 66 31 38 65 63 62 34 66 32 61 35 34 33 38 38 65  f18ecb4f2a54388e
8680: 62 61 66 66 62 66 63 34 32 35 39 62 64 64 39 37  baffbfc4259bdd97
8690: 66 30 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  f09..tcltest::te
86a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34  st Hash_SHA3-224
86b0: 2d 32 2e 39 39 20 7b 53 48 41 33 5f 32 32 34 53  -2.99 {SHA3_224S
86c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
86d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
86e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
86f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8700: 63 6f 64 65 20 68 65 78 20 61 36 31 62 65 66 38  code hex a61bef8
8710: 33 38 38 36 37 37 31 30 66 66 34 33 34 31 62 32  38867710ff4341b2
8720: 36 62 31 33 62 38 64 37 61 66 37 65 34 36 31 63  6b13b8d7af7e461c
8730: 63 64 33 31 37 62 31 36 30 63 63 34 66 64 61 61  cd317b160cc4fdaa
8740: 65 63 37 66 31 38 30 35 61 32 38 64 64 64 33 36  ec7f1805a28ddd36
8750: 36 33 61 34 32 31 30 61 37 64 31 62 36 34 61 37  63a4210a7d1b64a7
8760: 35 32 65 38 36 36 61 61 37 32 32 34 61 37 35 62  52e866aa7224a75b
8770: 66 37 37 62 64 30 64 36 31 38 62 63 63 33 62 30  f77bd0d618bcc3b0
8780: 61 33 65 65 64 36 62 66 65 30 65 62 32 62 38 38  a3eed6bfe0eb2b88
8790: 32 38 31 39 65 36 61 34 63 63 34 33 37 62 64 33  2819e6a4cc437bd3
87a0: 38 39 31 35 63 65 35 33 63 35 35 64 39 34 65 39  8915ce53c55d94e9
87b0: 65 39 33 33 39 32 38 36 34 38 33 64 63 32 33 30  e9339286483dc230
87c0: 64 30 30 34 39 37 37 37 65 61 31 63 34 5d 7d 20  d0049777ea1c4]} 
87d0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
87e0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
87f0: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
8800: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
8810: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 32 35 37  act -result e257
8820: 62 63 34 35 62 36 32 64 30 38 35 33 62 61 34 62  bc45b62d0853ba4b
8830: 30 66 38 35 37 38 36 39 38 66 34 32 36 32 63 33  0f8578698f4262c3
8840: 31 61 37 37 38 63 62 36 61 36 33 31 37 62 36 65  1a778cb6a6317b6e
8850: 36 64 36 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  6d60..tcltest::t
8860: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
8870: 34 2d 32 2e 31 30 30 20 7b 53 48 41 33 5f 32 32  4-2.100 {SHA3_22
8880: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
8890: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
88a0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
88b0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
88c0: 64 65 63 6f 64 65 20 68 65 78 20 63 30 62 64 37  decode hex c0bd7
88d0: 39 65 30 63 35 66 37 32 66 63 62 31 64 65 36 63  9e0c5f72fcb1de6c
88e0: 32 33 34 62 64 62 36 37 62 64 30 64 33 66 34 38  234bdb67bd0d3f48
88f0: 31 62 39 36 32 61 33 61 30 31 66 32 64 38 63 34  1b962a3a01f2d8c4
8900: 38 33 62 64 37 64 35 64 39 38 35 34 38 64 35 31  83bd7d5d98548d51
8910: 64 32 37 35 33 32 37 31 36 62 31 39 35 66 64 66  d27532716b195fdf
8920: 62 30 65 61 30 62 37 37 64 62 37 35 39 62 35 34  b0ea0b77db759b54
8930: 65 32 36 39 65 36 39 65 34 38 65 32 63 62 30 37  e269e69e48e2cb07
8940: 62 63 39 63 30 36 32 35 39 39 32 37 64 32 37 35  bc9c06259927d275
8950: 35 66 34 38 65 38 64 39 61 30 32 30 63 35 38 61  5f48e8d9a020c58a
8960: 39 63 39 32 32 31 61 39 64 38 33 36 66 30 33 62  9c9221a9d836f03b
8970: 33 30 65 61 62 66 39 30 39 39 63 38 65 65 62 61  30eabf9099c8eeba
8980: 36 61 62 65 64 36 33 62 62 33 38 32 37 35 62 32  6abed63bb38275b2
8990: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
89a0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
89b0: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
89c0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
89d0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
89e0: 39 32 64 66 37 66 38 34 38 61 64 61 38 61 39 36  92df7f848ada8a96
89f0: 39 38 64 64 63 32 65 37 34 35 32 61 63 38 66 63  98ddc2e7452ac8fc
8a00: 34 33 63 66 38 33 64 32 63 61 32 63 61 64 64 37  43cf83d2ca2cadd7
8a10: 31 32 63 35 39 35 66 32 0a 0a 74 63 6c 74 65 73  12c595f2..tcltes
8a20: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
8a30: 33 2d 32 32 34 2d 32 2e 31 30 31 20 7b 53 48 41  3-224-2.101 {SHA
8a40: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
8a50: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
8a60: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
8a70: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
8a80: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37  ary decode hex 7
8a90: 37 38 32 33 61 66 39 62 38 37 39 36 63 36 33 62  7823af9b8796c63b
8aa0: 61 65 62 65 37 62 61 39 64 63 64 65 31 32 63 36  aebe7ba9dcde12c6
8ab0: 32 36 62 38 34 30 65 61 30 34 66 34 32 64 38 37  26b840ea04f42d87
8ac0: 38 36 34 36 39 37 30 63 61 35 62 66 37 61 62 61  8646970ca5bf7aba
8ad0: 39 34 65 61 66 31 31 30 64 61 33 36 63 65 30 63  94eaf110da36ce0c
8ae0: 38 33 34 62 36 35 34 62 63 61 63 39 33 32 36 34  834b654bcac93264
8af0: 61 33 34 39 66 35 32 30 65 35 30 35 66 31 65 63  a349f520e505f1ec
8b00: 39 30 33 64 33 35 38 39 65 33 61 34 61 64 66 38  903d3589e3a4adf8
8b10: 32 36 38 37 61 36 35 65 65 36 64 64 30 37 32 64  2687a65ee6dd072d
8b20: 36 62 63 30 35 61 63 64 66 62 64 66 32 35 37 63  6bc05acdfbdf257c
8b30: 64 37 30 61 35 31 38 33 61 35 34 62 34 66 65 38  d70a5183a54b4fe8
8b40: 65 38 37 64 31 63 32 32 62 32 65 39 66 34 65 65  e87d1c22b2e9f4ee
8b50: 38 31 37 63 35 37 64 5d 7d 20 5c 0a 09 2d 62 6f  817c57d]} \..-bo
8b60: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
8b70: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
8b80: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
8b90: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
8ba0: 65 73 75 6c 74 20 38 31 39 61 34 33 34 30 39 33  esult 819a434093
8bb0: 38 34 39 37 63 64 38 62 31 64 65 66 38 34 34 34  8497cd8b1def8444
8bc0: 62 62 30 33 66 38 34 32 39 62 39 65 38 37 62 61  bb03f8429b9e87ba
8bd0: 64 38 30 30 30 30 30 32 64 36 30 62 38 33 0a 0a  d8000002d60b83..
8be0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8bf0: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 30  sh_SHA3-224-2.10
8c00: 32 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  2 {SHA3_224Short
8c10: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
8c20: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
8c30: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
8c40: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
8c50: 20 68 65 78 20 61 64 61 35 36 35 31 62 34 65 32   hex ada5651b4e2
8c60: 34 30 33 33 35 36 30 30 39 34 30 66 32 30 37 62  40335600940f207b
8c70: 39 38 33 37 31 66 37 65 37 34 33 39 38 38 39 35  98371f7e74398895
8c80: 37 62 66 66 65 30 64 65 38 65 66 30 38 36 32 64  7bffe0de8ef0862d
8c90: 31 62 61 35 32 63 35 32 62 36 39 35 30 65 37 62  1ba52c52b6950e7b
8ca0: 30 35 63 33 35 34 32 63 32 66 62 31 33 61 63 61  05c3542c2fb13aca
8cb0: 66 66 30 34 34 32 64 33 33 39 34 30 61 30 65 33  ff0442d33940a0e3
8cc0: 65 61 36 37 32 33 32 66 38 34 33 37 65 61 61 30  ea67232f8437eaa0
8cd0: 32 31 32 38 32 38 33 66 66 63 30 63 66 65 32 35  2128283ffc0cfe25
8ce0: 34 61 63 38 66 35 34 32 62 65 33 66 30 35 66 62  4ac8f542be3f05fb
8cf0: 65 34 65 38 35 35 64 64 32 32 61 65 39 38 61 38  e4e855dd22ae98a8
8d00: 31 62 39 61 35 35 62 33 64 33 37 35 33 31 31 31  1b9a55b3d3753111
8d10: 32 31 30 30 34 38 66 32 62 35 30 65 30 36 38 5d  210048f2b50e068]
8d20: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
8d30: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
8d40: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
8d50: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
8d60: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 36  exact -result b6
8d70: 31 37 37 64 31 37 39 63 66 31 37 65 64 64 63 64  177d179cf17eddcd
8d80: 38 39 38 38 63 39 31 30 38 62 34 32 61 66 39 63  8988c9108b42af9c
8d90: 34 31 61 64 63 63 35 39 34 32 63 34 64 33 33 62  41adcc5942c4d33b
8da0: 30 66 31 62 65 32 0a 0a 74 63 6c 74 65 73 74 3a  0f1be2..tcltest:
8db0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
8dc0: 32 32 34 2d 32 2e 31 30 33 20 7b 53 48 41 33 5f  224-2.103 {SHA3_
8dd0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
8de0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
8df0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
8e00: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8e10: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 66 34  y decode hex ff4
8e20: 37 30 34 62 62 62 64 37 31 39 62 30 31 31 32 34  704bbbd719b01124
8e30: 34 65 62 65 64 66 32 66 32 33 35 35 33 33 38 66  4ebedf2f2355338f
8e40: 63 63 37 64 36 34 38 34 34 63 33 61 30 66 33 36  cc7d64844c3a0f36
8e50: 61 32 31 35 36 39 62 35 35 66 37 34 61 39 37 31  a21569b55f74a971
8e60: 30 66 38 66 33 64 38 64 38 33 62 39 62 63 64 37  0f8f3d8d83b9bcd7
8e70: 33 33 66 35 38 38 35 63 33 32 62 33 64 31 34 39  33f5885c32b3d149
8e80: 61 35 61 64 31 33 37 64 30 31 36 63 30 33 62 39  a5ad137d016c03b9
8e90: 33 61 34 64 31 31 61 66 66 38 32 31 38 65 38 65  3a4d11aff8218e8e
8ea0: 65 65 63 36 64 36 64 31 32 61 34 31 64 31 34 34  eec6d6d12a41d144
8eb0: 31 66 33 64 66 30 34 30 66 65 62 30 39 38 63 61  1f3df040feb098ca
8ec0: 32 66 30 30 33 63 34 63 32 37 37 66 63 37 31 33  2f003c4c277fc713
8ed0: 30 30 63 64 64 32 61 33 39 39 61 37 62 62 39 38  00cdd2a399a7bb98
8ee0: 61 65 37 31 31 63 34 34 36 5d 7d 20 5c 0a 09 2d  ae711c446]} \..-
8ef0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
8f00: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
8f10: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
8f20: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
8f30: 2d 72 65 73 75 6c 74 20 61 31 30 37 32 62 32 38  -result a1072b28
8f40: 66 33 34 35 33 34 32 32 65 36 31 31 34 32 31 33  f3453422e6114213
8f50: 30 39 61 61 34 39 61 61 65 62 62 61 30 32 37 33  09aa49aaebba0273
8f60: 63 37 32 62 38 33 35 66 64 65 65 61 31 31 33 32  c72b835fdeea1132
8f70: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
8f80: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
8f90: 31 30 34 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  104 {SHA3_224Sho
8fa0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
8fb0: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
8fc0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
8fd0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
8fe0: 64 65 20 68 65 78 20 65 61 65 34 62 36 32 66 36  de hex eae4b62f6
8ff0: 39 37 63 66 30 62 66 34 30 61 31 63 32 63 31 30  97cf0bf40a1c2c10
9000: 39 31 34 33 63 31 64 64 65 31 38 65 32 34 66 31  9143c1dde18e24f1
9010: 63 32 38 39 61 62 61 36 37 65 35 63 38 33 65 65  c289aba67e5c83ee
9020: 66 35 32 62 37 30 63 66 31 34 33 33 62 62 39 38  f52b70cf1433bb98
9030: 30 31 33 39 34 39 32 38 35 39 36 39 36 33 30 30  0139492859696300
9040: 35 34 65 30 37 34 63 61 32 65 32 34 39 64 34 36  54e074ca2e249d46
9050: 35 63 62 33 38 33 64 62 61 35 31 35 36 31 63 62  5cb383dba51561cb
9060: 63 62 36 32 36 66 30 62 33 62 31 64 35 34 32 64  cb626f0b3b1d542d
9070: 62 31 65 31 66 66 31 36 38 66 33 37 31 63 37 63  b1e1ff168f371c7c
9080: 36 37 36 34 62 34 66 32 35 61 64 65 39 65 62 33  6764b4f25ade9eb3
9090: 35 31 36 32 32 32 31 32 65 39 39 39 30 33 36 31  51622212e9990361
90a0: 34 62 62 66 31 66 65 33 39 31 34 63 64 66 32 30  4bbf1fe3914cdf20
90b0: 33 30 33 35 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79  3035a]} \..-body
90c0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
90d0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
90e0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
90f0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
9100: 75 6c 74 20 66 35 32 37 33 65 34 64 30 62 66 39  ult f5273e4d0bf9
9110: 37 37 39 61 30 39 37 35 66 65 65 32 33 63 34 34  779a0975fee23c44
9120: 37 62 33 61 62 62 31 63 64 31 37 63 33 34 63 37  7b3abb1cd17c34c7
9130: 32 33 64 36 32 66 33 61 32 66 64 31 0a 0a 74 63  23d62f3a2fd1..tc
9140: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
9150: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 30 35 20  _SHA3-224-2.105 
9160: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
9170: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
9180: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
9190: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
91a0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
91b0: 65 78 20 30 65 33 39 65 30 65 36 39 33 33 63 36  ex 0e39e0e6933c6
91c0: 31 30 34 39 38 34 66 66 66 65 31 31 35 64 64 38  104984fffe115dd8
91d0: 63 64 65 37 37 65 64 66 65 65 34 39 35 34 38 30  cde77edfee495480
91e0: 61 61 35 65 35 64 65 66 34 32 34 66 30 36 36 61  aa5e5def424f066a
91f0: 35 37 37 30 33 34 35 66 65 63 62 32 38 62 31 36  5770345fecb28b16
9200: 63 61 61 35 34 31 36 62 63 37 39 65 32 62 38 33  caa5416bc79e2b83
9210: 31 34 35 34 30 39 62 64 34 62 66 65 39 61 30 30  145409bd4bfe9a00
9220: 63 38 34 39 33 66 30 36 65 61 32 61 39 39 64 64  c8493f06ea2a99dd
9230: 36 35 38 66 62 38 37 62 37 31 65 62 35 37 64 61  658fb87b71eb57da
9240: 66 65 35 38 64 61 35 35 66 61 30 34 31 31 65 37  fe58da55fa0411e7
9250: 39 30 33 34 31 65 33 31 61 38 62 61 38 66 33 35  90341e31a8ba8f35
9260: 62 62 65 37 31 61 66 32 33 62 34 65 38 38 33 33  bbe71af23b4e8833
9270: 66 64 36 35 65 63 38 62 34 65 36 32 31 65 39 35  fd65ec8b4e621e95
9280: 33 34 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  340]} \..-body {
9290: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
92a0: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
92b0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
92c0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
92d0: 74 20 36 32 66 62 37 64 36 62 33 38 31 30 64 30  t 62fb7d6b3810d0
92e0: 66 64 37 64 39 36 62 34 66 66 35 65 66 65 37 62  fd7d96b4ff5efe7b
92f0: 64 32 38 33 64 64 62 62 65 64 61 34 61 32 31 61  d283ddbbeda4a21a
9300: 36 32 66 39 38 35 61 33 64 63 0a 0a 74 63 6c 74  62f985a3dc..tclt
9310: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
9320: 48 41 33 2d 32 32 34 2d 32 2e 31 30 36 20 7b 53  HA3-224-2.106 {S
9330: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
9340: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
9350: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
9360: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
9370: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
9380: 20 65 33 32 62 65 61 39 61 62 30 32 64 65 37 64   e32bea9ab02de7d
9390: 38 39 33 65 63 62 37 38 35 37 62 61 36 36 64 66  893ecb7857ba66df
93a0: 32 63 33 35 65 64 32 35 38 31 32 33 30 36 35 63  2c35ed258123065c
93b0: 61 38 30 65 32 61 30 36 37 66 61 62 62 37 64 64  a80e2a067fabb7dd
93c0: 34 65 37 39 38 33 39 65 61 30 62 33 63 35 38 61  4e79839ea0b3c58a
93d0: 62 61 63 65 38 65 39 37 62 66 34 32 62 30 62 38  bace8e97bf42b0b8
93e0: 64 39 37 66 63 62 30 39 62 62 36 30 36 61 31 64  d97fcb09bb606a1d
93f0: 61 30 32 34 33 63 33 32 64 32 34 63 63 39 38 39  a0243c32d24cc989
9400: 38 35 64 66 30 30 38 66 38 36 39 38 33 36 32 66  85df008f8698362f
9410: 32 61 61 37 38 39 65 32 61 38 32 62 33 65 35 62  2aa789e2a82b3e5b
9420: 35 30 31 31 38 35 33 64 30 63 30 65 38 66 62 64  5011853d0c0e8fbd
9430: 32 30 63 34 64 32 62 35 66 34 37 33 33 66 32 64  20c4d2b5f4733f2d
9440: 66 38 63 35 61 65 30 32 65 39 32 61 39 30 64 39  f8c5ae02e92a90d9
9450: 35 64 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  5d3]} \..-body {
9460: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
9470: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
9480: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
9490: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
94a0: 74 20 32 37 38 65 30 36 66 64 31 32 61 33 65 33  t 278e06fd12a3e3
94b0: 31 34 66 36 30 64 35 39 61 33 32 33 36 37 33 62  14f60d59a323673b
94c0: 61 30 61 32 32 30 30 33 65 34 32 61 63 34 38 65  a0a22003e42ac48e
94d0: 31 63 64 30 34 61 37 30 64 30 0a 0a 74 63 6c 74  1cd04a70d0..tclt
94e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
94f0: 48 41 33 2d 32 32 34 2d 32 2e 31 30 37 20 7b 53  HA3-224-2.107 {S
9500: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
9510: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
9520: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
9530: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
9540: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
9550: 20 34 31 35 37 37 35 32 64 33 64 31 37 35 61 34   4157752d3d175a4
9560: 62 63 31 33 33 34 66 64 34 32 63 32 30 34 31 31  bc1334fd42c20411
9570: 31 37 32 38 65 37 30 35 39 36 35 39 64 63 65 64  1728e7059659dced
9580: 66 33 33 34 65 61 37 63 65 33 30 33 37 38 37 39  f334ea7ce3037879
9590: 38 64 36 37 63 35 39 38 61 30 61 66 61 63 63 61  8d67c598a0afacca
95a0: 35 61 31 63 35 66 62 61 39 32 33 64 35 34 63 37  5a1c5fba923d54c7
95b0: 32 63 66 66 63 39 38 38 37 64 66 31 62 38 64 66  2cffc9887df1b8df
95c0: 31 30 64 39 36 35 31 34 39 35 35 30 35 36 38 31  10d9651495505681
95d0: 35 66 64 32 64 64 38 35 35 64 33 32 65 38 62 35  5fd2dd855d32e8b5
95e0: 38 62 36 66 64 66 34 64 34 35 37 31 35 66 36 33  8b6fdf4d45715f63
95f0: 36 34 31 36 61 30 31 33 37 31 37 39 66 37 65 62  6416a0137179f7eb
9600: 30 31 64 37 38 36 64 61 66 66 61 39 32 34 63 63  01d786daffa924cc
9610: 61 62 64 35 32 33 62 62 33 31 64 31 62 35 66 30  abd523bb31d1b5f0
9620: 64 30 35 63 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  d05c4]} \..-body
9630: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
9640: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
9650: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
9660: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
9670: 75 6c 74 20 31 63 61 62 34 33 36 33 35 64 35 30  ult 1cab43635d50
9680: 31 65 34 33 61 63 34 32 62 65 65 65 32 36 33 37  1e43ac42beee2637
9690: 35 35 62 39 61 32 39 38 32 37 65 32 61 31 38 62  55b9a29827e2a18b
96a0: 32 31 64 37 62 65 34 32 65 34 34 37 0a 0a 74 63  21d7be42e447..tc
96b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
96c0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 30 38 20  _SHA3-224-2.108 
96d0: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
96e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
96f0: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
9700: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
9710: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
9720: 65 78 20 32 64 66 31 32 64 38 63 32 35 36 63 64  ex 2df12d8c256cd
9730: 31 61 31 32 37 65 35 32 35 61 63 33 37 36 33 65  1a127e525ac3763e
9740: 33 30 63 38 39 35 39 38 32 65 65 65 36 37 61 62  30c895982eee67ab
9750: 37 63 31 35 30 63 65 33 64 65 61 65 39 30 36 64  7c150ce3deae906d
9760: 32 62 39 31 31 30 64 38 32 39 63 63 66 64 66 32  2b9110d829ccfdf2
9770: 37 39 33 37 32 39 65 33 31 65 34 37 38 65 33 61  793729e31e478e3a
9780: 33 31 30 61 65 35 32 35 65 30 35 39 39 37 31 61  310ae525e059971a
9790: 32 39 35 31 35 62 61 64 32 32 37 33 63 65 65 37  29515bad2273cee7
97a0: 37 61 64 38 39 61 64 38 38 64 36 33 64 34 34 65  7ad89ad88d63d44e
97b0: 39 38 34 30 32 63 36 33 31 38 30 63 66 35 65 62  98402c63180cf5eb
97c0: 30 36 64 30 62 65 33 62 31 66 61 66 35 61 64 66  06d0be3b1faf5adf
97d0: 63 35 63 34 33 61 37 39 66 66 63 30 39 61 36 65  c5c43a79ffc09a6e
97e0: 65 36 63 64 64 66 39 63 39 61 30 33 39 34 32 31  e6cddf9c9a039421
97f0: 64 35 62 32 31 38 34 61 64 5d 7d 20 5c 0a 09 2d  d5b2184ad]} \..-
9800: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9810: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
9820: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
9830: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
9840: 2d 72 65 73 75 6c 74 20 65 65 36 30 66 30 64 30  -result ee60f0d0
9850: 31 30 30 38 63 66 61 63 65 34 39 61 66 32 65 65  1008cface49af2ee
9860: 35 37 38 30 63 63 64 65 65 33 37 34 30 34 63 33  5780ccdee37404c3
9870: 37 36 34 32 30 30 38 61 35 35 66 61 66 61 66 32  7642008a55fafaf2
9880: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
9890: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
98a0: 31 30 39 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  109 {SHA3_224Sho
98b0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
98c0: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
98d0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
98e0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
98f0: 64 65 20 68 65 78 20 30 33 62 65 36 39 34 30 65  de hex 03be6940e
9900: 38 35 39 66 39 62 30 37 32 36 36 30 64 66 66 32  859f9b072660dff2
9910: 38 61 31 38 37 35 35 31 63 32 34 32 35 34 38 31  8a187551c2425481
9920: 64 64 30 35 35 35 64 32 64 65 65 34 61 63 63 33  dd0555d2dee4acc3
9930: 36 31 36 34 66 38 34 66 38 35 30 35 62 36 66 34  6164f84f8505b6f4
9940: 36 37 61 65 36 66 37 37 32 65 61 66 63 63 39 30  67ae6f772eafcc90
9950: 36 35 34 39 30 64 39 62 34 65 64 31 32 61 36 39  65490d9b4ed12a69
9960: 30 64 30 34 34 62 66 37 64 61 31 34 39 38 36 65  0d044bf7da14986e
9970: 35 37 31 66 65 33 34 61 65 65 32 38 65 31 64 36  571fe34aee28e1d6
9980: 39 38 63 34 31 33 36 63 63 39 66 39 35 64 34 36  98c4136cc9f95d46
9990: 32 63 39 39 30 62 36 38 31 35 61 35 34 34 36 37  2c990b6815a54467
99a0: 64 61 36 66 34 31 63 31 62 61 61 38 36 63 34 34  da6f41c1baa86c44
99b0: 38 66 33 37 61 63 31 30 62 62 63 32 61 64 31 62  8f37ac10bbc2ad1b
99c0: 39 35 37 62 31 37 33 36 38 63 65 30 31 61 37 5d  957b17368ce01a7]
99d0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
99e0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
99f0: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
9a00: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
9a10: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 38  exact -result a8
9a20: 61 61 38 30 64 34 63 39 32 35 38 38 39 62 35 38  aa80d4c925889b58
9a30: 65 66 66 34 31 62 38 39 36 38 32 62 39 32 62 65  eff41b89682b92be
9a40: 61 36 30 63 31 63 33 39 39 35 30 34 33 64 61 63  a60c1c3995043dac
9a50: 33 31 32 64 32 64 0a 0a 74 63 6c 74 65 73 74 3a  312d2d..tcltest:
9a60: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
9a70: 32 32 34 2d 32 2e 31 31 30 20 7b 53 48 41 33 5f  224-2.110 {SHA3_
9a80: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
9a90: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
9aa0: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
9ab0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9ac0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 62 61  y decode hex 0ba
9ad0: 66 31 61 63 32 34 33 63 31 66 33 34 63 61 35 65  f1ac243c1f34ca5e
9ae0: 30 30 61 65 64 34 64 38 36 37 66 39 36 37 62 63  00aed4d867f967bc
9af0: 32 62 39 36 33 65 39 33 39 35 36 63 33 35 62 36  2b963e93956c35b6
9b00: 62 36 38 64 61 37 37 33 37 64 65 32 33 64 37 61  b68da7737de23d7a
9b10: 31 34 30 35 61 35 64 64 34 61 30 39 39 63 36 36  1405a5dd4a099c66
9b20: 33 63 64 63 31 38 32 64 34 63 39 31 62 63 33 35  3cdc182d4c91bc35
9b30: 66 37 64 33 66 64 35 66 33 61 63 33 35 61 64 37  f7d3fd5f3ac35ad7
9b40: 61 32 36 64 62 63 34 35 65 33 65 38 36 32 36 34  a26dbc45e3e86264
9b50: 63 37 64 65 63 63 35 33 38 39 38 34 32 31 34 61  c7decc538984214a
9b60: 31 61 30 61 31 64 31 31 36 37 39 61 65 32 32 66  1a0a1d11679ae22f
9b70: 39 38 64 37 61 65 34 38 33 63 31 61 37 34 30 30  98d7ae483c1a7400
9b80: 38 61 39 63 64 37 66 37 63 66 37 31 62 31 66 33  8a9cd7f7cf71b1f3
9b90: 37 33 61 34 32 32 36 66 35 63 35 38 65 62 36 32  73a4226f5c58eb62
9ba0: 31 65 63 35 36 65 32 5d 7d 20 5c 0a 09 2d 62 6f  1ec56e2]} \..-bo
9bb0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
9bc0: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
9bd0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9be0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
9bf0: 65 73 75 6c 74 20 66 31 32 66 37 61 31 63 35 63  esult f12f7a1c5c
9c00: 31 63 33 38 33 61 32 61 35 66 66 66 38 39 33 32  1c383a2a5fff8932
9c10: 65 32 61 65 39 64 63 33 34 32 62 33 37 36 35 32  e2ae9dc342b37652
9c20: 64 34 37 33 35 36 66 66 63 31 63 62 33 37 0a 0a  d47356ffc1cb37..
9c30: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
9c40: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 31  sh_SHA3-224-2.11
9c50: 31 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  1 {SHA3_224Short
9c60: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
9c70: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
9c80: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
9c90: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
9ca0: 20 68 65 78 20 33 63 32 39 61 38 63 38 33 65 34   hex 3c29a8c83e4
9cb0: 38 31 39 34 61 37 62 38 37 62 36 39 65 33 37 36  8194a7b87b69e376
9cc0: 61 30 36 30 36 33 64 65 32 34 34 39 62 64 31 37  a06063de2449bd17
9cd0: 31 66 61 39 31 65 35 38 65 64 32 62 63 39 30 34  1fa91e58ed2bc904
9ce0: 62 61 38 35 33 62 62 33 35 65 33 66 35 31 65 37  ba853bb35e3f51e7
9cf0: 63 30 36 65 39 36 62 35 34 38 32 61 61 63 38 39  c06e96b5482aac89
9d00: 61 63 66 61 33 38 33 62 62 62 61 33 37 30 31 64  acfa383bbba3701d
9d10: 32 30 31 30 34 66 38 31 30 31 64 36 39 64 65 36  20104f8101d69de6
9d20: 31 35 66 34 35 61 32 34 63 33 65 30 32 39 39 31  15f45a24c3e02991
9d30: 62 66 30 64 33 62 62 33 64 33 37 33 39 30 66 65  bf0d3bb3d37390fe
9d40: 38 37 65 63 63 36 34 30 33 32 34 33 38 34 32 34  87ecc64032438424
9d50: 32 31 38 38 36 32 30 39 33 61 36 39 64 64 37 62  218862093a69dd7b
9d60: 39 39 30 30 38 35 37 33 36 36 31 66 39 39 39 36  99008573661f9996
9d70: 66 66 65 38 65 64 35 30 62 37 65 35 34 66 34 39  ffe8ed50b7e54f49
9d80: 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  c]} \..-body {tl
9d90: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
9da0: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
9db0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
9dc0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
9dd0: 35 63 36 62 32 39 63 33 63 62 66 64 31 64 32 65  5c6b29c3cbfd1d2e
9de0: 61 64 66 37 63 37 39 31 35 31 33 62 32 37 66 32  adf7c791513b27f2
9df0: 31 63 39 33 34 64 65 36 33 37 38 65 66 37 34 38  1c934de6378ef748
9e00: 62 37 37 39 62 37 31 64 0a 0a 74 63 6c 74 65 73  b779b71d..tcltes
9e10: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
9e20: 33 2d 32 32 34 2d 32 2e 31 31 32 20 7b 53 48 41  3-224-2.112 {SHA
9e30: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
9e40: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9e50: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
9e60: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
9e70: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36  ary decode hex 6
9e80: 38 61 33 63 30 36 65 30 37 34 30 62 35 36 39 63  8a3c06e0740b569c
9e90: 37 32 65 61 36 61 39 30 64 38 62 34 35 65 38 33  72ea6a90d8b45e83
9ea0: 63 37 63 33 35 30 64 32 62 63 66 31 63 66 36 64  c7c350d2bcf1cf6d
9eb0: 36 64 66 66 61 37 35 35 33 62 38 62 39 39 38 30  6dffa7553b8b9980
9ec0: 38 37 63 30 35 32 65 31 63 30 36 35 64 38 36 32  87c052e1c065d862
9ed0: 62 63 63 36 61 37 61 33 65 30 61 39 30 61 63 66  bcc6a7a3e0a90acf
9ee0: 61 31 64 63 34 31 30 31 37 32 63 39 64 61 62 31  a1dc410172c9dab1
9ef0: 34 30 65 61 64 39 61 32 39 36 38 31 31 35 35 37  40ead9a296811557
9f00: 65 31 36 34 37 33 35 39 61 63 64 34 30 33 34 31  e1647359acd40341
9f10: 65 66 65 62 36 66 35 62 33 66 64 63 30 30 34 34  efeb6f5b3fdc0044
9f20: 31 36 32 61 34 35 65 36 32 62 30 65 63 33 34 31  162a45e62b0ec341
9f30: 36 33 34 62 63 65 63 62 38 33 30 36 32 36 39 33  634bcecb83062693
9f40: 30 33 39 32 66 38 63 36 62 64 65 38 35 66 61 30  0392f8c6bde85fa0
9f50: 38 38 61 33 32 32 30 35 34 61 63 66 63 5d 7d 20  88a322054acfc]} 
9f60: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
9f70: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
9f80: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
9f90: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
9fa0: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 38 61 36  act -result 58a6
9fb0: 39 31 35 32 34 33 39 38 61 35 37 34 36 64 66 32  91524398a5746df2
9fc0: 38 61 63 30 38 33 66 31 35 38 36 31 37 35 30 65  8ac083f15861750e
9fd0: 30 63 64 64 31 66 64 35 65 35 66 35 37 63 39 38  0cdd1fd5e5f57c98
9fe0: 32 63 31 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  2c18..tcltest::t
9ff0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
a000: 34 2d 32 2e 31 31 33 20 7b 53 48 41 33 5f 32 32  4-2.113 {SHA3_22
a010: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
a020: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
a030: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
a040: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
a050: 64 65 63 6f 64 65 20 68 65 78 20 64 34 66 37 35  decode hex d4f75
a060: 37 64 31 63 33 33 62 39 63 30 62 33 38 62 34 65  7d1c33b9c0b38b4e
a070: 39 33 65 38 65 32 34 38 33 65 63 35 31 62 34 38  93e8e2483ec51b48
a080: 36 31 32 39 39 66 31 64 36 35 30 39 36 31 34 35  61299f1d65096145
a090: 37 34 39 36 64 38 36 36 31 34 64 34 32 61 33 36  7496d86614d42a36
a0a0: 65 33 36 39 36 62 66 31 36 38 66 64 34 36 36 33  e3696bf168fd4663
a0b0: 65 66 63 32 36 65 38 38 63 64 35 38 64 31 35 31  efc26e88cd58d151
a0c0: 65 31 35 33 31 34 36 37 62 37 33 66 36 39 64 63  e1531467b73f69dc
a0d0: 39 63 65 34 66 38 64 34 31 63 65 35 37 39 63 65  9ce4f8d41ce579ce
a0e0: 31 63 39 31 65 36 37 36 30 65 33 34 30 65 37 36  1c91e6760e340e76
a0f0: 37 37 61 62 64 66 34 66 65 63 31 30 34 30 37 34  77abdf4fec104074
a100: 35 61 61 35 31 34 34 36 34 30 61 33 39 62 38 63  5aa5144640a39b8c
a110: 34 66 38 38 34 64 66 38 30 37 35 33 61 36 39 31  4f884df80753a691
a120: 36 35 33 30 30 33 64 36 33 34 66 61 35 62 66 63  653003d634fa5bfc
a130: 65 38 31 66 39 34 65 63 33 66 36 5d 7d 20 5c 0a  e81f94ec3f6]} \.
a140: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
a150: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
a160: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
a170: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
a180: 74 20 2d 72 65 73 75 6c 74 20 62 65 31 31 32 35  t -result be1125
a190: 39 33 37 37 66 30 39 38 32 31 64 39 64 63 33 35  9377f09821d9dc35
a1a0: 38 35 39 32 62 36 35 36 35 64 38 65 66 32 62 34  8592b6565d8ef2b4
a1b0: 31 34 64 66 61 61 37 64 62 35 36 30 39 66 62 37  14dfaa7db5609fb7
a1c0: 35 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  51..tcltest::tes
a1d0: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d  t Hash_SHA3-224-
a1e0: 32 2e 31 31 34 20 7b 53 48 41 33 5f 32 32 34 53  2.114 {SHA3_224S
a1f0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
a200: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
a210: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
a220: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
a230: 63 6f 64 65 20 68 65 78 20 65 63 64 39 65 39 35  code hex ecd9e95
a240: 66 37 63 35 65 66 63 38 33 33 36 66 38 30 66 65  f7c5efc8336f80fe
a250: 36 37 65 31 31 33 36 35 37 62 33 31 34 38 32 62  67e113657b31482b
a260: 61 66 63 32 32 64 63 35 62 34 35 30 37 33 34 38  afc22dc5b4507348
a270: 32 38 34 36 63 64 63 34 38 34 31 34 64 32 65 61  2846cdc48414d2ea
a280: 38 35 35 61 65 37 35 64 39 66 32 38 61 30 62 64  855ae75d9f28a0bd
a290: 62 65 33 30 64 62 65 35 31 31 35 30 33 37 38 38  be30dbe511503788
a2a0: 65 35 37 38 66 32 30 66 32 35 65 32 30 62 62 37  e578f20f25e20bb7
a2b0: 37 30 63 61 31 64 37 38 37 66 32 66 30 32 39 31  70ca1d787f2f0291
a2c0: 31 31 33 39 32 37 35 64 62 65 61 61 35 61 65 31  1139275dbeaa5ae1
a2d0: 61 61 66 31 35 35 66 34 30 64 37 31 33 34 39 31  aaf155f40d713491
a2e0: 35 64 61 63 33 34 64 30 39 33 38 33 35 38 64 63  5dac34d0938358dc
a2f0: 38 62 65 39 37 63 66 31 30 30 35 61 39 32 32 62  8be97cf1005a922b
a300: 66 33 64 37 31 63 33 33 31 32 38 32 66 34 31 63  f3d71c331282f41c
a310: 38 36 39 39 33 65 30 63 63 66 66 5d 7d 20 5c 0a  86993e0ccff]} \.
a320: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
a330: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
a340: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
a350: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
a360: 74 20 2d 72 65 73 75 6c 74 20 36 39 35 30 61 64  t -result 6950ad
a370: 30 66 39 31 33 39 38 62 33 39 39 36 35 62 31 38  0f91398b39965b18
a380: 35 39 65 61 39 31 38 63 35 33 31 32 31 32 66 61  59ea918c531212fa
a390: 63 65 31 65 35 31 64 34 64 33 39 30 66 30 39 34  ce1e51d4d390f094
a3a0: 65 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e1..tcltest::tes
a3b0: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d  t Hash_SHA3-224-
a3c0: 32 2e 31 31 35 20 7b 53 48 41 33 5f 32 32 34 53  2.115 {SHA3_224S
a3d0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
a3e0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
a3f0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
a400: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
a410: 63 6f 64 65 20 68 65 78 20 38 33 34 64 64 64 38  code hex 834ddd8
a420: 66 63 37 65 61 30 63 33 33 38 35 65 66 38 32 38  fc7ea0c3385ef828
a430: 30 64 33 61 37 62 32 32 64 35 39 61 64 31 37 64  0d3a7b22d59ad17d
a440: 37 31 30 61 35 31 61 35 34 34 61 32 39 33 35 34  710a51a544a29354
a450: 34 66 33 30 36 35 39 65 38 31 36 61 39 38 64 33  4f30659e816a98d3
a460: 38 61 32 64 34 64 39 32 66 36 66 39 36 36 32 36  8a2d4d92f6f96626
a470: 61 37 63 37 39 64 36 66 31 37 62 66 64 30 61 35  a7c79d6f17bfd0a5
a480: 35 38 66 34 35 65 32 66 62 35 34 31 31 37 32 62  58f45e2fb541172b
a490: 37 32 30 65 63 36 32 39 63 38 38 61 37 39 37 31  720ec629c88a7971
a4a0: 33 32 36 30 35 30 66 32 62 39 61 62 38 30 64 33  326050f2b9ab80d3
a4b0: 30 63 66 38 63 37 37 37 66 38 30 65 33 37 63 39  0cf8c777f80e37c9
a4c0: 38 66 61 36 31 37 39 37 35 32 33 65 38 31 65 31  8fa61797523e81e1
a4d0: 62 62 62 63 37 63 64 36 65 65 32 32 65 34 32 34  bbbc7cd6ee22e424
a4e0: 39 64 61 65 36 37 39 63 65 30 66 33 65 63 63 66  9dae679ce0f3eccf
a4f0: 62 35 34 34 39 35 64 37 65 37 30 34 36 5d 7d 20  b54495d7e7046]} 
a500: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
a510: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
a520: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
a530: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
a540: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 66 32 31  act -result ef21
a550: 65 65 38 64 35 36 38 63 30 30 39 65 61 61 38 64  ee8d568c009eaa8d
a560: 31 65 61 37 37 30 39 36 38 63 62 37 31 38 63 34  1ea770968cb718c4
a570: 64 35 36 65 37 62 32 64 39 36 36 62 66 63 62 62  d56e7b2d966bfcbb
a580: 66 33 39 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  f398..tcltest::t
a590: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
a5a0: 34 2d 32 2e 31 31 36 20 7b 53 48 41 33 5f 32 32  4-2.116 {SHA3_22
a5b0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
a5c0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
a5d0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
a5e0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
a5f0: 64 65 63 6f 64 65 20 68 65 78 20 36 66 66 36 31  decode hex 6ff61
a600: 31 32 30 38 33 39 35 64 38 31 35 30 30 35 30 35  1208395d81500505
a610: 64 61 65 30 35 30 66 66 30 63 32 39 63 30 61 66  dae050ff0c29c0af
a620: 64 65 32 61 38 65 38 39 63 39 36 31 39 32 38 36  de2a8e89c9619286
a630: 33 65 61 36 32 63 31 37 65 32 39 32 64 30 35 30  3ea62c17e292d050
a640: 32 65 39 34 64 63 62 37 66 34 37 66 34 63 64 64  2e94dcb7f47f4cdd
a650: 35 37 34 32 36 34 66 34 38 37 31 36 64 30 32 64  574264f48716d02d
a660: 36 31 36 63 66 32 37 63 37 35 39 66 64 66 37 38  616cf27c759fdf78
a670: 37 63 64 63 64 34 33 62 31 36 39 65 61 35 38 36  7cdcd43b169ea586
a680: 63 38 62 63 61 32 35 66 61 33 63 65 31 61 30 38  c8bca25fa3ce1a08
a690: 65 62 36 31 35 36 35 35 65 32 34 37 31 61 30 66  eb615655e2471a0f
a6a0: 61 61 38 31 64 32 65 64 63 61 32 38 65 66 66 34  aa81d2edca28eff4
a6b0: 30 33 30 66 61 62 66 33 36 66 31 30 66 62 35 66  030fabf36f10fb5f
a6c0: 35 30 66 65 34 65 62 37 32 37 63 33 30 38 66 33  50fe4eb727c308f3
a6d0: 31 37 62 62 61 39 39 35 62 36 33 31 30 61 65 31  17bba995b6310ae1
a6e0: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
a6f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
a700: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
a710: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
a720: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
a730: 38 61 32 39 66 32 63 30 64 35 36 34 39 33 35 62  8a29f2c0d564935b
a740: 38 64 33 31 62 37 64 30 30 37 66 35 38 31 33 38  8d31b7d007f58138
a750: 34 38 39 64 31 34 30 39 31 37 61 32 38 65 65 38  489d140917a28ee8
a760: 35 64 34 33 62 36 66 32 0a 0a 74 63 6c 74 65 73  5d43b6f2..tcltes
a770: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
a780: 33 2d 32 32 34 2d 32 2e 31 31 37 20 7b 53 48 41  3-224-2.117 {SHA
a790: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
a7a0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
a7b0: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
a7c0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
a7d0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66  ary decode hex f
a7e0: 39 37 37 65 61 33 38 30 37 36 33 32 38 62 62 30  977ea38076328bb0
a7f0: 65 65 32 32 39 37 63 62 65 33 62 32 61 39 37 35  ee2297cbe3b2a975
a800: 35 66 65 38 62 62 39 35 61 65 37 32 36 32 39 38  5fe8bb95ae726298
a810: 65 30 34 64 66 30 35 32 30 31 61 37 63 63 66 32  e04df05201a7ccf2
a820: 30 34 36 62 38 32 38 33 36 65 30 39 32 64 61 39  046b82836e092da9
a830: 34 61 34 65 62 31 63 32 39 31 34 35 30 31 32 31  4a4eb1c291450121
a840: 37 31 38 31 35 39 34 36 38 65 38 61 33 33 30 66  718159468e8a330f
a850: 63 32 62 31 32 37 32 63 36 36 31 66 62 36 32 33  c2b1272c661fb623
a860: 39 37 65 38 37 34 66 66 63 64 37 63 63 63 62 65  97e874ffcd7cccbe
a870: 35 34 32 35 61 66 37 32 35 37 39 31 30 30 31 63  5425af725791001c
a880: 30 63 30 33 35 65 61 34 31 63 38 63 34 38 64 61  0c035ea41c8c48da
a890: 62 64 32 30 36 64 64 62 32 31 37 36 36 36 65 32  bd206ddb217666e2
a8a0: 62 36 38 38 32 33 37 63 32 31 32 37 65 39 36 65  b688237c2127e96e
a8b0: 62 30 34 39 64 39 34 31 62 33 34 31 32 36 62 33  b049d941b34126b3
a8c0: 37 33 65 31 33 34 35 5d 7d 20 5c 0a 09 2d 62 6f  73e1345]} \..-bo
a8d0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
a8e0: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
a8f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
a900: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
a910: 65 73 75 6c 74 20 31 35 31 38 30 64 66 35 35 35  esult 15180df555
a920: 34 33 38 37 33 33 37 66 30 34 64 65 32 66 33 37  4387337f04de2f37
a930: 61 31 36 62 32 38 31 32 35 61 64 62 64 30 32 62  a16b28125adbd02b
a940: 36 66 61 36 63 66 64 62 32 34 31 39 35 64 0a 0a  6fa6cfdb24195d..
a950: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
a960: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 31  sh_SHA3-224-2.11
a970: 38 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  8 {SHA3_224Short
a980: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
a990: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
a9a0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
a9b0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
a9c0: 20 68 65 78 20 32 32 61 38 66 62 34 33 64 35 34   hex 22a8fb43d54
a9d0: 66 66 66 38 32 37 34 39 63 64 63 65 39 38 61 62  fff82749cdce98ab
a9e0: 65 38 61 64 61 66 63 64 34 34 33 66 66 65 31 36  e8adafcd443ffe16
a9f0: 62 66 30 65 39 39 33 34 31 65 31 66 37 30 36 34  bf0e99341e1f7064
aa00: 66 63 30 37 61 35 39 30 37 63 38 31 36 61 62 64  fc07a5907c816abd
aa10: 62 33 32 36 63 33 30 66 65 66 30 66 35 38 34 36  b326c30fef0f5846
aa20: 65 39 65 33 31 33 66 33 32 62 36 30 32 63 39 65  e9e313f32b602c9e
aa30: 30 30 33 35 32 37 30 36 33 35 38 66 63 62 37 66  00352706358fcb7f
aa40: 62 38 31 65 61 66 31 38 35 37 61 37 62 30 66 66  b81eaf1857a7b0ff
aa50: 64 64 66 32 37 62 37 34 31 61 34 36 35 39 36 31  ddf27b741a465961
aa60: 38 30 36 63 63 66 36 37 32 63 31 37 39 39 33 66  806ccf672c17993f
aa70: 32 38 34 62 32 61 61 61 39 61 32 63 38 35 34 32  284b2aaa9a2c8542
aa80: 35 30 61 34 32 31 32 61 61 37 39 33 37 61 39 62  50a4212aa7937a9b
aa90: 66 65 65 66 63 33 30 65 63 35 66 30 30 36 37 63  feefc30ec5f0067c
aaa0: 33 61 61 66 33 34 61 31 64 63 65 32 65 65 36 5d  3aaf34a1dce2ee6]
aab0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
aac0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
aad0: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
aae0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
aaf0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 31  exact -result d1
ab00: 31 66 63 62 62 62 32 66 61 30 33 31 30 39 66 39  1fcbbb2fa03109f9
ab10: 35 32 61 35 36 65 31 36 38 36 37 63 37 30 39 30  52a56e16867c7090
ab20: 34 35 35 32 65 62 35 38 30 61 36 36 35 39 33 31  4552eb580a665931
ab30: 34 62 64 35 66 65 0a 0a 74 63 6c 74 65 73 74 3a  4bd5fe..tcltest:
ab40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
ab50: 32 32 34 2d 32 2e 31 31 39 20 7b 53 48 41 33 5f  224-2.119 {SHA3_
ab60: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
ab70: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
ab80: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
ab90: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
aba0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 38 37  y decode hex 687
abb0: 32 37 36 33 36 66 66 33 38 63 30 62 61 38 39 39  27636ff38c0ba899
abc0: 39 64 64 65 33 63 62 64 39 35 30 33 39 30 30 64  9dde3cbd9503900d
abd0: 35 63 63 62 30 31 64 33 63 39 62 37 39 35 39 66  5ccb01d3c9b7959f
abe0: 62 34 31 31 65 65 64 66 39 35 63 63 65 31 38 30  b411eedf95cce180
abf0: 35 63 65 66 36 36 37 30 64 31 65 31 31 33 33 39  5cef6670d1e11339
ac00: 30 31 63 63 30 36 62 35 35 63 34 31 64 39 34 35  01cc06b55c41d945
ac10: 65 36 35 34 63 30 64 31 38 30 33 35 34 39 38 64  e654c0d18035498d
ac20: 34 66 39 32 64 31 36 37 61 65 32 31 62 39 32 37  4f92d167ae21b927
ac30: 63 62 61 33 61 38 31 30 61 34 31 35 39 34 38 38  cba3a810a4159488
ac40: 35 61 30 30 62 66 66 33 35 34 66 66 63 37 35 33  5a00bff354ffc753
ac50: 65 33 36 38 32 37 34 64 30 31 33 37 34 34 36 39  e368274d01374469
ac60: 66 31 62 33 66 37 37 39 33 65 34 33 36 64 64 63  f1b3f7793e436ddc
ac70: 30 38 32 32 61 64 36 39 38 66 31 33 62 64 31 35  0822ad698f13bd15
ac80: 66 62 33 65 64 31 30 65 30 62 39 37 66 61 63 35  fb3ed10e0b97fac5
ac90: 66 38 37 37 38 64 39 63 65 5d 7d 20 5c 0a 09 2d  f8778d9ce]} \..-
aca0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
acb0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
acc0: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
acd0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
ace0: 2d 72 65 73 75 6c 74 20 32 31 63 37 31 62 64 30  -result 21c71bd0
acf0: 39 65 62 66 35 64 30 39 31 35 35 33 34 37 63 34  9ebf5d09155347c4
ad00: 66 34 37 36 62 38 66 39 63 35 61 65 64 34 35 37  f476b8f9c5aed457
ad10: 39 35 37 33 32 31 31 38 38 37 61 62 36 30 38 34  9573211887ab6084
ad20: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
ad30: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
ad40: 31 32 30 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  120 {SHA3_224Sho
ad50: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
ad60: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
ad70: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
ad80: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
ad90: 64 65 20 68 65 78 20 31 36 37 63 62 37 37 32 66  de hex 167cb772f
ada0: 30 39 36 62 32 65 33 62 31 35 39 39 63 63 65 33  096b2e3b1599cce3
adb0: 34 34 30 64 31 61 66 35 37 63 35 62 37 64 66 35  440d1af57c5b7df5
adc0: 64 32 66 34 36 30 62 39 31 61 63 63 37 65 35 32  d2f460b91acc7e52
add0: 63 39 66 64 62 31 39 37 39 33 62 63 30 38 33 33  c9fdb19793bc0833
ade0: 37 35 31 64 30 39 66 33 66 36 36 34 61 34 31 36  751d09f3f664a416
adf0: 37 30 39 35 35 38 36 61 35 36 34 34 32 30 61 37  7095586a564420a7
ae00: 38 31 30 31 32 35 62 38 33 32 65 33 38 61 65 37  810125b832e38ae7
ae10: 62 62 33 61 30 64 31 34 34 30 33 65 66 36 31 35  bb3a0d14403ef615
ae20: 37 63 32 30 64 33 64 36 37 65 36 65 31 33 61 34  7c20d3d67e6e13a4
ae30: 34 31 31 35 62 31 39 66 66 31 66 62 38 62 36 34  4115b19ff1fb8b64
ae40: 66 66 61 30 31 38 31 33 33 62 36 64 35 33 32 64  ffa018133b6d532d
ae50: 39 64 61 36 39 62 39 62 66 66 62 63 64 37 34 31  9da69b9bffbcd741
ae60: 38 39 30 37 31 61 35 37 31 30 31 65 37 32 33 39  89071a57101e7239
ae70: 34 30 31 65 61 35 30 61 64 31 65 61 30 34 61 61  401ea50ad1ea04aa
ae80: 62 39 36 31 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b961c]} \..-body
ae90: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
aea0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
aeb0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
aec0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
aed0: 75 6c 74 20 63 34 36 63 62 32 64 66 65 62 38 62  ult c46cb2dfeb8b
aee0: 39 36 31 65 36 65 38 34 64 37 32 65 30 35 31 31  961e6e84d72e0511
aef0: 31 65 30 34 64 36 32 65 33 66 39 33 61 30 35 35  1e04d62e3f93a055
af00: 31 36 34 62 31 33 35 62 39 30 37 32 0a 0a 74 63  164b135b9072..tc
af10: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
af20: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 32 31 20  _SHA3-224-2.121 
af30: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
af40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
af50: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
af60: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
af70: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
af80: 65 78 20 62 38 38 66 66 37 32 38 63 38 66 38 32  ex b88ff728c8f82
af90: 39 38 34 31 61 31 34 65 35 36 31 39 34 62 62 66  9841a14e56194bbf
afa0: 32 37 38 64 36 39 66 38 38 33 31 37 61 38 31 62  278d69f88317a81b
afb0: 34 37 34 39 61 61 35 66 64 62 63 39 33 38 33 34  4749aa5fdbc93834
afc0: 38 36 65 30 39 62 66 66 39 36 61 32 63 35 62 35  86e09bff96a2c5b5
afd0: 62 64 66 33 39 32 63 34 32 36 33 34 33 38 61 65  bdf392c4263438ae
afe0: 66 34 33 33 33 34 63 33 33 31 37 30 65 66 34 64  f43334c33170ef4d
aff0: 38 39 61 37 36 32 36 33 63 62 39 37 34 35 66 33  89a76263cb9745f3
b000: 66 65 61 37 34 65 33 35 66 62 66 39 31 66 37 32  fea74e35fbf91f72
b010: 32 62 62 31 33 35 31 62 35 36 34 33 36 63 64 64  2bb1351b56436cdd
b020: 32 39 39 32 65 36 31 65 36 32 36 36 37 35 33 37  2992e61e62667537
b030: 34 39 36 31 31 61 39 62 34 34 39 64 63 65 32 38  49611a9b449dce28
b040: 31 63 36 30 30 65 33 37 32 35 31 38 31 33 34 34  1c600e3725181344
b050: 36 63 31 62 31 36 63 38 35 38 63 66 36 65 61 36  6c1b16c858cf6ea6
b060: 34 32 34 63 64 63 36 65 39 38 36 30 66 30 37 35  424cdc6e9860f075
b070: 31 30 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  10f]} \..-body {
b080: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
b090: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
b0a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
b0b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
b0c0: 74 20 38 38 39 31 63 64 66 65 34 38 36 61 35 38  t 8891cdfe486a58
b0d0: 32 65 38 33 34 30 62 64 38 62 38 39 33 39 39 36  2e8340bd8b893996
b0e0: 64 37 61 34 65 35 34 37 65 33 62 66 35 30 35 35  d7a4e547e3bf5055
b0f0: 31 39 30 32 65 37 32 32 66 32 0a 0a 74 63 6c 74  1902e722f2..tclt
b100: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
b110: 48 41 33 2d 32 32 34 2d 32 2e 31 32 32 20 7b 53  HA3-224-2.122 {S
b120: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
b130: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
b140: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
b150: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
b160: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
b170: 20 35 32 30 66 32 37 61 34 64 30 39 36 64 34 31   520f27a4d096d41
b180: 39 33 64 32 62 63 30 39 38 33 63 66 38 33 62 62  93d2bc0983cf83bb
b190: 62 35 30 38 34 38 34 35 62 34 31 38 34 34 38 30  b5084845b4184480
b1a0: 30 63 31 66 35 36 36 39 62 34 66 36 37 66 35 37  0c1f5669b4f67f57
b1b0: 38 35 63 39 63 38 38 36 65 61 63 35 31 62 30 35  85c9c886eac51b05
b1c0: 39 30 30 35 63 63 33 63 61 66 32 66 37 64 63 66  9005cc3caf2f7dcf
b1d0: 63 32 30 35 63 32 33 30 61 38 63 39 32 34 66 36  c205c230a8c924f6
b1e0: 30 34 33 38 36 36 39 36 66 33 64 35 64 64 32 61  04386696f3d5dd2a
b1f0: 36 38 35 30 39 38 37 39 64 39 39 31 61 61 34 39  68509879d991aa49
b200: 33 31 34 64 37 32 37 31 61 38 61 38 65 66 37 31  314d7271a8a8ef71
b210: 31 62 34 32 38 32 35 64 33 63 64 30 30 37 31 61  1b42825d3cd0071a
b220: 65 33 62 66 36 31 30 39 37 37 32 62 66 61 63 31  e3bf6109772bfac1
b230: 62 31 36 37 66 61 64 39 39 35 66 39 39 62 37 61  b167fad995f99b7a
b240: 66 63 32 63 35 37 33 66 32 63 65 36 34 39 33 65  fc2c573f2ce6493e
b250: 32 35 34 31 31 31 30 31 64 63 61 37 39 62 36 64  25411101dca79b6d
b260: 32 66 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  2f1]} \..-body {
b270: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
b280: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
b290: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
b2a0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
b2b0: 74 20 32 31 36 65 61 35 30 39 39 37 35 39 36 66  t 216ea50997596f
b2c0: 37 31 65 64 63 39 34 65 64 39 36 65 32 62 36 38  71edc94ed96e2b68
b2d0: 36 36 32 38 36 34 30 66 39 34 61 33 63 36 34 61  6628640f94a3c64a
b2e0: 64 65 66 30 35 63 32 62 36 33 0a 0a 74 63 6c 74  def05c2b63..tclt
b2f0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
b300: 48 41 33 2d 32 32 34 2d 32 2e 31 32 33 20 7b 53  HA3-224-2.123 {S
b310: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
b320: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
b330: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
b340: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
b350: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
b360: 20 37 35 63 32 33 65 35 35 36 31 37 38 66 30 30   75c23e556178f00
b370: 34 34 30 35 33 33 62 63 64 32 35 32 35 37 39 33  440533bcd2525793
b380: 34 64 30 63 36 66 35 65 36 38 61 36 34 66 31 61  4d0c6f5e68a64f1a
b390: 61 35 31 31 62 65 65 39 34 33 35 63 35 32 37 37  a511bee9435c5277
b3a0: 62 30 32 31 34 35 66 61 65 31 66 64 65 64 63 65  b02145fae1fdedce
b3b0: 33 62 36 62 37 62 34 37 30 31 35 63 35 34 37 62  3b6b7b47015c547b
b3c0: 65 35 35 64 30 30 64 66 61 33 39 39 39 39 32 30  e55d00dfa3999920
b3d0: 64 35 38 36 64 62 65 63 66 37 66 66 39 35 61 37  d586dbecf7ff95a7
b3e0: 37 35 31 36 30 64 30 35 37 33 30 38 62 33 32 63  75160d057308b32c
b3f0: 36 36 31 63 31 37 65 35 64 36 61 37 37 32 31 36  661c17e5d6a77216
b400: 36 62 66 36 39 62 39 39 31 39 65 65 39 31 66 65  6bf69b9919ee91fe
b410: 39 33 38 37 37 61 35 30 37 31 31 39 33 39 63 38  93877a50711939c8
b420: 35 61 39 63 66 31 61 62 36 35 63 32 38 66 61 39  5a9cf1ab65c28fa9
b430: 34 38 37 39 36 32 33 66 61 65 63 65 32 30 65 31  4879623faece20e1
b440: 34 35 38 62 38 38 32 31 33 38 33 66 64 61 32 32  458b8821383fda22
b450: 35 33 37 36 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79  53762]} \..-body
b460: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
b470: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
b480: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
b490: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
b4a0: 75 6c 74 20 64 31 36 33 31 30 32 38 61 38 65 30  ult d1631028a8e0
b4b0: 65 63 34 61 64 63 36 38 39 63 61 62 62 61 38 62  ec4adc689cabba8b
b4c0: 66 36 38 31 64 31 31 65 32 65 32 61 35 30 35 39  f681d11e2e2a5059
b4d0: 66 32 39 33 66 37 65 66 35 62 65 33 0a 0a 74 63  f293f7ef5be3..tc
b4e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
b4f0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 32 34 20  _SHA3-224-2.124 
b500: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
b510: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
b520: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
b530: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
b540: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
b550: 65 78 20 64 32 33 33 37 33 62 39 34 30 35 30 32  ex d23373b940502
b560: 34 64 30 63 34 62 31 37 61 61 35 30 33 66 37 65  4d0c4b17aa503f7e
b570: 32 66 66 37 64 33 30 38 30 38 33 31 32 34 65 64  2ff7d308083124ed
b580: 32 63 62 63 34 64 39 39 30 62 39 62 65 65 30 64  2cbc4d990b9bee0d
b590: 37 30 62 39 36 33 35 38 37 32 66 63 66 64 61 65  70b9635872fcfdae
b5a0: 61 35 38 61 32 62 36 39 36 64 31 66 64 38 63 39  a58a2b696d1fd8c9
b5b0: 34 39 32 63 64 32 65 63 31 31 31 37 39 65 65 37  492cd2ec11179ee7
b5c0: 35 35 61 61 65 35 36 36 33 36 32 36 32 31 39 63  55aae5663626219c
b5d0: 30 39 38 31 33 34 38 61 38 62 65 35 30 63 39 62  0981348a8be50c9b
b5e0: 64 66 37 37 62 30 36 31 31 32 31 63 64 65 32 34  df77b061121cde24
b5f0: 36 36 34 39 61 66 31 66 33 30 62 64 37 65 38 34  6649af1f30bd7e84
b600: 61 39 33 64 39 35 32 66 38 30 32 35 66 38 35 34  a93d952f8025f854
b610: 64 37 62 64 33 64 35 39 64 30 65 63 64 30 37 65  d7bd3d59d0ecd07e
b620: 36 64 34 64 39 30 39 62 32 33 63 37 61 65 30 33  6d4d909b23c7ae03
b630: 66 61 30 36 66 65 31 64 65 31 63 33 34 32 34 39  fa06fe1de1c34249
b640: 39 39 66 63 63 33 36 31 38 5d 7d 20 5c 0a 09 2d  99fcc3618]} \..-
b650: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
b660: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
b670: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
b680: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
b690: 2d 72 65 73 75 6c 74 20 37 32 36 66 36 35 38 34  -result 726f6584
b6a0: 66 66 39 65 61 39 39 38 66 66 33 32 36 63 39 66  ff9ea998ff326c9f
b6b0: 37 33 32 39 31 61 63 65 38 37 32 36 64 38 36 39  73291ace8726d869
b6c0: 37 65 37 61 61 39 34 66 31 65 64 34 32 66 37 65  7e7aa94f1ed42f7e
b6d0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
b6e0: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
b6f0: 31 32 35 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  125 {SHA3_224Sho
b700: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
b710: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
b720: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
b730: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
b740: 64 65 20 68 65 78 20 36 66 30 35 37 66 39 31 34  de hex 6f057f914
b750: 38 30 66 65 63 65 65 38 61 37 65 33 38 37 39 64  80fecee8a7e3879d
b760: 62 66 38 63 35 32 30 34 30 66 39 36 66 35 39 32  bf8c52040f96f592
b770: 39 63 36 62 38 62 36 61 65 61 32 32 33 62 39 31  9c6b8b6aea223b91
b780: 38 34 33 64 64 65 62 61 33 38 37 61 32 32 38 38  843ddeba387a2288
b790: 32 36 34 64 66 33 64 32 34 31 64 31 34 62 35 62  264df3d241d14b5b
b7a0: 36 62 63 37 64 65 66 65 39 62 63 66 31 37 34 66  6bc7defe9bcf174f
b7b0: 35 30 36 30 61 38 38 64 65 31 66 38 36 66 66 66  5060a88de1f86fff
b7c0: 35 39 66 65 64 35 32 61 33 65 35 37 34 66 32 36  59fed52a3e574f26
b7d0: 32 30 39 32 32 64 63 30 63 31 32 33 31 36 65 35  20922dc0c12316e5
b7e0: 38 36 39 62 37 37 39 61 31 38 65 38 36 39 37 65  869b779a18e8697e
b7f0: 61 30 61 35 30 62 66 32 30 61 35 30 66 31 36 39  a0a50bf20a50f169
b800: 65 64 38 61 33 30 38 66 37 38 35 62 64 39 38 65  ed8a308f785bd98e
b810: 66 65 36 66 64 66 34 63 61 63 34 35 37 34 64 63  fe6fdf4cac4574dc
b820: 61 65 39 62 62 65 35 66 33 64 37 66 35 36 61 31  ae9bbe5f3d7f56a1
b830: 31 62 61 64 32 38 32 66 63 39 63 38 34 61 37 5d  1bad282fc9c84a7]
b840: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
b850: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
b860: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
b870: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
b880: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 62  exact -result 6b
b890: 34 30 65 35 63 38 36 64 62 33 64 39 63 33 38 34  40e5c86db3d9c384
b8a0: 63 32 32 61 34 36 63 62 65 66 35 66 38 65 38 63  c22a46cbef5f8e8c
b8b0: 34 32 37 62 62 36 62 66 34 33 32 36 38 65 64 64  427bb6bf43268edd
b8c0: 39 31 38 61 65 62 0a 0a 74 63 6c 74 65 73 74 3a  918aeb..tcltest:
b8d0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
b8e0: 32 32 34 2d 32 2e 31 32 36 20 7b 53 48 41 33 5f  224-2.126 {SHA3_
b8f0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
b900: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
b910: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
b920: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
b930: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 66 37  y decode hex 6f7
b940: 37 38 37 34 64 63 61 64 39 34 37 39 66 35 62 63  7874dcad9479f5bc
b950: 61 63 33 37 36 33 36 36 32 63 63 33 30 63 62 39  ac3763662cc30cb9
b960: 39 38 32 33 63 35 66 66 34 36 39 64 63 62 64 36  9823c5ff469dcbd6
b970: 34 63 30 32 38 32 38 36 62 30 65 35 37 39 35 38  4c028286b0e57958
b980: 30 66 64 33 61 31 37 62 35 36 62 30 39 39 62 39  0fd3a17b56b099b9
b990: 37 62 66 36 32 64 35 35 35 37 39 38 66 37 61 32  7bf62d555798f7a2
b9a0: 35 30 65 30 38 62 30 65 34 66 32 33 38 63 33 66  50e08b0e4f238c3f
b9b0: 63 66 36 38 34 31 39 38 62 64 34 38 61 36 38 63  cf684198bd48a68c
b9c0: 32 30 38 61 36 32 36 38 62 65 32 62 62 34 31 36  208a6268be2bb416
b9d0: 65 64 61 33 30 31 31 62 35 32 33 33 38 38 62 63  eda3011b523388bc
b9e0: 65 38 33 35 37 62 37 66 32 36 31 32 32 36 34 30  e8357b7f26122640
b9f0: 34 32 30 34 36 31 61 62 63 61 62 63 62 35 30 30  420461abcabcb500
ba00: 34 35 31 39 61 64 66 61 32 64 34 33 64 62 37 31  4519adfa2d43db71
ba10: 38 62 63 65 37 64 30 63 38 66 31 62 34 36 34 35  8bce7d0c8f1b4645
ba20: 63 38 39 33 31 35 63 36 35 64 66 31 66 30 38 34  c89315c65df1f084
ba30: 32 65 35 37 34 31 32 5d 7d 20 5c 0a 09 2d 62 6f  2e57412]} \..-bo
ba40: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
ba50: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
ba60: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
ba70: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
ba80: 65 73 75 6c 74 20 30 32 32 38 36 32 36 63 36 33  esult 0228626c63
ba90: 63 32 30 34 36 35 64 35 31 33 39 64 31 61 66 30  c20465d5139d1af0
baa0: 62 39 63 65 31 37 65 33 33 34 65 62 65 31 30 61  b9ce17e334ebe10a
bab0: 35 65 65 65 32 63 61 66 65 39 36 63 62 31 0a 0a  5eee2cafe96cb1..
bac0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
bad0: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 32  sh_SHA3-224-2.12
bae0: 37 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  7 {SHA3_224Short
baf0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
bb00: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
bb10: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
bb20: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
bb30: 20 68 65 78 20 65 61 38 34 31 62 64 34 31 62 32   hex ea841bd41b2
bb40: 32 65 34 63 39 38 62 32 32 33 33 33 32 39 31 38  2e4c98b223332918
bb50: 65 62 37 39 31 66 35 31 64 31 39 37 38 35 34 30  eb791f51d1978540
bb60: 37 38 35 66 39 63 36 31 37 36 37 35 64 62 64 30  785f9c617675dbd0
bb70: 32 37 32 31 38 33 31 66 37 65 37 66 64 66 61 37  2721831f7e7fdfa7
bb80: 37 31 34 61 66 37 64 36 37 31 62 35 38 38 61 36  714af7d671b588a6
bb90: 34 66 34 39 64 38 35 35 36 62 35 64 31 63 34 34  4f49d8556b5d1c44
bba0: 38 31 31 36 38 33 39 37 37 31 66 61 66 35 31 61  8116839771faf51a
bbb0: 38 35 64 62 62 31 62 62 66 66 35 39 66 61 64 38  85dbb1bbff59fad8
bbc0: 65 33 66 65 33 63 34 65 62 38 36 33 31 61 61 30  e3fe3c4eb8631aa0
bbd0: 35 30 66 35 30 35 64 66 38 35 37 35 37 65 64 39  50f505df85757ed9
bbe0: 65 39 64 31 61 32 36 61 38 61 30 65 39 36 66 65  e9d1a26a8a0e96fe
bbf0: 65 61 61 37 61 66 32 30 34 63 64 32 33 66 64 30  eaa7af204cd23fd0
bc00: 65 36 64 34 63 61 38 64 35 66 66 32 35 62 39 31  e6d4ca8d5ff25b91
bc10: 61 30 66 39 34 63 34 32 61 38 38 37 32 39 37 62  a0f94c42a887297b
bc20: 32 33 30 66 36 64 35 64 35 37 32 37 31 65 30 37  230f6d5d57271e07
bc30: 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  c]} \..-body {tl
bc40: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
bc50: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
bc60: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
bc70: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
bc80: 66 66 33 33 63 36 34 32 33 31 64 65 64 66 63 32  ff33c64231dedfc2
bc90: 34 37 65 31 31 65 33 35 61 61 66 38 32 64 32 38  47e11e35aaf82d28
bca0: 33 61 39 61 64 36 32 30 33 34 31 30 32 65 65 32  3a9ad62034102ee2
bcb0: 62 62 35 64 34 36 30 39 0a 0a 74 63 6c 74 65 73  bb5d4609..tcltes
bcc0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
bcd0: 33 2d 32 32 34 2d 32 2e 31 32 38 20 7b 53 48 41  3-224-2.128 {SHA
bce0: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
bcf0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
bd00: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
bd10: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
bd20: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37  ary decode hex 7
bd30: 32 31 36 61 38 32 35 30 32 39 64 61 31 63 39 61  216a825029da1c9a
bd40: 39 33 32 38 64 34 39 39 62 33 66 66 39 38 66 36  9328d499b3ff98f6
bd50: 65 31 38 62 38 61 66 33 36 38 65 32 62 31 39 65  e18b8af368e2b19e
bd60: 66 63 31 63 30 31 32 31 62 33 35 62 39 36 35 61  fc1c0121b35b965a
bd70: 62 32 38 32 66 35 35 32 33 32 33 35 36 64 37 66  b282f55232356d7f
bd80: 61 64 30 30 32 66 65 33 66 30 62 36 61 62 37 38  ad002fe3f0b6ab78
bd90: 33 33 62 32 63 62 36 66 32 65 33 39 32 62 30 63  33b2cb6f2e392b0c
bda0: 33 37 34 31 34 63 62 64 33 36 36 31 65 35 33 38  37414cbd3661e538
bdb0: 63 38 36 31 33 61 65 30 63 39 32 39 31 39 32 38  c8613ae0c9291928
bdc0: 33 30 33 66 37 37 35 64 64 32 61 32 34 34 35 61  303f775dd2a2445a
bdd0: 32 37 65 38 32 35 61 31 61 33 35 34 34 61 39 62  27e825a1a3544a9b
bde0: 34 31 31 65 62 33 61 61 38 37 64 30 66 64 63 64  411eb3aa87d0fdcd
bdf0: 63 64 38 35 63 31 37 30 35 31 31 64 62 36 32 30  cd85c170511db620
be00: 65 37 34 37 32 39 36 62 64 63 33 61 66 61 33 39  e747296bdc3afa39
be10: 34 38 39 63 31 38 31 66 35 61 62 63 37 36 61 38  489c181f5abc76a8
be20: 61 34 30 34 65 34 37 65 34 61 32 31 34 5d 7d 20  a404e47e4a214]} 
be30: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
be40: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
be50: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
be60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
be70: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 34 34 30  act -result 9440
be80: 64 33 37 31 30 62 34 33 65 37 39 38 39 39 65 31  d3710b43e79899e1
be90: 31 36 39 38 37 33 36 36 62 32 64 64 33 36 62 34  16987366b2dd36b4
bea0: 34 62 32 66 33 39 65 33 37 37 66 61 32 64 34 66  4b2f39e377fa2d4f
beb0: 65 31 34 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  e143..tcltest::t
bec0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
bed0: 34 2d 32 2e 31 32 39 20 7b 53 48 41 33 5f 32 32  4-2.129 {SHA3_22
bee0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
bef0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
bf00: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
bf10: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
bf20: 64 65 63 6f 64 65 20 68 65 78 20 34 34 61 38 35  decode hex 44a85
bf30: 30 38 61 33 63 33 39 37 36 64 35 36 33 65 39 33  08a3c3976d563e93
bf40: 33 37 30 35 62 65 34 64 62 65 65 62 63 37 32 36  3705be4dbeebc726
bf50: 33 30 34 62 35 31 31 32 30 33 64 66 37 63 37 64  304b511203df7c7d
bf60: 31 65 66 63 65 62 36 65 30 36 65 39 31 66 31 65  1efceb6e06e91f1e
bf70: 35 37 66 33 64 38 65 36 63 31 30 35 64 66 64 66  57f3d8e6c105dfdf
bf80: 38 32 36 32 64 39 38 34 38 31 36 66 65 37 61 64  8262d984816fe7ad
bf90: 38 66 38 64 63 39 35 61 62 35 39 36 66 66 66 34  8f8dc95ab596fff4
bfa0: 38 33 30 31 66 38 64 30 33 31 33 37 62 61 33 37  8301f8d03137ba37
bfb0: 64 61 62 64 63 34 61 36 65 36 36 34 35 38 33 61  dabdc4a6e664583a
bfc0: 32 36 62 38 65 64 63 34 32 64 33 63 32 34 30 35  26b8edc42d3c2405
bfd0: 35 31 36 63 35 31 33 38 36 63 33 33 61 37 66 32  516c51386c33a7f2
bfe0: 38 37 35 61 33 30 38 37 37 30 32 63 61 36 37 32  875a3087702ca672
bff0: 31 66 35 36 31 39 35 30 35 33 66 65 35 32 36 33  1f56195053fe5263
c000: 61 32 39 63 38 64 38 35 33 38 64 63 65 36 63 65  a29c8d8538dce6ce
c010: 31 34 36 62 38 62 34 33 61 65 35 32 30 65 65 37  146b8b43ae520ee7
c020: 39 61 35 61 34 35 30 63 36 61 32 5d 7d 20 5c 0a  9a5a450c6a2]} \.
c030: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
c040: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
c050: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
c060: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
c070: 74 20 2d 72 65 73 75 6c 74 20 61 32 37 34 33 64  t -result a2743d
c080: 33 34 31 30 32 33 66 66 35 66 37 37 35 64 39 30  341023ff5f775d90
c090: 31 38 35 64 33 31 33 39 61 37 37 35 36 62 30 61  185d3139a7756b0a
c0a0: 36 35 63 31 39 65 65 38 37 36 65 62 65 62 39 32  65c19ee876ebeb92
c0b0: 61 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  ae..tcltest::tes
c0c0: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d  t Hash_SHA3-224-
c0d0: 32 2e 31 33 30 20 7b 53 48 41 33 5f 32 32 34 53  2.130 {SHA3_224S
c0e0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
c0f0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
c100: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
c110: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
c120: 63 6f 64 65 20 68 65 78 20 61 38 65 66 34 31 30  code hex a8ef410
c130: 37 66 34 31 65 62 62 63 35 37 39 39 61 37 31 36  7f41ebbc5799a716
c140: 62 36 62 35 30 65 38 37 63 31 39 65 39 37 36 30  b6b50e87c19e9760
c150: 34 32 61 66 63 61 37 37 30 32 36 38 32 65 30 61  42afca7702682e0a
c160: 32 33 39 38 62 34 32 34 35 33 34 33 30 64 31 35  2398b42453430d15
c170: 65 64 35 63 39 64 36 32 34 34 38 36 30 38 32 31  ed5c9d6244860821
c180: 32 65 64 36 35 64 33 33 61 35 63 61 32 62 63 64  2ed65d33a5ca2bcd
c190: 63 61 37 37 32 38 30 33 37 64 66 32 65 35 66 39  ca7728037df2e5f9
c1a0: 66 64 39 65 39 37 34 64 30 33 31 35 64 64 65 38  fd9e974d0315dde8
c1b0: 32 39 30 32 34 31 65 33 65 32 62 32 63 63 30 36  290241e3e2b2cc06
c1c0: 66 38 63 36 35 33 65 62 63 39 35 62 63 32 31 39  f8c653ebc95bc219
c1d0: 35 63 32 34 64 36 39 30 63 61 65 64 34 32 66 65  5c24d690caed42fe
c1e0: 37 64 39 36 35 38 39 66 33 61 38 35 65 61 65 39  7d96589f3a85eae9
c1f0: 62 61 64 39 39 35 61 62 38 32 39 65 36 37 34 61  bad995ab829e674a
c200: 62 63 66 62 38 65 66 61 61 63 62 31 65 65 65 35  bcfb8efaacb1eee5
c210: 37 30 33 66 35 32 62 39 37 39 64 35 64 39 39 61  703f52b979d5d99a
c220: 31 63 31 36 39 34 38 35 35 61 30 5d 7d 20 5c 0a  1c1694855a0]} \.
c230: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
c240: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
c250: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
c260: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
c270: 74 20 2d 72 65 73 75 6c 74 20 62 34 31 31 61 32  t -result b411a2
c280: 38 66 66 34 36 35 31 33 64 30 63 33 64 36 33 63  8ff46513d0c3d63c
c290: 66 37 38 61 39 62 36 33 35 33 34 36 36 63 62 61  f78a9b6353466cba
c2a0: 33 62 39 32 36 61 38 64 38 39 35 65 65 31 34 66  3b926a8d895ee14f
c2b0: 64 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  dd..tcltest::tes
c2c0: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d  t Hash_SHA3-224-
c2d0: 32 2e 31 33 31 20 7b 53 48 41 33 5f 32 32 34 53  2.131 {SHA3_224S
c2e0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
c2f0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32  straints SHA3_22
c300: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
c310: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
c320: 63 6f 64 65 20 68 65 78 20 66 36 34 39 64 38 30  code hex f649d80
c330: 31 62 34 30 34 30 62 37 62 35 31 35 32 66 35 38  1b4040b7b5152f58
c340: 61 30 31 65 37 38 35 32 66 35 36 35 65 66 63 37  a01e7852f565efc7
c350: 37 62 35 64 61 66 65 34 36 30 37 65 65 65 39 35  7b5dafe4607eee95
c360: 33 62 30 62 61 36 37 37 34 63 35 35 37 33 66 31  3b0ba6774c5573f1
c370: 63 37 39 37 36 37 31 32 31 64 39 34 33 38 31 63  c79767121d94381c
c380: 33 62 61 39 30 31 33 65 62 65 66 32 66 62 38 62  3ba9013ebef2fb8b
c390: 30 62 66 39 66 30 38 31 66 39 36 65 63 66 31 33  0bf9f081f96ecf13
c3a0: 63 66 61 64 30 34 65 34 34 63 31 31 65 62 62 33  cfad04e44c11ebb3
c3b0: 35 38 31 36 30 61 38 39 30 34 39 62 66 61 64 35  58160a89049bfad5
c3c0: 65 38 65 32 34 31 64 37 31 36 38 39 64 64 65 65  e8e241d71689ddee
c3d0: 63 66 66 30 32 37 38 30 36 33 66 64 38 36 62 30  cff0278063fd86b0
c3e0: 61 64 34 37 35 63 36 61 32 35 32 36 35 66 35 35  ad475c6a25265f55
c3f0: 36 62 33 30 64 64 62 35 30 30 37 38 65 32 31 36  6b30ddb50078e216
c400: 32 36 37 65 64 63 64 34 61 32 62 37 30 31 36 33  267edcd4a2b70163
c410: 34 35 64 34 62 37 36 38 30 36 64 37 62 30 32 63  45d4b76806d7b02c
c420: 36 32 35 66 33 66 37 31 37 65 30 66 36 5d 7d 20  625f3f717e0f6]} 
c430: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
c440: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
c450: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
c460: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
c470: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 39 34 64  act -result b94d
c480: 65 62 61 64 63 38 33 33 64 35 37 30 36 63 64 34  ebadc833d5706cd4
c490: 37 33 36 62 62 31 64 63 37 35 30 33 39 38 32 37  736bb1dc75039827
c4a0: 38 33 32 61 65 34 30 38 38 35 39 65 32 65 36 61  832ae408859e2e6a
c4b0: 36 39 34 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  6941..tcltest::t
c4c0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
c4d0: 34 2d 32 2e 31 33 32 20 7b 53 48 41 33 5f 32 32  4-2.132 {SHA3_22
c4e0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
c4f0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
c500: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
c510: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
c520: 64 65 63 6f 64 65 20 68 65 78 20 65 62 37 31 62  decode hex eb71b
c530: 34 35 61 34 39 34 65 37 36 34 36 32 65 64 66 34  45a494e76462edf4
c540: 31 61 39 66 64 63 62 62 33 66 34 36 66 62 38 36  1a9fdcbb3f46fb86
c550: 33 62 39 65 32 35 39 64 30 63 38 66 34 61 37 39  3b9e259d0c8f4a79
c560: 38 39 38 35 31 36 65 65 62 65 38 63 39 30 63 33  898516eebe8c90c3
c570: 65 61 35 61 36 37 35 34 34 30 66 33 63 37 62 31  ea5a675440f3c7b1
c580: 61 31 38 63 31 34 64 63 32 30 63 35 66 33 64 64  a18c14dc20c5f3dd
c590: 32 37 37 38 38 63 36 36 64 34 34 38 61 63 64 37  27788c66d448acd7
c5a0: 33 32 32 36 33 32 37 66 35 32 63 64 36 35 63 65  3226327f52cd65ce
c5b0: 63 63 38 62 65 61 61 32 61 63 66 61 33 34 64 39  cc8beaa2acfa34d9
c5c0: 30 65 66 38 62 66 65 38 32 34 65 31 32 62 61 39  0ef8bfe824e12ba9
c5d0: 38 37 30 62 64 63 34 39 36 35 62 38 63 65 64 39  870bdc4965b8ced9
c5e0: 66 66 39 63 65 31 33 61 35 62 64 33 39 65 38 32  ff9ce13a5bd39e82
c5f0: 34 38 39 33 61 66 34 31 30 64 30 38 61 64 65 30  4893af410d08ade0
c600: 63 66 38 30 32 65 37 64 63 30 32 62 30 62 37 31  cf802e7dc02b0b71
c610: 64 36 63 32 61 35 63 33 33 35 36 32 32 39 30 38  d6c2a5c335622908
c620: 34 65 35 33 62 33 61 65 34 65 35 31 62 33 38 34  4e53b3ae4e51b384
c630: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
c640: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
c650: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
c660: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
c670: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
c680: 66 62 62 65 63 30 35 65 65 31 66 62 35 66 35 63  fbbec05ee1fb5f5c
c690: 64 31 31 30 36 65 64 37 33 38 34 38 35 30 30 35  d1106ed738485005
c6a0: 39 63 64 63 64 61 34 37 34 62 61 37 63 65 63 30  9cdcda474ba7cec0
c6b0: 34 30 37 61 32 37 32 62 0a 0a 74 63 6c 74 65 73  407a272b..tcltes
c6c0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
c6d0: 33 2d 32 32 34 2d 32 2e 31 33 33 20 7b 53 48 41  3-224-2.133 {SHA
c6e0: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
c6f0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
c700: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
c710: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
c720: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34  ary decode hex 4
c730: 65 63 61 30 63 35 31 64 33 30 38 32 39 62 39 61  eca0c51d30829b9a
c740: 31 64 32 37 31 32 64 61 31 66 61 63 33 31 66 35  1d2712da1fac31f5
c750: 32 39 34 32 64 37 37 63 39 66 32 30 63 32 62 66  2942d77c9f20c2bf
c760: 36 64 33 37 35 31 30 32 38 64 37 64 34 66 30 64  6d3751028d7d4f0d
c770: 33 33 36 64 33 64 63 39 32 62 32 37 65 63 33 36  336d3dc92b27ec36
c780: 38 63 61 61 34 34 34 34 62 33 31 38 30 63 31 65  8caa4444b3180c1e
c790: 33 37 65 39 38 62 35 38 66 32 35 65 36 34 37 61  37e98b58f25e647a
c7a0: 39 61 36 33 36 31 66 30 62 30 34 63 66 37 38 64  9a6361f0b04cf78d
c7b0: 31 37 39 35 35 37 36 36 31 36 38 65 65 62 61 61  17955766168eebaa
c7c0: 39 39 33 61 34 33 35 61 38 38 65 30 62 33 39 33  993a435a88e0b393
c7d0: 30 37 34 32 33 64 36 65 61 64 38 37 66 36 33 39  07423d6ead87f639
c7e0: 61 66 65 61 37 35 62 61 34 34 62 62 63 36 62 64  afea75ba44bbc6bd
c7f0: 30 66 62 35 61 63 38 34 61 31 32 63 32 63 36 65  0fb5ac84a12c2c6e
c800: 64 39 35 33 39 61 37 63 30 66 39 61 62 62 30 63  d9539a7c0f9abb0c
c810: 31 64 63 39 34 38 33 65 32 66 33 32 31 61 38 35  1dc9483e2f321a85
c820: 32 34 34 39 32 36 64 66 64 39 35 65 32 66 30 35  244926dfd95e2f05
c830: 36 32 34 61 61 37 61 5d 7d 20 5c 0a 09 2d 62 6f  624aa7a]} \..-bo
c840: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
c850: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
c860: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
c870: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
c880: 65 73 75 6c 74 20 66 65 33 31 33 65 62 37 34 66  esult fe313eb74f
c890: 39 35 35 63 30 63 62 62 31 63 34 34 36 64 64 34  955c0cbb1c446dd4
c8a0: 66 66 38 35 33 66 33 32 62 33 32 33 32 64 39 33  ff853f32b3232d93
c8b0: 66 61 62 61 37 64 62 36 64 31 66 61 62 38 0a 0a  faba7db6d1fab8..
c8c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
c8d0: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 33  sh_SHA3-224-2.13
c8e0: 34 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  4 {SHA3_224Short
c8f0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
c900: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
c910: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
c920: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
c930: 20 68 65 78 20 39 37 37 38 34 64 31 34 64 62 36   hex 97784d14db6
c940: 32 61 37 66 39 38 66 35 61 63 33 64 66 37 34 32  2a7f98f5ac3df742
c950: 65 30 31 33 34 38 39 65 63 30 62 38 37 37 37 62  e013489ec0b8777b
c960: 30 35 65 66 38 32 62 62 61 30 36 65 64 63 35 63  05ef82bba06edc5c
c970: 33 61 38 30 37 62 31 39 31 63 36 35 35 31 33 63  3a807b191c65513c
c980: 61 33 66 63 37 36 39 30 36 31 35 65 35 36 63 32  a3fc7690615e56c2
c990: 37 37 33 63 30 33 36 65 64 65 66 32 39 61 61 63  773c036edef29aac
c9a0: 35 30 63 32 32 31 31 65 32 30 33 39 32 30 31 38  50c2211e20392018
c9b0: 66 63 33 33 64 38 33 63 34 33 36 66 32 37 34 66  fc33d83c436f274f
c9c0: 37 63 36 30 36 32 63 33 34 32 30 30 32 35 65 37  7c6062c3420025e7
c9d0: 30 33 37 39 39 33 66 31 62 38 63 64 64 65 62 66  037993f1b8cddebf
c9e0: 34 61 65 62 32 30 34 32 31 66 63 38 32 39 63 37  4aeb20421fc829c7
c9f0: 66 62 32 33 32 35 35 33 37 32 34 35 35 63 36 39  fb23255372455c69
ca00: 32 34 34 61 30 32 31 30 65 36 61 39 65 31 33 62  244a0210e6a9e13b
ca10: 31 35 35 61 35 65 63 39 64 36 64 30 39 30 30 65  155a5ec9d6d0900e
ca20: 35 34 61 38 66 34 64 39 66 37 61 32 35 35 65 33  54a8f4d9f7a255e3
ca30: 61 37 66 64 30 36 66 31 32 31 38 65 35 64 31 5d  a7fd06f1218e5d1]
ca40: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
ca50: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
ca60: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
ca70: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
ca80: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 35  exact -result 55
ca90: 30 34 66 33 39 31 33 31 37 37 33 35 35 30 62 36  04f39131773550b6
caa0: 66 34 35 39 66 33 33 61 35 62 35 37 61 32 63 65  f459f33a5b57a2ce
cab0: 36 30 63 65 38 62 62 37 38 63 35 37 34 66 65 66  60ce8bb78c574fef
cac0: 38 33 64 63 66 37 0a 0a 74 63 6c 74 65 73 74 3a  83dcf7..tcltest:
cad0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
cae0: 32 32 34 2d 32 2e 31 33 35 20 7b 53 48 41 33 5f  224-2.135 {SHA3_
caf0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
cb00: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
cb10: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
cb20: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
cb30: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 65 65  y decode hex 1ee
cb40: 39 30 34 37 33 35 31 65 32 61 31 33 65 34 61 32  9047351e2a13e4a2
cb50: 64 35 61 38 32 36 65 33 30 34 66 65 66 38 32 32  d5a826e304fef822
cb60: 34 31 66 62 61 62 35 31 30 30 38 33 35 65 31 66  41fbab5100835e1f
cb70: 38 35 30 61 32 30 65 35 31 65 33 34 39 33 38 62  850a20e51e34938b
cb80: 39 33 64 63 38 35 32 65 35 38 61 61 62 38 61 64  93dc852e58aab8ad
cb90: 62 30 63 33 63 63 66 36 31 62 65 39 63 39 30 62  b0c3ccf61be9c90b
cba0: 35 33 37 31 33 63 37 37 65 64 30 61 35 33 37 30  53713c77ed0a5370
cbb0: 33 30 39 65 36 66 31 39 62 32 39 30 66 31 64 36  309e6f19b290f1d6
cbc0: 34 32 35 35 30 66 37 33 38 63 33 36 38 31 38 64  42550f738c36818d
cbd0: 64 66 66 37 34 66 37 37 63 61 65 30 34 61 66 35  dff74f77cae04af5
cbe0: 35 36 31 37 34 30 33 62 30 38 63 37 61 39 66 31  5617403b08c7a9f1
cbf0: 37 65 38 66 62 61 30 63 32 31 35 32 33 35 37 35  7e8fba0c21523575
cc00: 33 38 34 62 34 34 61 63 34 39 34 39 65 37 63 39  384b44ac4949e7c9
cc10: 64 66 62 64 31 65 66 36 61 36 38 34 66 36 36 36  dfbd1ef6a684f666
cc20: 63 36 37 38 35 36 66 38 66 38 34 64 62 61 31 39  c67856f8f84dba19
cc30: 63 62 33 38 61 32 33 62 30 65 66 61 64 36 65 65  cb38a23b0efad6ee
cc40: 64 32 32 39 63 35 33 36 66 5d 7d 20 5c 0a 09 2d  d229c536f]} \..-
cc50: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
cc60: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
cc70: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
cc80: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
cc90: 2d 72 65 73 75 6c 74 20 62 38 66 32 35 33 35 31  -result b8f25351
cca0: 32 64 61 62 66 39 64 38 39 64 32 30 38 30 38 33  2dabf9d89d208083
ccb0: 30 66 32 33 64 61 35 38 39 33 62 30 66 38 37 65  0f23da5893b0f87e
ccc0: 64 63 30 62 64 36 32 34 65 61 37 36 37 66 31 34  dc0bd624ea767f14
ccd0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
cce0: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
ccf0: 31 33 36 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  136 {SHA3_224Sho
cd00: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
cd10: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
cd20: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
cd30: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
cd40: 64 65 20 68 65 78 20 31 66 33 36 33 64 32 66 37  de hex 1f363d2f7
cd50: 61 61 38 39 65 32 62 36 63 35 65 31 37 32 66 35  aa89e2b6c5e172f5
cd60: 33 30 64 31 61 33 35 35 33 31 64 30 30 38 33 61  30d1a35531d0083a
cd70: 35 61 63 66 63 64 32 33 32 64 36 34 64 62 30 36  5acfcd232d64db06
cd80: 31 33 34 62 38 32 33 32 64 61 32 33 36 38 66 37  134b8232da2368f7
cd90: 61 34 36 65 61 64 39 61 39 63 65 35 35 63 64 36  a46ead9a9ce55cd6
cda0: 61 66 38 63 64 62 64 64 31 35 38 32 62 36 62 61  af8cdbdd1582b6ba
cdb0: 64 35 36 63 35 32 61 31 35 37 36 39 63 33 66 34  d56c52a15769c3f4
cdc0: 33 64 63 64 36 38 64 61 36 30 66 36 65 37 32 33  3dcd68da60f6e723
cdd0: 32 66 64 32 61 65 63 66 62 33 66 63 64 30 30 30  2fd2aecfb3fcd000
cde0: 32 39 66 38 65 35 63 34 65 64 37 63 61 33 62 33  29f8e5c4ed7ca3b3
cdf0: 66 39 63 66 36 38 39 32 30 64 62 64 37 34 37 66  f9cf68920dbd747f
ce00: 62 34 33 66 35 33 32 62 31 30 33 34 64 39 66 34  b43f532b1034d9f4
ce10: 39 64 35 34 36 61 61 38 39 33 62 65 36 38 66 63  9d546aa893be68fc
ce20: 33 30 38 34 36 35 38 66 32 32 33 34 33 62 39 30  3084658f22343b90
ce30: 36 38 38 37 37 33 38 37 62 38 66 36 38 39 30 33  68877387b8f68903
ce40: 30 37 31 66 65 35 38 37 37 30 38 33 62 65 30 36  071fe5877083be06
ce50: 38 64 36 32 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  8d626]} \..-body
ce60: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
ce70: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
ce80: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
ce90: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
cea0: 75 6c 74 20 65 35 39 61 31 39 36 38 36 64 66 33  ult e59a19686df3
ceb0: 36 62 66 35 66 65 37 39 38 61 39 35 36 35 37 32  6bf5fe798a956572
cec0: 32 62 38 65 30 62 64 64 39 66 38 65 65 64 62 62  2b8e0bdd9f8eedbb
ced0: 62 34 61 33 34 61 39 63 61 37 61 62 0a 0a 74 63  b4a34a9ca7ab..tc
cee0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
cef0: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 33 37 20  _SHA3-224-2.137 
cf00: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
cf10: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
cf20: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
cf30: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
cf40: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
cf50: 65 78 20 65 63 66 35 64 39 65 32 39 63 31 63 30  ex ecf5d9e29c1c0
cf60: 34 63 31 31 61 39 35 30 33 63 63 32 32 33 64 30  4c11a9503cc223d0
cf70: 63 65 65 34 38 36 36 66 61 32 36 64 66 32 62 34  cee4866fa26df2b4
cf80: 66 37 63 31 61 30 31 37 39 33 39 37 31 38 66 35  f7c1a017939718f5
cf90: 34 35 37 34 36 63 30 66 31 33 37 63 39 31 36 39  45746c0f137c9169
cfa0: 36 39 32 31 39 34 31 30 35 62 32 61 63 66 30 30  692194105b2acf00
cfb0: 31 65 32 66 30 65 37 30 66 32 33 33 32 35 31 37  1e2f0e70f2332517
cfc0: 61 32 30 63 30 35 38 39 39 36 34 34 61 66 34 35  a20c05899644af45
cfd0: 34 63 62 38 65 30 30 65 35 33 36 33 35 39 33 64  4cb8e00e5363593d
cfe0: 63 38 33 66 37 38 64 36 36 62 64 30 36 37 30 63  c83f78d66bd0670c
cff0: 65 38 66 61 61 37 32 34 34 66 66 32 38 64 30 64  e8faa7244ff28d0d
d000: 65 35 39 65 39 36 34 64 63 36 38 64 38 37 61 33  e59e964dc68d87a3
d010: 30 65 63 30 63 65 30 33 65 34 39 61 37 33 63 65  0ec0ce03e49a73ce
d020: 30 37 64 66 65 61 32 61 64 35 34 66 61 36 36 37  07dfea2ad54fa667
d030: 62 64 66 62 65 32 66 32 32 32 32 38 39 34 64 38  bdfbe2f2222894d8
d040: 33 30 64 64 65 34 64 63 39 61 65 65 33 63 61 65  30dde4dc9aee3cae
d050: 66 61 34 30 38 38 36 38 33 64 37 65 38 62 39 61  fa4088683d7e8b9a
d060: 39 36 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  966]} \..-body {
d070: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
d080: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
d090: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
d0a0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
d0b0: 74 20 61 38 38 36 65 62 39 34 66 31 35 64 66 32  t a886eb94f15df2
d0c0: 30 38 62 65 31 32 32 39 31 32 64 34 65 64 66 30  08be122912d4edf0
d0d0: 32 35 36 31 34 38 32 32 37 38 61 39 66 38 34 37  2561482278a9f847
d0e0: 64 64 63 39 31 63 39 62 64 32 0a 0a 74 63 6c 74  ddc91c9bd2..tclt
d0f0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
d100: 48 41 33 2d 32 32 34 2d 32 2e 31 33 38 20 7b 53  HA3-224-2.138 {S
d110: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
d120: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
d130: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
d140: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
d150: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
d160: 20 39 66 34 34 33 35 37 36 36 34 62 35 65 33 61   9f44357664b5e3a
d170: 39 35 38 37 38 30 36 34 31 63 63 61 35 32 30 34  958780641cca5204
d180: 39 66 33 62 34 39 66 30 37 34 38 34 62 35 66 37  9f3b49f07484b5f7
d190: 36 32 61 35 35 37 31 66 37 63 39 35 34 31 62 34  62a5571f7c9541b4
d1a0: 33 34 36 66 38 31 66 61 34 31 36 66 30 34 30 36  346f81fa416f0406
d1b0: 35 61 38 30 30 30 33 38 36 34 37 35 34 62 33 62  5a80003864754b3b
d1c0: 35 34 31 31 34 61 37 37 61 34 39 33 38 63 38 62  54114a77a4938c8b
d1d0: 32 31 61 39 65 34 64 33 65 35 64 35 39 63 39 66  21a9e4d3e5d59c9f
d1e0: 63 63 64 34 64 36 38 66 36 39 39 66 39 37 35 64  ccd4d68f699f975d
d1f0: 61 30 39 39 33 32 30 61 62 36 35 35 61 37 66 62  a099320ab655a7fb
d200: 35 31 33 32 38 64 32 63 36 66 66 34 36 30 62 39  51328d2c6ff460b9
d210: 62 34 30 38 35 38 65 39 39 66 38 38 61 33 35 62  b40858e99f88a35b
d220: 65 37 62 36 61 39 37 64 36 62 34 37 37 38 61 66  e7b6a97d6b4778af
d230: 32 63 35 35 39 65 36 31 36 65 65 36 30 38 63 33  2c559e616ee608c3
d240: 32 62 30 31 38 61 37 35 33 33 32 31 65 33 32 31  2b018a753321e321
d250: 62 65 33 33 33 62 62 36 66 36 31 38 66 36 36 36  be333bb6f618f666
d260: 66 39 61 37 37 33 34 61 62 33 31 31 32 38 35 39  f9a7734ab3112859
d270: 33 32 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  323]} \..-body {
d280: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
d290: 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61  est SHA3-224 -da
d2a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
d2b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
d2c0: 74 20 38 38 33 39 66 37 35 35 65 65 65 38 34 65  t 8839f755eee84e
d2d0: 31 35 63 35 38 36 62 35 32 65 32 39 61 34 31 64  15c586b52e29a41d
d2e0: 64 63 36 34 30 61 63 34 33 32 63 66 33 31 33 37  dc640ac432cf3137
d2f0: 30 36 38 30 39 38 37 61 34 34 0a 0a 74 63 6c 74  0680987a44..tclt
d300: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
d310: 48 41 33 2d 32 32 34 2d 32 2e 31 33 39 20 7b 53  HA3-224-2.139 {S
d320: 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  HA3_224ShortMsg}
d330: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
d340: 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65   SHA3_224 \..-se
d350: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
d360: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
d370: 20 63 31 61 61 31 32 36 36 66 32 32 33 63 31 34   c1aa1266f223c14
d380: 38 62 66 61 33 64 30 61 62 32 39 66 32 37 38 33  8bfa3d0ab29f2783
d390: 33 34 64 38 66 63 62 66 62 66 30 66 34 65 62 65  34d8fcbfbf0f4ebe
d3a0: 66 35 63 31 62 37 61 37 36 36 62 34 31 35 31 35  f5c1b7a766b41515
d3b0: 35 65 31 65 61 37 35 64 30 66 65 32 35 34 36 31  5e1ea75d0fe25461
d3c0: 31 35 34 31 31 66 61 63 65 64 37 61 30 34 61 32  15411faced7a04a2
d3d0: 37 33 33 39 62 36 62 63 64 36 32 65 37 34 30 36  7339b6bcd62e7406
d3e0: 39 37 64 30 36 63 65 33 63 64 32 65 30 66 30 30  97d06ce3cd2e0f00
d3f0: 32 33 38 63 34 34 63 31 64 39 66 61 61 38 35 65  238c44c1d9faa85e
d400: 66 65 62 62 62 62 33 38 38 30 33 31 33 31 30 38  febbbb3880313108
d410: 31 32 34 63 35 66 33 32 37 37 63 31 66 30 33 64  124c5f3277c1f03d
d420: 64 66 34 33 30 61 34 62 62 34 64 38 38 62 36 37  df430a4bb4d88b67
d430: 62 36 65 33 66 37 66 39 36 66 63 33 39 65 35 61  b6e3f7f96fc39e5a
d440: 61 32 63 61 37 65 31 31 66 64 35 64 31 33 30 30  a2ca7e11fd5d1300
d450: 61 63 61 31 34 34 63 35 31 36 36 32 36 39 61 31  aca144c5166269a1
d460: 31 36 38 61 32 65 35 33 63 30 31 63 30 30 62 38  168a2e53c01c00b8
d470: 37 32 63 36 33 66 36 38 33 33 65 35 61 63 65 30  72c63f6833e5ace0
d480: 39 62 65 64 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  9bedf]} \..-body
d490: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
d4a0: 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d  igest SHA3-224 -
d4b0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
d4c0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
d4d0: 75 6c 74 20 34 33 39 65 33 63 37 61 30 64 36 35  ult 439e3c7a0d65
d4e0: 35 61 33 30 61 39 37 34 39 61 66 64 65 66 62 37  5a30a9749afdefb7
d4f0: 65 30 34 38 38 31 34 33 33 35 38 34 39 64 66 37  e048814335849df7
d500: 36 64 35 32 36 63 32 38 37 37 32 37 0a 0a 74 63  6d526c287727..tc
d510: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
d520: 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 34 30 20  _SHA3-224-2.140 
d530: 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74 4d 73  {SHA3_224ShortMs
d540: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
d550: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d  ts SHA3_224 \..-
d560: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
d570: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
d580: 65 78 20 30 61 33 36 37 64 33 37 38 39 38 32 37  ex 0a367d3789827
d590: 63 63 64 34 62 65 66 35 66 65 38 65 62 37 38 63  ccd4bef5fe8eb78c
d5a0: 32 30 35 30 33 32 34 31 66 30 37 66 62 38 63 34  20503241f07fb8c4
d5b0: 31 64 38 31 65 39 37 66 62 35 33 66 33 38 39 31  1d81e97fb53f3891
d5c0: 39 36 32 63 61 33 63 39 37 36 33 39 35 61 63 31  962ca3c976395ac1
d5d0: 31 64 31 66 39 62 61 37 62 32 30 61 35 32 39 31  1d1f9ba7b20a5291
d5e0: 32 65 38 65 33 65 64 39 32 34 36 36 63 61 35 61  2e8e3ed92466ca5a
d5f0: 61 38 30 38 31 36 36 61 64 65 37 33 37 62 61 38  a808166ade737ba8
d600: 61 30 32 31 33 65 38 66 65 65 38 64 36 37 36 30  a0213e8fee8d6760
d610: 38 65 65 39 61 65 64 39 65 38 32 31 65 64 63 39  8ee9aed9e821edc9
d620: 65 35 37 35 66 31 66 30 37 63 33 36 38 36 31 36  e575f1f07c368616
d630: 39 36 35 36 61 65 30 39 61 30 61 30 66 37 30 61  9656ae09a0a0f70a
d640: 62 64 31 30 63 63 33 31 61 38 65 66 36 65 37 34  bd10cc31a8ef6e74
d650: 39 36 64 35 36 31 30 32 66 64 38 66 66 39 38 34  96d56102fd8ff984
d660: 65 39 61 39 66 34 34 65 35 34 34 39 35 63 39 36  e9a9f44e54495c96
d670: 36 63 66 30 32 38 66 32 61 38 34 32 33 62 34 36  6cf028f2a8423b46
d680: 34 31 39 64 65 35 34 35 34 31 64 39 61 30 38 62  419de54541d9a08b
d690: 64 39 36 35 34 61 63 39 38 5d 7d 20 5c 0a 09 2d  d9654ac98]} \..-
d6a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
d6b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32  t -digest SHA3-2
d6c0: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
d6d0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
d6e0: 2d 72 65 73 75 6c 74 20 34 30 33 31 38 30 33 36  -result 40318036
d6f0: 61 35 39 35 36 33 30 65 34 31 33 35 66 31 30 37  a595630e4135f107
d700: 30 33 62 65 31 64 37 35 39 61 36 63 37 65 35 31  03be1d759a6c7e51
d710: 34 36 65 30 66 63 38 32 61 62 65 62 61 31 38 34  46e0fc82abeba184
d720: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
d730: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e  Hash_SHA3-224-2.
d740: 31 34 31 20 7b 53 48 41 33 5f 32 32 34 53 68 6f  141 {SHA3_224Sho
d750: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
d760: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20  raints SHA3_224 
d770: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
d780: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
d790: 64 65 20 68 65 78 20 38 61 30 35 62 30 30 61 65  de hex 8a05b00ae
d7a0: 32 64 35 66 36 35 32 66 30 32 66 39 38 61 31 62  2d5f652f02f98a1b
d7b0: 30 33 35 30 30 33 66 38 66 61 37 62 61 31 62 31  035003f8fa7ba1b1
d7c0: 37 66 63 33 37 37 38 63 64 62 31 63 61 65 33 35  7fc3778cdb1cae35
d7d0: 61 65 31 66 37 36 38 65 61 31 36 65 64 30 35 64  ae1f768ea16ed05d
d7e0: 32 35 66 35 31 35 66 37 35 61 32 33 64 62 34 36  25f515f75a23db46
d7f0: 38 33 34 38 39 31 31 64 34 61 37 34 39 63 35 31  8348911d4a749c51
d800: 63 65 33 39 36 31 35 63 30 37 38 39 32 33 31 38  ce39615c07892318
d810: 32 33 33 61 36 36 37 63 37 66 30 30 65 39 37 33  233a667c7f00e973
d820: 66 61 65 39 38 65 37 63 38 65 39 61 38 62 37 39  fae98e7c8e9a8b79
d830: 30 32 34 38 30 64 38 37 61 63 35 62 65 66 38 63  02480d87ac5bef8c
d840: 34 32 35 32 36 36 31 65 36 65 38 61 32 65 34 62  4252661e6e8a2e4b
d850: 64 38 61 38 37 30 66 65 38 33 62 31 61 61 37 37  d8a870fe83b1aa77
d860: 33 65 64 35 33 35 32 62 32 61 62 65 31 39 33 37  3ed5352b2abe1937
d870: 30 32 63 36 64 66 62 34 61 61 38 32 33 39 65 35  02c6dfb4aa8239e5
d880: 35 65 61 36 66 63 35 30 37 61 37 30 34 65 32 35  5ea6fc507a704e25
d890: 34 30 65 32 33 63 39 31 37 61 30 31 61 31 63 62  40e23c917a01a1cb
d8a0: 34 34 32 30 62 30 37 66 62 39 30 65 65 32 65 5d  4420b07fb90ee2e]
d8b0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
d8c0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
d8d0: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24  SHA3-224 -data $
d8e0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
d8f0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 61  exact -result 9a
d900: 32 36 66 30 35 34 65 35 37 61 65 61 31 34 32 34  26f054e57aea1424
d910: 32 64 37 38 30 31 66 33 64 36 31 64 64 63 61 31  2d7801f3d61ddca1
d920: 35 32 33 62 37 33 38 66 63 32 36 66 65 63 66 61  523b738fc26fecfa
d930: 35 64 39 61 36 61 0a 0a 74 63 6c 74 65 73 74 3a  5d9a6a..tcltest:
d940: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
d950: 32 32 34 2d 32 2e 31 34 32 20 7b 53 48 41 33 5f  224-2.142 {SHA3_
d960: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
d970: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
d980: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_224 \..-setup 
d990: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
d9a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 61 36  y decode hex ba6
d9b0: 34 34 32 63 36 64 32 31 33 39 32 30 31 64 66 65  442c6d2139201dfe
d9c0: 66 33 32 63 31 66 66 62 30 63 65 39 32 64 64 36  f32c1ffb0ce92dd6
d9d0: 34 30 39 31 62 64 35 30 37 63 32 35 30 35 39 35  4091bd507c250595
d9e0: 33 39 35 65 39 39 33 64 39 61 35 31 32 34 62 35  395e993d9a5124b5
d9f0: 31 39 39 36 34 30 63 32 66 65 35 31 34 38 32 37  199640c2fe514827
da00: 37 34 62 36 61 32 37 64 31 61 31 37 35 31 66 65  74b6a27d1a1751fe
da10: 30 64 34 66 65 35 66 64 30 32 64 62 61 31 35 32  0d4fe5fd02dba152
da20: 65 64 33 63 33 34 34 66 64 39 32 34 39 61 66 30  ed3c344fd9249af0
da30: 36 64 61 38 35 66 39 36 66 30 62 65 66 30 61 38  6da85f96f0bef0a8
da40: 66 65 66 62 31 62 35 30 31 38 38 35 62 39 37 66  fefb1b501885b97f
da50: 37 30 64 64 38 34 32 64 31 32 66 61 31 39 62 65  70dd842d12fa19be
da60: 66 61 30 33 30 38 30 63 33 64 36 62 38 61 65 32  fa03080c3d6b8ae2
da70: 61 30 64 31 33 65 32 66 63 38 62 66 63 33 66 65  a0d13e2fc8bfc3fe
da80: 31 32 37 37 65 66 30 36 37 30 63 61 63 30 65 35  1277ef0670cac0e5
da90: 32 62 62 39 33 63 34 33 34 34 66 36 64 62 31 33  2bb93c4344f6db13
daa0: 64 30 35 31 38 38 64 35 33 66 62 63 36 31 30 36  d05188d53fbc6106
dab0: 35 33 38 66 35 30 66 66 64 65 64 61 32 65 39 31  538f50ffdeda2e91
dac0: 35 66 61 62 39 32 31 5d 7d 20 5c 0a 09 2d 62 6f  5fab921]} \..-bo
dad0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
dae0: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34  -digest SHA3-224
daf0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
db00: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
db10: 65 73 75 6c 74 20 35 38 34 37 30 64 61 35 38 34  esult 58470da584
db20: 37 36 62 63 62 38 39 34 35 30 63 35 32 31 66 63  76bcb89450c521fc
db30: 33 39 36 63 36 64 63 35 31 62 39 66 62 36 34 36  396c6dc51b9fb646
db40: 35 63 39 37 39 61 62 61 35 66 38 65 62 34 0a 0a  5c979aba5f8eb4..
db50: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
db60: 73 68 5f 53 48 41 33 2d 32 32 34 2d 32 2e 31 34  sh_SHA3-224-2.14
db70: 33 20 7b 53 48 41 33 5f 32 32 34 53 68 6f 72 74  3 {SHA3_224Short
db80: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
db90: 69 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a  ints SHA3_224 \.
dba0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
dbb0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
dbc0: 20 68 65 78 20 39 36 66 64 62 37 36 66 38 33 62   hex 96fdb76f83b
dbd0: 66 31 32 62 33 66 34 66 33 32 32 62 66 36 31 33  f12b3f4f322bf613
dbe0: 66 63 33 38 62 32 63 38 65 30 36 37 38 38 35 36  fc38b2c8e0678856
dbf0: 32 33 30 34 31 38 62 36 62 30 36 32 66 62 33 35  230418b6b062fb35
dc00: 38 34 38 38 64 36 65 65 64 37 63 35 63 30 36 35  8488d6eed7c5c065
dc10: 36 65 63 34 38 63 39 62 62 66 32 64 61 36 61 31  6ec48c9bbf2da6a1
dc20: 34 37 33 65 65 61 34 33 66 61 61 36 38 32 30 34  473eea43faa68204
dc30: 66 32 37 32 33 39 39 32 38 31 37 32 61 33 65 34  f27239928172a3e4
dc40: 39 63 35 32 62 35 38 65 38 36 31 32 38 32 63 34  9c52b58e861282c4
dc50: 34 30 31 37 30 32 33 33 37 65 35 63 65 32 38 30  401702337e5ce280
dc60: 61 66 66 30 30 35 32 38 65 62 32 36 61 63 33 36  aff00528eb26ac36
dc70: 38 64 62 30 63 64 30 61 64 30 65 62 32 36 32 61  8db0cd0ad0eb262a
dc80: 66 32 32 36 61 39 62 31 36 65 66 33 62 62 64 33  f226a9b16ef3bbd3
dc90: 32 35 36 31 34 34 38 38 66 38 32 30 33 36 33 63  25614488f820363c
dca0: 61 36 65 61 37 37 64 61 34 61 37 65 38 33 34 35  a6ea77da4a7e8345
dcb0: 35 35 34 65 35 37 36 32 33 37 33 32 65 65 36 33  554e57623732ee63
dcc0: 32 36 35 33 34 38 31 39 65 61 64 66 65 38 31 63  26534819eadfe81c
dcd0: 37 66 35 31 64 38 31 65 63 35 31 65 31 65 33 66  7f51d81ec51e1e3f
dce0: 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  c]} \..-body {tl
dcf0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
dd00: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61  t SHA3-224 -data
dd10: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
dd20: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
dd30: 62 65 39 32 64 34 61 36 39 34 36 64 65 30 65 39  be92d4a6946de0e9
dd40: 33 64 35 62 62 65 34 32 30 36 35 31 61 38 62 65  3d5bbe420651a8be
dd50: 66 62 39 37 63 62 64 62 35 64 36 33 62 32 32 61  fb97cbdb5d63b22a
dd60: 61 65 63 66 34 35 33 64 0a 0a 74 63 6c 74 65 73  aecf453d..tcltes
dd70: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
dd80: 33 2d 32 32 34 2d 32 2e 31 34 34 20 7b 53 48 41  3-224-2.144 {SHA
dd90: 33 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_224ShortMsg} \
dda0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
ddb0: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75  HA3_224 \..-setu
ddc0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
ddd0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30  ary decode hex 0
dde0: 65 65 66 39 34 37 66 31 65 34 66 30 31 63 64 62  eef947f1e4f01cdb
ddf0: 35 34 38 31 63 61 36 65 61 61 32 35 66 32 63 61  5481ca6eaa25f2ca
de00: 63 61 34 63 34 30 31 36 31 32 38 38 38 66 65 63  ca4c401612888fec
de10: 65 66 35 32 65 32 38 33 37 34 38 63 38 64 66 63  ef52e283748c8dfc
de20: 37 62 34 37 32 35 39 33 32 32 63 31 66 34 66 39  7b47259322c1f4f9
de30: 38 35 66 39 38 66 36 61 64 34 34 63 31 33 31 31  85f98f6ad44c1311
de40: 37 66 35 31 65 30 35 31 37 63 30 39 37 34 64 36  7f51e0517c0974d6
de50: 63 37 62 37 38 61 66 37 34 31 39 62 63 63 65 39  c7b78af7419bcce9
de60: 35 37 62 38 62 63 31 64 62 38 38 30 31 63 35 65  57b8bc1db8801c5e
de70: 32 38 30 33 31 32 65 66 37 38 64 36 61 61 34 37  280312ef78d6aa47
de80: 61 39 63 62 39 38 62 38 36 36 61 61 65 63 33 64  a9cb98b866aaec3d
de90: 35 65 32 36 33 39 32 64 64 61 36 62 62 64 65 33  5e26392dda6bbde3
dea0: 66 65 63 65 38 61 30 36 32 38 62 33 30 39 35 35  fece8a0628b30955
deb0: 62 35 35 66 30 33 37 31 31 61 38 65 31 65 62 39  b55f03711a8e1eb9
dec0: 65 34 30 39 61 37 63 66 38 34 66 35 36 63 38 64  e409a7cf84f56c8d
ded0: 30 64 30 66 38 62 39 62 61 31 38 34 63 37 37 38  0d0f8b9ba184c778
dee0: 66 61 65 39 30 64 63 30 66 35 63 33 33 32 39 63  fae90dc0f5c3329c
def0: 62 38 36 64 63 66 37 34 33 62 62 61 65 5d 7d 20  b86dcf743bbae]} 
df00: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
df10: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
df20: 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  A3-224 -data $da
df30: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
df40: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 38 65 63  act -result 98ec
df50: 35 32 63 32 31 63 62 39 38 38 62 31 34 33 34 62  52c21cb988b1434b
df60: 31 36 35 33 64 64 34 61 63 38 30 36 64 31 31 38  1653dd4ac806d118
df70: 64 65 36 61 66 31 62 62 34 37 31 63 31 36 35 37  de6af1bb471c1657
df80: 37 63 33 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  7c34..tcltest::t
df90: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32  est Hash_SHA3-22
dfa0: 34 2d 32 2e 31 34 35 20 7b 53 48 41 33 5f 32 32  4-2.145 {SHA3_22
dfb0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
dfc0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
dfd0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
dfe0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
dff0: 64 65 63 6f 64 65 20 68 65 78 20 65 36 35 64 65  decode hex e65de
e000: 39 31 66 64 63 62 37 36 30 36 66 31 34 64 62 63  91fdcb7606f14dbc
e010: 66 63 39 34 63 39 63 39 34 61 35 37 32 34 30 61  fc94c9c94a57240a
e020: 36 62 32 63 33 31 65 64 34 31 30 33 34 36 63 34  6b2c31ed410346c4
e030: 64 63 30 31 31 35 32 36 35 35 39 65 34 34 32 39  dc011526559e4429
e040: 36 66 63 39 38 38 63 63 35 38 39 64 65 32 64 63  6fc988cc589de2dc
e050: 37 31 33 64 30 65 38 32 34 39 32 64 34 39 39 31  713d0e82492d4991
e060: 62 64 38 63 34 63 35 65 36 63 37 34 63 37 35 33  bd8c4c5e6c74c753
e070: 66 63 30 39 33 34 35 32 32 35 65 31 64 62 38 64  fc09345225e1db8d
e080: 35 36 35 66 30 63 65 32 36 66 35 66 35 64 39 66  565f0ce26f5f5d9f
e090: 34 30 34 61 32 38 63 66 30 30 62 64 36 35 35 61  404a28cf00bd655a
e0a0: 35 66 65 30 34 65 64 62 36 38 32 39 34 32 64 36  5fe04edb682942d6
e0b0: 37 35 62 38 36 32 33 35 66 32 33 35 39 36 35 61  75b86235f235965a
e0c0: 64 34 32 32 62 61 35 30 38 31 61 32 31 38 36 35  d422ba5081a21865
e0d0: 62 38 32 30 39 61 65 38 31 37 36 33 65 31 63 34  b8209ae81763e1c4
e0e0: 63 30 63 63 63 62 63 63 64 61 61 64 35 33 39 63  c0cccbccdaad539c
e0f0: 66 37 37 33 34 31 33 61 35 30 66 35 66 66 31 32  f773413a50f5ff12
e100: 36 37 62 39 32 33 38 66 35 36 30 32 61 64 63 30  67b9238f5602adc0
e110: 36 37 36 34 66 37 37 35 64 33 63 5d 7d 20 5c 0a  6764f775d3c]} \.
e120: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
e130: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
e140: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
e150: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
e160: 74 20 2d 72 65 73 75 6c 74 20 32 36 65 63 39 64  t -result 26ec9d
e170: 66 35 34 64 39 61 66 65 31 31 37 31 30 37 37 32  f54d9afe11710772
e180: 62 66 62 65 63 63 63 38 33 64 39 64 30 34 33 39  bfbeccc83d9d0439
e190: 64 33 35 33 30 37 37 37 63 38 31 62 38 61 65 36  d3530777c81b8ae6
e1a0: 61 33 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a  a3..# Cleanup.::
e1b0: 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70  tcltest::cleanup
e1c0: 54 65 73 74 73 0a 72 65 74 75 72 6e 0a           Tests.return.