TclTLS: Hex Artifact Content

Artifact 0c5d1a014d88be7d7ed1ad2b5583455a7c5feb63c40c46e85cf762fd7915ce76:

File tests/test_vectors/Hash/SHA3_384ShortMsg.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: 41885) [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 33 38 34 53   from "SHA3_384S
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 33 38 34 20 5b 65 78 70 72  t SHA3_384 [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 33 38 34 5d 20 3e 20 2d 31  ] SHA3-384] > -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 33 38 34 2d  t Hash_SHA3-384-
00d0: 32 2e 31 20 7b 53 48 41 33 5f 33 38 34 53 68 6f  2.1 {SHA3_384Sho
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 33 38 34 20  raints SHA3_384 
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 33 38 34 20 2d  igest SHA3-384 -
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 30 63 36 33 61 37 35 62 38 34 35 65  ult 0c63a75b845e
0170: 34 66 37 64 30 31 31 30 37 64 38 35 32 65 34 63  4f7d01107d852e4c
0180: 32 34 38 35 63 35 31 61 35 30 61 61 61 61 39 34  2485c51a50aaaa94
0190: 66 63 36 31 39 39 35 65 37 31 62 62 65 65 39 38  fc61995e71bbee98
01a0: 33 61 32 61 63 33 37 31 33 38 33 31 32 36 34 61  3a2ac3713831264a
01b0: 64 62 34 37 66 62 36 62 64 31 65 30 35 38 64 35  db47fb6bd1e058d5
01c0: 66 30 30 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  f004..tcltest::t
01d0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
01e0: 34 2d 32 2e 32 20 7b 53 48 41 33 5f 33 38 34 53  4-2.2 {SHA3_384S
01f0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0200: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
0210: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0220: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0230: 63 6f 64 65 20 68 65 78 20 38 30 5d 7d 20 5c 0a  code hex 80]} \.
0240: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
0250: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
0260: 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61  -384 -data $data
0270: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0280: 74 20 2d 72 65 73 75 6c 74 20 37 35 34 31 33 38  t -result 754138
0290: 34 38 35 32 65 31 30 66 66 31 30 64 35 66 62 36  4852e10ff10d5fb6
02a0: 61 37 32 31 33 61 34 61 36 63 31 35 63 63 63 38  a7213a4a6c15ccc8
02b0: 36 64 38 62 63 31 30 36 38 61 63 30 34 66 36 39  6d8bc1068ac04f69
02c0: 32 37 37 31 34 32 39 34 34 66 34 65 65 35 30 64  277142944f4ee50d
02d0: 39 31 66 64 63 35 36 35 35 33 64 62 30 36 62 32  91fdc56553db06b2
02e0: 66 35 30 33 39 63 38 61 62 37 0a 0a 74 63 6c 74  f5039c8ab7..tclt
02f0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
0300: 48 41 33 2d 33 38 34 2d 32 2e 33 20 7b 53 48 41  HA3-384-2.3 {SHA
0310: 33 5f 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_384ShortMsg} \
0320: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0330: 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75  HA3_384 \..-setu
0340: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
0350: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66  ary decode hex f
0360: 62 35 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  b52]} \..-body {
0370: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0380: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
0390: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
03a0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
03b0: 74 20 64 37 33 61 39 64 30 65 37 66 31 38 30 32  t d73a9d0e7f1802
03c0: 33 35 32 65 61 35 34 66 33 65 30 36 32 64 33 39  352ea54f3e062d39
03d0: 31 30 35 37 37 62 66 38 37 65 64 64 61 34 38 31  10577bf87edda481
03e0: 30 31 64 65 39 32 61 33 64 65 39 35 37 65 36 39  01de92a3de957e69
03f0: 38 62 38 33 36 30 38 35 66 35 66 31 30 63 61 62  8b836085f5f10cab
0400: 31 64 65 31 39 66 64 30 63 39 30 36 65 34 38 33  1de19fd0c906e483
0410: 38 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  85..tcltest::tes
0420: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
0430: 32 2e 34 20 7b 53 48 41 33 5f 33 38 34 53 68 6f  2.4 {SHA3_384Sho
0440: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0450: 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20  raints SHA3_384 
0460: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
0470: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
0480: 64 65 20 68 65 78 20 36 61 62 37 64 36 5d 7d 20  de hex 6ab7d6]} 
0490: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
04a0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
04b0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
04c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
04d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 61 31 32  act -result ea12
04e0: 64 36 64 33 32 64 36 39 61 64 32 31 35 34 61 35  d6d32d69ad2154a5
04f0: 37 65 30 65 31 62 65 34 38 31 61 34 35 61 64 64  7e0e1be481a45add
0500: 37 33 39 65 65 37 64 64 36 65 32 61 32 37 65 35  739ee7dd6e2a27e5
0510: 34 34 62 36 63 38 62 35 61 64 31 32 32 36 35 34  44b6c8b5ad122654
0520: 62 62 66 39 35 31 33 34 64 35 36 37 39 38 37 31  bbf95134d5679871
0530: 35 36 32 39 35 64 35 65 35 37 64 62 0a 0a 74 63  56295d5e57db..tc
0540: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0550: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 20 7b 53  _SHA3-384-2.5 {S
0560: 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67 7d  HA3_384ShortMsg}
0570: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0580: 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65   SHA3_384 \..-se
0590: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
05a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
05b0: 20 31 31 35 38 37 64 63 62 5d 7d 20 5c 0a 09 2d   11587dcb]} \..-
05c0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
05d0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33  t -digest SHA3-3
05e0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
05f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0600: 2d 72 65 73 75 6c 74 20 63 62 36 65 36 63 65 34  -result cb6e6ce4
0610: 61 32 36 36 64 34 33 38 64 64 64 35 32 38 36 37  a266d438ddd52867
0620: 66 32 65 31 38 33 30 32 31 62 65 35 30 32 32 33  f2e183021be50223
0630: 63 37 64 35 37 66 38 66 64 63 61 61 31 38 30 39  c7d57f8fdcaa1809
0640: 33 61 39 64 30 31 32 36 36 30 37 64 66 30 32 36  3a9d0126607df026
0650: 63 30 32 35 62 66 66 34 30 62 63 33 31 34 61 66  c025bff40bc314af
0660: 34 33 66 64 38 61 30 38 0a 0a 74 63 6c 74 65 73  43fd8a08..tcltes
0670: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0680: 33 2d 33 38 34 2d 32 2e 36 20 7b 53 48 41 33 5f  3-384-2.6 {SHA3_
0690: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
06a0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
06b0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
06c0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
06d0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 64 37  y decode hex 4d7
06e0: 66 63 36 63 61 65 36 5d 7d 20 5c 0a 09 2d 62 6f  fc6cae6]} \..-bo
06f0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0700: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34  -digest SHA3-384
0710: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0720: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0730: 65 73 75 6c 74 20 65 35 37 30 64 34 36 33 61 30  esult e570d463a0
0740: 31 30 63 37 31 62 37 38 61 63 64 37 66 39 37 39  10c71b78acd7f979
0750: 30 63 37 38 63 65 39 34 36 65 30 30 63 63 35 34  0c78ce946e00cc54
0760: 64 61 65 38 32 62 66 63 33 38 33 33 61 31 30 66  dae82bfc3833a10f
0770: 30 64 38 64 33 35 62 30 33 63 62 62 34 61 61 32  0d8d35b03cbb4aa2
0780: 66 39 62 61 34 62 32 37 34 39 38 38 30 37 61 33  f9ba4b27498807a3
0790: 39 37 63 64 34 37 0a 0a 74 63 6c 74 65 73 74 3a  97cd47..tcltest:
07a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
07b0: 33 38 34 2d 32 2e 37 20 7b 53 48 41 33 5f 33 38  384-2.7 {SHA3_38
07c0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
07d0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
07e0: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
07f0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
0800: 64 65 63 6f 64 65 20 68 65 78 20 35 61 36 36 35  decode hex 5a665
0810: 39 65 39 66 30 65 37 5d 7d 20 5c 0a 09 2d 62 6f  9e9f0e7]} \..-bo
0820: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0830: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34  -digest SHA3-384
0840: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0850: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0860: 65 73 75 6c 74 20 32 31 62 31 66 33 66 36 33 62  esult 21b1f3f63b
0870: 39 30 37 66 39 36 38 38 32 31 31 38 35 61 37 66  907f968821185a7f
0880: 65 33 30 62 31 36 64 34 37 65 31 64 36 65 65 35  e30b16d47e1d6ee5
0890: 62 39 63 38 30 62 65 36 38 39 34 37 38 35 34 64  b9c80be68947854d
08a0: 65 37 61 38 65 66 34 61 30 33 61 36 62 32 65 34  e7a8ef4a03a6b2e4
08b0: 65 63 39 36 61 62 64 64 34 66 61 32 39 61 62 39  ec96abdd4fa29ab9
08c0: 37 39 36 66 32 38 0a 0a 74 63 6c 74 65 73 74 3a  796f28..tcltest:
08d0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
08e0: 33 38 34 2d 32 2e 38 20 7b 53 48 41 33 5f 33 38  384-2.8 {SHA3_38
08f0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
0900: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f  onstraints SHA3_
0910: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
0920: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
0930: 64 65 63 6f 64 65 20 68 65 78 20 31 37 35 31 30  decode hex 17510
0940: 65 63 61 32 66 65 31 31 62 5d 7d 20 5c 0a 09 2d  eca2fe11b]} \..-
0950: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0960: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33  t -digest SHA3-3
0970: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
0980: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0990: 2d 72 65 73 75 6c 74 20 33 35 66 62 61 36 39 35  -result 35fba695
09a0: 38 62 36 63 36 38 65 61 65 38 66 32 62 35 66 35  8b6c68eae8f2b5f5
09b0: 62 64 66 35 65 62 63 63 35 36 35 32 35 32 62 63  bdf5ebcc565252bc
09c0: 37 30 66 39 38 33 35 34 38 63 32 64 66 64 35 34  70f983548c2dfd54
09d0: 30 36 66 31 31 31 61 30 61 39 35 62 31 62 62 39  06f111a0a95b1bb9
09e0: 61 36 33 39 39 38 38 63 38 64 36 35 64 61 39 31  a639988c8d65da91
09f0: 32 64 32 63 33 65 61 32 0a 0a 74 63 6c 74 65 73  2d2c3ea2..tcltes
0a00: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0a10: 33 2d 33 38 34 2d 32 2e 39 20 7b 53 48 41 33 5f  3-384-2.9 {SHA3_
0a20: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
0a30: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0a40: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
0a50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0a60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 34 34  y decode hex c44
0a70: 61 32 63 35 38 63 38 34 63 33 39 33 61 5d 7d 20  a2c58c84c393a]} 
0a80: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0a90: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0aa0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
0ab0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0ac0: 61 63 74 20 2d 72 65 73 75 6c 74 20 36 30 61 64  act -result 60ad
0ad0: 34 30 66 39 36 34 64 30 65 64 63 66 31 39 32 38  40f964d0edcf1928
0ae0: 31 65 34 31 35 66 37 33 38 39 39 36 38 32 37 35  1e415f7389968275
0af0: 66 66 36 31 33 31 39 39 61 30 36 39 63 39 31 36  ff613199a069c916
0b00: 61 30 66 66 37 65 66 36 35 35 30 33 62 37 34 30  a0ff7ef65503b740
0b10: 36 38 33 31 36 32 61 36 32 32 62 39 31 33 64 34  683162a622b913d4
0b20: 33 61 34 36 35 35 39 65 39 31 33 63 0a 0a 74 63  3a46559e913c..tc
0b30: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0b40: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 30 20 7b  _SHA3-384-2.10 {
0b50: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
0b60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0b70: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
0b80: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0b90: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0ba0: 78 20 61 33 36 65 35 61 35 39 30 34 33 62 36 33  x a36e5a59043b63
0bb0: 33 33 64 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  33d7]} \..-body 
0bc0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0bd0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
0be0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0bf0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0c00: 6c 74 20 62 64 30 34 35 36 36 31 36 36 33 34 33  lt bd04566166343
0c10: 36 64 30 37 37 32 30 66 66 33 63 38 62 36 66 39  6d07720ff3c8b6f9
0c20: 32 32 30 36 36 64 66 65 32 34 34 34 35 36 61 35  22066dfe244456a5
0c30: 36 63 61 34 36 64 66 62 33 66 37 65 32 37 31 31  6ca46dfb3f7e2711
0c40: 31 36 64 39 33 32 31 30 37 63 37 62 30 34 63 63  16d932107c7b04cc
0c50: 37 63 36 30 31 37 33 65 30 38 64 30 63 32 65 31  7c60173e08d0c2e1
0c60: 30 37 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  07c..tcltest::te
0c70: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
0c80: 2d 32 2e 31 31 20 7b 53 48 41 33 5f 33 38 34 53  -2.11 {SHA3_384S
0c90: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0ca0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
0cb0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0cc0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0cd0: 63 6f 64 65 20 68 65 78 20 63 30 39 32 30 66 32  code hex c0920f2
0ce0: 62 64 31 65 32 64 33 30 32 32 35 39 62 5d 7d 20  bd1e2d302259b]} 
0cf0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0d00: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0d10: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
0d20: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0d30: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 64 31 35  act -result 3d15
0d40: 38 34 32 32 30 34 30 39 66 38 38 64 33 38 34 30  84220409f88d3840
0d50: 39 61 32 39 65 63 61 65 62 62 34 39 30 65 66 38  9a29ecaebb490ef8
0d60: 38 34 62 35 61 63 62 61 32 63 37 65 61 66 32 33  84b5acba2c7eaf23
0d70: 39 31 34 62 61 62 37 66 35 66 30 66 63 39 37 65  914bab7f5f0fc97e
0d80: 65 31 65 36 33 33 36 66 38 38 64 66 64 34 64 30  e1e6336f88dfd4d0
0d90: 61 30 36 65 39 30 32 63 63 64 32 35 0a 0a 74 63  a06e902ccd25..tc
0da0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0db0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 32 20 7b  _SHA3-384-2.12 {
0dc0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
0dd0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0de0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
0df0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0e00: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0e10: 78 20 37 30 61 65 37 33 31 61 66 35 65 30 64 39  x 70ae731af5e0d9
0e20: 32 64 32 36 34 65 63 39 5d 7d 20 5c 0a 09 2d 62  2d264ec9]} \..-b
0e30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0e40: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
0e50: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
0e60: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
0e70: 72 65 73 75 6c 74 20 35 36 33 33 35 39 66 64 39  result 563359fd9
0e80: 33 66 65 30 39 66 33 66 65 34 39 66 63 66 35 66  3fe09f3fe49fcf5f
0e90: 31 37 65 37 66 39 32 61 61 62 35 38 39 63 64 65  17e7f92aab589cde
0ea0: 63 33 65 35 35 65 34 63 33 37 31 35 65 37 37 37  c3e55e4c3715e777
0eb0: 35 38 31 34 62 62 62 66 62 38 63 34 63 37 33 32  5814bbbfb8c4c732
0ec0: 65 32 38 64 33 62 36 65 36 34 30 34 38 36 30 38  e28d3b6e64048608
0ed0: 31 32 64 63 36 65 39 0a 0a 74 63 6c 74 65 73 74  12dc6e9..tcltest
0ee0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
0ef0: 2d 33 38 34 2d 32 2e 31 33 20 7b 53 48 41 33 5f  -384-2.13 {SHA3_
0f00: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
0f10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0f20: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
0f30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0f40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 39 63  y decode hex 69c
0f50: 37 34 61 39 62 30 64 62 35 33 38 65 65 66 66 36  74a9b0db538eeff6
0f60: 34 64 39 33 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79  4d93d]} \..-body
0f70: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0f80: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
0f90: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0fa0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0fb0: 75 6c 74 20 38 38 63 36 36 33 38 39 63 61 32 63  ult 88c66389ca2c
0fc0: 33 32 30 61 33 39 30 32 32 61 61 34 34 31 66 61  320a39022aa441fa
0fd0: 38 38 34 66 62 63 36 65 64 32 64 33 63 63 39 61  884fbc6ed2d3cc9a
0fe0: 63 34 37 35 33 37 32 64 39 34 37 64 34 39 36 30  c475372d947d4960
0ff0: 35 37 39 61 36 34 65 30 36 31 61 32 39 37 64 31  579a64e061a297d1
1000: 38 33 31 64 33 35 32 34 66 39 38 64 38 30 39 34  831d3524f98d8094
1010: 34 30 34 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  404b..tcltest::t
1020: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
1030: 34 2d 32 2e 31 34 20 7b 53 48 41 33 5f 33 38 34  4-2.14 {SHA3_384
1040: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1050: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
1060: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
1070: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1080: 65 63 6f 64 65 20 68 65 78 20 61 34 61 39 33 32  ecode hex a4a932
1090: 37 62 65 32 31 62 39 32 37 37 65 30 38 63 34 30  7be21b9277e08c40
10a0: 61 62 63 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  abc7]} \..-body 
10b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
10c0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
10d0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
10e0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
10f0: 6c 74 20 37 35 31 66 35 64 61 35 66 66 39 65 32  lt 751f5da5ff9e2
1100: 34 36 30 63 39 39 33 34 38 30 37 30 64 35 30 36  460c99348070d506
1110: 38 64 38 61 33 64 37 66 66 63 65 63 37 66 64 30  8d8a3d7ffcec7fd0
1120: 65 36 66 36 38 66 36 63 64 34 61 32 65 66 34 32  e6f68f6cd4a2ef42
1130: 32 36 64 66 38 64 39 62 34 36 31 33 63 33 62 30  26df8d9b4613c3b0
1140: 64 31 30 61 31 36 38 65 61 66 35 34 65 61 62 65  d10a168eaf54eabe
1150: 30 31 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  01a..tcltest::te
1160: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
1170: 2d 32 2e 31 35 20 7b 53 48 41 33 5f 33 38 34 53  -2.15 {SHA3_384S
1180: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1190: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
11a0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
11b0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
11c0: 63 6f 64 65 20 68 65 78 20 63 63 34 37 36 34 64  code hex cc4764d
11d0: 33 65 32 39 35 30 39 37 32 39 38 66 32 61 66 38  3e295097298f2af8
11e0: 38 38 32 66 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  882f6]} \..-body
11f0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
1200: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
1210: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
1220: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1230: 75 6c 74 20 31 30 66 32 38 37 66 32 35 36 36 34  ult 10f287f25664
1240: 33 61 64 30 64 66 62 35 39 35 35 64 64 33 34 35  3ad0dfb5955dd345
1250: 38 37 38 38 32 65 34 34 35 63 64 35 61 65 38 64  87882e445cd5ae8d
1260: 61 33 33 37 65 37 63 31 37 30 66 63 30 63 31 65  a337e7c170fc0c1e
1270: 34 38 61 30 33 66 62 37 61 35 34 65 63 37 31 33  48a03fb7a54ec713
1280: 33 35 31 31 33 64 62 64 63 63 63 63 63 39 34 34  35113dbdccccc944
1290: 64 61 34 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  da41..tcltest::t
12a0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
12b0: 34 2d 32 2e 31 36 20 7b 53 48 41 33 5f 33 38 34  4-2.16 {SHA3_384
12c0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
12d0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
12e0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
12f0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1300: 65 63 6f 64 65 20 68 65 78 20 35 61 32 33 61 64  ecode hex 5a23ad
1310: 30 63 65 38 39 65 30 66 62 31 64 66 34 61 39 35  0ce89e0fb1df4a95
1320: 62 62 32 34 38 38 66 30 5d 7d 20 5c 0a 09 2d 62  bb2488f0]} \..-b
1330: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1340: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
1350: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
1360: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
1370: 72 65 73 75 6c 74 20 32 33 38 34 30 36 37 31 65  result 23840671e
1380: 37 35 37 30 61 32 34 38 63 66 33 35 37 39 63 37  7570a248cf3579c7
1390: 63 38 38 31 30 62 35 66 63 63 33 35 62 39 37 35  c8810b5fcc35b975
13a0: 61 33 61 34 33 62 35 30 36 63 63 36 37 66 61 65  a3a43b506cc67fae
13b0: 66 61 36 64 62 65 31 63 39 34 35 61 62 63 30 39  fa6dbe1c945abc09
13c0: 61 39 30 33 65 31 39 39 66 37 35 39 64 63 62 63  a903e199f759dcbc
13d0: 37 66 32 63 34 64 30 0a 0a 74 63 6c 74 65 73 74  7f2c4d0..tcltest
13e0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
13f0: 2d 33 38 34 2d 32 2e 31 37 20 7b 53 48 41 33 5f  -384-2.17 {SHA3_
1400: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
1410: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1420: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
1430: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1440: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 35 62  y decode hex 65b
1450: 32 37 66 36 63 35 35 37 38 61 34 64 35 64 39 66  27f6c5578a4d5d9f
1460: 36 35 31 39 63 35 35 34 63 33 30 39 37 5d 7d 20  6519c554c3097]} 
1470: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1480: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1490: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
14a0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
14b0: 61 63 74 20 2d 72 65 73 75 6c 74 20 64 64 37 33  act -result dd73
14c0: 34 66 34 39 38 37 66 65 31 61 37 31 34 35 35 63  4f4987fe1a71455c
14d0: 66 39 66 62 31 65 65 38 39 38 36 38 38 32 63 38  f9fb1ee8986882c8
14e0: 32 34 34 38 38 32 37 61 37 38 38 30 66 63 39 30  2448827a7880fc90
14f0: 64 32 30 34 33 63 33 33 62 35 63 62 63 30 65 64  d2043c33b5cbc0ed
1500: 35 38 62 38 35 32 39 65 34 63 36 62 63 33 61 37  58b8529e4c6bc3a7
1510: 32 38 38 38 32 39 65 30 61 34 30 64 0a 0a 74 63  288829e0a40d..tc
1520: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1530: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 38 20 7b  _SHA3-384-2.18 {
1540: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
1550: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1560: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
1570: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
1580: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
1590: 78 20 61 37 34 38 34 37 39 33 30 61 30 33 61 62  x a74847930a03ab
15a0: 65 65 61 34 37 33 65 31 66 33 64 63 33 30 62 38  eea473e1f3dc30b8
15b0: 38 38 31 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8815]} \..-body 
15c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
15d0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
15e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
15f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1600: 6c 74 20 64 62 61 36 66 39 32 39 66 65 35 35 66  lt dba6f929fe55f
1610: 39 64 36 36 63 35 66 36 37 63 30 61 66 33 62 38  9d66c5f67c0af3b8
1620: 32 66 31 37 62 63 66 35 38 62 33 36 37 35 32 66  2f17bcf58b36752f
1630: 33 31 36 35 63 31 36 30 38 33 66 65 61 38 66 64  3165c16083fea8fd
1640: 34 37 38 65 65 36 39 30 33 66 32 37 66 38 32 30  478ee6903f27f820
1650: 61 64 32 64 64 39 39 35 30 61 66 62 34 38 63 36  ad2dd9950afb48c6
1660: 37 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  700..tcltest::te
1670: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
1680: 2d 32 2e 31 39 20 7b 53 48 41 33 5f 33 38 34 53  -2.19 {SHA3_384S
1690: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
16a0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
16b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
16c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
16d0: 63 6f 64 65 20 68 65 78 20 36 65 66 61 66 37 38  code hex 6efaf78
16e0: 65 64 34 64 32 39 33 39 32 37 65 65 66 32 63 33  ed4d293927eef2c3
16f0: 61 37 31 39 33 30 65 36 65 38 38 37 61 5d 7d 20  a71930e6e887a]} 
1700: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1710: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1720: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
1730: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1740: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 32 31 38  act -result 8218
1750: 34 39 38 61 62 30 31 62 36 33 30 34 31 63 32 62  498ab01b63041c2b
1760: 61 30 37 30 39 65 33 33 30 39 34 39 36 31 32 34  a0709e3309496124
1770: 64 64 66 30 39 30 34 35 34 33 61 39 65 30 64 39  ddf0904543a9e0d9
1780: 64 30 39 36 61 37 35 30 64 64 61 39 37 66 37 61  d096a750dda97f7a
1790: 30 32 32 30 38 61 66 33 64 38 63 36 31 38 64 34  02208af3d8c618d4
17a0: 62 65 37 63 32 62 62 32 61 32 38 38 0a 0a 74 63  be7c2bb2a288..tc
17b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
17c0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32 30 20 7b  _SHA3-384-2.20 {
17d0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
17e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
17f0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
1800: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
1810: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
1820: 78 20 66 64 30 33 39 65 62 36 65 34 36 35 37 33  x fd039eb6e46573
1830: 38 38 62 39 34 37 65 63 30 31 65 37 33 37 65 66  88b947ec01e737ef
1840: 62 62 61 64 34 37 64 61 5d 7d 20 5c 0a 09 2d 62  bbad47da]} \..-b
1850: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1860: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
1870: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
1880: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
1890: 72 65 73 75 6c 74 20 63 35 62 33 31 33 30 65 66  result c5b3130ef
18a0: 38 64 62 63 35 38 30 65 31 31 30 33 66 65 63 61  8dbc580e1103feca
18b0: 65 36 39 63 39 61 38 38 32 64 39 65 62 66 35 61  e69c9a882d9ebf5a
18c0: 33 64 65 66 35 39 33 38 62 30 37 66 38 34 33 34  3def5938b07f8434
18d0: 35 32 61 30 39 63 39 66 37 32 66 30 64 62 63 61  52a09c9f72f0dbca
18e0: 39 31 64 33 33 62 30 32 31 63 66 36 61 61 36 66  91d33b021cf6aa6f
18f0: 65 36 30 64 32 65 64 0a 0a 74 63 6c 74 65 73 74  e60d2ed..tcltest
1900: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
1910: 2d 33 38 34 2d 32 2e 32 31 20 7b 53 48 41 33 5f  -384-2.21 {SHA3_
1920: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
1930: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1940: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
1950: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1960: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 63 36  y decode hex 9c6
1970: 39 34 39 34 33 33 38 39 62 64 63 34 65 30 35 61  94943389bdc4e05a
1980: 64 37 63 32 66 36 33 63 65 61 63 32 38 32 30 65  d7c2f63ceac2820e
1990: 31 64 32 64 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79  1d2d7]} \..-body
19a0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
19b0: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
19c0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
19d0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
19e0: 75 6c 74 20 66 36 39 32 63 30 32 35 63 35 63 35  ult f692c025c5c5
19f0: 66 33 64 31 32 37 35 32 31 33 63 31 64 66 39 62  f3d1275213c1df9b
1a00: 66 39 65 62 36 64 32 31 38 38 65 64 61 39 30 61  f9eb6d2188eda90a
1a10: 62 35 62 66 66 65 36 33 31 66 31 64 62 66 37 30  b5bffe631f1dbf70
1a20: 65 62 64 36 32 38 63 61 65 65 38 38 62 37 64 31  ebd628caee88b7d1
1a30: 34 39 65 31 61 63 34 65 32 36 32 38 37 33 39 37  49e1ac4e26287397
1a40: 39 61 66 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  9afe..tcltest::t
1a50: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
1a60: 34 2d 32 2e 32 32 20 7b 53 48 41 33 5f 33 38 34  4-2.22 {SHA3_384
1a70: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1a80: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
1a90: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
1aa0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1ab0: 65 63 6f 64 65 20 68 65 78 20 30 66 62 31 38 33  ecode hex 0fb183
1ac0: 35 37 62 30 31 38 62 39 62 62 62 32 63 62 62 34  57b018b9bbb2cbb4
1ad0: 63 61 63 35 30 62 63 38 35 36 30 39 63 39 32 62  cac50bc85609c92b
1ae0: 38 65 37 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8e7f]} \..-body 
1af0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1b00: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
1b10: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1b20: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1b30: 6c 74 20 64 31 36 34 33 30 36 63 39 39 65 33 37  lt d164306c99e37
1b40: 39 38 37 39 30 66 30 39 32 33 66 65 39 32 64 62  98790f0923fe92db
1b50: 66 32 66 39 36 63 33 39 30 37 31 32 37 64 61 63  f2f96c3907127dac
1b60: 61 61 34 36 37 63 37 36 36 61 63 37 35 37 38 38  aa467c766ac75788
1b70: 30 36 32 35 38 39 32 37 32 63 62 37 36 39 30 62  062589272cb7690b
1b80: 38 61 66 32 30 33 30 64 64 38 62 64 36 31 61 33  8af2030dd8bd61a3
1b90: 64 66 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  df2..tcltest::te
1ba0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
1bb0: 2d 32 2e 32 33 20 7b 53 48 41 33 5f 33 38 34 53  -2.23 {SHA3_384S
1bc0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1bd0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
1be0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1bf0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1c00: 63 6f 64 65 20 68 65 78 20 32 36 63 62 34 30 61  code hex 26cb40a
1c10: 34 36 30 65 32 65 37 32 37 61 65 62 38 36 37 65  460e2e727aeb867e
1c20: 30 31 34 30 64 30 66 33 34 37 39 30 31 31 30 64  0140d0f34790110d
1c30: 65 62 35 64 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79  eb5d7]} \..-body
1c40: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
1c50: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
1c60: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
1c70: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1c80: 75 6c 74 20 61 66 32 61 34 32 61 34 63 36 37 63  ult af2a42a4c67c
1c90: 33 32 32 36 63 35 35 62 38 39 36 30 35 62 30 64  3226c55b89605b0d
1ca0: 65 65 32 37 65 37 39 36 63 32 37 39 32 31 31 35  ee27e796c2792115
1cb0: 66 36 30 39 37 32 30 33 64 62 35 61 65 64 38 39  f6097203db5aed89
1cc0: 65 33 35 66 35 36 33 61 38 32 34 36 64 33 39 39  e35f563a8246d399
1cd0: 66 64 65 30 30 63 32 61 35 62 39 37 65 64 35 61  fde00c2a5b97ed5a
1ce0: 35 65 31 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  5e17..tcltest::t
1cf0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
1d00: 34 2d 32 2e 32 34 20 7b 53 48 41 33 5f 33 38 34  4-2.24 {SHA3_384
1d10: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1d20: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
1d30: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
1d40: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
1d50: 65 63 6f 64 65 20 68 65 78 20 36 36 39 30 61 33  ecode hex 6690a3
1d60: 61 30 33 37 33 63 38 32 39 66 61 63 63 35 36 66  a0373c829facc56f
1d70: 38 32 34 33 38 32 66 34 66 65 65 64 36 65 62 31  824382f4feed6eb1
1d80: 38 34 36 34 32 62 34 66 5d 7d 20 5c 0a 09 2d 62  84642b4f]} \..-b
1d90: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1da0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
1db0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
1dc0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
1dd0: 72 65 73 75 6c 74 20 38 34 65 31 62 36 38 62 63  result 84e1b68bc
1de0: 39 65 32 64 61 65 66 63 31 39 62 35 36 37 64 65  9e2daefc19b567de
1df0: 63 39 31 31 65 66 34 36 66 35 66 33 37 61 37 34  c911ef46f5f37a74
1e00: 66 64 62 62 62 36 31 35 35 65 37 65 36 34 36 66  fdbbb6155e7e646f
1e10: 32 37 33 35 64 66 32 61 63 34 34 65 32 33 39 36  2735df2ac44e2396
1e20: 38 39 65 62 35 62 35 33 36 34 36 35 64 63 35 37  89eb5b536465dc57
1e30: 31 65 35 35 63 62 32 0a 0a 74 63 6c 74 65 73 74  1e55cb2..tcltest
1e40: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
1e50: 2d 33 38 34 2d 32 2e 32 35 20 7b 53 48 41 33 5f  -384-2.25 {SHA3_
1e60: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
1e70: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1e80: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
1e90: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1ea0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 64 38  y decode hex 7d8
1eb0: 30 62 31 36 30 63 34 62 35 33 36 61 33 62 65 62  0b160c4b536a3beb
1ec0: 37 39 39 38 30 35 39 39 33 34 34 30 34 37 63 35  79980599344047c5
1ed0: 66 38 32 61 31 64 66 63 33 65 65 64 34 5d 7d 20  f82a1dfc3eed4]} 
1ee0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
1ef0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
1f00: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
1f10: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1f20: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 34 31 63  act -result 041c
1f30: 63 35 38 36 31 62 61 33 33 34 35 36 33 63 36 31  c5861ba334563c61
1f40: 64 34 65 66 39 37 31 30 64 34 38 39 36 63 33 31  d4ef9710d4896c31
1f50: 31 63 39 32 65 64 62 65 30 64 37 63 64 35 33 65  1c92edbe0d7cd53e
1f60: 38 30 33 62 66 32 66 34 65 62 36 30 35 37 32 33  803bf2f4eb605723
1f70: 35 35 37 30 37 37 30 63 65 38 37 63 35 35 32 30  5570770ce87c5520
1f80: 64 37 65 63 31 34 31 39 38 37 32 32 0a 0a 74 63  d7ec14198722..tc
1f90: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1fa0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32 36 20 7b  _SHA3-384-2.26 {
1fb0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
1fc0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1fd0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
1fe0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
1ff0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2000: 78 20 30 32 31 32 38 32 38 33 66 66 63 30 63 66  x 02128283ffc0cf
2010: 65 32 35 34 61 63 38 66 35 34 32 62 65 33 66 30  e254ac8f542be3f0
2020: 35 66 62 65 34 65 38 35 35 64 64 32 32 61 65 39  5fbe4e855dd22ae9
2030: 38 61 38 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8a81]} \..-body 
2040: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2050: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
2060: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2070: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2080: 6c 74 20 33 38 34 30 39 38 31 61 37 36 36 64 37  lt 3840981a766d7
2090: 32 35 66 38 33 64 33 33 34 65 38 39 38 32 39 36  25f83d334e898296
20a0: 35 30 33 33 61 35 66 62 62 35 31 30 37 64 39 34  5033a5fbb5107d94
20b0: 66 66 65 66 33 33 62 31 66 37 30 30 63 64 34 36  ffef33b1f700cd46
20c0: 33 34 38 30 39 31 61 34 39 66 36 36 32 30 63 33  348091a49f6620c3
20d0: 37 61 65 33 65 66 35 62 32 30 35 31 33 34 39 34  7ae3ef5b20513494
20e0: 38 32 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  826..tcltest::te
20f0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
2100: 2d 32 2e 32 37 20 7b 53 48 41 33 5f 33 38 34 53  -2.27 {SHA3_384S
2110: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2120: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
2130: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2140: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2150: 63 6f 64 65 20 68 65 78 20 32 37 39 31 31 64 64  code hex 27911dd
2160: 30 61 36 38 34 33 63 63 61 65 39 36 35 64 38 37  0a6843ccae965d87
2170: 36 61 61 31 39 31 36 66 31 64 63 64 37 31 65 35  6aa1916f1dcd71e5
2180: 31 38 66 37 66 32 31 39 37 31 35 32 65 5d 7d 20  18f7f2197152e]} 
2190: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
21a0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
21b0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
21c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
21d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 66 35 39 66  act -result f59f
21e0: 38 34 32 38 35 35 35 39 38 34 64 31 35 32 36 63  8428555984d1526c
21f0: 64 65 64 38 31 32 39 63 36 34 39 66 62 31 62 36  ded8129c649fb1b6
2200: 38 33 64 33 35 63 65 63 37 63 35 65 31 32 30 39  83d35cec7c5e1209
2210: 34 34 31 61 36 61 39 65 37 63 31 37 66 30 37 38  441a6a9e7c17f078
2220: 34 31 35 31 62 35 61 62 38 61 38 63 34 39 32 62  4151b5ab8a8c492b
2230: 34 30 32 61 33 61 63 62 39 38 63 34 0a 0a 74 63  402a3acb98c4..tc
2240: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2250: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32 38 20 7b  _SHA3-384-2.28 {
2260: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
2270: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2280: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
2290: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
22a0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
22b0: 78 20 64 39 33 37 38 62 62 36 36 65 38 63 38 64  x d9378bb66e8c8d
22c0: 65 65 35 35 36 64 36 39 31 63 62 63 39 66 64 64  ee556d691cbc9fdd
22d0: 64 64 36 33 33 33 63 61 35 64 35 30 36 36 38 38  dd6333ca5d506688
22e0: 36 32 63 33 63 35 37 64 5d 7d 20 5c 0a 09 2d 62  62c3c57d]} \..-b
22f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2300: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
2310: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
2320: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
2330: 72 65 73 75 6c 74 20 39 39 34 35 33 32 64 31 61  result 994532d1a
2340: 35 35 37 65 39 39 30 62 31 63 63 39 65 30 33 39  557e990b1cc9e039
2350: 35 61 32 61 64 38 62 30 35 36 31 39 63 61 33 32  5a2ad8b05619ca32
2360: 32 64 62 39 64 61 33 63 34 65 64 32 65 65 31 39  2db9da3c4ed2ee19
2370: 34 63 30 35 31 64 30 34 35 38 32 66 64 65 37 32  4c051d04582fde72
2380: 64 64 32 62 38 66 36 37 34 63 66 36 65 63 39 35  dd2b8f674cf6ec95
2390: 38 64 62 37 35 64 61 0a 0a 74 63 6c 74 65 73 74  8db75da..tcltest
23a0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
23b0: 2d 33 38 34 2d 32 2e 32 39 20 7b 53 48 41 33 5f  -384-2.29 {SHA3_
23c0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
23d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
23e0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
23f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2400: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 65 31  y decode hex ae1
2410: 38 32 38 30 34 37 63 35 66 38 32 61 37 62 39 37  828047c5f82a7b97
2420: 31 32 66 33 33 39 39 38 33 32 31 32 34 62 38 39  12f3399832124b89
2430: 32 66 32 66 37 61 65 61 35 31 63 38 66 65 33 35  2f2f7aea51c8fe35
2440: 33 36 63 64 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  36cd6]} \..-body
2450: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2460: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
2470: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2480: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2490: 75 6c 74 20 64 35 31 31 31 31 66 38 62 66 66 62  ult d51111f8bffb
24a0: 34 34 64 38 31 61 64 31 39 36 38 33 31 39 38 66  44d81ad19683198f
24b0: 32 39 64 32 30 33 33 31 34 34 64 33 63 64 38 35  29d2033144d3cd85
24c0: 36 63 37 34 39 63 61 63 35 62 39 63 61 65 30 65  6c749cac5b9cae0e
24d0: 37 31 32 66 35 30 30 66 38 64 30 65 66 38 31 33  712f500f8d0ef813
24e0: 66 33 38 65 33 30 35 63 65 31 37 35 61 37 64 36  f38e305ce175a7d6
24f0: 31 36 32 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  162c..tcltest::t
2500: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
2510: 34 2d 32 2e 33 30 20 7b 53 48 41 33 5f 33 38 34  4-2.30 {SHA3_384
2520: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2530: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
2540: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
2550: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2560: 65 63 6f 64 65 20 68 65 78 20 37 64 64 32 64 37  ecode hex 7dd2d7
2570: 36 66 61 30 35 34 63 66 34 36 31 65 31 33 32 65  6fa054cf461e132e
2580: 39 65 66 39 31 34 61 63 64 63 35 33 30 38 30 61  9ef914acdc53080a
2590: 35 30 38 63 64 63 35 33 36 38 61 62 38 63 36 32  508cdc5368ab8c62
25a0: 32 34 66 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  24ff]} \..-body 
25b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
25c0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
25d0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
25e0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
25f0: 6c 74 20 36 63 30 62 33 33 39 35 65 34 63 38 36  lt 6c0b3395e4c86
2600: 35 31 38 61 62 30 61 30 36 32 36 37 33 32 30 65  518ab0a06267320e
2610: 65 39 65 63 39 35 65 35 30 33 38 35 62 37 61 32  e9ec95e50385b7a2
2620: 35 32 37 64 64 61 61 31 62 64 30 65 61 64 32 36  527ddaa1bd0ead26
2630: 32 63 35 36 31 32 32 64 34 66 34 65 62 30 38 62  2c56122d4f4eb08b
2640: 30 61 65 32 32 62 33 65 65 37 65 36 66 34 34 64  0ae22b3ee7e6f44d
2650: 64 31 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  d18..tcltest::te
2660: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
2670: 2d 32 2e 33 31 20 7b 53 48 41 33 5f 33 38 34 53  -2.31 {SHA3_384S
2680: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2690: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
26a0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
26b0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
26c0: 63 6f 64 65 20 68 65 78 20 36 66 64 37 32 38 38  code hex 6fd7288
26d0: 38 61 30 32 31 66 33 36 65 35 35 30 39 36 37 63  8a021f36e550967c
26e0: 62 35 36 30 35 62 35 35 62 37 38 36 35 37 63 39  b5605b55b78657c9
26f0: 32 37 32 64 39 33 63 33 64 65 64 33 34 30 64 36  272d93c3ded340d6
2700: 37 64 61 36 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  7da6f]} \..-body
2710: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2720: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
2730: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2740: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2750: 75 6c 74 20 30 35 35 31 35 38 33 61 35 62 34 30  ult 0551583a5b40
2760: 30 37 34 30 31 63 37 37 65 66 34 33 38 32 66 64  07401c77ef4382fd
2770: 38 65 32 34 35 63 39 63 66 31 32 65 39 37 36 63  8e245c9cf12e976c
2780: 39 37 36 36 61 66 36 62 37 61 65 33 63 37 65 30  9766af6b7ae3c7e0
2790: 37 61 38 32 62 33 30 37 39 66 39 30 33 62 30 38  7a82b3079f903b08
27a0: 33 64 35 65 63 38 35 63 62 39 34 65 34 36 61 38  3d5ec85cb94e46a8
27b0: 35 61 63 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  5ac0..tcltest::t
27c0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
27d0: 34 2d 32 2e 33 32 20 7b 53 48 41 33 5f 33 38 34  4-2.32 {SHA3_384
27e0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
27f0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
2800: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
2810: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
2820: 65 63 6f 64 65 20 68 65 78 20 64 35 30 30 65 62  ecode hex d500eb
2830: 39 35 34 36 35 35 33 36 31 39 63 64 63 33 31 65  9546553619cdc31e
2840: 30 38 34 38 63 35 30 32 64 62 39 32 64 35 34 37  0848c502db92d547
2850: 65 66 65 66 33 61 65 35 65 65 61 61 32 32 32 35  efef3ae5eeaa2225
2860: 38 61 66 63 66 30 61 39 5d 7d 20 5c 0a 09 2d 62  8afcf0a9]} \..-b
2870: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2880: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
2890: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
28a0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
28b0: 72 65 73 75 6c 74 20 35 65 64 64 65 32 66 39 34  result 5edde2f94
28c0: 66 38 36 39 35 66 32 37 37 65 63 30 35 65 66 63  f8695f277ec05efc
28d0: 63 30 30 37 36 31 66 61 66 64 32 37 32 32 30 30  c00761fafd272200
28e0: 61 65 64 30 65 36 33 64 32 32 31 63 32 62 36 63  aed0e63d221c2b6c
28f0: 36 35 62 34 39 37 32 61 36 35 32 36 66 39 61 31  65b4972a6526f9a1
2900: 66 32 65 36 61 63 65 30 65 38 31 39 33 38 66 30  f2e6ace0e81938f0
2910: 34 33 66 65 38 37 37 0a 0a 74 63 6c 74 65 73 74  43fe877..tcltest
2920: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2930: 2d 33 38 34 2d 32 2e 33 33 20 7b 53 48 41 33 5f  -384-2.33 {SHA3_
2940: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
2950: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2960: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-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 36 31 38  y decode hex 618
2990: 39 35 39 37 65 30 31 39 38 61 31 38 63 36 35 66  9597e0198a18c65f
29a0: 61 30 62 64 64 30 37 39 37 66 31 33 30 33 37 63  a0bdd0797f13037c
29b0: 37 35 63 34 30 35 38 62 37 64 33 34 35 34 63 30  75c4058b7d3454c0
29c0: 66 37 31 62 64 32 64 64 31 33 62 36 63 5d 7d 20  f71bd2dd13b6c]} 
29d0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
29e0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
29f0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
2a00: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2a10: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 31 30 36  act -result 1106
2a20: 33 30 63 61 37 36 33 31 62 37 36 32 30 65 36 62  30ca7631b7620e6b
2a30: 65 65 36 65 64 36 65 39 32 39 30 39 38 39 36 35  ee6ed6e929098965
2a40: 35 37 31 39 33 36 63 33 34 38 32 39 34 38 34 39  571936c348294849
2a50: 38 33 65 62 61 39 35 33 32 62 38 31 37 35 35 32  83eba9532b817552
2a60: 38 63 32 32 38 63 35 37 34 33 39 34 35 33 66 30  8c228c57439453f0
2a70: 32 37 61 34 66 37 63 38 33 63 61 33 0a 0a 74 63  27a4f7c83ca3..tc
2a80: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2a90: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33 34 20 7b  _SHA3-384-2.34 {
2aa0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
2ab0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2ac0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
2ad0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2ae0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2af0: 78 20 32 34 33 62 39 34 31 64 37 34 38 35 34 31  x 243b941d748541
2b00: 61 66 33 30 33 66 38 65 39 64 32 63 33 37 31 63  af303f8e9d2c371c
2b10: 64 30 33 65 34 33 37 64 36 32 61 39 64 66 34 38  d03e437d62a9df48
2b20: 35 64 64 63 31 37 36 64 63 36 35 64 61 38 63 37  5ddc176dc65da8c7
2b30: 64 61 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  da00]} \..-body 
2b40: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2b50: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
2b60: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2b70: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2b80: 6c 74 20 35 38 38 34 32 30 31 66 37 61 35 35 35  lt 5884201f7a555
2b90: 65 61 33 63 35 64 65 65 62 30 31 39 66 64 39 65  ea3c5deeb019fd9e
2ba0: 38 63 31 36 31 65 31 62 38 39 37 35 36 30 34 35  8c161e1b89756045
2bb0: 65 34 37 35 62 31 34 31 65 63 35 31 33 35 63 65  e475b141ec5135ce
2bc0: 35 61 34 31 63 39 33 65 35 65 31 66 37 39 35 33  5a41c93e5e1f7953
2bd0: 34 64 33 36 66 64 38 33 34 35 62 61 34 33 34 64  4d36fd8345ba434d
2be0: 61 34 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  a43..tcltest::te
2bf0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
2c00: 2d 32 2e 33 35 20 7b 53 48 41 33 5f 33 38 34 53  -2.35 {SHA3_384S
2c10: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2c20: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
2c30: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2c40: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2c50: 63 6f 64 65 20 68 65 78 20 32 64 63 33 64 37 38  code hex 2dc3d78
2c60: 39 35 38 32 63 31 61 38 30 36 63 33 62 34 39 31  9582c1a806c3b491
2c70: 64 35 39 37 32 65 66 38 66 31 37 33 33 66 31 66  d5972ef8f1733f1f
2c80: 35 65 30 32 38 36 36 64 63 39 64 65 32 61 38 30  5e02866dc9de2a80
2c90: 32 39 65 63 30 61 62 36 30 38 64 31 33 5d 7d 20  29ec0ab608d13]} 
2ca0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
2cb0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
2cc0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
2cd0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2ce0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 35 61 33  act -result 05a3
2cf0: 39 30 33 62 35 31 39 63 64 66 36 37 39 31 32 30  903b519cdf679120
2d00: 63 37 63 63 62 34 65 66 31 37 38 62 35 38 65 34  c7ccb4ef178b58e4
2d10: 35 30 32 66 63 64 34 36 31 33 36 30 39 38 38 66  502fcd461360988f
2d20: 61 30 36 36 36 39 32 39 34 38 35 31 65 36 32 39  a06669294851e629
2d30: 64 39 64 64 33 65 37 37 66 66 62 37 33 64 32 34  d9dd3e77ffb73d24
2d40: 35 39 39 64 35 64 33 65 64 64 33 36 0a 0a 74 63  599d5d3edd36..tc
2d50: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2d60: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33 36 20 7b  _SHA3-384-2.36 {
2d70: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
2d80: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2d90: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
2da0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
2db0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
2dc0: 78 20 65 35 62 33 66 36 39 36 32 66 65 35 37 32  x e5b3f6962fe572
2dd0: 33 30 37 38 30 62 33 64 35 35 62 32 39 65 66 66  30780b3d55b29eff
2de0: 65 30 64 66 65 62 64 65 32 63 38 31 62 61 39 37  e0dfebde2c81ba97
2df0: 64 34 35 31 32 65 63 64 62 64 33 33 65 63 61 31  d4512ecdbd33eca1
2e00: 35 37 36 61 37 66 38 32 5d 7d 20 5c 0a 09 2d 62  576a7f82]} \..-b
2e10: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2e20: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
2e30: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
2e40: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
2e50: 72 65 73 75 6c 74 20 37 61 63 32 37 37 36 61 66  result 7ac2776af
2e60: 62 37 34 66 35 35 62 62 63 34 66 36 65 63 63 66  b74f55bbc4f6eccf
2e70: 38 32 35 65 65 31 33 61 63 37 34 34 35 66 62 35  825ee13ac7445fb5
2e80: 34 39 37 34 65 36 63 32 34 65 62 63 30 66 30 33  4974e6c24ebc0f03
2e90: 66 64 63 64 38 35 33 30 31 39 39 61 36 31 31 30  fdcd8530199a6110
2ea0: 36 61 33 31 62 34 32 37 39 65 30 32 32 30 31 65  6a31b4279e02201e
2eb0: 65 30 66 35 34 66 64 0a 0a 74 63 6c 74 65 73 74  e0f54fd..tcltest
2ec0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2ed0: 2d 33 38 34 2d 32 2e 33 37 20 7b 53 48 41 33 5f  -384-2.37 {SHA3_
2ee0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
2ef0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2f00: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
2f10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2f20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 61 30  y decode hex da0
2f30: 33 34 38 36 61 61 33 63 65 62 62 64 36 35 30 32  3486aa3cebbd6502
2f40: 65 39 66 35 61 36 66 30 66 38 33 35 65 39 37 33  e9f5a6f0f835e973
2f50: 61 35 38 31 62 65 66 63 63 31 61 61 64 65 66 65  a581befcc1aadefe
2f60: 37 62 33 36 39 36 62 61 37 31 63 37 30 63 64 35  7b3696ba71c70cd5
2f70: 38 63 35 38 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  8c584]} \..-body
2f80: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
2f90: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
2fa0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2fb0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2fc0: 75 6c 74 20 30 32 63 34 34 63 65 65 63 30 62 62  ult 02c44ceec0bb
2fd0: 37 64 63 30 66 36 36 34 65 62 65 34 34 32 33 30  7dc0f664ebe44230
2fe0: 31 39 32 62 35 62 30 62 62 36 34 36 62 62 39 34  192b5b0bb646bb94
2ff0: 34 64 32 33 66 61 31 66 66 33 35 38 36 64 63 30  4d23fa1ff3586dc0
3000: 35 32 33 66 61 39 64 37 66 30 64 64 36 64 66 35  523fa9d7f0dd6df5
3010: 34 34 39 61 62 39 65 64 64 39 61 31 30 39 36 62  449ab9edd9a1096b
3020: 30 37 64 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  07dc..tcltest::t
3030: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
3040: 34 2d 32 2e 33 38 20 7b 53 48 41 33 5f 33 38 34  4-2.38 {SHA3_384
3050: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3060: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
3070: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
3080: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3090: 65 63 6f 64 65 20 68 65 78 20 33 63 36 38 36 64  ecode hex 3c686d
30a0: 33 32 31 62 61 36 36 31 38 35 63 64 63 61 38 33  321ba66185cdca83
30b0: 62 61 39 66 34 31 39 38 34 66 61 36 31 62 38 32  ba9f41984fa61b82
30c0: 36 65 66 35 36 62 31 33 36 65 31 33 66 31 32 33  6ef56b136e13f123
30d0: 39 64 61 64 66 36 65 30 33 64 38 37 37 38 36 36  9dadf6e03d877866
30e0: 63 63 62 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ccb8]} \..-body 
30f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3100: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
3110: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3120: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
3130: 6c 74 20 61 64 36 32 34 65 64 64 39 66 32 63 33  lt ad624edd9f2c3
3140: 61 33 32 62 35 36 63 35 33 64 39 65 38 31 33 63  a32b56c53d9e813c
3150: 30 31 64 36 36 62 63 66 65 34 32 34 63 34 61 39  01d66bcfe424c4a9
3160: 36 39 30 37 64 35 32 61 63 31 64 64 64 36 38 33  6907d52ac1ddd683
3170: 37 30 65 63 38 36 64 61 63 36 37 35 30 34 61 39  70ec86dac67504a9
3180: 30 65 38 61 38 65 37 35 35 30 32 65 30 31 30 38  0e8a8e75502e0108
3190: 31 64 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  1d2..tcltest::te
31a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
31b0: 2d 32 2e 33 39 20 7b 53 48 41 33 5f 33 38 34 53  -2.39 {SHA3_384S
31c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
31d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
31e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
31f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3200: 63 6f 64 65 20 68 65 78 20 34 64 63 66 66 39 39  code hex 4dcff99
3210: 66 61 63 33 33 38 34 30 66 36 35 33 32 35 34 37  fac33840f6532547
3220: 66 62 36 39 62 34 35 36 39 30 32 64 36 37 31 38  fb69b456902d6718
3230: 66 64 35 64 34 35 33 38 65 32 33 34 36 32 64 62  fd5d4538e23462db
3240: 36 64 30 30 64 61 36 31 39 37 35 66 32 62 38 65  6d00da61975f2b8e
3250: 32 36 32 39 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  26298]} \..-body
3260: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3270: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
3280: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3290: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
32a0: 75 6c 74 20 63 66 33 37 64 64 32 37 39 39 37 63  ult cf37dd27997c
32b0: 31 62 62 37 65 36 64 63 34 30 35 31 37 30 30 36  1bb7e6dc40517006
32c0: 36 65 37 34 63 36 63 65 35 31 37 63 30 32 39 65  6e74c6ce517c029e
32d0: 64 38 64 63 65 31 32 36 64 30 32 35 64 61 37 34  d8dce126d025da74
32e0: 65 30 62 38 65 38 36 64 61 35 36 37 65 38 64 37  e0b8e86da567e8d7
32f0: 64 38 64 35 62 35 64 33 65 32 61 35 34 36 64 66  d8d5b5d3e2a546df
3300: 37 34 38 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  7489..tcltest::t
3310: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
3320: 34 2d 32 2e 34 30 20 7b 53 48 41 33 5f 33 38 34  4-2.40 {SHA3_384
3330: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3340: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
3350: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
3360: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3370: 65 63 6f 64 65 20 68 65 78 20 32 37 39 39 66 36  ecode hex 2799f6
3380: 37 32 33 32 38 38 33 34 64 37 65 61 65 66 39 34  72328834d7eaef94
3390: 33 39 37 39 35 64 33 35 63 65 39 33 63 39 30 39  39795d35ce93c909
33a0: 34 66 35 38 64 65 64 39 66 31 37 63 39 36 38 61  4f58ded9f17c968a
33b0: 39 37 61 35 30 61 39 65 34 36 31 34 38 39 66 65  97a50a9e461489fe
33c0: 64 39 38 38 65 37 66 36 5d 7d 20 5c 0a 09 2d 62  d988e7f6]} \..-b
33d0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
33e0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
33f0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
3400: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
3410: 72 65 73 75 6c 74 20 38 35 63 66 63 32 33 63 39  result 85cfc23c9
3420: 37 63 62 31 33 39 31 30 62 38 30 38 65 37 30 33  7cb13910b808e703
3430: 33 38 30 39 61 34 35 61 61 30 62 37 66 37 31 33  3809a45aa0b7f713
3440: 38 64 65 36 31 38 63 32 63 61 36 32 32 63 38 62  8de618c2ca622c8b
3450: 38 31 33 63 39 38 38 65 32 36 34 61 66 33 62 39  813c988e264af3b9
3460: 36 63 37 39 32 35 64 63 62 64 31 64 32 37 36 31  6c7925dcbd1d2761
3470: 37 35 37 64 38 30 30 0a 0a 74 63 6c 74 65 73 74  757d800..tcltest
3480: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
3490: 2d 33 38 34 2d 32 2e 34 31 20 7b 53 48 41 33 5f  -384-2.41 {SHA3_
34a0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
34b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
34c0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
34d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
34e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 37 65  y decode hex c7e
34f0: 39 34 37 35 30 37 38 32 32 66 32 38 61 35 36 32  947507822f28a562
3500: 37 34 35 61 38 66 65 36 66 65 64 36 63 62 34 37  745a8fe6fed6cb47
3510: 64 37 33 31 34 35 38 30 34 63 38 39 34 39 35 34  d73145804c894954
3520: 65 32 31 32 34 35 63 64 65 30 34 66 61 39 31 35  e21245cde04fa915
3530: 35 61 33 35 39 30 34 39 32 36 61 63 61 5d 7d 20  5a35904926aca]} 
3540: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
3550: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
3560: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
3570: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3580: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 62 64 64  act -result 8bdd
3590: 66 33 62 61 65 62 62 63 35 62 30 34 66 65 30 62  f3baebbc5b04fe0b
35a0: 30 61 39 63 33 63 32 62 37 33 30 61 62 65 39 31  0a9c3c2b730abe91
35b0: 38 63 65 34 38 39 32 64 32 38 34 33 63 36 31 33  8ce4892d2843c613
35c0: 65 65 39 36 64 61 30 32 32 38 35 31 32 66 30 64  ee96da0228512f0d
35d0: 31 33 30 37 63 37 64 31 61 38 39 32 32 65 37 39  1307c7d1a8922e79
35e0: 61 39 32 65 39 35 37 64 64 31 38 65 0a 0a 74 63  a92e957dd18e..tc
35f0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
3600: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34 32 20 7b  _SHA3-384-2.42 {
3610: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
3620: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
3630: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
3640: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
3650: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
3660: 78 20 36 63 34 39 37 62 66 36 66 66 36 39 63 62  x 6c497bf6ff69cb
3670: 33 39 65 33 66 61 61 33 34 39 32 31 32 62 38 62  39e3faa349212b8b
3680: 36 36 39 31 63 61 32 33 37 39 30 35 61 63 30 30  6691ca237905ac00
3690: 39 39 63 34 35 30 62 36 64 33 33 61 62 66 33 36  99c450b6d33abf36
36a0: 32 62 65 64 62 36 35 62 64 65 62 33 30 37 62 66  2bedb65bdeb307bf
36b0: 65 61 32 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ea23]} \..-body 
36c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
36d0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
36e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
36f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
3700: 6c 74 20 33 36 33 39 66 61 62 36 31 39 31 62 33  lt 3639fab6191b3
3710: 35 32 34 36 32 37 38 35 32 32 63 66 61 63 65 65  5246278522cfacee
3720: 30 63 64 35 62 31 35 35 38 30 61 32 36 63 35 30  0cd5b15580a26c50
3730: 35 61 65 33 63 34 36 62 34 62 31 63 32 35 37 32  5ae3c46b4b1c2572
3740: 30 31 36 62 34 38 66 31 62 30 31 32 62 62 62 65  016b48f1b012bbbe
3750: 64 65 63 34 37 39 31 36 39 35 30 66 62 62 33 33  dec47916950fbb33
3760: 61 31 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  a1d..tcltest::te
3770: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
3780: 2d 32 2e 34 33 20 7b 53 48 41 33 5f 33 38 34 53  -2.43 {SHA3_384S
3790: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
37a0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
37b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
37c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
37d0: 63 6f 64 65 20 68 65 78 20 64 31 35 39 33 36 66  code hex d15936f
37e0: 33 62 30 63 39 30 31 38 32 37 31 38 31 32 62 34  3b0c9018271812b4
37f0: 63 38 31 34 35 33 63 34 34 35 37 63 37 65 64 64  c81453c4457c7edd
3800: 31 31 30 62 63 65 61 37 66 35 37 33 35 64 36 66  110bcea7f5735d6f
3810: 35 38 38 32 64 38 66 32 37 31 35 35 65 62 34 63  5882d8f27155eb4c
3820: 63 32 38 35 61 36 35 31 33 38 61 64 36 5d 7d 20  c285a65138ad6]} 
3830: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
3840: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
3850: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
3860: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3870: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 32 39 33  act -result 0293
3880: 65 65 65 66 30 61 61 33 33 39 32 63 39 33 64 39  eeef0aa3392c93d9
3890: 63 36 63 61 38 39 63 30 38 62 33 31 37 36 32 32  c6ca89c08b317622
38a0: 35 37 32 64 34 64 65 32 32 38 36 61 34 62 39 61  572d4de2286a4b9a
38b0: 65 36 63 32 66 39 63 39 65 30 65 36 34 65 65 36  e6c2f9c9e0e64ee6
38c0: 63 34 38 33 64 34 66 31 30 38 35 39 30 37 37 65  c483d4f10859077e
38d0: 33 63 36 38 36 38 34 33 30 32 31 34 0a 0a 74 63  3c6868430214..tc
38e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
38f0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34 34 20 7b  _SHA3-384-2.44 {
3900: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
3910: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
3920: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
3930: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
3940: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
3950: 78 20 64 66 31 38 31 33 39 66 33 34 62 38 39 30  x df18139f34b890
3960: 34 65 66 30 36 38 31 63 31 62 37 61 33 63 38 36  4ef0681c1b7a3c86
3970: 36 35 33 65 34 34 62 32 35 33 35 64 36 63 65 63  653e44b2535d6cec
3980: 64 31 61 32 61 31 37 63 64 35 62 39 33 35 37 62  d1a2a17cd5b9357b
3990: 65 37 39 62 38 35 65 35 65 30 34 64 64 39 65 66  e79b85e5e04dd9ef
39a0: 66 32 63 61 38 62 39 61 5d 7d 20 5c 0a 09 2d 62  f2ca8b9a]} \..-b
39b0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
39c0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
39d0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
39e0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
39f0: 72 65 73 75 6c 74 20 64 62 39 65 31 37 31 64 36  result db9e171d6
3a00: 65 33 33 33 36 36 33 31 63 39 63 65 65 63 36 62  e3336631c9ceec6b
3a10: 34 64 37 33 32 63 65 36 32 62 30 31 35 39 33 39  4d732ce62b015939
3a20: 32 36 39 66 62 36 39 66 61 65 37 64 32 32 37 32  269fb69fae7d2272
3a30: 35 35 30 30 65 38 61 32 66 63 39 66 31 34 35 39  5500e8a2fc9f1459
3a40: 63 66 30 61 33 31 66 62 39 64 31 36 64 37 63 34  cf0a31fb9d16d7c4
3a50: 34 35 38 33 66 35 32 0a 0a 74 63 6c 74 65 73 74  4583f52..tcltest
3a60: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
3a70: 2d 33 38 34 2d 32 2e 34 35 20 7b 53 48 41 33 5f  -384-2.45 {SHA3_
3a80: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
3a90: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
3aa0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
3ab0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3ac0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 34 35  y decode hex 045
3ad0: 39 64 63 62 63 31 34 39 33 33 33 65 61 32 66 39  9dcbc149333ea2f9
3ae0: 33 37 62 37 37 39 61 35 66 33 37 32 38 31 34 38  37b779a5f3728148
3af0: 34 34 39 61 39 61 65 61 33 36 36 32 63 64 64 32  449a9aea3662cdd2
3b00: 63 63 36 35 33 63 65 36 61 32 30 35 30 66 39 63  cc653ce6a2050f9c
3b10: 30 64 35 34 62 66 39 33 32 36 63 30 33 39 62 32  0d54bf9326c039b2
3b20: 36 33 65 62 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79  63eb9]} \..-body
3b30: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3b40: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
3b50: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3b60: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3b70: 75 6c 74 20 34 36 34 62 61 34 30 39 66 62 62 34  ult 464ba409fbb4
3b80: 35 65 39 38 35 66 38 34 65 65 32 34 36 36 32 65  5e985f84ee24662e
3b90: 62 37 63 30 34 32 63 33 63 32 61 64 39 36 34 39  b7c042c3c2ad9649
3ba0: 66 31 61 63 34 61 38 62 32 62 65 39 63 30 37 64  f1ac4a8b2be9c07d
3bb0: 33 37 65 64 32 65 34 32 38 34 33 36 32 30 35 37  37ed2e4284362057
3bc0: 34 39 33 66 36 61 37 65 35 32 63 33 35 36 62 30  493f6a7e52c356b0
3bd0: 35 62 63 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  5bc5..tcltest::t
3be0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
3bf0: 34 2d 32 2e 34 36 20 7b 53 48 41 33 5f 33 38 34  4-2.46 {SHA3_384
3c00: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3c10: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
3c20: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
3c30: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3c40: 65 63 6f 64 65 20 68 65 78 20 65 62 33 66 37 30  ecode hex eb3f70
3c50: 30 32 63 38 33 35 32 32 37 30 33 34 30 62 38 64  02c8352270340b8d
3c60: 61 38 36 34 33 36 32 32 65 35 66 37 65 33 32 63  a8643622e5f7e32c
3c70: 64 62 32 30 38 61 30 64 65 63 30 36 63 36 63 62  db208a0dec06c6cb
3c80: 39 65 36 62 36 34 63 63 34 64 38 63 62 39 64 65  9e6b64cc4d8cb9de
3c90: 31 64 34 39 33 39 37 62 33 33 38 36 34 36 34 61  1d49397b3386464a
3ca0: 32 35 64 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  25d1]} \..-body 
3cb0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3cc0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
3cd0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3ce0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
3cf0: 6c 74 20 61 32 36 62 64 37 36 63 65 34 32 64 38  lt a26bd76ce42d8
3d00: 31 38 64 62 65 63 34 36 32 64 38 66 65 37 63 64  18dbec462d8fe7cd
3d10: 64 39 35 37 65 36 62 38 34 61 65 38 37 35 30 66  d957e6b84ae8750f
3d20: 62 35 65 31 63 39 63 37 36 62 63 36 30 30 30 65  b5e1c9c76bc6000e
3d30: 32 33 37 33 37 65 30 37 33 61 35 39 62 34 36 30  23737e073a59b460
3d40: 30 65 35 30 35 36 35 32 34 65 64 63 36 36 37 39  0e5056524edc6679
3d50: 30 39 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  09d..tcltest::te
3d60: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
3d70: 2d 32 2e 34 37 20 7b 53 48 41 33 5f 33 38 34 53  -2.47 {SHA3_384S
3d80: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3d90: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
3da0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3db0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3dc0: 63 6f 64 65 20 68 65 78 20 34 37 65 33 65 33 64  code hex 47e3e3d
3dd0: 38 63 36 38 61 63 39 64 39 66 34 62 33 37 35 39  8c68ac9d9f4b3759
3de0: 64 38 63 37 64 39 64 64 39 30 31 65 33 35 62 30  d8c7d9dd901e35b0
3df0: 39 36 65 65 34 63 38 62 36 63 62 65 30 63 64 66  96ee4c8b6cbe0cdf
3e00: 34 36 37 34 36 33 36 33 30 39 32 36 63 30 38 32  467463630926c082
3e10: 38 39 61 62 65 31 35 33 62 66 61 31 62 63 64 65  89abe153bfa1bcde
3e20: 33 63 64 37 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79  3cd7c]} \..-body
3e30: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
3e40: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
3e50: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3e60: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3e70: 75 6c 74 20 62 35 30 34 65 66 34 37 35 61 35 36  ult b504ef475a56
3e80: 38 66 39 63 61 62 61 38 33 35 32 61 30 62 32 64  8f9caba8352a0b2d
3e90: 32 34 33 61 63 64 66 33 64 32 62 34 31 64 38 38  243acdf3d2b41d88
3ea0: 39 30 61 36 66 62 33 61 62 62 38 61 61 32 38 61  90a6fb3abb8aa28a
3eb0: 32 39 65 30 63 37 35 32 37 64 32 30 65 32 64 37  29e0c7527d20e2d7
3ec0: 39 62 32 35 62 34 30 30 65 63 32 37 63 33 31 34  9b25b400ec27c314
3ed0: 64 62 37 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  db72..tcltest::t
3ee0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
3ef0: 34 2d 32 2e 34 38 20 7b 53 48 41 33 5f 33 38 34  4-2.48 {SHA3_384
3f00: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3f10: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
3f20: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
3f30: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
3f40: 65 63 6f 64 65 20 68 65 78 20 38 33 38 64 39 63  ecode hex 838d9c
3f50: 31 38 31 63 35 61 62 35 39 35 39 32 37 32 33 62  181c5ab59592723b
3f60: 64 36 39 33 36 30 65 30 64 37 66 64 31 35 32 33  d69360e0d7fd1523
3f70: 32 62 65 61 64 61 37 35 39 31 65 61 38 39 39 61  2beada7591ea899a
3f80: 63 37 38 66 66 64 35 33 61 33 32 66 63 37 33 61  c78ffd53a32fc73a
3f90: 35 66 65 35 32 32 65 64 33 35 64 39 32 61 36 65  5fe522ed35d92a6e
3fa0: 32 62 63 31 34 38 63 61 5d 7d 20 5c 0a 09 2d 62  2bc148ca]} \..-b
3fb0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3fc0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
3fd0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
3fe0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
3ff0: 72 65 73 75 6c 74 20 35 33 65 39 39 65 31 31 35  result 53e99e115
4000: 38 64 35 39 30 33 32 66 66 65 34 62 35 65 61 33  8d59032ffe4b5ea3
4010: 30 34 63 37 64 32 66 37 61 36 31 62 36 62 32 61  04c7d2f7a61b6b2a
4020: 39 36 61 63 39 37 38 33 32 63 61 32 36 30 31 33  96ac97832ca26013
4030: 35 34 39 66 65 33 66 37 64 63 64 66 39 32 36 62  549fe3f7dcdf926b
4040: 64 37 34 63 65 61 62 65 34 66 31 66 66 31 37 32  d74ceabe4f1ff172
4050: 64 61 65 64 36 65 36 0a 0a 74 63 6c 74 65 73 74  daed6e6..tcltest
4060: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4070: 2d 33 38 34 2d 32 2e 34 39 20 7b 53 48 41 33 5f  -384-2.49 {SHA3_
4080: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
4090: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
40a0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
40b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
40c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 39 30  y decode hex a90
40d0: 64 32 61 61 35 62 32 34 31 65 31 63 61 39 64 61  d2aa5b241e1ca9da
40e0: 62 35 62 36 64 63 30 35 63 33 65 32 63 39 33 66  b5b6dc05c3e2c93f
40f0: 63 35 61 32 32 31 30 61 36 33 31 35 64 36 30 66  c5a2210a6315d60f
4100: 39 62 37 39 31 62 33 36 62 35 36 30 64 37 30 65  9b791b36b560d70e
4110: 31 33 35 65 66 38 65 37 64 62 61 39 34 34 31 62  135ef8e7dba9441b
4120: 37 34 65 35 33 64 61 62 30 36 30 36 62 5d 7d 20  74e53dab0606b]} 
4130: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
4140: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
4150: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
4160: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4170: 61 63 74 20 2d 72 65 73 75 6c 74 20 34 61 31 36  act -result 4a16
4180: 38 38 31 63 65 31 35 36 66 34 35 66 64 66 64 62  881ce156f45fdfdb
4190: 34 35 30 38 38 65 33 66 32 33 62 65 31 62 34 63  45088e3f23be1b4c
41a0: 35 61 37 61 36 61 33 35 33 31 35 64 33 36 63 35  5a7a6a35315d36c5
41b0: 31 63 37 35 66 32 37 35 37 33 33 33 31 39 61 63  1c75f275733319ac
41c0: 61 31 38 35 64 34 61 62 33 33 31 33 30 66 66 65  a185d4ab33130ffe
41d0: 34 35 66 37 35 31 66 31 62 62 63 35 0a 0a 74 63  45f751f1bbc5..tc
41e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
41f0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 30 20 7b  _SHA3-384-2.50 {
4200: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
4210: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4220: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
4230: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4240: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4250: 78 20 38 63 32 39 33 34 35 64 33 61 30 39 31 61  x 8c29345d3a091a
4260: 35 64 35 64 37 31 61 62 38 66 35 61 30 36 38 61  5d5d71ab8f5a068a
4270: 35 37 31 31 66 37 62 61 30 30 62 31 38 33 30 64  5711f7ba00b1830d
4280: 35 65 64 30 62 63 64 66 62 31 62 62 38 62 30 33  5ed0bcdfb1bb8b03
4290: 63 64 30 61 66 35 66 65 37 38 37 38 39 63 37 33  cd0af5fe78789c73
42a0: 31 34 66 32 38 39 64 66 37 65 65 65 32 38 38 37  14f289df7eee2887
42b0: 33 35 66 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  35fe]} \..-body 
42c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
42d0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
42e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
42f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
4300: 6c 74 20 65 32 37 62 33 39 61 39 36 32 35 35 66  lt e27b39a96255f
4310: 66 36 39 63 34 35 32 38 35 66 63 61 36 65 64 61  f69c45285fca6eda
4320: 61 61 33 39 35 34 63 65 33 32 63 31 65 33 64 39  aa3954ce32c1e3d9
4330: 62 31 66 36 30 63 31 62 36 36 37 36 35 39 34 62  b1f60c1b6676594b
4340: 62 34 35 63 61 66 30 38 38 39 66 63 31 31 64 61  b45caf0889fc11da
4350: 66 39 33 61 31 62 36 30 37 34 36 32 32 39 36 38  f93a1b6074622968
4360: 39 64 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  9dd..tcltest::te
4370: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
4380: 2d 32 2e 35 31 20 7b 53 48 41 33 5f 33 38 34 53  -2.51 {SHA3_384S
4390: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
43a0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
43b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
43c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
43d0: 63 6f 64 65 20 68 65 78 20 33 32 38 37 36 66 65  code hex 32876fe
43e0: 65 66 65 39 39 31 35 61 33 32 33 39 39 30 38 33  efe9915a32399083
43f0: 34 37 32 65 33 63 33 38 30 35 65 66 32 36 31 38  472e3c3805ef2618
4400: 30 30 62 32 35 35 38 32 61 61 37 63 33 36 33 39  00b25582aa7c3639
4410: 35 66 64 33 65 63 30 35 64 34 37 62 34 39 63 34  5fd3ec05d47b49c4
4420: 39 34 34 62 62 63 63 32 62 38 62 35 65 62 64 30  944bbcc2b8b5ebd0
4430: 38 31 66 36 33 61 65 37 39 34 33 64 30 5d 7d 20  81f63ae7943d0]} 
4440: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
4450: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
4460: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
4470: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4480: 61 63 74 20 2d 72 65 73 75 6c 74 20 66 39 36 34  act -result f964
4490: 33 33 63 64 62 36 39 61 36 30 37 34 33 33 65 61  33cdb69a607433ea
44a0: 32 65 62 37 37 64 38 37 64 33 33 32 38 38 36 37  2eb77d87d3328867
44b0: 64 63 34 30 37 36 62 36 37 63 63 66 31 37 66 35  dc4076b67ccf17f5
44c0: 30 66 39 65 30 38 65 38 39 61 38 36 36 32 34 62  0f9e08e89a86624b
44d0: 36 30 66 32 65 63 64 62 38 61 66 66 63 64 34 33  60f2ecdb8affcd43
44e0: 31 66 63 31 33 31 37 33 66 65 37 35 0a 0a 74 63  1fc13173fe75..tc
44f0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4500: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 32 20 7b  _SHA3-384-2.52 {
4510: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
4520: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4530: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
4540: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4550: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4560: 78 20 65 32 65 37 37 65 62 35 34 66 33 32 31 66  x e2e77eb54f321f
4570: 38 36 66 35 32 65 61 33 64 33 63 38 63 64 63 33  86f52ea3d3c8cdc3
4580: 62 63 37 34 64 38 62 34 66 32 66 33 33 34 35 39  bc74d8b4f2f33459
4590: 31 65 35 65 36 33 62 37 38 31 30 33 34 64 61 39  1e5e63b781034da9
45a0: 64 37 62 39 34 31 64 35 38 32 37 30 33 37 64 65  d7b941d5827037de
45b0: 65 34 30 63 35 38 64 63 30 64 37 34 63 30 30 39  e40c58dc0d74c009
45c0: 39 36 65 35 38 32 62 63 5d 7d 20 5c 0a 09 2d 62  96e582bc]} \..-b
45d0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
45e0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
45f0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
4600: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
4610: 72 65 73 75 6c 74 20 61 33 35 32 61 62 33 33 63  result a352ab33c
4620: 61 37 33 30 34 38 32 63 33 37 36 62 64 63 35 37  a730482c376bdc57
4630: 33 63 39 64 31 64 63 36 64 33 35 39 37 66 39 62  3c9d1dc6d3597f9b
4640: 65 39 66 37 39 38 62 37 34 61 35 37 62 65 61 61  e9f798b74a57beaa
4650: 38 65 39 63 35 37 62 37 38 65 65 36 37 36 31 30  8e9c57b78ee67610
4660: 35 36 65 62 36 37 33 36 33 65 38 38 32 66 65 66  56eb67363e882fef
4670: 63 61 64 34 66 62 39 0a 0a 74 63 6c 74 65 73 74  cad4fb9..tcltest
4680: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4690: 2d 33 38 34 2d 32 2e 35 33 20 7b 53 48 41 33 5f  -384-2.53 {SHA3_
46a0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
46b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
46c0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
46d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
46e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 61 31  y decode hex da1
46f0: 34 62 36 64 30 62 32 65 63 34 63 66 31 65 37 63  4b6d0b2ec4cf1e7c
4700: 37 39 30 65 37 66 38 66 34 32 31 32 62 38 66 34  790e7f8f4212b8f4
4710: 64 30 35 66 35 30 65 37 35 65 32 61 35 36 61 35  d05f50e75e2a56a5
4720: 64 37 30 36 32 33 63 30 64 32 65 30 31 31 35 61  d70623c0d2e0115a
4730: 31 35 34 32 38 31 32 39 31 30 39 62 33 62 31 33  15428129109b3b13
4740: 36 64 37 35 36 65 33 38 61 35 63 38 34 36 33 33  6d756e38a5c84633
4750: 30 34 32 39 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79  04290]} \..-body
4760: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4770: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
4780: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4790: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
47a0: 75 6c 74 20 61 61 65 37 61 64 39 37 37 65 31 37  ult aae7ad977e17
47b0: 61 63 30 65 35 36 30 63 30 65 30 31 38 36 34 33  ac0e560c0e018643
47c0: 33 34 32 30 66 39 66 64 64 63 64 31 39 31 62 39  3420f9fddcd191b9
47d0: 65 39 31 35 36 37 63 65 65 30 35 64 66 38 38 66  e91567cee05df88f
47e0: 31 65 31 61 65 65 35 30 34 32 34 61 33 31 33 39  1e1aee50424a3139
47f0: 39 38 61 38 37 33 66 37 61 39 63 32 38 39 61 30  98a873f7a9c289a0
4800: 32 32 31 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  2217..tcltest::t
4810: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
4820: 34 2d 32 2e 35 34 20 7b 53 48 41 33 5f 33 38 34  4-2.54 {SHA3_384
4830: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4840: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
4850: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
4860: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
4870: 65 63 6f 64 65 20 68 65 78 20 32 64 62 30 36 66  ecode hex 2db06f
4880: 30 39 61 62 61 61 36 61 39 65 39 34 32 64 36 32  09abaa6a9e942d62
4890: 37 34 31 65 61 63 64 30 61 61 33 62 36 30 64 38  741eacd0aa3b60d8
48a0: 36 38 62 64 64 66 38 37 31 37 62 65 66 30 35 39  68bddf8717bef059
48b0: 64 32 33 66 39 65 66 65 31 37 30 66 38 62 35 64  d23f9efe170f8b5d
48c0: 63 33 65 66 38 37 64 61 33 64 66 33 36 31 64 34  c3ef87da3df361d4
48d0: 66 31 32 62 66 64 37 32 30 30 38 33 61 37 61 30  f12bfd720083a7a0
48e0: 33 35 65 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  35e8]} \..-body 
48f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4900: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
4910: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
4920: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
4930: 6c 74 20 38 35 64 34 65 33 65 35 61 62 63 62 31  lt 85d4e3e5abcb1
4940: 62 35 39 63 61 36 66 35 35 31 65 62 34 33 62 34  b59ca6f551eb43b4
4950: 33 66 66 36 34 38 39 30 35 31 31 66 37 33 61 39  3ff64890511f73a9
4960: 30 38 33 61 32 63 65 36 65 39 63 32 38 36 31 63  083a2ce6e9c2861c
4970: 36 65 39 36 36 34 63 37 36 35 36 32 39 30 32 34  6e9664c765629024
4980: 66 34 62 30 31 62 30 63 64 31 35 39 34 61 35 39  f4b01b0cd1594a59
4990: 38 31 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  81b..tcltest::te
49a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
49b0: 2d 32 2e 35 35 20 7b 53 48 41 33 5f 33 38 34 53  -2.55 {SHA3_384S
49c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
49d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
49e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
49f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4a00: 63 6f 64 65 20 68 65 78 20 32 36 62 61 64 32 33  code hex 26bad23
4a10: 65 35 31 63 34 35 36 30 63 31 37 32 30 37 36 35  e51c4560c1720765
4a20: 33 38 62 32 38 37 31 36 37 38 32 65 65 36 33 30  38b28716782ee630
4a30: 34 39 36 32 66 36 38 65 32 37 31 38 32 30 34 38  4962f68e27182048
4a40: 39 34 38 64 35 63 33 36 37 61 35 31 61 31 63 32  948d5c367a51a1c2
4a50: 30 36 61 33 65 39 62 32 35 31 33 35 62 34 30 38  06a3e9b25135b408
4a60: 38 33 62 32 65 32 32 30 66 36 31 63 62 35 37 38  83b2e220f61cb578
4a70: 37 65 64 38 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  7ed8f]} \..-body
4a80: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
4a90: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
4aa0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4ab0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4ac0: 75 6c 74 20 61 34 34 63 37 66 38 34 61 62 39 36  ult a44c7f84ab96
4ad0: 32 66 36 38 32 38 33 34 30 34 66 38 63 35 63 34  2f68283404f8c5c4
4ae0: 30 32 39 64 62 63 33 35 64 32 31 33 38 65 30 37  029dbc35d2138e07
4af0: 35 63 39 33 32 37 35 38 30 62 61 66 38 39 66 32  5c9327580baf89f2
4b00: 39 32 39 33 37 62 66 39 39 34 32 32 65 34 35 37  92937bf99422e457
4b10: 35 36 62 33 66 39 34 32 62 66 30 61 35 61 65 34  56b3f942bf0a5ae4
4b20: 61 63 62 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  acb6..tcltest::t
4b30: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
4b40: 34 2d 32 2e 35 36 20 7b 53 48 41 33 5f 33 38 34  4-2.56 {SHA3_384
4b50: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4b60: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
4b70: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
4b80: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
4b90: 65 63 6f 64 65 20 68 65 78 20 37 37 61 39 66 36  ecode hex 77a9f6
4ba0: 35 32 61 30 30 33 61 38 33 64 32 32 66 62 38 34  52a003a83d22fb84
4bb0: 39 62 37 33 66 65 64 37 64 33 37 38 33 30 63 30  9b73fed7d37830c0
4bc0: 64 63 35 33 66 38 39 63 65 61 37 64 62 65 63 32  dc53f89cea7dbec2
4bd0: 34 65 31 34 66 33 37 31 39 37 37 36 35 32 30 36  4e14f37197765206
4be0: 66 65 30 65 36 36 37 32 30 31 36 65 34 64 65 63  fe0e6672016e4dec
4bf0: 34 64 39 65 62 62 65 33 65 31 62 34 34 32 33 37  4d9ebbe3e1b44237
4c00: 37 31 61 35 64 30 61 38 5d 7d 20 5c 0a 09 2d 62  71a5d0a8]} \..-b
4c10: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
4c20: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
4c30: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
4c40: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
4c50: 72 65 73 75 6c 74 20 32 39 63 38 62 62 33 39 62  result 29c8bb39b
4c60: 62 32 61 61 64 34 31 39 61 30 30 61 38 30 32 31  b2aad419a00a8021
4c70: 36 65 63 37 31 65 63 35 65 63 39 61 62 35 34 63  6ec71ec5ec9ab54c
4c80: 34 31 39 32 37 65 33 65 33 66 32 66 34 38 66 30  41927e3e3f2f48f0
4c90: 37 39 61 35 38 38 36 64 37 66 65 38 39 64 62 39  79a5886d7fe89db9
4ca0: 38 63 38 30 37 61 62 36 38 36 64 32 33 33 39 30  8c807ab686d23390
4cb0: 30 31 64 36 32 35 32 0a 0a 74 63 6c 74 65 73 74  01d6252..tcltest
4cc0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4cd0: 2d 33 38 34 2d 32 2e 35 37 20 7b 53 48 41 33 5f  -384-2.57 {SHA3_
4ce0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
4cf0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
4d00: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
4d10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4d20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 36 38  y decode hex 268
4d30: 63 37 62 33 61 38 34 38 34 39 66 65 63 35 63 37  c7b3a84849fec5c7
4d40: 36 39 62 63 34 61 64 33 37 37 64 65 61 31 30 63  69bc4ad377dea10c
4d50: 39 64 32 30 63 39 31 64 64 31 37 66 64 62 64 39  9d20c91dd17fdbd9
4d60: 36 37 30 61 32 66 63 39 30 39 64 30 65 32 31 32  670a2fc909d0e212
4d70: 31 32 39 65 63 34 30 64 65 65 34 31 64 62 66 36  129ec40dee41dbf6
4d80: 31 39 34 61 33 62 30 34 61 65 38 62 65 35 65 38  194a3b04ae8be5e8
4d90: 34 61 64 35 34 32 36 63 61 34 34 39 36 5d 7d 20  4ad5426ca4496]} 
4da0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
4db0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
4dc0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
4dd0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4de0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 64 66 63  act -result 0dfc
4df0: 36 66 66 63 66 34 61 33 38 37 65 63 30 39 66 66  6ffcf4a387ec09ff
4e00: 38 36 32 63 36 31 33 39 61 36 66 37 61 63 37 37  862c6139a6f7ac77
4e10: 61 62 62 32 62 35 65 31 66 36 64 63 38 31 34 65  abb2b5e1f6dc814e
4e20: 62 37 31 35 32 35 66 38 36 35 37 61 63 37 34 61  b71525f8657ac74a
4e30: 37 36 39 37 63 32 39 37 35 63 37 30 61 35 34 33  7697c2975c70a543
4e40: 61 66 30 65 32 32 37 64 30 33 63 61 0a 0a 74 63  af0e227d03ca..tc
4e50: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4e60: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 38 20 7b  _SHA3-384-2.58 {
4e70: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
4e80: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4e90: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
4ea0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
4eb0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
4ec0: 78 20 62 38 33 32 34 33 34 31 61 36 38 39 31 61  x b8324341a6891a
4ed0: 36 62 35 65 30 30 31 61 37 64 32 65 62 62 61 36  6b5e001a7d2ebba6
4ee0: 65 30 32 65 38 33 33 35 63 31 32 34 31 38 35 33  e02e8335c1241853
4ef0: 30 39 61 34 63 39 65 39 39 30 37 63 34 33 62 64  09a4c9e9907c43bd
4f00: 38 64 34 66 61 37 33 63 35 32 37 66 64 66 37 38  8d4fa73c527fdf78
4f10: 33 36 35 30 33 31 36 64 64 32 34 62 31 34 38 38  3650316dd24b1488
4f20: 37 30 65 31 34 33 36 61 63 30 35 31 31 31 65 39  70e1436ac05111e9
4f30: 63 64 63 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  cdcc]} \..-body 
4f40: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4f50: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
4f60: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
4f70: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
4f80: 6c 74 20 36 32 37 38 64 31 63 63 31 37 66 62 36  lt 6278d1cc17fb6
4f90: 64 35 34 31 32 39 64 30 34 39 38 37 64 34 37 37  d54129d04987d477
4fa0: 34 66 61 38 34 36 64 63 61 63 34 62 61 38 62 36  4fa846dcac4ba8b6
4fb0: 62 37 32 66 34 31 65 36 33 64 63 33 38 37 63 65  b72f41e63dc387ce
4fc0: 30 30 38 31 62 61 32 39 66 62 32 63 31 37 63 36  0081ba29fb2c17c6
4fd0: 37 34 34 65 64 61 65 32 34 65 36 36 39 63 63 39  744edae24e669cc9
4fe0: 65 37 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  e75..tcltest::te
4ff0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
5000: 2d 32 2e 35 39 20 7b 53 48 41 33 5f 33 38 34 53  -2.59 {SHA3_384S
5010: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
5020: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
5030: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5040: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5050: 63 6f 64 65 20 68 65 78 20 35 65 66 38 62 33 64  code hex 5ef8b3d
5060: 37 39 64 32 39 39 62 65 65 32 63 34 31 34 35 36  79d299bee2c41456
5070: 30 63 37 64 65 36 32 36 63 63 30 64 39 66 62 34  0c7de626cc0d9fb4
5080: 32 39 38 38 34 61 61 36 39 63 63 33 30 30 39 35  29884aa69cc30095
5090: 65 66 31 66 33 36 62 37 65 30 33 61 38 63 61 32  ef1f36b7e03a8ca2
50a0: 35 66 62 33 36 30 31 31 38 39 66 31 36 33 62 32  5fb3601189f163b2
50b0: 30 39 65 30 66 61 63 66 38 64 63 34 34 37 66 36  09e0facf8dc447f6
50c0: 39 30 62 37 31 30 66 62 34 37 62 37 32 5d 7d 20  90b710fb47b72]} 
50d0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
50e0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
50f0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
5100: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5110: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 65 63 39  act -result 7ec9
5120: 35 30 35 66 33 33 66 34 61 35 34 39 33 35 37 34  505f33f4a5493574
5130: 34 32 32 64 65 30 37 38 65 30 34 39 30 62 36 31  422de078e0490b61
5140: 62 65 38 65 38 64 36 66 31 35 38 31 39 32 62 62  be8e8d6f158192bb
5150: 37 64 32 62 64 63 32 64 63 33 33 35 35 39 38 64  7d2bdc2dc335598d
5160: 63 38 38 64 39 62 34 34 33 63 64 31 63 31 34 62  c88d9b443cd1c14b
5170: 38 38 33 61 37 37 31 31 39 64 66 31 0a 0a 74 63  883a77119df1..tc
5180: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5190: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36 30 20 7b  _SHA3-384-2.60 {
51a0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
51b0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
51c0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
51d0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
51e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
51f0: 78 20 61 64 37 33 32 31 63 39 61 38 62 38 66 30  x ad7321c9a8b8f0
5200: 62 66 65 31 30 30 38 31 31 31 31 34 32 37 30 64  bfe100811114270d
5210: 61 61 64 35 37 66 36 65 38 38 37 37 32 33 32 36  aad57f6e88772326
5220: 62 36 32 64 38 38 61 33 37 61 36 66 35 35 63 32  b62d88a37a6f55c2
5230: 63 66 39 66 37 35 39 31 31 35 65 64 36 61 35 39  cf9f759115ed6a59
5240: 30 38 37 38 65 34 64 63 65 66 62 35 39 32 64 62  0878e4dcefb592db
5250: 31 35 31 35 33 38 64 62 37 64 65 32 30 32 32 39  151538db7de20229
5260: 64 32 36 61 31 38 31 63 5d 7d 20 5c 0a 09 2d 62  d26a181c]} \..-b
5270: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
5280: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
5290: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
52a0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
52b0: 72 65 73 75 6c 74 20 33 37 38 32 64 32 63 61 61  result 3782d2caa
52c0: 35 33 37 32 39 34 65 38 30 39 65 39 64 66 38 33  537294e809e9df83
52d0: 37 62 31 62 30 37 65 32 66 31 64 66 30 37 64 30  7b1b07e2f1df07d0
52e0: 66 34 63 31 32 65 31 32 34 35 39 66 35 36 65 65  f4c12e12459f56ee
52f0: 61 61 34 37 38 64 35 62 33 61 34 31 65 35 31 39  aa478d5b3a41e519
5300: 64 39 34 31 34 65 61 66 61 35 64 64 64 35 36 36  d9414eafa5ddd566
5310: 31 63 38 33 31 62 61 0a 0a 74 63 6c 74 65 73 74  1c831ba..tcltest
5320: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
5330: 2d 33 38 34 2d 32 2e 36 31 20 7b 53 48 41 33 5f  -384-2.61 {SHA3_
5340: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
5350: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
5360: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
5370: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5380: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 37 31  y decode hex 071
5390: 39 64 39 36 36 34 35 34 31 66 30 61 38 32 34 66  9d9664541f0a824f
53a0: 37 31 63 38 33 62 38 30 39 62 62 36 61 66 63 39  71c83b809bb6afc9
53b0: 37 33 63 39 66 37 34 32 38 65 31 65 64 31 31 66  73c9f7428e1ed11f
53c0: 37 63 32 39 61 35 35 38 65 31 36 39 38 62 37 39  7c29a558e1698b79
53d0: 36 61 65 66 62 34 39 65 65 63 32 62 30 39 38 66  6aefb49eec2b098f
53e0: 61 66 30 36 62 64 34 33 65 38 32 65 31 33 31 32  af06bd43e82e1312
53f0: 62 66 30 33 38 38 63 33 38 61 35 62 62 35 32 33  bf0388c38a5bb523
5400: 35 30 36 64 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79  506d3]} \..-body
5410: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
5420: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
5430: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
5440: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
5450: 75 6c 74 20 33 36 32 63 30 35 66 36 37 38 64 66  ult 362c05f678df
5460: 39 32 38 38 33 64 35 36 65 31 39 32 32 31 33 39  92883d56e1922139
5470: 31 66 62 30 30 64 30 66 30 61 66 63 65 63 35 31  1fb00d0f0afcec51
5480: 64 33 65 30 66 65 62 31 35 62 61 32 66 62 36 30  d3e0feb15ba2fb60
5490: 36 39 33 62 30 39 64 36 39 31 31 38 61 66 36 34  693b09d69118af64
54a0: 39 36 34 38 39 33 33 32 35 39 64 37 62 31 65 32  9648933259d7b1e2
54b0: 34 30 61 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  40ab..tcltest::t
54c0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
54d0: 34 2d 32 2e 36 32 20 7b 53 48 41 33 5f 33 38 34  4-2.62 {SHA3_384
54e0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
54f0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
5500: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
5510: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
5520: 65 63 6f 64 65 20 68 65 78 20 35 34 31 35 63 32  ecode hex 5415c2
5530: 35 39 36 61 61 37 64 32 31 65 38 35 35 62 65 39  596aa7d21e855be9
5540: 38 34 39 31 62 64 37 30 32 33 35 37 63 31 39 66  8491bd702357c19f
5550: 32 31 66 34 36 32 39 34 66 39 38 61 38 61 61 33  21f46294f98a8aa3
5560: 37 62 33 35 33 32 65 65 31 35 34 31 63 61 33 35  7b3532ee1541ca35
5570: 35 30 39 61 64 62 65 66 39 64 38 33 65 62 39 39  509adbef9d83eb99
5580: 35 32 38 62 61 31 34 65 66 30 62 64 32 39 39 38  528ba14ef0bd2998
5590: 61 37 31 38 64 61 38 36 31 63 33 66 31 36 66 65  a718da861c3f16fe
55a0: 36 39 37 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  6971]} \..-body 
55b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
55c0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
55d0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
55e0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
55f0: 6c 74 20 38 66 39 66 64 37 64 38 37 39 64 36 62  lt 8f9fd7d879d6b
5600: 35 31 65 65 38 34 33 65 31 66 62 63 64 34 30 62  51ee843e1fbcd40b
5610: 62 36 37 34 34 39 61 65 37 34 34 64 62 39 66 36  b67449ae744db9f6
5620: 37 33 65 33 34 35 32 66 30 32 38 63 62 30 31 38  73e3452f028cb018
5630: 39 64 39 63 62 30 66 65 66 37 62 64 62 35 63 37  9d9cb0fef7bdb5c7
5640: 36 30 64 36 33 66 65 61 30 65 33 62 61 33 64 64  60d63fea0e3ba3dd
5650: 38 64 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  8d1..tcltest::te
5660: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
5670: 2d 32 2e 36 33 20 7b 53 48 41 33 5f 33 38 34 53  -2.63 {SHA3_384S
5680: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
5690: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
56a0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
56b0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
56c0: 63 6f 64 65 20 68 65 78 20 62 39 37 39 61 32 35  code hex b979a25
56d0: 61 34 32 34 62 31 65 34 63 37 65 61 37 31 62 36  a424b1e4c7ea71b6
56e0: 36 34 35 35 34 35 32 34 38 34 39 38 61 32 62 38  645545248498a2b8
56f0: 63 34 62 35 36 38 65 34 63 38 66 33 66 66 36 65  c4b568e4c8f3ff6e
5700: 35 38 64 32 61 63 38 66 62 65 39 37 62 65 34 62  58d2ac8fbe97be4b
5710: 65 61 35 37 64 37 39 36 62 39 36 30 34 31 64 31  ea57d796b96041d1
5720: 35 31 34 35 31 31 64 61 35 66 36 33 35 31 31 32  514511da5f635112
5730: 30 62 65 37 61 62 34 32 38 31 30 37 65 66 33 63  0be7ab428107ef3c
5740: 36 36 39 32 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79  66921]} \..-body
5750: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
5760: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
5770: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
5780: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
5790: 75 6c 74 20 65 32 34 38 61 36 34 62 36 65 66 31  ult e248a64b6ef1
57a0: 31 32 62 66 33 64 32 39 39 34 38 62 31 63 39 39  12bf3d29948b1c99
57b0: 35 38 30 38 65 35 30 36 63 30 34 39 66 33 39 30  5808e506c049f390
57c0: 36 64 37 34 63 33 65 65 31 65 34 64 39 66 33 35  6d74c3ee1e4d9f35
57d0: 31 36 35 38 36 38 31 39 30 31 66 65 34 32 63 38  1658681901fe42c8
57e0: 65 32 38 30 32 34 66 65 33 31 30 31 34 65 32 64  e28024fe31014e2d
57f0: 33 34 32 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  342b..tcltest::t
5800: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
5810: 34 2d 32 2e 36 34 20 7b 53 48 41 33 5f 33 38 34  4-2.64 {SHA3_384
5820: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
5830: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
5840: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
5850: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
5860: 65 63 6f 64 65 20 68 65 78 20 65 36 34 63 37 62  ecode hex e64c7b
5870: 62 39 63 64 39 39 63 65 35 34 37 64 34 33 64 65  b9cd99ce547d43de
5880: 33 63 63 33 62 36 66 37 64 38 37 61 32 64 66 39  3cc3b6f7d87a2df9
5890: 64 38 61 34 37 36 30 63 31 38 62 61 66 35 39 30  d8a4760c18baf590
58a0: 63 37 34 30 65 63 35 33 63 38 39 62 66 61 30 37  c740ec53c89bfa07
58b0: 35 38 32 37 65 31 66 33 66 32 38 35 38 63 65 38  5827e1f3f2858ce8
58c0: 36 66 33 32 35 30 37 37 37 32 35 65 37 32 36 31  6f325077725e7261
58d0: 30 33 66 62 65 39 34 66 37 61 31 34 36 36 63 33  03fbe94f7a1466c3
58e0: 39 66 36 30 39 32 34 66 5d 7d 20 5c 0a 09 2d 62  9f60924f]} \..-b
58f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
5900: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
5910: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
5920: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
5930: 72 65 73 75 6c 74 20 64 31 65 35 61 37 32 64 32  result d1e5a72d2
5940: 35 39 35 66 33 38 37 31 34 63 36 31 39 38 61 63  595f38714c6198ac
5950: 31 34 66 38 61 35 63 64 64 38 39 34 64 63 66 39  14f8a5cdd894dcf9
5960: 62 34 62 38 65 39 37 35 31 37 34 62 31 30 30 64  b4b8e975174b100d
5970: 66 37 62 62 66 34 66 37 63 65 32 39 31 62 34 38  f7bbf4f7ce291b48
5980: 36 34 66 32 37 63 30 62 36 34 65 36 33 33 30 66  64f27c0b64e6330f
5990: 36 63 31 63 38 32 63 0a 0a 74 63 6c 74 65 73 74  6c1c82c..tcltest
59a0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
59b0: 2d 33 38 34 2d 32 2e 36 35 20 7b 53 48 41 33 5f  -384-2.65 {SHA3_
59c0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
59d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
59e0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
59f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5a00: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 31 62  y decode hex 91b
5a10: 37 61 31 66 64 30 65 32 30 30 37 32 64 39 63 35  7a1fd0e20072d9c5
5a20: 62 65 37 31 39 36 65 35 65 61 66 38 64 66 33 36  be7196e5eaf8df36
5a30: 66 64 66 31 34 35 38 39 35 62 33 30 64 34 65 34  fdf145895b30d4e4
5a40: 63 30 32 30 31 30 64 37 63 36 36 33 34 39 39 61  c02010d7c663499a
5a50: 63 39 64 37 61 34 34 37 33 32 66 34 63 37 34 33  c9d7a44732f4c743
5a60: 30 35 31 31 62 61 36 66 62 30 61 65 34 62 33 64  0511ba6fb0ae4b3d
5a70: 63 39 34 30 35 35 32 33 61 30 35 34 66 64 66 39  c9405523a054fdf9
5a80: 36 32 66 35 63 35 62 37 39 63 34 32 33 5d 7d 20  62f5c5b79c423]} 
5a90: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
5aa0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
5ab0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
5ac0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5ad0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 37 63 32  act -result 07c2
5ae0: 65 30 61 65 61 65 33 30 64 61 38 33 62 35 61 36  e0aeae30da83b5a6
5af0: 62 33 32 30 61 61 31 63 66 37 32 37 62 31 30 63  b320aa1cf727b10c
5b00: 32 30 33 34 35 38 33 64 37 61 63 64 61 35 35 36  2034583d7acda556
5b10: 34 38 66 61 33 64 61 61 30 31 37 61 61 31 35 35  48fa3daa017aa155
5b20: 38 38 62 36 65 32 31 34 39 31 30 31 63 35 36 65  88b6e2149101c56e
5b30: 33 64 37 64 66 37 63 37 36 64 66 31 0a 0a 74 63  3d7df7c76df1..tc
5b40: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5b50: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36 36 20 7b  _SHA3-384-2.66 {
5b60: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
5b70: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5b80: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
5b90: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
5ba0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
5bb0: 78 20 35 62 62 63 32 64 34 65 66 65 36 33 63 62  x 5bbc2d4efe63cb
5bc0: 66 63 39 66 63 32 32 31 64 64 38 64 38 33 38 34  fc9fc221dd8d8384
5bd0: 30 37 35 61 37 39 63 38 30 61 32 37 64 36 61 38  075a79c80a27d6a8
5be0: 63 35 32 31 39 65 36 37 37 66 34 63 35 62 62 38  c5219e677f4c5bb8
5bf0: 33 33 38 30 31 33 64 63 32 61 62 31 37 37 30 61  338013dc2ab1770a
5c00: 63 66 37 33 35 64 31 33 63 30 62 63 37 30 34 36  cf735d13c0bc7046
5c10: 32 31 65 63 32 36 39 31 33 35 30 63 66 33 65 61  21ec2691350cf3ea
5c20: 32 66 35 33 62 64 65 64 34 35 65 66 38 66 63 37  2f53bded45ef8fc7
5c30: 30 37 30 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  0702]} \..-body 
5c40: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5c50: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
5c60: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
5c70: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
5c80: 6c 74 20 64 64 30 62 62 66 65 34 62 37 39 39 36  lt dd0bbfe4b7996
5c90: 34 32 31 39 31 61 62 65 33 31 36 64 66 39 64 35  42191abe316df9d5
5ca0: 39 61 33 37 34 33 35 36 36 37 37 38 62 34 34 35  9a3743566778b445
5cb0: 39 63 35 31 63 33 62 65 33 66 36 35 38 62 64 63  9c51c3be3f658bdc
5cc0: 65 34 35 35 31 36 61 64 31 38 38 66 62 65 31 61  e45516ad188fbe1a
5cd0: 38 63 61 64 38 61 31 66 61 37 38 66 38 65 62 62  8cad8a1fa78f8ebb
5ce0: 36 34 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  645..tcltest::te
5cf0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
5d00: 2d 32 2e 36 37 20 7b 53 48 41 33 5f 33 38 34 53  -2.67 {SHA3_384S
5d10: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
5d20: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
5d30: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5d40: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5d50: 63 6f 64 65 20 68 65 78 20 31 32 39 35 34 39 32  code hex 1295492
5d60: 37 38 65 38 39 37 36 63 33 38 62 35 35 30 35 38  78e8976c38b55058
5d70: 31 35 37 32 35 34 30 30 63 33 64 32 30 38 31 65  15725400c3d2081e
5d80: 64 66 31 34 31 61 64 30 30 32 65 36 32 66 66 32  df141ad002e62ff2
5d90: 39 39 64 39 61 30 37 34 33 66 39 63 39 66 32 35  99d9a0743f9c9f25
5da0: 39 37 31 37 31 30 62 31 39 34 64 63 38 38 32 38  971710b194dc8828
5db0: 35 64 35 30 62 36 63 65 63 36 65 31 34 30 63 31  5d50b6cec6e140c1
5dc0: 39 30 37 32 66 35 31 63 61 62 33 32 61 39 66 36  9072f51cab32a9f6
5dd0: 34 39 37 61 62 64 33 65 34 30 37 63 36 5d 7d 20  497abd3e407c6]} 
5de0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
5df0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
5e00: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
5e10: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5e20: 61 63 74 20 2d 72 65 73 75 6c 74 20 63 61 32 36  act -result ca26
5e30: 61 65 63 35 32 37 66 61 64 63 64 35 65 62 65 62  aec527fadcd5ebeb
5e40: 34 65 61 66 61 37 63 31 30 32 66 37 39 61 33 63  4eafa7c102f79a3c
5e50: 32 65 64 62 34 35 32 61 66 64 30 34 66 36 31 36  2edb452afd04f616
5e60: 32 64 64 37 61 31 37 62 64 64 31 61 61 64 37 64  2dd7a17bdd1aad7d
5e70: 36 31 36 35 30 38 61 38 39 61 33 65 63 36 61 34  616508a89a3ec6a4
5e80: 30 37 39 31 64 39 31 35 61 63 63 38 0a 0a 74 63  0791d915acc8..tc
5e90: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5ea0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36 38 20 7b  _SHA3-384-2.68 {
5eb0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
5ec0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5ed0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
5ee0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
5ef0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
5f00: 78 20 62 39 61 39 66 33 37 38 61 64 65 66 66 34  x b9a9f378adeff4
5f10: 33 33 37 62 63 37 65 63 31 30 64 35 32 36 63 36  337bc7ec10d526c6
5f20: 64 64 61 30 37 30 32 38 33 37 35 35 34 39 66 37  dda07028375549f7
5f30: 66 64 61 37 61 38 31 64 30 35 36 36 32 63 38 61  fda7a81d05662c8a
5f40: 30 64 61 33 62 34 37 38 66 34 31 35 32 61 66 34  0da3b478f4152af4
5f50: 32 61 62 62 39 66 39 61 36 35 63 33 39 64 61 30  2abb9f9a65c39da0
5f60: 39 35 61 62 62 38 31 36 31 62 61 36 36 37 36 62  95abb8161ba6676b
5f70: 33 35 34 31 31 32 33 34 62 64 34 36 36 63 32 39  35411234bd466c29
5f80: 31 34 65 30 30 33 37 30 5d 7d 20 5c 0a 09 2d 62  14e00370]} \..-b
5f90: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
5fa0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
5fb0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
5fc0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
5fd0: 72 65 73 75 6c 74 20 39 39 39 31 34 66 36 38 34  result 99914f684
5fe0: 65 30 62 33 31 37 66 39 33 33 38 61 66 30 63 37  e0b317f9338af0c7
5ff0: 31 65 39 36 35 35 61 33 61 66 37 31 35 33 65 62  1e9655a3af7153eb
6000: 39 66 61 62 61 61 65 36 31 34 35 34 62 66 38 64  9fabaae61454bf8d
6010: 65 39 65 30 62 66 64 32 37 34 63 31 65 66 66 36  e9e0bfd274c1eff6
6020: 63 34 62 35 35 30 65 34 37 61 66 63 62 33 62 32  c4b550e47afcb3b2
6030: 30 66 61 37 64 39 65 0a 0a 74 63 6c 74 65 73 74  0fa7d9e..tcltest
6040: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6050: 2d 33 38 34 2d 32 2e 36 39 20 7b 53 48 41 33 5f  -384-2.69 {SHA3_
6060: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
6070: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6080: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
6090: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
60a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 30 31  y decode hex 101
60b0: 64 61 35 62 30 39 37 30 30 64 63 61 64 66 38 30  da5b09700dcadf80
60c0: 65 35 62 37 39 30 30 66 34 65 39 34 63 35 34 64  e5b7900f4e94c54d
60d0: 35 66 31 37 35 35 36 39 61 38 35 34 65 34 38 38  5f175569a854e488
60e0: 61 61 33 36 66 62 34 31 61 62 37 32 32 30 62 30  aa36fb41ab7220b0
60f0: 36 36 32 31 37 38 63 61 30 37 61 35 39 36 37 36  662178ca07a59676
6100: 38 35 32 38 31 32 33 64 65 33 62 32 61 33 64 39  8528123de3b2a3d9
6110: 34 34 61 61 34 31 32 38 37 35 63 65 64 66 65 61  44aa412875cedfea
6120: 66 35 38 64 63 63 36 64 35 62 34 61 30 33 33 61  f58dcc6d5b4a033a
6130: 35 33 62 36 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79  53b69]} \..-body
6140: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
6150: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
6160: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
6170: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
6180: 75 6c 74 20 64 33 65 33 32 63 39 62 32 37 31 65  ult d3e32c9b271e
6190: 31 31 65 34 39 36 38 33 39 37 64 38 35 64 37 36  11e4968397d85d76
61a0: 39 33 38 62 39 37 34 61 63 31 62 61 35 35 62 63  938b974ac1ba55bc
61b0: 62 65 38 64 37 62 37 64 61 30 32 64 62 64 37 65  be8d7b7da02dbd7e
61c0: 33 62 39 63 39 61 66 30 64 39 38 62 62 64 37 65  3b9c9af0d98bbd7e
61d0: 35 30 63 34 33 36 66 63 66 39 65 33 35 35 31 65  50c436fcf9e3551e
61e0: 33 34 33 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  3432..tcltest::t
61f0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
6200: 34 2d 32 2e 37 30 20 7b 53 48 41 33 5f 33 38 34  4-2.70 {SHA3_384
6210: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6220: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
6230: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
6240: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
6250: 65 63 6f 64 65 20 68 65 78 20 31 34 37 36 31 62  ecode hex 14761b
6260: 62 63 35 36 38 35 62 35 64 65 36 39 32 39 37 33  bc5685b5de692973
6270: 65 32 64 66 37 63 39 63 34 37 35 30 38 38 39 63  e2df7c9c4750889c
6280: 31 39 61 39 35 32 66 39 31 32 63 38 31 37 38 39  19a952f912c81789
6290: 30 35 34 36 64 35 65 33 37 64 39 34 30 64 31 33  0546d5e37d940d13
62a0: 61 31 34 61 63 37 39 32 35 61 62 62 64 38 37 35  a14ac7925abbd875
62b0: 62 38 63 64 36 30 65 34 39 32 30 38 39 36 63 65  b8cd60e4920896ce
62c0: 36 64 65 63 63 38 64 62 39 66 38 38 39 64 61 32  6decc8db9f889da2
62d0: 62 35 34 38 39 65 31 64 31 31 30 66 66 34 35 39  b5489e1d110ff459
62e0: 64 38 38 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d885]} \..-body 
62f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6300: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
6310: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
6320: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
6330: 6c 74 20 32 37 32 32 32 32 65 64 35 30 36 33 31  lt 272222ed50631
6340: 61 66 66 34 36 35 63 30 65 36 66 65 34 39 65 63  aff465c0e6fe49ec
6350: 64 66 64 63 61 39 38 33 62 63 62 37 32 33 31 65  dfdca983bcb7231e
6360: 35 30 39 30 33 65 32 30 30 62 33 33 35 62 38 34  50903e200b335b84
6370: 35 31 30 38 32 30 32 63 32 38 33 31 35 39 31 32  5108202c28315912
6380: 63 39 63 34 66 64 35 30 65 32 63 36 66 31 33 61  c9c4fd50e2c6f13a
6390: 39 65 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  9ea..tcltest::te
63a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
63b0: 2d 32 2e 37 31 20 7b 53 48 41 33 5f 33 38 34 53  -2.71 {SHA3_384S
63c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
63d0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
63e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
63f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6400: 63 6f 64 65 20 68 65 78 20 65 64 35 33 38 30 30  code hex ed53800
6410: 39 61 65 61 65 64 33 32 38 34 63 32 39 61 36 32  9aeaed3284c29a62
6420: 35 33 37 30 32 39 30 34 39 36 37 65 30 65 61 39  53702904967e0ea9
6430: 37 39 66 30 61 33 34 61 35 66 33 64 37 62 35 61  79f0a34a5f3d7b5a
6440: 62 38 38 36 36 36 32 64 61 39 62 38 65 30 31 65  b886662da9b8e01e
6450: 66 63 34 31 38 38 65 30 37 37 63 32 63 64 65 62  fc4188e077c2cdeb
6460: 35 64 65 30 61 38 32 35 32 61 61 66 62 65 65 39  5de0a8252aafbee9
6470: 34 38 66 38 36 64 62 36 32 61 61 65 36 65 39 65  48f86db62aae6e9e
6480: 37 34 61 62 63 38 39 65 36 66 36 30 32 31 61 34  74abc89e6f6021a4
6490: 64 62 31 34 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79  db140]} \..-body
64a0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
64b0: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
64c0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
64d0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
64e0: 75 6c 74 20 38 33 36 31 62 36 38 30 32 34 33 62  ult 8361b680243b
64f0: 31 36 36 31 64 36 66 31 64 66 35 33 64 62 33 36  1661d6f1df53db36
6500: 33 63 61 65 34 31 63 32 65 62 62 37 34 33 38 63  3cae41c2ebb7438c
6510: 30 30 36 30 36 64 37 36 62 39 63 32 61 32 35 33  00606d76b9c2a253
6520: 66 61 61 31 66 30 39 64 36 66 35 32 30 64 36 39  faa1f09d6f520d69
6530: 64 36 39 32 65 63 31 64 63 61 30 63 37 38 38 35  d692ec1dca0c7885
6540: 31 31 39 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  119c..tcltest::t
6550: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
6560: 34 2d 32 2e 37 32 20 7b 53 48 41 33 5f 33 38 34  4-2.72 {SHA3_384
6570: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6580: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
6590: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
65a0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
65b0: 65 63 6f 64 65 20 68 65 78 20 63 34 33 34 64 38  ecode hex c434d8
65c0: 38 34 36 38 66 31 65 64 61 32 33 38 34 38 64 30  8468f1eda23848d0
65d0: 38 30 34 62 34 37 36 39 33 33 66 32 34 62 61 65  804b476933f24bae
65e0: 61 64 65 63 36 39 37 34 33 64 64 39 30 64 38 34  adec69743dd90d84
65f0: 35 35 66 31 65 31 66 32 39 30 66 36 66 31 61 61  55f1e1f290f6f1aa
6600: 66 33 36 37 30 63 34 63 37 34 66 37 36 64 33 61  f3670c4c74f76d3a
6610: 62 38 33 65 39 62 65 66 32 31 61 64 38 64 39 32  b83e9bef21ad8d92
6620: 30 38 63 37 31 32 63 61 34 37 38 65 37 30 64 35  08c712ca478e70d5
6630: 66 62 33 63 34 62 64 34 38 38 33 34 63 39 36 39  fb3c4bd48834c969
6640: 64 64 33 38 66 34 38 34 5d 7d 20 5c 0a 09 2d 62  dd38f484]} \..-b
6650: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
6660: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
6670: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
6680: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
6690: 72 65 73 75 6c 74 20 39 63 32 36 65 39 36 66 63  result 9c26e96fc
66a0: 63 30 39 61 37 36 63 63 31 33 64 32 34 61 64 32  c09a76cc13d24ad2
66b0: 35 63 39 63 65 66 34 33 30 30 65 39 36 65 39 37  5c9cef4300e96e97
66c0: 65 34 66 62 35 39 62 34 34 31 62 61 66 66 65 64  e4fb59b441baffed
66d0: 30 37 66 36 61 37 30 62 31 34 36 34 66 32 35 34  07f6a70b1464f254
66e0: 38 63 37 66 64 37 38 33 39 38 31 30 64 62 62 39  8c7fd7839810dbb9
66f0: 65 39 63 31 65 31 38 0a 0a 74 63 6c 74 65 73 74  e9c1e18..tcltest
6700: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6710: 2d 33 38 34 2d 32 2e 37 33 20 7b 53 48 41 33 5f  -384-2.73 {SHA3_
6720: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
6730: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6740: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
6750: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6760: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 30 36  y decode hex 306
6770: 34 65 35 62 61 31 65 37 37 35 31 62 66 37 31 39  4e5ba1e7751bf719
6780: 38 65 30 38 31 31 66 66 34 64 34 63 61 31 37 64  8e0811ff4d4ca17d
6790: 31 33 31 31 63 32 35 64 39 63 33 61 33 31 36 62  1311c25d9c3a316b
67a0: 35 36 32 36 39 31 63 64 65 37 35 63 39 37 34 62  562691cde75c974b
67b0: 30 62 35 32 36 34 35 63 31 33 34 64 64 63 63 37  0b52645c134ddcc7
67c0: 30 39 64 37 37 62 36 63 31 62 64 32 34 63 64 36  09d77b6c1bd24cd6
67d0: 38 34 32 36 35 64 37 32 33 63 33 30 38 62 62 34  84265d723c308bb4
67e0: 64 30 31 35 39 65 36 62 31 36 64 39 37 65 64 39  d0159e6b16d97ed9
67f0: 63 65 61 61 35 37 34 33 36 64 33 30 32 5d 7d 20  ceaa57436d302]} 
6800: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
6810: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
6820: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
6830: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6840: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 65 61 37  act -result 1ea7
6850: 37 39 37 33 39 62 32 30 34 61 62 65 39 31 31 62  79739b204abe911b
6860: 34 39 32 33 65 36 66 36 30 66 65 63 65 32 37 31  4923e6f60fece271
6870: 65 65 64 66 63 37 66 30 37 34 66 65 31 39 31 39  eedfc7f074fe1919
6880: 66 30 63 62 63 36 63 65 32 61 39 39 32 33 34 62  f0cbc6ce2a99234b
6890: 30 30 33 33 38 39 35 32 30 38 38 34 62 36 36 30  003389520884b660
68a0: 31 36 35 66 35 61 31 65 38 30 66 38 0a 0a 74 63  165f5a1e80f8..tc
68b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
68c0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37 34 20 7b  _SHA3-384-2.74 {
68d0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
68e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
68f0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
6900: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
6910: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
6920: 78 20 38 39 64 39 35 32 31 61 64 38 34 62 31 63  x 89d9521ad84b1c
6930: 39 61 66 63 32 66 62 64 30 65 64 63 32 32 37 31  9afc2fbd0edc2271
6940: 39 33 61 63 64 33 33 33 30 37 36 34 62 30 64 32  93acd3330764b0d2
6950: 63 62 37 31 62 66 34 37 63 37 61 61 63 39 34 36  cb71bf47c7aac946
6960: 61 66 38 35 62 65 31 33 38 35 38 62 35 35 39 37  af85be13858b5597
6970: 36 30 30 39 66 33 62 33 36 62 30 39 63 65 64 34  6009f3b36b09ced4
6980: 33 30 38 30 35 32 63 38 31 37 63 39 63 34 64 30  308052c817c9c4d0
6990: 32 39 35 32 32 35 66 36 31 61 39 36 35 39 61 30  295225f61a9659a0
69a0: 38 37 34 62 38 38 36 36 37 63 64 63 63 35 32 31  874b88667cdcc521
69b0: 33 39 31 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  3919]} \..-body 
69c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
69d0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
69e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
69f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
6a00: 6c 74 20 34 32 30 39 62 62 38 66 38 36 39 66 36  lt 4209bb8f869f6
6a10: 66 31 37 63 38 64 35 63 33 36 38 63 34 38 39 61  f17c8d5c368c489a
6a20: 63 35 31 61 37 35 65 32 34 61 38 35 61 31 32 64  c51a75e24a85a12d
6a30: 65 31 62 31 36 66 65 66 63 32 39 32 63 65 36 33  e1b16fefc292ce63
6a40: 36 66 66 38 66 61 33 36 30 65 38 32 66 30 35 36  6ff8fa360e82f056
6a50: 38 34 66 36 62 30 62 30 37 34 62 61 33 37 30 61  84f6b0b074ba370a
6a60: 39 33 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  933..tcltest::te
6a70: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
6a80: 2d 32 2e 37 35 20 7b 53 48 41 33 5f 33 38 34 53  -2.75 {SHA3_384S
6a90: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
6aa0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
6ab0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6ac0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6ad0: 63 6f 64 65 20 68 65 78 20 33 32 31 36 36 36 32  code hex 3216662
6ae0: 64 61 30 32 32 37 39 39 33 64 38 38 32 38 38 31  da0227993d882881
6af0: 38 37 31 37 37 61 30 32 38 37 64 65 34 65 63 63  87177a0287de4ecc
6b00: 66 32 34 35 64 37 63 37 31 38 62 38 30 34 35 62  f245d7c718b8045b
6b10: 62 66 62 38 38 36 39 64 39 33 66 31 66 62 39 65  bfb8869d93f1fb9e
6b20: 39 34 64 37 34 37 38 62 30 32 39 38 65 36 32 38  94d7478b0298e628
6b30: 63 30 37 65 30 65 64 61 61 62 30 31 64 63 66 37  c07e0edaab01dcf7
6b40: 39 32 36 34 64 63 30 35 66 38 62 32 31 38 31 61  9264dc05f8b2181a
6b50: 61 33 66 38 33 31 64 63 39 34 39 37 32 36 66 62  a3f831dc949726fb
6b60: 63 66 38 30 64 65 34 63 39 63 39 65 64 5d 7d 20  cf80de4c9c9ed]} 
6b70: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
6b80: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
6b90: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
6ba0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6bb0: 61 63 74 20 2d 72 65 73 75 6c 74 20 36 34 63 34  act -result 64c4
6bc0: 35 65 30 31 38 63 66 62 63 38 38 66 38 66 34 66  5e018cfbc88f8f4f
6bd0: 66 65 33 63 65 66 30 64 66 33 61 39 34 61 61 62  fe3cef0df3a94aab
6be0: 33 30 34 39 66 61 66 61 65 32 38 65 32 38 65 66  3049fafae28e28ef
6bf0: 62 62 32 61 34 62 39 34 38 30 39 65 62 33 30 32  bb2a4b94809eb302
6c00: 63 61 66 39 30 31 30 31 30 61 62 66 61 31 39 34  caf901010abfa194
6c10: 66 37 32 39 36 35 36 36 33 64 33 35 0a 0a 74 63  f72965663d35..tc
6c20: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
6c30: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37 36 20 7b  _SHA3-384-2.76 {
6c40: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
6c50: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
6c60: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
6c70: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
6c80: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
6c90: 78 20 65 37 37 36 65 36 37 34 39 63 35 62 36 63  x e776e6749c5b6c
6ca0: 37 64 65 66 35 39 63 62 39 38 33 34 30 39 38 34  7def59cb98340984
6cb0: 35 33 39 32 38 30 61 39 38 37 34 66 38 30 34 31  539280a9874f8041
6cc0: 32 64 34 64 66 30 65 65 37 33 64 35 38 61 63 64  2d4df0ee73d58acd
6cd0: 31 30 39 34 64 34 39 65 64 34 65 33 35 31 32 35  1094d49ed4e35125
6ce0: 38 33 34 63 66 38 63 66 65 33 34 39 65 35 39 39  834cf8cfe349e599
6cf0: 31 34 34 65 34 66 32 65 32 30 30 61 62 61 34 66  144e4f2e200aba4f
6d00: 64 33 65 62 36 64 37 38 63 64 65 30 32 37 63 31  d3eb6d78cde027c1
6d10: 64 35 36 32 30 65 30 32 37 30 62 35 65 38 33 61  d5620e0270b5e83a
6d20: 62 32 36 62 38 64 33 32 5d 7d 20 5c 0a 09 2d 62  b26b8d32]} \..-b
6d30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
6d40: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
6d50: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
6d60: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
6d70: 72 65 73 75 6c 74 20 39 34 62 64 36 37 62 37 66  result 94bd67b7f
6d80: 32 35 38 37 62 30 62 64 61 35 34 38 37 63 63 34  2587b0bda5487cc4
6d90: 35 64 30 30 65 34 33 36 35 66 31 65 65 34 30 30  5d00e4365f1ee400
6da0: 37 33 63 64 66 30 64 32 33 61 35 65 61 33 66 62  73cdf0d23a5ea3fb
6db0: 61 30 31 65 65 66 34 32 61 34 36 62 66 62 61 63  a01eef42a46bfbac
6dc0: 35 33 30 36 64 36 37 62 65 30 32 64 38 64 39 31  5306d67be02d8d91
6dd0: 38 61 65 35 63 39 61 0a 0a 74 63 6c 74 65 73 74  8ae5c9a..tcltest
6de0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6df0: 2d 33 38 34 2d 32 2e 37 37 20 7b 53 48 41 33 5f  -384-2.77 {SHA3_
6e00: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
6e10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6e20: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
6e30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6e40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 64 38  y decode hex 5d8
6e50: 66 38 34 62 32 66 32 30 38 62 35 38 61 36 38 65  f84b2f208b58a68e
6e60: 38 38 63 65 38 65 66 62 35 34 33 61 38 34 30 34  88ce8efb543a8404
6e70: 66 30 65 63 30 63 39 38 30 35 63 37 36 30 61 64  f0ec0c9805c760ad
6e80: 33 35 39 64 31 33 66 61 61 62 38 34 64 33 66 38  359d13faab84d3f8
6e90: 62 62 31 64 32 61 34 62 62 34 35 65 37 32 63 30  bb1d2a4bb45e72c0
6ea0: 65 63 39 32 34 35 66 66 64 61 32 65 35 37 32 66  ec9245ffda2e572f
6eb0: 39 34 65 34 36 36 63 66 66 61 34 34 62 38 37 36  94e466cffa44b876
6ec0: 64 35 63 35 65 64 39 31 34 64 31 66 66 33 33 38  d5c5ed914d1ff338
6ed0: 65 30 36 62 37 34 61 64 31 65 37 34 64 31 34 30  e06b74ad1e74d140
6ee0: 35 64 32 33 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79  5d23d]} \..-body
6ef0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
6f00: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
6f10: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
6f20: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
6f30: 75 6c 74 20 39 34 37 33 35 30 33 30 37 37 34 38  ult 947350307748
6f40: 63 32 39 34 36 37 66 30 30 31 30 33 64 30 61 30  c29467f00103d0a0
6f50: 37 63 33 63 32 32 38 63 35 66 34 39 34 66 63 38  7c3c228c5f494fc8
6f60: 38 66 65 32 33 35 32 63 61 35 64 31 30 34 34 39  8fe2352ca5d10449
6f70: 64 30 64 64 61 37 30 37 36 37 38 30 63 30 35 34  d0dda7076780c054
6f80: 33 39 61 30 39 36 39 34 65 62 35 32 38 64 31 66  39a09694eb528d1f
6f90: 34 37 37 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  477a..tcltest::t
6fa0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
6fb0: 34 2d 32 2e 37 38 20 7b 53 48 41 33 5f 33 38 34  4-2.78 {SHA3_384
6fc0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6fd0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
6fe0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
6ff0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
7000: 65 63 6f 64 65 20 68 65 78 20 33 35 37 64 35 37  ecode hex 357d57
7010: 36 35 35 39 35 30 36 35 65 66 65 32 38 31 61 66  65595065efe281af
7020: 62 38 64 30 32 31 64 34 37 36 34 66 62 61 30 39  b8d021d4764fba09
7030: 31 61 64 64 65 30 35 65 30 32 61 66 30 61 34 33  1adde05e02af0a43
7040: 37 30 35 31 61 30 34 61 33 62 38 65 35 35 32 65  7051a04a3b8e552e
7050: 63 34 38 66 62 37 31 35 32 63 34 37 30 34 31 32  c48fb7152c470412
7060: 63 34 30 65 34 30 65 65 63 35 38 62 38 34 32 38  c40e40eec58b8428
7070: 34 32 64 38 39 39 33 61 35 61 65 31 63 36 31 65  42d8993a5ae1c61e
7080: 62 32 30 64 65 35 31 31 32 33 32 31 62 63 39 37  b20de5112321bc97
7090: 61 66 36 31 38 62 62 66 62 61 66 38 65 32 61 38  af618bbfbaf8e2a8
70a0: 37 36 39 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7699]} \..-body 
70b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
70c0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
70d0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
70e0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
70f0: 6c 74 20 33 32 32 38 36 39 37 30 32 30 34 63 33  lt 32286970204c3
7100: 34 35 31 39 35 38 66 35 31 35 35 66 30 39 30 34  451958f5155f0904
7110: 34 38 66 30 36 31 64 64 38 31 62 31 33 36 61 31  48f061dd81b136a1
7120: 34 35 39 32 61 33 32 30 34 63 36 62 30 38 65 39  4592a3204c6b08e9
7130: 32 32 65 65 35 62 62 36 64 36 35 33 34 64 62 66  22ee5bb6d6534dbf
7140: 38 65 66 62 34 62 62 37 33 38 37 30 39 32 63 38  8efb4bb7387092c8
7150: 34 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  400..tcltest::te
7160: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
7170: 2d 32 2e 37 39 20 7b 53 48 41 33 5f 33 38 34 53  -2.79 {SHA3_384S
7180: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
7190: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
71a0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
71b0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
71c0: 63 6f 64 65 20 68 65 78 20 61 38 63 62 37 38 65  code hex a8cb78e
71d0: 31 34 38 35 63 62 62 37 61 39 34 37 34 63 31 63  1485cbb7a9474c1c
71e0: 31 66 38 65 30 66 33 30 37 63 64 61 35 31 33 39  1f8e0f307cda5139
71f0: 61 37 65 39 34 37 64 66 35 65 61 32 30 61 63 33  a7e947df5ea20ac3
7200: 33 30 61 36 64 66 66 63 61 64 34 61 39 62 64 37  30a6dffcad4a9bd7
7210: 35 35 66 39 66 35 38 37 32 34 37 38 39 65 65 65  55f9f58724789eee
7220: 65 35 33 32 36 31 35 62 65 35 35 30 64 64 38 34  e532615be550dd84
7230: 66 35 32 34 31 66 64 65 30 65 33 30 35 38 61 65  f5241fde0e3058ae
7240: 65 64 62 66 32 38 37 66 30 32 61 34 36 30 34 34  edbf287f02a46044
7250: 35 30 32 37 66 35 65 36 62 33 38 32 39 62 66 37  5027f5e6b3829bf7
7260: 31 65 63 66 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  1ecf4]} \..-body
7270: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
7280: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
7290: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
72a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
72b0: 75 6c 74 20 35 31 31 36 38 62 66 65 65 66 38 61  ult 51168bfeef8a
72c0: 39 38 31 63 30 64 65 66 30 63 34 63 62 30 36 37  981c0def0c4cb067
72d0: 62 61 66 31 35 63 65 35 66 65 62 38 64 35 66 37  baf15ce5feb8d5f7
72e0: 65 39 64 36 30 37 36 62 32 38 33 36 32 36 37 33  e9d6076b28362673
72f0: 39 31 61 65 65 31 66 64 33 61 30 62 35 64 33 34  91aee1fd3a0b5d34
7300: 33 34 63 65 62 35 63 66 32 64 36 66 61 30 36 66  34ceb5cf2d6fa06f
7310: 61 30 36 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  a063..tcltest::t
7320: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
7330: 34 2d 32 2e 38 30 20 7b 53 48 41 33 5f 33 38 34  4-2.80 {SHA3_384
7340: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
7350: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
7360: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
7370: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
7380: 65 63 6f 64 65 20 68 65 78 20 38 31 61 63 63 61  ecode hex 81acca
7390: 38 32 35 34 35 65 37 36 37 61 62 35 39 64 63 63  82545e767ab59dcc
73a0: 37 35 30 61 30 39 38 34 39 63 65 62 61 64 30 38  750a09849cebad08
73b0: 66 66 33 31 63 39 32 39 37 66 34 66 64 35 31 30  ff31c9297f4fd510
73c0: 65 62 65 36 63 32 37 37 36 39 39 33 38 33 31 39  ebe6c27769938319
73d0: 31 38 30 63 63 63 36 36 66 33 36 62 31 61 37 63  180ccc66f36b1a7c
73e0: 66 39 63 39 66 33 35 33 38 62 30 66 36 66 33 37  f9c9f3538b0f6f37
73f0: 31 35 30 39 66 37 37 63 66 30 62 63 34 64 36 64  1509f77cf0bc4d6d
7400: 38 37 66 61 63 63 38 35 62 39 33 33 66 32 65 32  87facc85b933f2e2
7410: 37 66 38 65 31 62 66 36 63 66 33 38 38 66 38 30  7f8e1bf6cf388f80
7420: 63 30 66 63 62 66 62 61 5d 7d 20 5c 0a 09 2d 62  c0fcbfba]} \..-b
7430: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
7440: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
7450: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
7460: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
7470: 72 65 73 75 6c 74 20 34 61 65 34 34 64 36 35 30  result 4ae44d650
7480: 39 39 38 36 38 39 33 61 38 34 31 34 37 35 33 62  9986893a8414753b
7490: 35 37 64 31 31 66 39 63 35 35 34 64 38 39 63 31  57d11f9c554d89c1
74a0: 35 61 64 36 64 37 30 36 38 37 63 35 36 63 36 63  5ad6d70687c56c6c
74b0: 32 61 63 37 33 35 33 37 61 63 62 62 30 64 35 31  2ac73537acbb0d51
74c0: 66 34 38 65 36 62 65 61 36 63 66 37 36 32 64 35  f48e6bea6cf762d5
74d0: 38 38 39 30 64 37 61 0a 0a 74 63 6c 74 65 73 74  8890d7a..tcltest
74e0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
74f0: 2d 33 38 34 2d 32 2e 38 31 20 7b 53 48 41 33 5f  -384-2.81 {SHA3_
7500: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
7510: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
7520: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
7530: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7540: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 34 39  y decode hex 949
7550: 38 37 34 39 38 62 31 63 61 38 37 61 36 66 33 66  87498b1ca87a6f3f
7560: 61 34 62 39 39 39 64 62 37 32 36 31 31 35 63 34  a4b999db726115c4
7570: 35 35 64 30 65 63 32 34 30 32 39 62 32 66 35 38  55d0ec24029b2f58
7580: 31 30 65 34 39 61 39 34 36 36 38 38 36 34 62 38  10e49a94668864b8
7590: 63 34 37 30 66 37 66 63 30 37 63 33 64 63 64 39  c470f7fc07c3dcd9
75a0: 37 66 34 31 63 39 37 33 62 34 35 62 61 34 66 61  7f41c973b45ba4fa
75b0: 37 38 37 39 65 65 37 35 34 36 35 39 36 38 38 31  7879ee7546596881
75c0: 35 37 33 62 36 38 36 33 66 63 33 39 64 39 34 30  573b6863fc39d940
75d0: 65 62 33 66 61 33 34 34 34 30 38 34 66 37 32 31  eb3fa3444084f721
75e0: 33 34 31 66 35 64 32 33 64 32 35 36 31 5d 7d 20  341f5d23d2561]} 
75f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
7600: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
7610: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
7620: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
7630: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 37 33 33  act -result a733
7640: 62 31 31 38 62 65 37 32 61 31 38 37 64 64 63 62  b118be72a187ddcb
7650: 65 35 62 61 36 37 65 30 34 62 35 38 39 66 39 63  e5ba67e04b589f9c
7660: 64 39 66 38 34 38 32 63 34 62 64 39 64 36 34 63  d9f8482c4bd9d64c
7670: 35 38 30 61 62 61 37 64 31 39 64 32 64 31 66 39  580aba7d19d2d1f9
7680: 63 31 64 64 66 39 35 66 65 36 65 66 64 65 66 66  c1ddf95fe6efdeff
7690: 64 34 34 66 36 37 66 63 61 62 62 35 0a 0a 74 63  d44f67fcabb5..tc
76a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
76b0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38 32 20 7b  _SHA3-384-2.82 {
76c0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
76d0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
76e0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
76f0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
7700: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
7710: 78 20 64 65 36 62 33 32 63 32 64 34 30 64 30 36  x de6b32c2d40d06
7720: 35 39 31 36 36 64 62 32 33 35 32 35 39 62 35 33  59166db235259b53
7730: 30 65 61 34 33 66 34 34 65 37 35 64 38 62 33 65  0ea43f44e75d8b3e
7740: 39 65 38 35 36 65 63 34 63 31 34 31 30 62 62 65  9e856ec4c1410bbe
7750: 61 33 36 39 36 39 36 34 61 66 38 62 36 63 35 64  a3696964af8b6c5d
7760: 66 64 33 33 30 34 32 38 32 33 36 39 61 34 62 63  fd3304282369a4bc
7770: 34 65 37 63 66 36 36 62 39 31 66 65 63 64 30 63  4e7cf66b91fecd0c
7780: 37 63 31 30 35 62 35 39 66 31 65 30 61 34 39 36  7c105b59f1e0a496
7790: 33 33 36 66 33 32 37 34 34 30 39 38 30 61 33 34  336f327440980a34
77a0: 36 31 34 65 65 30 30 66 66 66 32 35 38 37 64 36  614ee00fff2587d6
77b0: 62 38 31 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  b813]} \..-body 
77c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
77d0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
77e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
77f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
7800: 6c 74 20 31 37 62 61 33 30 63 30 62 35 66 63 31  lt 17ba30c0b5fc1
7810: 38 35 62 33 32 34 35 33 31 33 62 38 33 64 64 30  85b3245313b83dd0
7820: 34 38 31 31 34 35 39 35 33 31 30 31 31 32 38 39  4811459531011289
7830: 31 34 37 36 35 37 38 34 61 66 37 35 31 37 34 35  14765784af751745
7840: 62 38 61 32 62 36 61 39 30 61 34 33 34 35 34 38  b8a2b6a90a434548
7850: 66 33 61 64 61 66 31 66 30 37 66 31 38 36 34 39  f3adaf1f07f18649
7860: 38 39 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  890..tcltest::te
7870: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
7880: 2d 32 2e 38 33 20 7b 53 48 41 33 5f 33 38 34 53  -2.83 {SHA3_384S
7890: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
78a0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
78b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
78c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
78d0: 63 6f 64 65 20 68 65 78 20 38 35 34 32 31 31 62  code hex 854211b
78e0: 65 64 61 63 63 31 39 66 37 37 62 34 36 63 66 61  edacc19f77b46cfa
78f0: 34 34 37 61 34 61 64 36 37 32 65 61 39 62 36 34  447a4ad672ea9b64
7900: 33 66 30 39 66 35 63 66 35 32 37 34 62 61 32 38  3f09f5cf5274ba28
7910: 38 38 38 32 30 37 65 32 34 36 36 62 33 38 31 32  888207e2466b3812
7920: 37 37 37 36 66 62 39 37 36 64 62 38 61 64 37 31  7776fb976db8ad71
7930: 36 35 61 33 37 38 64 66 36 65 65 31 65 33 61 30  65a378df6ee1e3a0
7940: 66 38 31 30 39 63 39 61 66 66 37 65 30 64 36 31  f8109c9aff7e0d61
7950: 32 36 66 64 37 31 33 33 33 63 36 65 36 65 62 65  26fd71333c6e6ebe
7960: 31 35 64 37 61 36 35 31 35 31 64 36 61 34 61 38  15d7a65151d6a4a8
7970: 33 62 38 32 63 38 61 36 66 33 31 34 39 5d 7d 20  3b82c8a6f3149]} 
7980: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
7990: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
79a0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
79b0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
79c0: 61 63 74 20 2d 72 65 73 75 6c 74 20 63 61 38 35  act -result ca85
79d0: 36 33 32 61 39 66 37 63 33 32 61 63 34 37 30 35  632a9f7c32ac4705
79e0: 63 36 34 35 38 37 37 30 30 32 35 64 64 61 34 66  c6458770025dda4f
79f0: 64 30 37 61 38 64 35 64 36 39 32 31 62 38 39 37  d07a8d5d6921b897
7a00: 62 30 64 61 34 39 30 64 36 34 34 30 30 35 38 37  b0da490d64400587
7a10: 36 34 39 66 32 64 32 30 62 66 36 30 38 62 39 61  649f2d20bf608b9a
7a20: 31 38 64 30 37 31 62 36 33 62 34 38 0a 0a 74 63  18d071b63b48..tc
7a30: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
7a40: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38 34 20 7b  _SHA3-384-2.84 {
7a50: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
7a60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
7a70: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
7a80: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
7a90: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
7aa0: 78 20 38 32 32 33 37 33 64 39 64 33 64 35 62 30  x 822373d9d3d5b0
7ab0: 36 61 38 64 61 34 38 61 34 33 30 39 35 37 34 30  6a8da48a43095740
7ac0: 66 62 39 38 63 39 63 61 66 37 31 37 33 35 30 66  fb98c9caf717350f
7ad0: 64 32 63 33 62 30 35 38 30 32 34 66 66 37 30 35  d2c3b058024ff705
7ae0: 62 39 33 34 36 62 37 66 30 61 34 39 35 61 36 64  b9346b7f0a495a6d
7af0: 34 64 39 33 38 30 32 62 63 34 35 65 63 65 37 37  4d93802bc45ece77
7b00: 37 66 38 63 36 61 36 65 37 63 32 65 66 36 62 38  7f8c6a6e7c2ef6b8
7b10: 31 33 35 31 31 35 66 66 39 31 31 61 32 62 61 35  135115ff911a2ba5
7b20: 32 34 31 36 36 35 62 36 66 37 63 62 66 61 31 62  241665b6f7cbfa1b
7b30: 39 64 39 33 62 30 31 31 62 33 61 61 61 31 64 61  9d93b011b3aaa1da
7b40: 63 31 38 35 33 66 62 32 5d 7d 20 5c 0a 09 2d 62  c1853fb2]} \..-b
7b50: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
7b60: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
7b70: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
7b80: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
7b90: 72 65 73 75 6c 74 20 36 65 38 34 35 38 37 63 38  result 6e84587c8
7ba0: 63 36 65 35 34 33 35 33 61 36 30 33 32 65 37 35  c6e54353a6032e75
7bb0: 30 35 39 30 32 65 66 37 66 30 66 30 35 33 38 64  05902ef7f0f0538d
7bc0: 64 31 62 62 33 32 39 32 32 65 31 33 61 37 64 34  d1bb32922e13a7d4
7bd0: 64 39 38 63 34 37 61 35 34 31 30 31 35 33 38 31  d98c47a541015381
7be0: 65 61 62 32 37 65 39 31 38 36 33 39 38 31 32 30  eab27e9186398120
7bf0: 64 61 37 66 62 33 32 0a 0a 74 63 6c 74 65 73 74  da7fb32..tcltest
7c00: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
7c10: 2d 33 38 34 2d 32 2e 38 35 20 7b 53 48 41 33 5f  -384-2.85 {SHA3_
7c20: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
7c30: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
7c40: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
7c50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7c60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 30 34  y decode hex c04
7c70: 62 37 30 31 66 36 38 38 30 39 32 62 62 64 31 63  b701f688092bbd1c
7c80: 66 34 32 31 37 62 63 34 62 35 38 37 37 66 32 65  f4217bc4b5877f2e
7c90: 36 30 63 30 38 37 62 64 61 63 34 36 36 31 31 34  60c087bdac466114
7ca0: 38 32 61 36 31 64 35 31 66 38 32 30 31 34 30 34  82a61d51f8201404
7cb0: 30 33 62 63 38 35 62 65 30 63 33 33 36 33 33 32  03bc85be0c336332
7cc0: 64 61 30 39 33 38 37 33 34 62 64 65 38 63 35 30  da0938734bde8c50
7cd0: 32 30 31 34 66 33 35 30 39 32 36 36 63 37 33 63  2014f3509266c73c
7ce0: 36 63 39 33 63 32 32 61 31 62 64 30 64 64 66 31  6c93c22a1bd0ddf1
7cf0: 35 61 35 63 65 37 34 31 30 63 32 38 39 34 65 39  5a5ce7410c2894e9
7d00: 64 30 39 32 65 33 32 63 30 37 39 39 32 32 62 61  d092e32c079922ba
7d10: 31 61 62 62 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79  1abb7]} \..-body
7d20: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
7d30: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
7d40: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
7d50: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
7d60: 75 6c 74 20 37 35 63 35 38 35 35 30 33 66 31 35  ult 75c585503f15
7d70: 61 35 32 36 31 31 33 36 30 38 62 63 31 38 33 31  a526113608bc1831
7d80: 38 30 62 31 63 62 38 30 66 34 64 31 62 34 36 36  80b1cb80f4d1b466
7d90: 63 35 37 36 62 66 30 32 31 62 31 63 65 37 61 31  c576bf021b1ce7a1
7da0: 35 32 38 33 39 31 66 37 30 65 31 30 34 34 36 36  528391f70e104466
7db0: 38 31 38 34 39 66 61 38 61 36 34 33 63 62 32 62  81849fa8a643cb2b
7dc0: 36 38 32 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  6828..tcltest::t
7dd0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
7de0: 34 2d 32 2e 38 36 20 7b 53 48 41 33 5f 33 38 34  4-2.86 {SHA3_384
7df0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
7e00: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
7e10: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
7e20: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
7e30: 65 63 6f 64 65 20 68 65 78 20 30 30 39 64 64 38  ecode hex 009dd8
7e40: 32 31 63 62 65 64 31 32 33 35 38 38 30 66 65 36  21cbed1235880fe6
7e50: 34 37 65 31 39 31 66 65 36 66 36 35 35 35 66 64  47e191fe6f6555fd
7e60: 63 39 38 62 38 61 61 64 30 66 66 33 64 61 35 61  c98b8aad0ff3da5a
7e70: 36 64 66 30 65 35 37 39 39 30 34 34 65 66 38 65  6df0e5799044ef8e
7e80: 30 31 32 61 64 35 34 63 62 31 39 61 34 36 66 64  012ad54cb19a46fd
7e90: 64 35 63 38 32 66 32 34 66 33 65 65 37 37 36 31  d5c82f24f3ee7761
7ea0: 33 64 34 62 65 64 39 36 31 66 36 62 37 66 34 38  3d4bed961f6b7f48
7eb0: 31 34 61 61 61 63 34 38 62 64 66 34 33 63 39 32  14aaac48bdf43c92
7ec0: 33 34 63 65 32 65 37 35 39 65 39 61 66 32 66 34  34ce2e759e9af2f4
7ed0: 66 66 31 36 64 38 36 64 35 33 32 37 63 39 37 38  ff16d86d5327c978
7ee0: 64 61 64 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  dad5]} \..-body 
7ef0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7f00: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
7f10: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
7f20: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
7f30: 6c 74 20 30 32 61 30 39 64 33 37 64 33 31 65 34  lt 02a09d37d31e4
7f40: 33 36 35 63 32 36 62 65 63 30 65 61 61 63 65 63  365c26bec0eaacec
7f50: 66 32 39 65 65 61 34 65 38 64 32 31 61 62 39 31  f29eea4e8d21ab91
7f60: 35 64 64 36 30 35 32 34 38 37 36 34 64 39 36 34  5dd605248764d964
7f70: 66 31 30 65 62 62 38 66 61 66 64 62 35 39 31 39  f10ebb8fafdb5919
7f80: 38 32 64 33 33 38 36 39 61 31 64 30 38 61 37 65  82d33869a1d08a7e
7f90: 33 31 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  313..tcltest::te
7fa0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
7fb0: 2d 32 2e 38 37 20 7b 53 48 41 33 5f 33 38 34 53  -2.87 {SHA3_384S
7fc0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
7fd0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
7fe0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7ff0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8000: 63 6f 64 65 20 68 65 78 20 30 62 37 64 64 36 37  code hex 0b7dd67
8010: 30 39 64 35 35 65 30 64 35 32 36 64 36 34 63 30  09d55e0d526d64c0
8020: 63 35 61 66 34 30 61 63 66 35 39 35 62 65 33 35  c5af40acf595be35
8030: 33 64 37 30 35 62 65 37 62 37 61 30 62 31 63 34  3d705be7b7a0b1c4
8040: 63 38 33 62 62 65 36 61 31 62 31 65 63 36 38 31  c83bbe6a1b1ec681
8050: 66 36 32 38 65 39 64 36 63 66 63 38 35 61 64 39  f628e9d6cfc85ad9
8060: 63 38 62 62 38 62 34 65 63 61 63 36 34 63 35 62  c8bb8b4ecac64c5b
8070: 33 61 39 62 37 32 66 39 35 65 35 39 61 66 65 66  3a9b72f95e59afef
8080: 61 37 62 63 65 63 35 62 65 32 32 33 61 39 62 32  a7bcec5be223a9b2
8090: 62 35 34 38 33 36 34 32 34 61 66 64 65 35 32 61  b54836424afde52a
80a0: 32 39 62 32 32 61 62 36 35 32 64 32 32 63 63 65  29b22ab652d22cce
80b0: 33 34 62 33 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79  34b39]} \..-body
80c0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
80d0: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
80e0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
80f0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
8100: 75 6c 74 20 35 63 38 34 61 65 33 39 64 39 35 39  ult 5c84ae39d959
8110: 62 37 39 35 35 35 32 33 31 37 34 36 61 64 35 62  b79555231746ad5b
8120: 33 33 36 38 39 61 33 31 37 32 30 65 64 30 30 37  33689a31720ed007
8130: 30 66 36 37 37 32 31 34 37 39 37 37 65 64 64 30  0f6772147977edd0
8140: 61 65 61 64 30 37 66 62 38 62 37 62 37 31 62 30  aead07fb8b7b71b0
8150: 62 64 35 38 37 65 62 63 35 63 31 61 38 30 64 35  bd587ebc5c1a80d5
8160: 36 34 63 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  64c7..tcltest::t
8170: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
8180: 34 2d 32 2e 38 38 20 7b 53 48 41 33 5f 33 38 34  4-2.88 {SHA3_384
8190: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
81a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
81b0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
81c0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
81d0: 65 63 6f 64 65 20 68 65 78 20 33 65 39 62 36 35  ecode hex 3e9b65
81e0: 64 37 62 66 34 32 33 39 34 32 30 61 66 61 38 36  d7bf4239420afa86
81f0: 33 39 63 38 31 39 35 62 36 33 39 30 32 62 32 34  39c8195b63902b24
8200: 34 39 35 62 39 35 63 34 31 34 33 39 37 38 65 34  495b95c4143978e4
8210: 39 38 34 33 64 38 38 61 39 32 64 31 66 65 65 64  9843d88a92d1feed
8220: 32 65 65 64 31 61 38 38 63 64 30 37 32 64 36 64  2eed1a88cd072d6d
8230: 30 34 65 61 32 36 64 63 65 38 65 65 34 62 31 34  04ea26dce8ee4b14
8240: 38 39 36 66 64 62 36 39 62 63 37 66 66 32 39 37  896fdb69bc7ff297
8250: 31 65 64 38 61 63 35 36 35 35 31 34 38 64 32 65  1ed8ac5655148d2e
8260: 39 39 32 31 32 31 38 64 37 34 65 66 64 66 31 37  9921218d74efdf17
8270: 63 35 36 62 35 33 33 64 30 62 62 31 37 64 31 31  c56b533d0bb17d11
8280: 65 30 37 64 37 34 35 38 5d 7d 20 5c 0a 09 2d 62  e07d7458]} \..-b
8290: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
82a0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
82b0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
82c0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
82d0: 72 65 73 75 6c 74 20 61 62 37 38 39 30 64 31 62  result ab7890d1b
82e0: 35 31 61 66 31 30 32 38 35 37 35 32 62 66 39 64  51af10285752bf9d
82f0: 61 35 65 65 65 35 63 33 65 38 37 61 32 38 35 64  a5eee5c3e87a285d
8300: 63 33 33 32 36 32 64 30 32 36 31 61 61 39 61 35  c33262d0261aa9a5
8310: 37 35 66 33 30 33 65 39 34 38 34 35 64 37 61 62  75f303e94845d7ab
8320: 32 31 62 34 38 66 34 65 36 38 38 34 35 36 38 63  21b48f4e6884568c
8330: 64 37 38 62 35 35 30 0a 0a 74 63 6c 74 65 73 74  d78b550..tcltest
8340: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
8350: 2d 33 38 34 2d 32 2e 38 39 20 7b 53 48 41 33 5f  -384-2.89 {SHA3_
8360: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
8370: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
8380: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
8390: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
83a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 34 33  y decode hex 943
83b0: 36 64 61 34 33 33 64 31 65 62 64 31 30 62 39 34  6da433d1ebd10b94
83c0: 36 62 31 32 39 63 62 33 34 62 63 63 65 63 39 62  6b129cb34bccec9b
83d0: 38 66 37 30 35 61 61 62 61 33 66 38 35 36 31 33  8f705aaba3f85613
83e0: 35 32 65 64 33 36 61 38 34 34 39 61 62 61 32 64  52ed36a8449aba2d
83f0: 64 37 62 61 31 35 62 31 62 63 33 30 38 62 30 63  d7ba15b1bc308b0c
8400: 30 32 39 31 33 31 36 33 61 66 36 33 61 33 34 36  02913163af63a346
8410: 35 32 34 64 66 66 35 35 32 31 34 33 32 64 62 34  524dff5521432db4
8420: 37 37 66 35 32 39 36 30 36 61 66 62 35 64 35 35  77f529606afb5d55
8430: 32 65 66 63 39 35 63 62 30 34 30 64 62 35 36 36  2efc95cb040db566
8440: 62 34 64 33 39 65 64 64 61 61 31 39 33 31 39 65  b4d39eddaa19319e
8450: 35 31 38 61 37 62 35 63 36 39 33 31 65 5d 7d 20  518a7b5c6931e]} 
8460: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
8470: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
8480: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
8490: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
84a0: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 36 38 61  act -result 968a
84b0: 65 39 31 30 34 66 39 63 39 30 37 63 35 61 37 32  e9104f9c907c5a72
84c0: 39 33 36 32 35 30 64 66 65 64 64 36 32 63 64 30  936250dfedd62cd0
84d0: 34 66 36 65 35 64 64 64 32 63 31 31 33 34 39 30  4f6e5ddd2c113490
84e0: 38 30 38 61 31 31 38 38 34 34 34 39 61 61 65 66  808a11884449aaef
84f0: 35 64 30 31 33 65 61 33 39 39 33 61 36 63 62 36  5d013ea3993a6cb6
8500: 66 63 35 63 30 38 37 35 34 34 30 38 0a 0a 74 63  fc5c08754408..tc
8510: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
8520: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39 30 20 7b  _SHA3-384-2.90 {
8530: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
8540: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
8550: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
8560: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
8570: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
8580: 78 20 33 37 32 35 34 62 66 39 62 63 37 63 64 34  x 37254bf9bc7cd4
8590: 65 64 37 32 65 37 32 62 36 62 62 36 32 33 61 30  ed72e72b6bb623a0
85a0: 63 63 38 65 65 62 39 36 33 64 38 32 37 61 65 66  cc8eeb963d827aef
85b0: 36 35 61 64 34 62 63 35 34 39 31 33 32 33 35 62  65ad4bc54913235b
85c0: 36 64 33 35 35 31 35 33 33 63 65 33 33 34 32 31  6d3551533ce33421
85d0: 61 61 35 32 66 66 62 66 31 38 36 65 62 39 61 32  aa52ffbf186eb9a2
85e0: 37 38 37 31 38 38 65 65 62 31 62 35 32 65 65 36  787188eeb1b52ee6
85f0: 34 35 63 36 64 34 61 36 33 31 62 63 30 37 31 34  45c6d4a631bc0714
8600: 31 35 63 38 30 30 31 34 39 34 30 63 32 38 66 62  15c80014940c28fb
8610: 66 65 62 30 64 62 34 37 32 63 33 32 36 63 38 64  feb0db472c326c8d
8620: 61 63 66 64 36 61 62 32 31 66 33 65 32 32 35 65  acfd6ab21f3e225e
8630: 64 65 66 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  def3]} \..-body 
8640: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8650: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
8660: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
8670: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
8680: 6c 74 20 39 37 35 65 31 30 66 61 63 39 61 61 37  lt 975e10fac9aa7
8690: 37 62 37 38 30 65 35 66 36 63 32 31 35 31 65 63  7b780e5f6c2151ec
86a0: 34 61 33 63 37 32 66 66 32 36 65 34 31 32 33 33  4a3c72ff26e41233
86b0: 63 63 37 37 34 63 30 37 34 64 66 31 62 37 38 63  cc774c074df1b78c
86c0: 63 65 35 61 66 31 31 39 31 62 61 39 35 35 61 30  ce5af1191ba955a0
86d0: 62 63 65 31 35 39 32 36 61 65 36 39 31 62 30 66  bce15926ae691b0f
86e0: 66 65 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  fe7..tcltest::te
86f0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
8700: 2d 32 2e 39 31 20 7b 53 48 41 33 5f 33 38 34 53  -2.91 {SHA3_384S
8710: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
8720: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
8730: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
8740: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8750: 63 6f 64 65 20 68 65 78 20 37 39 65 37 37 63 64  code hex 79e77cd
8760: 30 38 61 36 65 66 37 37 30 62 62 65 34 62 65 64  08a6ef770bbe4bed
8770: 66 36 31 35 35 37 65 61 36 33 32 62 34 32 64 37  f61557ea632b42d7
8780: 38 36 33 37 31 34 39 36 37 30 64 34 64 36 31 35  8637149670d4d615
8790: 37 64 35 36 65 64 37 62 32 63 63 61 65 65 34 35  7d56ed7b2ccaee45
87a0: 64 39 34 33 39 64 63 65 62 63 35 35 37 62 34 31  d9439dcebc557b41
87b0: 31 38 65 38 36 63 31 35 61 61 30 63 63 63 32 31  18e86c15aa0ccc21
87c0: 63 34 37 34 62 32 31 61 62 64 61 31 36 37 36 63  c474b21abda1676c
87d0: 63 35 36 34 33 34 64 36 64 34 36 34 32 32 39 39  c56434d6d4642299
87e0: 33 65 36 36 64 63 39 39 33 38 37 64 66 61 39 38  3e66dc99387dfa98
87f0: 35 33 35 38 61 63 63 66 36 39 38 38 34 62 39 64  5358accf69884b9d
8800: 64 31 38 61 32 63 34 64 30 34 34 34 38 5d 7d 20  d18a2c4d04448]} 
8810: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
8820: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
8830: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
8840: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
8850: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 34 37 32  act -result 9472
8860: 39 66 35 66 39 39 61 35 34 66 35 61 33 65 61 36  9f5f99a54f5a3ea6
8870: 39 32 33 33 66 66 39 64 35 32 32 33 39 32 64 34  9233ff9d522392d4
8880: 35 39 36 65 62 36 61 63 32 62 62 62 30 37 34 39  596eb6ac2bbb0749
8890: 32 65 63 65 33 63 36 37 33 31 37 34 31 32 62 62  2ece3c67317412bb
88a0: 34 37 61 65 33 31 37 64 64 64 32 30 35 33 36 63  47ae317ddd20536c
88b0: 33 61 64 63 30 30 33 38 36 32 66 31 0a 0a 74 63  3adc003862f1..tc
88c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
88d0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39 32 20 7b  _SHA3-384-2.92 {
88e0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
88f0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
8900: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
8910: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
8920: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
8930: 78 20 36 34 62 37 36 63 62 35 35 34 66 36 62 65  x 64b76cb554f6be
8940: 63 63 32 33 38 61 33 66 63 66 63 33 65 62 39 37  cc238a3fcfc3eb97
8950: 39 39 33 36 36 37 65 63 38 32 66 64 63 33 66 62  993667ec82fdc3fb
8960: 32 38 64 34 32 35 36 37 37 30 39 63 33 32 35 30  28d42567709c3250
8970: 63 37 39 39 37 33 32 38 61 65 64 64 66 64 63 32  c7997328aeddfdc2
8980: 37 35 30 34 35 31 61 63 34 36 32 32 38 31 62 66  750451ac462281bf
8990: 36 36 66 61 39 34 66 34 62 38 37 31 32 63 37 61  66fa94f4b8712c7a
89a0: 38 33 34 32 36 36 30 35 37 34 66 32 30 32 36 38  8342660574f20268
89b0: 65 37 30 37 63 34 36 36 36 32 37 35 31 39 63 35  e707c466627519c5
89c0: 36 32 35 39 66 65 61 35 35 62 65 39 31 65 31 30  6259fea55be91e10
89d0: 66 61 61 62 33 61 64 32 61 64 65 36 63 65 38 62  faab3ad2ade6ce8b
89e0: 36 35 35 37 66 32 30 32 5d 7d 20 5c 0a 09 2d 62  6557f202]} \..-b
89f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
8a00: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
8a10: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
8a20: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
8a30: 72 65 73 75 6c 74 20 32 36 64 34 38 65 66 35 30  result 26d48ef50
8a40: 36 37 64 37 30 34 65 65 39 65 32 61 36 34 65 33  67d704ee9e2a64e3
8a50: 39 39 64 65 32 33 30 36 38 39 30 38 62 33 63 39  99de23068908b3c9
8a60: 31 31 66 66 63 34 30 35 36 63 31 36 38 33 36 32  11ffc4056c168362
8a70: 63 33 37 33 38 35 63 39 32 64 33 37 64 35 31 33  c37385c92d37d513
8a80: 35 34 62 36 35 30 35 61 38 32 63 34 64 32 32 66  54b6505a82c4d22f
8a90: 65 63 33 37 65 61 61 0a 0a 74 63 6c 74 65 73 74  ec37eaa..tcltest
8aa0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
8ab0: 2d 33 38 34 2d 32 2e 39 33 20 7b 53 48 41 33 5f  -384-2.93 {SHA3_
8ac0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
8ad0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
8ae0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
8af0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8b00: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 64 66  y decode hex 3df
8b10: 32 37 38 32 39 62 66 62 31 61 62 37 64 33 38 31  27829bfb1ab7d381
8b20: 66 31 34 36 62 33 30 33 37 30 65 66 35 36 62 33  f146b30370ef56b3
8b30: 39 32 62 37 33 62 33 35 62 31 62 65 35 64 38 62  92b73b35b1be5d8b
8b40: 62 63 66 38 38 66 34 39 39 64 64 61 37 66 33 63  bcf88f499dda7f3c
8b50: 33 32 37 62 34 35 33 35 30 62 38 39 37 32 39 39  327b45350b897299
8b60: 31 65 65 34 36 36 35 34 35 64 65 39 36 35 36 30  1ee466545de96560
8b70: 63 66 34 35 31 37 31 31 66 64 61 38 38 34 65 33  cf451711fda884e3
8b80: 64 39 62 32 61 66 33 65 39 30 39 64 36 35 35 64  d9b2af3e909d655d
8b90: 32 35 63 65 65 31 63 39 33 31 62 65 64 61 37 39  25cee1c931beda79
8ba0: 63 34 30 66 61 35 30 37 30 39 37 62 64 66 31 31  c40fa507097bdf11
8bb0: 32 36 37 37 31 61 37 62 39 35 34 33 61 64 35 63  26771a7b9543ad5c
8bc0: 62 38 34 62 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b84b9]} \..-body
8bd0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
8be0: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
8bf0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
8c00: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
8c10: 75 6c 74 20 35 66 61 34 65 62 66 61 32 34 31 35  ult 5fa4ebfa2415
8c20: 30 32 33 36 63 30 33 34 30 39 66 30 38 35 37 62  0236c03409f0857b
8c30: 33 31 63 62 39 35 62 30 31 35 30 66 33 38 31 63  31cb95b0150f381c
8c40: 38 38 35 38 62 30 31 35 35 39 39 35 37 62 31 32  8858b01559957b12
8c50: 36 38 66 37 33 63 36 39 38 37 30 39 32 33 33 65  68f73c698709233e
8c60: 36 62 31 35 34 36 38 36 37 35 61 31 30 32 64 30  6b15468675a102d0
8c70: 63 35 65 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  c5e5..tcltest::t
8c80: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
8c90: 34 2d 32 2e 39 34 20 7b 53 48 41 33 5f 33 38 34  4-2.94 {SHA3_384
8ca0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
8cb0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
8cc0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
8cd0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
8ce0: 65 63 6f 64 65 20 68 65 78 20 62 30 30 66 34 65  ecode hex b00f4e
8cf0: 36 37 63 61 30 38 63 63 66 61 33 32 62 32 36 39  67ca08ccfa32b269
8d00: 38 66 37 30 34 31 31 64 38 66 35 37 30 66 36 39  8f70411d8f570f69
8d10: 63 38 39 36 65 31 38 65 63 38 38 39 36 63 66 65  c896e18ec8896cfe
8d20: 38 39 35 35 31 38 31 30 35 34 33 33 30 33 66 37  89551810543303f7
8d30: 64 66 30 63 34 39 66 35 62 39 34 37 38 33 63 63  df0c49f5b94783cc
8d40: 65 37 64 66 38 64 37 36 64 30 62 38 38 64 31 35  e7df8d76d0b88d15
8d50: 35 36 33 33 33 30 32 64 34 36 30 30 33 37 31 31  5633302d46003711
8d60: 66 32 33 33 33 33 39 62 31 63 39 61 38 63 32 30  f233339b1c9a8c20
8d70: 31 36 34 65 63 38 61 33 32 38 38 39 30 61 34 39  164ec8a328890a49
8d80: 33 32 62 37 64 39 30 64 39 32 64 30 32 33 62 35  32b7d90d92d023b5
8d90: 34 38 65 34 38 32 30 35 35 38 66 38 62 64 33 32  48e4820558f8bd32
8da0: 37 30 31 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7010]} \..-body 
8db0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8dc0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
8dd0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
8de0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
8df0: 6c 74 20 65 61 61 37 35 36 62 35 38 39 32 66 64  lt eaa756b5892fd
8e00: 66 63 37 39 33 64 37 34 65 33 66 39 66 34 64 36  fc793d74e3f9f4d6
8e10: 63 37 61 35 61 36 61 32 32 34 31 64 64 31 31 65  c7a5a6a2241dd11e
8e20: 30 63 33 38 63 65 64 35 39 63 38 65 63 37 62 65  0c38ced59c8ec7be
8e30: 33 37 37 61 34 31 64 31 64 30 36 37 37 34 61 35  377a41d1d06774a5
8e40: 39 37 30 63 65 39 37 32 32 64 38 65 31 31 39 64  970ce9722d8e119d
8e50: 30 61 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  0ad..tcltest::te
8e60: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
8e70: 2d 32 2e 39 35 20 7b 53 48 41 33 5f 33 38 34 53  -2.95 {SHA3_384S
8e80: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
8e90: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
8ea0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
8eb0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8ec0: 63 6f 64 65 20 68 65 78 20 61 34 66 39 35 66 36  code hex a4f95f6
8ed0: 61 34 36 61 39 63 62 66 33 38 34 61 37 65 39 38  a46a9cbf384a7e98
8ee0: 65 31 30 32 64 31 66 64 63 39 36 38 33 39 64 31  e102d1fdc96839d1
8ef0: 62 66 32 36 62 33 35 61 35 61 30 62 64 36 63 62  bf26b35a5a0bd6cb
8f00: 39 37 33 34 66 64 31 37 65 38 61 31 37 38 64 34  9734fd17e8a178d4
8f10: 35 38 31 39 34 33 63 30 66 65 34 36 39 66 62 34  581943c0fe469fb4
8f20: 66 65 39 34 63 63 32 66 31 35 65 31 65 66 35 39  fe94cc2f15e1ef59
8f30: 61 65 30 35 62 33 35 33 32 34 65 62 35 37 63 61  ae05b35324eb57ca
8f40: 30 37 64 66 63 36 39 64 34 32 64 34 31 64 38 30  07dfc69d42d41d80
8f50: 62 33 63 33 62 62 36 34 65 31 61 65 61 31 34 33  b3c3bb64e1aea143
8f60: 63 37 64 37 39 37 39 30 61 35 36 36 39 37 64 63  c7d79790a56697dc
8f70: 38 30 33 65 63 39 33 65 36 63 36 38 66 32 37 66  803ec93e6c68f27f
8f80: 36 37 36 31 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79  6761c]} \..-body
8f90: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
8fa0: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d  igest SHA3-384 -
8fb0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
8fc0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
8fd0: 75 6c 74 20 31 61 66 66 38 64 39 63 36 34 66 30  ult 1aff8d9c64f0
8fe0: 63 31 36 32 65 64 30 31 39 35 64 31 66 33 61 33  c162ed0195d1f3a3
8ff0: 34 32 61 30 31 30 64 31 34 62 65 30 36 33 36 39  42a010d14be06369
9000: 30 33 63 34 38 30 32 30 62 61 34 32 64 65 31 63  03c48020ba42de1c
9010: 66 61 38 62 39 38 61 65 32 31 34 32 64 38 39 61  fa8b98ae2142d89a
9020: 66 33 65 36 39 65 39 65 62 34 63 37 33 35 38 35  f3e69e9eb4c73585
9030: 37 64 64 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  7dd1..tcltest::t
9040: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38  est Hash_SHA3-38
9050: 34 2d 32 2e 39 36 20 7b 53 48 41 33 5f 33 38 34  4-2.96 {SHA3_384
9060: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
9070: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
9080: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
9090: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
90a0: 65 63 6f 64 65 20 68 65 78 20 30 32 37 31 33 30  ecode hex 027130
90b0: 38 34 62 66 39 33 66 64 63 33 35 31 33 35 35 31  84bf93fdc3513551
90c0: 35 32 34 33 63 33 62 63 30 66 34 62 32 62 34 34  5243c3bc0f4b2b44
90d0: 37 66 32 64 33 34 36 31 63 30 64 63 31 30 34 63  7f2d3461c0dc104c
90e0: 62 66 65 32 33 34 37 39 61 62 30 33 36 37 36 32  bfe23479ab036762
90f0: 61 39 31 64 31 39 38 37 63 39 35 33 66 37 62 33  a91d1987c953f7b3
9100: 33 38 36 61 62 63 38 30 62 38 37 33 34 61 31 64  386abc80b8734a1d
9110: 34 65 61 62 66 39 34 66 33 61 39 66 32 66 62 36  4eabf94f3a9f2fb6
9120: 32 63 39 34 33 31 35 32 62 35 32 35 33 38 34 36  2c943152b5253846
9130: 66 63 32 65 63 38 64 62 62 32 65 39 33 64 63 37  fc2ec8dbb2e93dc7
9140: 34 38 35 37 61 37 62 30 35 66 65 32 64 37 65 63  4857a7b05fe2d7ec
9150: 38 30 34 30 62 61 38 62 30 64 39 61 65 36 39 37  8040ba8b0d9ae697
9160: 37 37 65 65 37 33 39 61 5d 7d 20 5c 0a 09 2d 62  77ee739a]} \..-b
9170: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
9180: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
9190: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
91a0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
91b0: 72 65 73 75 6c 74 20 38 34 64 61 30 32 31 31 34  result 84da02114
91c0: 65 33 34 31 61 33 36 33 36 66 30 30 38 32 32 62  e341a3636f00822b
91d0: 33 32 62 64 32 31 61 38 61 31 66 37 62 33 39 66  32bd21a8a1f7b39f
91e0: 32 39 35 36 62 64 39 37 66 33 39 33 34 36 66 65  2956bd97f39346fe
91f0: 64 66 39 61 61 65 36 33 62 33 30 34 63 36 35 63  df9aae63b304c65c
9200: 39 33 61 35 34 31 65 38 62 63 64 61 35 34 39 35  93a541e8bcda5495
9210: 37 36 64 35 66 32 37 0a 0a 74 63 6c 74 65 73 74  76d5f27..tcltest
9220: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
9230: 2d 33 38 34 2d 32 2e 39 37 20 7b 53 48 41 33 5f  -384-2.97 {SHA3_
9240: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
9250: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
9260: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
9270: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9280: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 63  y decode hex 00c
9290: 65 32 32 35 65 61 65 61 32 34 38 34 33 34 30 36  e225eaea24843406
92a0: 66 61 34 32 63 63 38 34 35 30 65 36 36 66 37 36  fa42cc8450e66f76
92b0: 61 63 39 66 35 34 39 62 38 35 39 31 66 37 64 34  ac9f549b8591f7d4
92c0: 30 39 34 32 66 34 38 33 33 66 63 37 33 34 61 30  0942f4833fc734a0
92d0: 33 34 63 38 37 34 31 63 35 35 31 64 35 37 64 64  34c8741c551d57dd
92e0: 61 66 62 35 64 39 34 63 65 62 34 62 32 35 36 38  afb5d94ceb4b2568
92f0: 30 66 30 34 35 30 33 38 33 30 36 65 36 62 63 63  0f045038306e6bcc
9300: 35 33 65 38 38 33 38 36 65 32 62 34 35 62 38 30  53e88386e2b45b80
9310: 62 33 62 61 32 33 64 65 63 38 63 31 33 66 38 63  b3ba23dec8c13f8c
9320: 61 30 31 63 32 30 32 61 65 39 36 38 63 34 64 30  a01c202ae968c4d0
9330: 64 66 30 34 63 64 62 33 38 33 39 35 64 32 64 66  df04cdb38395d2df
9340: 34 32 61 35 61 66 66 36 34 36 39 32 38 5d 7d 20  42a5aff646928]} 
9350: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
9360: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
9370: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
9380: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
9390: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 31 64 36  act -result 81d6
93a0: 65 30 64 39 36 35 37 35 61 39 62 38 63 61 30 38  e0d96575a9b8ca08
93b0: 33 65 65 39 65 63 32 65 61 64 35 37 64 64 66 37  3ee9ec2ead57ddf7
93c0: 32 62 39 37 64 37 37 30 39 30 38 36 61 32 66 34  2b97d7709086a2f4
93d0: 61 37 34 39 64 33 66 36 31 64 31 36 34 32 33 34  a749d3f61d164234
93e0: 36 33 34 38 37 35 36 32 63 37 66 30 39 61 62 61  63487562c7f09aba
93f0: 31 62 32 36 65 38 63 61 65 34 37 62 0a 0a 74 63  1b26e8cae47b..tc
9400: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
9410: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39 38 20 7b  _SHA3-384-2.98 {
9420: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
9430: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
9440: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
9450: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
9460: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
9470: 78 20 37 61 66 33 66 65 65 64 39 62 30 66 36 65  x 7af3feed9b0f6e
9480: 39 34 30 38 65 38 63 30 33 39 37 63 39 62 62 36  9408e8c0397c9bb6
9490: 37 31 64 30 66 33 66 38 30 39 32 36 64 32 66 34  71d0f3f80926d2f4
94a0: 38 66 36 38 64 32 65 38 31 34 66 31 32 62 33 64  8f68d2e814f12b3d
94b0: 33 31 38 39 64 38 31 37 34 38 39 37 66 35 32 61  3189d8174897f52a
94c0: 30 63 39 32 36 63 63 66 34 34 62 39 64 30 35 37  0c926ccf44b9d057
94d0: 63 63 30 34 38 39 39 66 64 63 35 61 33 32 65 34  cc04899fdc5a32e4
94e0: 38 63 30 34 33 66 64 39 39 38 36 32 65 33 66 37  8c043fd99862e3f7
94f0: 36 31 64 63 33 31 31 35 33 35 31 63 38 31 33 38  61dc3115351c8138
9500: 64 30 37 61 31 35 61 63 32 33 62 38 66 63 35 34  d07a15ac23b8fc54
9510: 35 34 66 30 33 37 33 65 30 35 63 61 31 62 37 61  54f0373e05ca1b7a
9520: 64 39 66 32 66 36 32 64 33 34 63 61 66 35 65 31  d9f2f62d34caf5e1
9530: 34 33 35 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  435c]} \..-body 
9540: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
9550: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
9560: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
9570: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
9580: 6c 74 20 30 30 65 39 35 66 34 65 38 61 33 32 61  lt 00e95f4e8a32a
9590: 30 33 65 30 61 33 61 66 62 61 30 66 64 36 32 63  03e0a3afba0fd62c
95a0: 37 63 33 63 37 31 32 30 62 34 31 65 32 39 37 61  7c3c7120b41e297a
95b0: 37 66 66 31 34 39 35 38 63 30 62 64 66 30 31 35  7ff14958c0bdf015
95c0: 61 34 37 38 66 37 62 61 62 39 61 32 32 30 38 32  a478f7bab9a22082
95d0: 62 66 62 30 64 32 30 36 65 38 38 66 34 36 38 35  bfb0d206e88f4685
95e0: 31 31 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  117..tcltest::te
95f0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
9600: 2d 32 2e 39 39 20 7b 53 48 41 33 5f 33 38 34 53  -2.99 {SHA3_384S
9610: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
9620: 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38  straints SHA3_38
9630: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
9640: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
9650: 63 6f 64 65 20 68 65 78 20 32 65 61 65 37 36 66  code hex 2eae76f
9660: 34 65 37 66 34 38 64 33 36 63 64 38 33 36 30 37  4e7f48d36cd83607
9670: 38 31 33 63 65 36 62 64 39 61 62 30 65 63 66 38  813ce6bd9ab0ecf8
9680: 34 36 61 64 39 39 39 64 66 36 37 66 36 34 37 30  46ad999df67f6470
9690: 36 61 34 37 30 38 39 37 37 66 30 65 39 34 34 30  6a4708977f0e9440
96a0: 66 30 62 33 31 64 63 33 35 30 63 31 37 62 33 35  f0b31dc350c17b35
96b0: 35 30 30 37 66 65 64 39 30 64 34 62 35 37 37 62  5007fed90d4b577b
96c0: 31 37 35 30 31 34 37 36 33 33 35 37 63 65 35 61  175014763357ce5a
96d0: 32 37 31 32 31 32 61 37 30 37 30 32 37 34 37 63  271212a70702747c
96e0: 39 38 66 38 66 30 61 64 38 39 62 66 39 35 64 36  98f8f0ad89bf95d6
96f0: 62 37 66 62 62 31 30 61 35 31 66 33 34 64 38 66  b7fbb10a51f34d8f
9700: 32 38 33 35 65 39 37 34 30 33 38 61 33 64 64 36  2835e974038a3dd6
9710: 64 66 33 66 32 61 66 66 62 37 38 31 31 5d 7d 20  df3f2affb7811]} 
9720: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
9730: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
9740: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
9750: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
9760: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 62 33 39  act -result eb39
9770: 36 63 66 61 66 32 36 65 65 32 37 37 35 61 66 33  6cfaf26ee2775af3
9780: 63 39 61 33 61 33 30 34 37 36 36 34 63 61 33 34  c9a3a3047664ca34
9790: 63 62 63 32 32 38 63 63 62 62 39 36 36 64 66 31  cbc228ccbb966df1
97a0: 38 37 64 35 31 38 37 31 37 64 66 36 61 33 32 38  87d518717df6a328
97b0: 65 63 63 33 31 36 65 64 30 65 64 30 39 62 31 37  ecc316ed0ed09b17
97c0: 30 30 38 30 65 63 63 63 34 38 36 66 0a 0a 74 63  0080eccc486f..tc
97d0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
97e0: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 30 30 20  _SHA3-384-2.100 
97f0: 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73  {SHA3_384ShortMs
9800: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
9810: 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d  ts SHA3_384 \..-
9820: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
9830: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
9840: 65 78 20 30 39 33 65 35 36 64 33 33 62 64 39 33  ex 093e56d33bd93
9850: 33 37 61 64 32 61 64 32 36 38 64 31 34 62 61 63  37ad2ad268d14bac
9860: 36 39 61 36 34 61 38 61 37 33 36 31 33 35 30 63  69a64a8a7361350c
9870: 66 39 66 37 38 37 65 36 39 61 30 34 33 66 35 62  f9f787e69a043f5b
9880: 65 62 35 30 65 62 34 36 30 37 30 33 35 37 38 61  eb50eb460703578a
9890: 38 31 62 65 38 38 32 36 33 39 66 37 65 39 61 63  81be882639f7e9ac
98a0: 39 61 35 30 63 35 34 61 66 66 61 33 37 39 32 66  9a50c54affa3792f
98b0: 64 33 38 34 36 34 61 36 31 61 33 37 63 38 61 34  d38464a61a37c8a4
98c0: 35 35 31 61 34 62 39 66 66 38 65 65 64 31 66 34  551a4b9ff8eed1f4
98d0: 38 37 65 66 38 61 38 66 30 30 34 33 30 65 34 64  87ef8a8f00430e4d
98e0: 30 65 33 35 61 35 33 66 66 32 33 36 63 65 30 34  0e35a53ff236ce04
98f0: 39 62 37 61 33 61 62 64 63 35 63 64 30 30 62 34  9b7a3abdc5cd00b4
9900: 35 63 34 66 33 64 34 39 62 5d 7d 20 5c 0a 09 2d  5c4f3d49b]} \..-
9910: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9920: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33  t -digest SHA3-3
9930: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
9940: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
9950: 2d 72 65 73 75 6c 74 20 34 61 33 33 39 31 32 38  -result 4a339128
9960: 34 38 36 65 35 62 32 37 34 66 63 34 65 64 35 33  486e5b274fc4ed53
9970: 38 63 30 65 63 39 65 35 37 66 37 38 30 65 39 63  8c0ec9e57f780e9c
9980: 35 30 30 63 35 66 39 32 62 30 34 61 65 38 31 61  500c5f92b04ae81a
9990: 32 32 66 62 65 65 62 66 33 37 38 35 32 35 39 61  22fbeebf3785259a
99a0: 30 62 62 33 62 36 64 39 62 34 37 66 33 31 38 37  0bb3b6d9b47f3187
99b0: 33 63 64 38 64 66 66 61 0a 0a 74 63 6c 74 65 73  3cd8dffa..tcltes
99c0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
99d0: 33 2d 33 38 34 2d 32 2e 31 30 31 20 7b 53 48 41  3-384-2.101 {SHA
99e0: 33 5f 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_384ShortMsg} \
99f0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9a00: 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75  HA3_384 \..-setu
9a10: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
9a20: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30  ary decode hex 0
9a30: 35 39 33 62 61 62 65 37 61 36 32 30 32 30 37 37  593babe7a6202077
9a40: 63 30 32 36 65 32 35 33 63 62 34 63 36 30 65 65  c026e253cb4c60ee
9a50: 37 62 61 64 37 62 31 63 33 31 61 32 30 64 61 37  7bad7b1c31a20da7
9a60: 61 61 30 63 65 35 36 62 36 32 32 65 62 35 37 65  aa0ce56b622eb57e
9a70: 64 30 37 64 32 31 61 37 66 30 61 65 36 63 36 66  d07d21a7f0ae6c6f
9a80: 65 33 63 38 33 39 38 63 63 34 38 33 35 33 64 65  e3c8398cc48353de
9a90: 63 66 62 32 38 37 66 31 32 30 34 65 30 32 34 66  cfb287f1204e024f
9aa0: 63 66 38 32 61 31 33 30 35 39 39 35 33 62 39 66  cf82a13059953b9f
9ab0: 38 35 37 39 37 61 62 32 32 31 37 64 63 38 64 61  85797ab2217dc8da
9ac0: 62 33 34 61 31 33 32 32 36 63 33 33 31 30 34 36  b34a13226c331046
9ad0: 36 31 63 31 63 61 37 39 33 39 36 65 37 64 39 37  61c1ca79396e7d97
9ae0: 65 39 31 30 33 39 64 33 32 62 61 66 63 39 38 63  e91039d32bafc98c
9af0: 63 38 61 66 33 62 62 5d 7d 20 5c 0a 09 2d 62 6f  c8af3bb]} \..-bo
9b00: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
9b10: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34  -digest SHA3-384
9b20: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9b30: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
9b40: 65 73 75 6c 74 20 35 39 38 31 38 31 35 63 31 36  esult 5981815c16
9b50: 31 38 63 63 34 39 63 64 35 63 66 37 31 61 34 62  18cc49cd5cf71a4b
9b60: 37 62 33 32 62 38 63 64 37 62 37 65 66 35 35 33  7b32b8cd7b7ef553
9b70: 62 66 61 65 66 32 31 34 39 61 63 37 32 33 66 66  bfaef2149ac723ff
9b80: 32 35 38 32 61 32 64 33 34 35 63 35 62 64 30 35  2582a2d345c5bd05
9b90: 39 34 33 65 31 35 35 63 65 64 31 65 35 66 30 39  943e155ced1e5f09
9ba0: 31 63 35 36 30 31 0a 0a 74 63 6c 74 65 73 74 3a  1c5601..tcltest:
9bb0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
9bc0: 33 38 34 2d 32 2e 31 30 32 20 7b 53 48 41 33 5f  384-2.102 {SHA3_
9bd0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
9be0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
9bf0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
9c00: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9c10: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 65 31  y decode hex ae1
9c20: 38 32 38 30 34 37 63 35 66 38 32 61 37 62 39 37  828047c5f82a7b97
9c30: 31 32 66 33 33 39 39 38 33 32 31 32 34 62 38 39  12f3399832124b89
9c40: 32 66 32 66 37 61 65 61 35 31 63 38 66 65 33 35  2f2f7aea51c8fe35
9c50: 33 36 63 64 36 61 35 38 34 62 34 61 37 37 37 37  36cd6a584b4a7777
9c60: 63 63 31 65 63 61 63 31 35 38 63 30 33 33 35 34  cc1ecac158c03354
9c70: 62 62 34 36 37 62 38 66 65 32 63 38 63 65 32 66  bb467b8fe2c8ce2f
9c80: 34 33 31 30 61 66 64 31 65 38 30 66 65 63 35 31  4310afd1e80fec51
9c90: 63 63 35 61 64 37 37 30 32 35 36 36 62 32 63 35  cc5ad7702566b2c5
9ca0: 64 32 31 62 63 36 35 37 31 65 34 62 38 65 37 63  d21bc6571e4b8e7c
9cb0: 35 39 63 62 34 63 39 65 32 33 66 31 65 63 62 35  59cb4c9e23f1ecb5
9cc0: 37 61 64 61 39 65 39 30 30 65 34 61 61 33 30 38  7ada9e900e4aa308
9cd0: 38 37 34 63 32 64 31 32 64 33 34 62 65 37 34 63  874c2d12d34be74c
9ce0: 33 33 32 62 62 63 65 5d 7d 20 5c 0a 09 2d 62 6f  332bbce]} \..-bo
9cf0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
9d00: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34  -digest SHA3-384
9d10: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9d20: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
9d30: 65 73 75 6c 74 20 37 32 35 37 66 35 62 66 61 37  esult 7257f5bfa7
9d40: 64 33 33 64 31 63 66 35 66 34 35 35 30 64 30 63  d33d1cf5f4550d0c
9d50: 62 37 38 37 35 30 65 38 34 63 35 62 37 64 32 35  b78750e84c5b7d25
9d60: 30 32 37 64 61 36 61 63 65 63 36 34 62 64 66 33  027da6acec64bdf3
9d70: 30 38 37 39 61 30 65 35 63 39 37 66 65 37 63 34  0879a0e5c97fe7c4
9d80: 36 38 65 37 34 33 61 61 35 65 63 32 62 64 64 62  68e743aa5ec2bddb
9d90: 32 39 64 31 39 33 0a 0a 74 63 6c 74 65 73 74 3a  29d193..tcltest:
9da0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d  :test Hash_SHA3-
9db0: 33 38 34 2d 32 2e 31 30 33 20 7b 53 48 41 33 5f  384-2.103 {SHA3_
9dc0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
9dd0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
9de0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
9df0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9e00: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 62 63  y decode hex 3bc
9e10: 65 65 64 66 35 64 66 38 66 65 36 39 39 38 37 31  eedf5df8fe699871
9e20: 64 65 63 62 37 64 64 34 38 32 30 33 65 32 35 31  decb7dd48203e251
9e30: 38 66 62 30 66 63 65 30 66 38 36 35 66 34 36 61  8fb0fce0f865f46a
9e40: 64 63 65 35 63 31 33 33 61 39 32 31 33 32 30 62  dce5c133a921320b
9e50: 66 34 30 39 31 35 34 35 36 32 30 34 38 36 39 61  f40915456204869a
9e60: 33 63 65 62 35 66 63 61 33 65 64 34 30 65 30 61  3ceb5fca3ed40e0a
9e70: 34 31 61 36 34 62 38 39 35 31 66 30 66 63 35 38  41a64b8951f0fc58
9e80: 30 36 39 34 63 66 63 35 35 62 64 31 66 35 63 65  0694cfc55bd1f5ce
9e90: 39 32 36 62 30 37 65 33 65 33 32 61 63 36 65 30  926b07e3e32ac6e0
9ea0: 35 35 64 65 39 62 39 36 31 63 65 34 39 63 37 65  55de9b961ce49c7e
9eb0: 65 34 31 65 30 36 62 30 32 34 35 35 39 62 39 33  e41e06b024559b93
9ec0: 33 61 37 39 35 31 38 31 39 32 65 39 36 39 38 35  3a79518192e96985
9ed0: 35 38 38 39 63 38 35 64 31 5d 7d 20 5c 0a 09 2d  5889c85d1]} \..-
9ee0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9ef0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33  t -digest SHA3-3
9f00: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
9f10: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
9f20: 2d 72 65 73 75 6c 74 20 36 30 64 37 66 38 62 64  -result 60d7f8bd
9f30: 38 35 66 62 37 61 31 33 37 30 31 64 62 35 61 64  85fb7a13701db5ad
9f40: 65 64 32 62 37 37 37 31 61 62 35 65 34 37 36 65  ed2b7771ab5e476e
9f50: 63 33 34 66 31 66 64 34 32 39 38 39 37 38 64 65  c34f1fd4298978de
9f60: 66 62 64 32 62 33 31 62 62 32 39 37 39 33 39 31  fbd2b31bb2979391
9f70: 35 35 39 61 31 36 34 62 33 65 64 32 38 66 36 61  559a164b3ed28f6a
9f80: 33 39 30 33 31 61 31 31 0a 0a 74 63 6c 74 65 73  39031a11..tcltes
9f90: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
9fa0: 33 2d 33 38 34 2d 32 2e 31 30 34 20 7b 53 48 41  3-384-2.104 {SHA
9fb0: 33 5f 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  3_384ShortMsg} \
9fc0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9fd0: 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75  HA3_384 \..-setu
9fe0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
9ff0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36  ary decode hex 6
a000: 63 33 36 31 34 37 36 35 32 65 37 31 62 35 36 30  c36147652e71b560
a010: 62 65 63 62 63 61 31 65 37 36 35 36 63 38 31 62  becbca1e7656c81b
a020: 34 66 37 30 62 65 63 65 32 36 33 32 31 64 35 65  4f70bece26321d5e
a030: 35 35 65 36 37 61 33 64 62 39 64 38 39 65 32 36  55e67a3db9d89e26
a040: 66 32 66 32 61 33 38 66 64 30 66 32 38 39 62 66  f2f2a38fd0f289bf
a050: 37 66 61 32 32 63 32 38 37 37 65 33 38 64 39 37  7fa22c2877e38d97
a060: 35 35 34 31 32 37 39 34 63 65 66 32 34 64 37 62  55412794cef24d7b
a070: 38 35 35 33 30 33 63 33 33 32 65 30 63 62 35 65  855303c332e0cb5e
a080: 30 31 61 61 35 30 62 62 37 34 38 34 34 66 35 65  01aa50bb74844f5e
a090: 33 34 35 31 30 38 64 36 38 31 31 64 35 30 31 30  345108d6811d5010
a0a0: 39 37 38 30 33 38 62 36 39 39 66 66 61 61 33 37  978038b699ffaa37
a0b0: 30 64 65 38 34 37 33 66 30 63 64 61 33 38 62 38  0de8473f0cda38b8
a0c0: 39 61 32 38 65 64 36 63 61 62 61 66 36 5d 7d 20  9a28ed6cabaf6]} 
a0d0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
a0e0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
a0f0: 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61  A3-384 -data $da
a100: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
a110: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 31 33 31  act -result b131
a120: 39 31 39 32 64 66 31 31 66 61 61 30 30 64 33 63  9192df11faa00d3c
a130: 34 62 30 36 38 62 65 63 63 38 66 31 62 61 33 62  4b068becc8f1ba3b
a140: 30 30 65 30 64 31 66 66 31 66 39 33 63 31 31 61  00e0d1ff1f93c11a
a150: 33 36 36 33 35 32 32 66 64 62 39 32 61 62 33 63  3663522fdb92ab3c
a160: 63 61 33 38 39 36 33 34 36 38 37 63 36 33 32 65  ca389634687c632e
a170: 30 61 34 62 35 61 32 36 63 65 39 32 0a 0a 74 63  0a4b5a26ce92..tc
a180: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
a190: 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 30 35 20  _SHA3-384-2.105 
a1a0: 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73  {SHA3_384ShortMs
a1b0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
a1c0: 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d  ts SHA3_384 \..-
a1d0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
a1e0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
a1f0: 65 78 20 39 32 63 34 31 64 33 34 62 64 32 34 39  ex 92c41d34bd249
a200: 63 31 38 32 61 64 34 65 31 38 65 33 62 38 35 36  c182ad4e18e3b856
a210: 37 37 30 37 36 36 66 31 37 35 37 32 30 39 36 37  770766f175720967
a220: 35 30 32 30 64 34 63 31 63 66 37 62 36 66 37 36  5020d4c1cf7b6f76
a230: 38 36 63 38 63 31 34 37 32 36 37 38 63 37 63 34  86c8c1472678c7c4
a240: 31 32 35 31 34 65 36 33 65 62 39 66 35 61 65 65  12514e63eb9f5aee
a250: 39 66 35 63 39 64 35 63 62 38 64 38 37 34 38 61  9f5c9d5cb8d8748a
a260: 62 37 61 35 34 36 35 30 35 39 64 39 63 62 62 62  b7a5465059d9cbbb
a270: 38 61 35 36 32 31 31 66 66 33 32 64 34 61 61 61  8a56211ff32d4aaa
a280: 32 33 61 32 33 63 38 36 65 61 64 39 31 36 66 65  23a23c86ead916fe
a290: 32 35 34 63 63 36 62 32 62 66 66 37 61 39 35 35  254cc6b2bff7a955
a2a0: 33 64 66 31 35 35 31 62 35 33 31 66 39 35 62 62  3df1551b531f95bb
a2b0: 34 31 63 62 62 63 34 61 63 64 64 62 64 33 37 32  41cbbc4acddbd372
a2c0: 39 32 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  921]} \..-body {
a2d0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
a2e0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
a2f0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
a300: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
a310: 74 20 37 31 33 30 37 65 65 63 31 33 35 35 66 37  t 71307eec1355f7
a320: 33 65 35 62 37 32 36 65 64 39 65 66 61 31 31 32  3e5b726ed9efa112
a330: 39 30 38 36 61 66 38 31 33 36 34 65 33 30 61 32  9086af81364e30a2
a340: 39 31 66 36 38 34 64 66 61 64 65 36 39 33 63 63  91f684dfade693cc
a350: 34 62 63 33 64 36 66 66 63 62 37 66 33 62 34 30  4bc3d6ffcb7f3b40
a360: 31 32 61 32 31 39 37 36 66 66 39 65 64 63 61 62  12a21976ff9edcab
a370: 36 31 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a  61..# Cleanup.::
a380: 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70  tcltest::cleanup
a390: 54 65 73 74 73 0a 72 65 74 75 72 6e 0a           Tests.return.