TclTLS: Hex Artifact Content

Artifact 5c1fe28c3a3ec4f6edff501c02a374d68b25bad9cb19f0bf24bd7523b00bb81f:

File tests/test_vectors/Hash/SHA3_384ShortMsg.test — part of check-in [8440f589be] at 2024-02-11 21:24:47 on branch crypto — Updated test cases for OpenSSL 3.0. Added load legacy provider for obsolete algorithms. (user: bohagan, size: 42024) [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 6c 61 70  hortMsg.rsp".lap
0030: 70 65 6e 64 20 61 75 74 6f 5f 70 61 74 68 20 5b  pend auto_path [
0040: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69  file dirname [fi
0050: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65  le dirname [file
0060: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64   dirname [file d
0070: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69  irname [file joi
0080: 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f 20 73 63  n [pwd] [info sc
0090: 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 63 6b 61  ript]]]]]].packa
00a0: 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70  ge require tls.p
00b0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74  ackage require t
00c0: 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a  cltest..tcltest:
00d0: 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20  :testConstraint 
00e0: 53 48 41 33 5f 33 38 34 20 5b 65 78 70 72 20 7b  SHA3_384 [expr {
00f0: 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65  [lsearch -nocase
0100: 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20   [tls::digests] 
0110: 53 48 41 33 2d 33 38 34 5d 20 3e 20 2d 31 7d 5d  SHA3-384] > -1}]
0120: 0a 63 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f  .catch {tls::pro
0130: 76 69 64 65 72 20 6c 65 67 61 63 79 7d 0a 0a 74  vider legacy}..t
0140: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0150: 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 20 7b  h_SHA3-384-2.1 {
0160: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
0170: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0180: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
0190: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22  etup {set data "
01a0: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  "} \..-body {tls
01b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
01c0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
01d0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
01e0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30   exact -result 0
01f0: 63 36 33 61 37 35 62 38 34 35 65 34 66 37 64 30  c63a75b845e4f7d0
0200: 31 31 30 37 64 38 35 32 65 34 63 32 34 38 35 63  1107d852e4c2485c
0210: 35 31 61 35 30 61 61 61 61 39 34 66 63 36 31 39  51a50aaaa94fc619
0220: 39 35 65 37 31 62 62 65 65 39 38 33 61 32 61 63  95e71bbee983a2ac
0230: 33 37 31 33 38 33 31 32 36 34 61 64 62 34 37 66  3713831264adb47f
0240: 62 36 62 64 31 65 30 35 38 64 35 66 30 30 34 0a  b6bd1e058d5f004.
0250: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
0260: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32  ash_SHA3-384-2.2
0270: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
0280: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0290: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
02a0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
02b0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
02c0: 68 65 78 20 38 30 5d 7d 20 5c 0a 09 2d 62 6f 64  hex 80]} \..-bod
02d0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
02e0: 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20  digest SHA3-384 
02f0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0300: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0310: 73 75 6c 74 20 37 35 34 31 33 38 34 38 35 32 65  sult 7541384852e
0320: 31 30 66 66 31 30 64 35 66 62 36 61 37 32 31 33  10ff10d5fb6a7213
0330: 61 34 61 36 63 31 35 63 63 63 38 36 64 38 62 63  a4a6c15ccc86d8bc
0340: 31 30 36 38 61 63 30 34 66 36 39 32 37 37 31 34  1068ac04f6927714
0350: 32 39 34 34 66 34 65 65 35 30 64 39 31 66 64 63  2944f4ee50d91fdc
0360: 35 36 35 35 33 64 62 30 36 62 32 66 35 30 33 39  56553db06b2f5039
0370: 63 38 61 62 37 0a 0a 74 63 6c 74 65 73 74 3a 3a  c8ab7..tcltest::
0380: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33  test Hash_SHA3-3
0390: 38 34 2d 32 2e 33 20 7b 53 48 41 33 5f 33 38 34  84-2.3 {SHA3_384
03a0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
03b0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
03c0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
03d0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
03e0: 65 63 6f 64 65 20 68 65 78 20 66 62 35 32 5d 7d  ecode hex fb52]}
03f0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
0400: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
0410: 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64  HA3-384 -data $d
0420: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
0430: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 37 33  xact -result d73
0440: 61 39 64 30 65 37 66 31 38 30 32 33 35 32 65 61  a9d0e7f1802352ea
0450: 35 34 66 33 65 30 36 32 64 33 39 31 30 35 37 37  54f3e062d3910577
0460: 62 66 38 37 65 64 64 61 34 38 31 30 31 64 65 39  bf87edda48101de9
0470: 32 61 33 64 65 39 35 37 65 36 39 38 62 38 33 36  2a3de957e698b836
0480: 30 38 35 66 35 66 31 30 63 61 62 31 64 65 31 39  085f5f10cab1de19
0490: 66 64 30 63 39 30 36 65 34 38 33 38 35 0a 0a 74  fd0c906e48385..t
04a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
04b0: 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34 20 7b  h_SHA3-384-2.4 {
04c0: 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d 73 67  SHA3_384ShortMsg
04d0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
04e0: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73  s SHA3_384 \..-s
04f0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0500: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0510: 78 20 36 61 62 37 64 36 5d 7d 20 5c 0a 09 2d 62  x 6ab7d6]} \..-b
0520: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0530: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
0540: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
0550: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
0560: 72 65 73 75 6c 74 20 65 61 31 32 64 36 64 33 32  result ea12d6d32
0570: 64 36 39 61 64 32 31 35 34 61 35 37 65 30 65 31  d69ad2154a57e0e1
0580: 62 65 34 38 31 61 34 35 61 64 64 37 33 39 65 65  be481a45add739ee
0590: 37 64 64 36 65 32 61 32 37 65 35 34 34 62 36 63  7dd6e2a27e544b6c
05a0: 38 62 35 61 64 31 32 32 36 35 34 62 62 66 39 35  8b5ad122654bbf95
05b0: 31 33 34 64 35 36 37 39 38 37 31 35 36 32 39 35  134d567987156295
05c0: 64 35 65 35 37 64 62 0a 0a 74 63 6c 74 65 73 74  d5e57db..tcltest
05d0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
05e0: 2d 33 38 34 2d 32 2e 35 20 7b 53 48 41 33 5f 33  -384-2.5 {SHA3_3
05f0: 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  84ShortMsg} \..-
0600: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33  constraints SHA3
0610: 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  _384 \..-setup {
0620: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0630: 20 64 65 63 6f 64 65 20 68 65 78 20 31 31 35 38   decode hex 1158
0640: 37 64 63 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7dcb]} \..-body 
0650: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0660: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
0670: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0680: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0690: 6c 74 20 63 62 36 65 36 63 65 34 61 32 36 36 64  lt cb6e6ce4a266d
06a0: 34 33 38 64 64 64 35 32 38 36 37 66 32 65 31 38  438ddd52867f2e18
06b0: 33 30 32 31 62 65 35 30 32 32 33 63 37 64 35 37  3021be50223c7d57
06c0: 66 38 66 64 63 61 61 31 38 30 39 33 61 39 64 30  f8fdcaa18093a9d0
06d0: 31 32 36 36 30 37 64 66 30 32 36 63 30 32 35 62  126607df026c025b
06e0: 66 66 34 30 62 63 33 31 34 61 66 34 33 66 64 38  ff40bc314af43fd8
06f0: 61 30 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  a08..tcltest::te
0700: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
0710: 2d 32 2e 36 20 7b 53 48 41 33 5f 33 38 34 53 68  -2.6 {SHA3_384Sh
0720: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0730: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
0740: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0750: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0760: 6f 64 65 20 68 65 78 20 34 64 37 66 63 36 63 61  ode hex 4d7fc6ca
0770: 65 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  e6]} \..-body {t
0780: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
0790: 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74  st SHA3-384 -dat
07a0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
07b0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
07c0: 20 65 35 37 30 64 34 36 33 61 30 31 30 63 37 31   e570d463a010c71
07d0: 62 37 38 61 63 64 37 66 39 37 39 30 63 37 38 63  b78acd7f9790c78c
07e0: 65 39 34 36 65 30 30 63 63 35 34 64 61 65 38 32  e946e00cc54dae82
07f0: 62 66 63 33 38 33 33 61 31 30 66 30 64 38 64 33  bfc3833a10f0d8d3
0800: 35 62 30 33 63 62 62 34 61 61 32 66 39 62 61 34  5b03cbb4aa2f9ba4
0810: 62 32 37 34 39 38 38 30 37 61 33 39 37 63 64 34  b27498807a397cd4
0820: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  7..tcltest::test
0830: 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32   Hash_SHA3-384-2
0840: 2e 37 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72  .7 {SHA3_384Shor
0850: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
0860: 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c  aints SHA3_384 \
0870: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
0880: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
0890: 65 20 68 65 78 20 35 61 36 36 35 39 65 39 66 30  e hex 5a6659e9f0
08a0: 65 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  e7]} \..-body {t
08b0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
08c0: 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74  st SHA3-384 -dat
08d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
08e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
08f0: 20 32 31 62 31 66 33 66 36 33 62 39 30 37 66 39   21b1f3f63b907f9
0900: 36 38 38 32 31 31 38 35 61 37 66 65 33 30 62 31  68821185a7fe30b1
0910: 36 64 34 37 65 31 64 36 65 65 35 62 39 63 38 30  6d47e1d6ee5b9c80
0920: 62 65 36 38 39 34 37 38 35 34 64 65 37 61 38 65  be68947854de7a8e
0930: 66 34 61 30 33 61 36 62 32 65 34 65 63 39 36 61  f4a03a6b2e4ec96a
0940: 62 64 64 34 66 61 32 39 61 62 39 37 39 36 66 32  bdd4fa29ab9796f2
0950: 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  8..tcltest::test
0960: 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32   Hash_SHA3-384-2
0970: 2e 38 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72  .8 {SHA3_384Shor
0980: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
0990: 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c  aints SHA3_384 \
09a0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
09b0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
09c0: 65 20 68 65 78 20 31 37 35 31 30 65 63 61 32 66  e hex 17510eca2f
09d0: 65 31 31 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e11b]} \..-body 
09e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
09f0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
0a00: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0a10: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0a20: 6c 74 20 33 35 66 62 61 36 39 35 38 62 36 63 36  lt 35fba6958b6c6
0a30: 38 65 61 65 38 66 32 62 35 66 35 62 64 66 35 65  8eae8f2b5f5bdf5e
0a40: 62 63 63 35 36 35 32 35 32 62 63 37 30 66 39 38  bcc565252bc70f98
0a50: 33 35 34 38 63 32 64 66 64 35 34 30 36 66 31 31  3548c2dfd5406f11
0a60: 31 61 30 61 39 35 62 31 62 62 39 61 36 33 39 39  1a0a95b1bb9a6399
0a70: 38 38 63 38 64 36 35 64 61 39 31 32 64 32 63 33  88c8d65da912d2c3
0a80: 65 61 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  ea2..tcltest::te
0a90: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
0aa0: 2d 32 2e 39 20 7b 53 48 41 33 5f 33 38 34 53 68  -2.9 {SHA3_384Sh
0ab0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0ac0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
0ad0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0ae0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0af0: 6f 64 65 20 68 65 78 20 63 34 34 61 32 63 35 38  ode hex c44a2c58
0b00: 63 38 34 63 33 39 33 61 5d 7d 20 5c 0a 09 2d 62  c84c393a]} \..-b
0b10: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0b20: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
0b30: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
0b40: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
0b50: 72 65 73 75 6c 74 20 36 30 61 64 34 30 66 39 36  result 60ad40f96
0b60: 34 64 30 65 64 63 66 31 39 32 38 31 65 34 31 35  4d0edcf19281e415
0b70: 66 37 33 38 39 39 36 38 32 37 35 66 66 36 31 33  f7389968275ff613
0b80: 31 39 39 61 30 36 39 63 39 31 36 61 30 66 66 37  199a069c916a0ff7
0b90: 65 66 36 35 35 30 33 62 37 34 30 36 38 33 31 36  ef65503b74068316
0ba0: 32 61 36 32 32 62 39 31 33 64 34 33 61 34 36 35  2a622b913d43a465
0bb0: 35 39 65 39 31 33 63 0a 0a 74 63 6c 74 65 73 74  59e913c..tcltest
0bc0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
0bd0: 2d 33 38 34 2d 32 2e 31 30 20 7b 53 48 41 33 5f  -384-2.10 {SHA3_
0be0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
0bf0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0c00: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
0c10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0c20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 33 36  y decode hex a36
0c30: 65 35 61 35 39 30 34 33 62 36 33 33 33 64 37 5d  e5a59043b6333d7]
0c40: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0c50: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0c60: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
0c70: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0c80: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 64  exact -result bd
0c90: 30 34 35 36 36 31 36 36 33 34 33 36 64 30 37 37  045661663436d077
0ca0: 32 30 66 66 33 63 38 62 36 66 39 32 32 30 36 36  20ff3c8b6f922066
0cb0: 64 66 65 32 34 34 34 35 36 61 35 36 63 61 34 36  dfe244456a56ca46
0cc0: 64 66 62 33 66 37 65 32 37 31 31 31 36 64 39 33  dfb3f7e271116d93
0cd0: 32 31 30 37 63 37 62 30 34 63 63 37 63 36 30 31  2107c7b04cc7c601
0ce0: 37 33 65 30 38 64 30 63 32 65 31 30 37 63 0a 0a  73e08d0c2e107c..
0cf0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0d00: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 31  sh_SHA3-384-2.11
0d10: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
0d20: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0d30: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
0d40: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
0d50: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0d60: 68 65 78 20 63 30 39 32 30 66 32 62 64 31 65 32  hex c0920f2bd1e2
0d70: 64 33 30 32 32 35 39 62 5d 7d 20 5c 0a 09 2d 62  d302259b]} \..-b
0d80: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0d90: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
0da0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
0db0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
0dc0: 72 65 73 75 6c 74 20 33 64 31 35 38 34 32 32 30  result 3d1584220
0dd0: 34 30 39 66 38 38 64 33 38 34 30 39 61 32 39 65  409f88d38409a29e
0de0: 63 61 65 62 62 34 39 30 65 66 38 38 34 62 35 61  caebb490ef884b5a
0df0: 63 62 61 32 63 37 65 61 66 32 33 39 31 34 62 61  cba2c7eaf23914ba
0e00: 62 37 66 35 66 30 66 63 39 37 65 65 31 65 36 33  b7f5f0fc97ee1e63
0e10: 33 36 66 38 38 64 66 64 34 64 30 61 30 36 65 39  36f88dfd4d0a06e9
0e20: 30 32 63 63 64 32 35 0a 0a 74 63 6c 74 65 73 74  02ccd25..tcltest
0e30: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
0e40: 2d 33 38 34 2d 32 2e 31 32 20 7b 53 48 41 33 5f  -384-2.12 {SHA3_
0e50: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
0e60: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
0e70: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
0e80: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0e90: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 30 61  y decode hex 70a
0ea0: 65 37 33 31 61 66 35 65 30 64 39 32 64 32 36 34  e731af5e0d92d264
0eb0: 65 63 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  ec9]} \..-body {
0ec0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0ed0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
0ee0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0ef0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0f00: 74 20 35 36 33 33 35 39 66 64 39 33 66 65 30 39  t 563359fd93fe09
0f10: 66 33 66 65 34 39 66 63 66 35 66 31 37 65 37 66  f3fe49fcf5f17e7f
0f20: 39 32 61 61 62 35 38 39 63 64 65 63 33 65 35 35  92aab589cdec3e55
0f30: 65 34 63 33 37 31 35 65 37 37 37 35 38 31 34 62  e4c3715e7775814b
0f40: 62 62 66 62 38 63 34 63 37 33 32 65 32 38 64 33  bbfb8c4c732e28d3
0f50: 62 36 65 36 34 30 34 38 36 30 38 31 32 64 63 36  b6e6404860812dc6
0f60: 65 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e9..tcltest::tes
0f70: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
0f80: 32 2e 31 33 20 7b 53 48 41 33 5f 33 38 34 53 68  2.13 {SHA3_384Sh
0f90: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0fa0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
0fb0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0fc0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0fd0: 6f 64 65 20 68 65 78 20 36 39 63 37 34 61 39 62  ode hex 69c74a9b
0fe0: 30 64 62 35 33 38 65 65 66 66 36 34 64 39 33 64  0db538eeff64d93d
0ff0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1000: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1010: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
1020: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1030: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38   exact -result 8
1040: 38 63 36 36 33 38 39 63 61 32 63 33 32 30 61 33  8c66389ca2c320a3
1050: 39 30 32 32 61 61 34 34 31 66 61 38 38 34 66 62  9022aa441fa884fb
1060: 63 36 65 64 32 64 33 63 63 39 61 63 34 37 35 33  c6ed2d3cc9ac4753
1070: 37 32 64 39 34 37 64 34 39 36 30 35 37 39 61 36  72d947d4960579a6
1080: 34 65 30 36 31 61 32 39 37 64 31 38 33 31 64 33  4e061a297d1831d3
1090: 35 32 34 66 39 38 64 38 30 39 34 34 30 34 62 0a  524f98d8094404b.
10a0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
10b0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31  ash_SHA3-384-2.1
10c0: 34 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  4 {SHA3_384Short
10d0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
10e0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
10f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1100: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1110: 20 68 65 78 20 61 34 61 39 33 32 37 62 65 32 31   hex a4a9327be21
1120: 62 39 32 37 37 65 30 38 63 34 30 61 62 63 37 5d  b9277e08c40abc7]
1130: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1140: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1150: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
1160: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1170: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 35  exact -result 75
1180: 31 66 35 64 61 35 66 66 39 65 32 34 36 30 63 39  1f5da5ff9e2460c9
1190: 39 33 34 38 30 37 30 64 35 30 36 38 64 38 61 33  9348070d5068d8a3
11a0: 64 37 66 66 63 65 63 37 66 64 30 65 36 66 36 38  d7ffcec7fd0e6f68
11b0: 66 36 63 64 34 61 32 65 66 34 32 32 36 64 66 38  f6cd4a2ef4226df8
11c0: 64 39 62 34 36 31 33 63 33 62 30 64 31 30 61 31  d9b4613c3b0d10a1
11d0: 36 38 65 61 66 35 34 65 61 62 65 30 31 61 0a 0a  68eaf54eabe01a..
11e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
11f0: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 35  sh_SHA3-384-2.15
1200: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
1210: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1220: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
1230: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
1240: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
1250: 68 65 78 20 63 63 34 37 36 34 64 33 65 32 39 35  hex cc4764d3e295
1260: 30 39 37 32 39 38 66 32 61 66 38 38 38 32 66 36  097298f2af8882f6
1270: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1280: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1290: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
12a0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
12b0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31   exact -result 1
12c0: 30 66 32 38 37 66 32 35 36 36 34 33 61 64 30 64  0f287f256643ad0d
12d0: 66 62 35 39 35 35 64 64 33 34 35 38 37 38 38 32  fb5955dd34587882
12e0: 65 34 34 35 63 64 35 61 65 38 64 61 33 33 37 65  e445cd5ae8da337e
12f0: 37 63 31 37 30 66 63 30 63 31 65 34 38 61 30 33  7c170fc0c1e48a03
1300: 66 62 37 61 35 34 65 63 37 31 33 33 35 31 31 33  fb7a54ec71335113
1310: 64 62 64 63 63 63 63 63 39 34 34 64 61 34 31 0a  dbdccccc944da41.
1320: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
1330: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31  ash_SHA3-384-2.1
1340: 36 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  6 {SHA3_384Short
1350: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
1360: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
1370: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1380: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1390: 20 68 65 78 20 35 61 32 33 61 64 30 63 65 38 39   hex 5a23ad0ce89
13a0: 65 30 66 62 31 64 66 34 61 39 35 62 62 32 34 38  e0fb1df4a95bb248
13b0: 38 66 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  8f0]} \..-body {
13c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
13d0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
13e0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
13f0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
1400: 74 20 32 33 38 34 30 36 37 31 65 37 35 37 30 61  t 23840671e7570a
1410: 32 34 38 63 66 33 35 37 39 63 37 63 38 38 31 30  248cf3579c7c8810
1420: 62 35 66 63 63 33 35 62 39 37 35 61 33 61 34 33  b5fcc35b975a3a43
1430: 62 35 30 36 63 63 36 37 66 61 65 66 61 36 64 62  b506cc67faefa6db
1440: 65 31 63 39 34 35 61 62 63 30 39 61 39 30 33 65  e1c945abc09a903e
1450: 31 39 39 66 37 35 39 64 63 62 63 37 66 32 63 34  199f759dcbc7f2c4
1460: 64 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  d0..tcltest::tes
1470: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
1480: 32 2e 31 37 20 7b 53 48 41 33 5f 33 38 34 53 68  2.17 {SHA3_384Sh
1490: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
14a0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
14b0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
14c0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
14d0: 6f 64 65 20 68 65 78 20 36 35 62 32 37 66 36 63  ode hex 65b27f6c
14e0: 35 35 37 38 61 34 64 35 64 39 66 36 35 31 39 63  5578a4d5d9f6519c
14f0: 35 35 34 63 33 30 39 37 5d 7d 20 5c 0a 09 2d 62  554c3097]} \..-b
1500: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1510: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
1520: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
1530: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
1540: 72 65 73 75 6c 74 20 64 64 37 33 34 66 34 39 38  result dd734f498
1550: 37 66 65 31 61 37 31 34 35 35 63 66 39 66 62 31  7fe1a71455cf9fb1
1560: 65 65 38 39 38 36 38 38 32 63 38 32 34 34 38 38  ee8986882c824488
1570: 32 37 61 37 38 38 30 66 63 39 30 64 32 30 34 33  27a7880fc90d2043
1580: 63 33 33 62 35 63 62 63 30 65 64 35 38 62 38 35  c33b5cbc0ed58b85
1590: 32 39 65 34 63 36 62 63 33 61 37 32 38 38 38 32  29e4c6bc3a728882
15a0: 39 65 30 61 34 30 64 0a 0a 74 63 6c 74 65 73 74  9e0a40d..tcltest
15b0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
15c0: 2d 33 38 34 2d 32 2e 31 38 20 7b 53 48 41 33 5f  -384-2.18 {SHA3_
15d0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
15e0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
15f0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
1600: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1610: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 37 34  y decode hex a74
1620: 38 34 37 39 33 30 61 30 33 61 62 65 65 61 34 37  847930a03abeea47
1630: 33 65 31 66 33 64 63 33 30 62 38 38 38 31 35 5d  3e1f3dc30b88815]
1640: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1650: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1660: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
1670: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1680: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 62  exact -result db
1690: 61 36 66 39 32 39 66 65 35 35 66 39 64 36 36 63  a6f929fe55f9d66c
16a0: 35 66 36 37 63 30 61 66 33 62 38 32 66 31 37 62  5f67c0af3b82f17b
16b0: 63 66 35 38 62 33 36 37 35 32 66 33 31 36 35 63  cf58b36752f3165c
16c0: 31 36 30 38 33 66 65 61 38 66 64 34 37 38 65 65  16083fea8fd478ee
16d0: 36 39 30 33 66 32 37 66 38 32 30 61 64 32 64 64  6903f27f820ad2dd
16e0: 39 39 35 30 61 66 62 34 38 63 36 37 30 30 0a 0a  9950afb48c6700..
16f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1700: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 31 39  sh_SHA3-384-2.19
1710: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
1720: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1730: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
1740: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
1750: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
1760: 68 65 78 20 36 65 66 61 66 37 38 65 64 34 64 32  hex 6efaf78ed4d2
1770: 39 33 39 32 37 65 65 66 32 63 33 61 37 31 39 33  93927eef2c3a7193
1780: 30 65 36 65 38 38 37 61 5d 7d 20 5c 0a 09 2d 62  0e6e887a]} \..-b
1790: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
17a0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
17b0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
17c0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
17d0: 72 65 73 75 6c 74 20 38 32 31 38 34 39 38 61 62  result 8218498ab
17e0: 30 31 62 36 33 30 34 31 63 32 62 61 30 37 30 39  01b63041c2ba0709
17f0: 65 33 33 30 39 34 39 36 31 32 34 64 64 66 30 39  e3309496124ddf09
1800: 30 34 35 34 33 61 39 65 30 64 39 64 30 39 36 61  04543a9e0d9d096a
1810: 37 35 30 64 64 61 39 37 66 37 61 30 32 32 30 38  750dda97f7a02208
1820: 61 66 33 64 38 63 36 31 38 64 34 62 65 37 63 32  af3d8c618d4be7c2
1830: 62 62 32 61 32 38 38 0a 0a 74 63 6c 74 65 73 74  bb2a288..tcltest
1840: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
1850: 2d 33 38 34 2d 32 2e 32 30 20 7b 53 48 41 33 5f  -384-2.20 {SHA3_
1860: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
1870: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
1880: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
1890: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
18a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 64 30  y decode hex fd0
18b0: 33 39 65 62 36 65 34 36 35 37 33 38 38 62 39 34  39eb6e4657388b94
18c0: 37 65 63 30 31 65 37 33 37 65 66 62 62 61 64 34  7ec01e737efbbad4
18d0: 37 64 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  7da]} \..-body {
18e0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
18f0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
1900: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
1910: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
1920: 74 20 63 35 62 33 31 33 30 65 66 38 64 62 63 35  t c5b3130ef8dbc5
1930: 38 30 65 31 31 30 33 66 65 63 61 65 36 39 63 39  80e1103fecae69c9
1940: 61 38 38 32 64 39 65 62 66 35 61 33 64 65 66 35  a882d9ebf5a3def5
1950: 39 33 38 62 30 37 66 38 34 33 34 35 32 61 30 39  938b07f843452a09
1960: 63 39 66 37 32 66 30 64 62 63 61 39 31 64 33 33  c9f72f0dbca91d33
1970: 62 30 32 31 63 66 36 61 61 36 66 65 36 30 64 32  b021cf6aa6fe60d2
1980: 65 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  ed..tcltest::tes
1990: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
19a0: 32 2e 32 31 20 7b 53 48 41 33 5f 33 38 34 53 68  2.21 {SHA3_384Sh
19b0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
19c0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
19d0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
19e0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
19f0: 6f 64 65 20 68 65 78 20 39 63 36 39 34 39 34 33  ode hex 9c694943
1a00: 33 38 39 62 64 63 34 65 30 35 61 64 37 63 32 66  389bdc4e05ad7c2f
1a10: 36 33 63 65 61 63 32 38 32 30 65 31 64 32 64 37  63ceac2820e1d2d7
1a20: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1a30: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1a40: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
1a50: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1a60: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66   exact -result f
1a70: 36 39 32 63 30 32 35 63 35 63 35 66 33 64 31 32  692c025c5c5f3d12
1a80: 37 35 32 31 33 63 31 64 66 39 62 66 39 65 62 36  75213c1df9bf9eb6
1a90: 64 32 31 38 38 65 64 61 39 30 61 62 35 62 66 66  d2188eda90ab5bff
1aa0: 65 36 33 31 66 31 64 62 66 37 30 65 62 64 36 32  e631f1dbf70ebd62
1ab0: 38 63 61 65 65 38 38 62 37 64 31 34 39 65 31 61  8caee88b7d149e1a
1ac0: 63 34 65 32 36 32 38 37 33 39 37 39 61 66 65 0a  c4e262873979afe.
1ad0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
1ae0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32  ash_SHA3-384-2.2
1af0: 32 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  2 {SHA3_384Short
1b00: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
1b10: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
1b20: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1b30: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1b40: 20 68 65 78 20 30 66 62 31 38 33 35 37 62 30 31   hex 0fb18357b01
1b50: 38 62 39 62 62 62 32 63 62 62 34 63 61 63 35 30  8b9bbb2cbb4cac50
1b60: 62 63 38 35 36 30 39 63 39 32 62 38 65 37 66 5d  bc85609c92b8e7f]
1b70: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1b80: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1b90: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
1ba0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1bb0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 31  exact -result d1
1bc0: 36 34 33 30 36 63 39 39 65 33 37 39 38 37 39 30  64306c99e3798790
1bd0: 66 30 39 32 33 66 65 39 32 64 62 66 32 66 39 36  f0923fe92dbf2f96
1be0: 63 33 39 30 37 31 32 37 64 61 63 61 61 34 36 37  c3907127dacaa467
1bf0: 63 37 36 36 61 63 37 35 37 38 38 30 36 32 35 38  c766ac7578806258
1c00: 39 32 37 32 63 62 37 36 39 30 62 38 61 66 32 30  9272cb7690b8af20
1c10: 33 30 64 64 38 62 64 36 31 61 33 64 66 32 0a 0a  30dd8bd61a3df2..
1c20: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1c30: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32 33  sh_SHA3-384-2.23
1c40: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
1c50: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1c60: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
1c70: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
1c80: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
1c90: 68 65 78 20 32 36 63 62 34 30 61 34 36 30 65 32  hex 26cb40a460e2
1ca0: 65 37 32 37 61 65 62 38 36 37 65 30 31 34 30 64  e727aeb867e0140d
1cb0: 30 66 33 34 37 39 30 31 31 30 64 65 62 35 64 37  0f34790110deb5d7
1cc0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1cd0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1ce0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
1cf0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
1d00: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61   exact -result a
1d10: 66 32 61 34 32 61 34 63 36 37 63 33 32 32 36 63  f2a42a4c67c3226c
1d20: 35 35 62 38 39 36 30 35 62 30 64 65 65 32 37 65  55b89605b0dee27e
1d30: 37 39 36 63 32 37 39 32 31 31 35 66 36 30 39 37  796c2792115f6097
1d40: 32 30 33 64 62 35 61 65 64 38 39 65 33 35 66 35  203db5aed89e35f5
1d50: 36 33 61 38 32 34 36 64 33 39 39 66 64 65 30 30  63a8246d399fde00
1d60: 63 32 61 35 62 39 37 65 64 35 61 35 65 31 37 0a  c2a5b97ed5a5e17.
1d70: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
1d80: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32  ash_SHA3-384-2.2
1d90: 34 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  4 {SHA3_384Short
1da0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
1db0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
1dc0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1dd0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1de0: 20 68 65 78 20 36 36 39 30 61 33 61 30 33 37 33   hex 6690a3a0373
1df0: 63 38 32 39 66 61 63 63 35 36 66 38 32 34 33 38  c829facc56f82438
1e00: 32 66 34 66 65 65 64 36 65 62 31 38 34 36 34 32  2f4feed6eb184642
1e10: 62 34 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  b4f]} \..-body {
1e20: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
1e30: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
1e40: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
1e50: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
1e60: 74 20 38 34 65 31 62 36 38 62 63 39 65 32 64 61  t 84e1b68bc9e2da
1e70: 65 66 63 31 39 62 35 36 37 64 65 63 39 31 31 65  efc19b567dec911e
1e80: 66 34 36 66 35 66 33 37 61 37 34 66 64 62 62 62  f46f5f37a74fdbbb
1e90: 36 31 35 35 65 37 65 36 34 36 66 32 37 33 35 64  6155e7e646f2735d
1ea0: 66 32 61 63 34 34 65 32 33 39 36 38 39 65 62 35  f2ac44e239689eb5
1eb0: 62 35 33 36 34 36 35 64 63 35 37 31 65 35 35 63  b536465dc571e55c
1ec0: 62 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  b2..tcltest::tes
1ed0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
1ee0: 32 2e 32 35 20 7b 53 48 41 33 5f 33 38 34 53 68  2.25 {SHA3_384Sh
1ef0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1f00: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
1f10: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
1f20: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
1f30: 6f 64 65 20 68 65 78 20 37 64 38 30 62 31 36 30  ode hex 7d80b160
1f40: 63 34 62 35 33 36 61 33 62 65 62 37 39 39 38 30  c4b536a3beb79980
1f50: 35 39 39 33 34 34 30 34 37 63 35 66 38 32 61 31  599344047c5f82a1
1f60: 64 66 63 33 65 65 64 34 5d 7d 20 5c 0a 09 2d 62  dfc3eed4]} \..-b
1f70: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1f80: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
1f90: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
1fa0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
1fb0: 72 65 73 75 6c 74 20 30 34 31 63 63 35 38 36 31  result 041cc5861
1fc0: 62 61 33 33 34 35 36 33 63 36 31 64 34 65 66 39  ba334563c61d4ef9
1fd0: 37 31 30 64 34 38 39 36 63 33 31 31 63 39 32 65  710d4896c311c92e
1fe0: 64 62 65 30 64 37 63 64 35 33 65 38 30 33 62 66  dbe0d7cd53e803bf
1ff0: 32 66 34 65 62 36 30 35 37 32 33 35 35 37 30 37  2f4eb60572355707
2000: 37 30 63 65 38 37 63 35 35 32 30 64 37 65 63 31  70ce87c5520d7ec1
2010: 34 31 39 38 37 32 32 0a 0a 74 63 6c 74 65 73 74  4198722..tcltest
2020: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2030: 2d 33 38 34 2d 32 2e 32 36 20 7b 53 48 41 33 5f  -384-2.26 {SHA3_
2040: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
2050: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2060: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
2070: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2080: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 32 31  y decode hex 021
2090: 32 38 32 38 33 66 66 63 30 63 66 65 32 35 34 61  28283ffc0cfe254a
20a0: 63 38 66 35 34 32 62 65 33 66 30 35 66 62 65 34  c8f542be3f05fbe4
20b0: 65 38 35 35 64 64 32 32 61 65 39 38 61 38 31 5d  e855dd22ae98a81]
20c0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
20d0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
20e0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
20f0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2100: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 38  exact -result 38
2110: 34 30 39 38 31 61 37 36 36 64 37 32 35 66 38 33  40981a766d725f83
2120: 64 33 33 34 65 38 39 38 32 39 36 35 30 33 33 61  d334e8982965033a
2130: 35 66 62 62 35 31 30 37 64 39 34 66 66 65 66 33  5fbb5107d94ffef3
2140: 33 62 31 66 37 30 30 63 64 34 36 33 34 38 30 39  3b1f700cd4634809
2150: 31 61 34 39 66 36 36 32 30 63 33 37 61 65 33 65  1a49f6620c37ae3e
2160: 66 35 62 32 30 35 31 33 34 39 34 38 32 36 0a 0a  f5b20513494826..
2170: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2180: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 32 37  sh_SHA3-384-2.27
2190: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
21a0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
21b0: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
21c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
21d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
21e0: 68 65 78 20 32 37 39 31 31 64 64 30 61 36 38 34  hex 27911dd0a684
21f0: 33 63 63 61 65 39 36 35 64 38 37 36 61 61 31 39  3ccae965d876aa19
2200: 31 36 66 31 64 63 64 37 31 65 35 31 38 66 37 66  16f1dcd71e518f7f
2210: 32 31 39 37 31 35 32 65 5d 7d 20 5c 0a 09 2d 62  2197152e]} \..-b
2220: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2230: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
2240: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
2250: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
2260: 72 65 73 75 6c 74 20 66 35 39 66 38 34 32 38 35  result f59f84285
2270: 35 35 39 38 34 64 31 35 32 36 63 64 65 64 38 31  55984d1526cded81
2280: 32 39 63 36 34 39 66 62 31 62 36 38 33 64 33 35  29c649fb1b683d35
2290: 63 65 63 37 63 35 65 31 32 30 39 34 34 31 61 36  cec7c5e1209441a6
22a0: 61 39 65 37 63 31 37 66 30 37 38 34 31 35 31 62  a9e7c17f0784151b
22b0: 35 61 62 38 61 38 63 34 39 32 62 34 30 32 61 33  5ab8a8c492b402a3
22c0: 61 63 62 39 38 63 34 0a 0a 74 63 6c 74 65 73 74  acb98c4..tcltest
22d0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
22e0: 2d 33 38 34 2d 32 2e 32 38 20 7b 53 48 41 33 5f  -384-2.28 {SHA3_
22f0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
2300: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2310: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
2320: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2330: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 39 33  y decode hex d93
2340: 37 38 62 62 36 36 65 38 63 38 64 65 65 35 35 36  78bb66e8c8dee556
2350: 64 36 39 31 63 62 63 39 66 64 64 64 64 36 33 33  d691cbc9fdddd633
2360: 33 63 61 35 64 35 30 36 36 38 38 36 32 63 33 63  3ca5d50668862c3c
2370: 35 37 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  57d]} \..-body {
2380: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2390: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
23a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
23b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
23c0: 74 20 39 39 34 35 33 32 64 31 61 35 35 37 65 39  t 994532d1a557e9
23d0: 39 30 62 31 63 63 39 65 30 33 39 35 61 32 61 64  90b1cc9e0395a2ad
23e0: 38 62 30 35 36 31 39 63 61 33 32 32 64 62 39 64  8b05619ca322db9d
23f0: 61 33 63 34 65 64 32 65 65 31 39 34 63 30 35 31  a3c4ed2ee194c051
2400: 64 30 34 35 38 32 66 64 65 37 32 64 64 32 62 38  d04582fde72dd2b8
2410: 66 36 37 34 63 66 36 65 63 39 35 38 64 62 37 35  f674cf6ec958db75
2420: 64 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  da..tcltest::tes
2430: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
2440: 32 2e 32 39 20 7b 53 48 41 33 5f 33 38 34 53 68  2.29 {SHA3_384Sh
2450: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2460: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
2470: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2480: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2490: 6f 64 65 20 68 65 78 20 61 65 31 38 32 38 30 34  ode hex ae182804
24a0: 37 63 35 66 38 32 61 37 62 39 37 31 32 66 33 33  7c5f82a7b9712f33
24b0: 39 39 38 33 32 31 32 34 62 38 39 32 66 32 66 37  99832124b892f2f7
24c0: 61 65 61 35 31 63 38 66 65 33 35 33 36 63 64 36  aea51c8fe3536cd6
24d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
24e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
24f0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
2500: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
2510: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64   exact -result d
2520: 35 31 31 31 31 66 38 62 66 66 62 34 34 64 38 31  51111f8bffb44d81
2530: 61 64 31 39 36 38 33 31 39 38 66 32 39 64 32 30  ad19683198f29d20
2540: 33 33 31 34 34 64 33 63 64 38 35 36 63 37 34 39  33144d3cd856c749
2550: 63 61 63 35 62 39 63 61 65 30 65 37 31 32 66 35  cac5b9cae0e712f5
2560: 30 30 66 38 64 30 65 66 38 31 33 66 33 38 65 33  00f8d0ef813f38e3
2570: 30 35 63 65 31 37 35 61 37 64 36 31 36 32 63 0a  05ce175a7d6162c.
2580: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
2590: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33  ash_SHA3-384-2.3
25a0: 30 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  0 {SHA3_384Short
25b0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
25c0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
25d0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
25e0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
25f0: 20 68 65 78 20 37 64 64 32 64 37 36 66 61 30 35   hex 7dd2d76fa05
2600: 34 63 66 34 36 31 65 31 33 32 65 39 65 66 39 31  4cf461e132e9ef91
2610: 34 61 63 64 63 35 33 30 38 30 61 35 30 38 63 64  4acdc53080a508cd
2620: 63 35 33 36 38 61 62 38 63 36 32 32 34 66 66 5d  c5368ab8c6224ff]
2630: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2640: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2650: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
2660: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2670: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 63  exact -result 6c
2680: 30 62 33 33 39 35 65 34 63 38 36 35 31 38 61 62  0b3395e4c86518ab
2690: 30 61 30 36 32 36 37 33 32 30 65 65 39 65 63 39  0a06267320ee9ec9
26a0: 35 65 35 30 33 38 35 62 37 61 32 35 32 37 64 64  5e50385b7a2527dd
26b0: 61 61 31 62 64 30 65 61 64 32 36 32 63 35 36 31  aa1bd0ead262c561
26c0: 32 32 64 34 66 34 65 62 30 38 62 30 61 65 32 32  22d4f4eb08b0ae22
26d0: 62 33 65 65 37 65 36 66 34 34 64 64 31 38 0a 0a  b3ee7e6f44dd18..
26e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
26f0: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33 31  sh_SHA3-384-2.31
2700: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
2710: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2720: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
2730: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
2740: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
2750: 68 65 78 20 36 66 64 37 32 38 38 38 61 30 32 31  hex 6fd72888a021
2760: 66 33 36 65 35 35 30 39 36 37 63 62 35 36 30 35  f36e550967cb5605
2770: 62 35 35 62 37 38 36 35 37 63 39 32 37 32 64 39  b55b78657c9272d9
2780: 33 63 33 64 65 64 33 34 30 64 36 37 64 61 36 66  3c3ded340d67da6f
2790: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
27a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
27b0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
27c0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
27d0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30   exact -result 0
27e0: 35 35 31 35 38 33 61 35 62 34 30 30 37 34 30 31  551583a5b4007401
27f0: 63 37 37 65 66 34 33 38 32 66 64 38 65 32 34 35  c77ef4382fd8e245
2800: 63 39 63 66 31 32 65 39 37 36 63 39 37 36 36 61  c9cf12e976c9766a
2810: 66 36 62 37 61 65 33 63 37 65 30 37 61 38 32 62  f6b7ae3c7e07a82b
2820: 33 30 37 39 66 39 30 33 62 30 38 33 64 35 65 63  3079f903b083d5ec
2830: 38 35 63 62 39 34 65 34 36 61 38 35 61 63 30 0a  85cb94e46a85ac0.
2840: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
2850: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33  ash_SHA3-384-2.3
2860: 32 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  2 {SHA3_384Short
2870: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
2880: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
2890: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
28a0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
28b0: 20 68 65 78 20 64 35 30 30 65 62 39 35 34 36 35   hex d500eb95465
28c0: 35 33 36 31 39 63 64 63 33 31 65 30 38 34 38 63  53619cdc31e0848c
28d0: 35 30 32 64 62 39 32 64 35 34 37 65 66 65 66 33  502db92d547efef3
28e0: 61 65 35 65 65 61 61 32 32 32 35 38 61 66 63 66  ae5eeaa22258afcf
28f0: 30 61 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  0a9]} \..-body {
2900: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2910: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
2920: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
2930: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
2940: 74 20 35 65 64 64 65 32 66 39 34 66 38 36 39 35  t 5edde2f94f8695
2950: 66 32 37 37 65 63 30 35 65 66 63 63 30 30 37 36  f277ec05efcc0076
2960: 31 66 61 66 64 32 37 32 32 30 30 61 65 64 30 65  1fafd272200aed0e
2970: 36 33 64 32 32 31 63 32 62 36 63 36 35 62 34 39  63d221c2b6c65b49
2980: 37 32 61 36 35 32 36 66 39 61 31 66 32 65 36 61  72a6526f9a1f2e6a
2990: 63 65 30 65 38 31 39 33 38 66 30 34 33 66 65 38  ce0e81938f043fe8
29a0: 37 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  77..tcltest::tes
29b0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
29c0: 32 2e 33 33 20 7b 53 48 41 33 5f 33 38 34 53 68  2.33 {SHA3_384Sh
29d0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
29e0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
29f0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2a00: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2a10: 6f 64 65 20 68 65 78 20 36 31 38 39 35 39 37 65  ode hex 6189597e
2a20: 30 31 39 38 61 31 38 63 36 35 66 61 30 62 64 64  0198a18c65fa0bdd
2a30: 30 37 39 37 66 31 33 30 33 37 63 37 35 63 34 30  0797f13037c75c40
2a40: 35 38 62 37 64 33 34 35 34 63 30 66 37 31 62 64  58b7d3454c0f71bd
2a50: 32 64 64 31 33 62 36 63 5d 7d 20 5c 0a 09 2d 62  2dd13b6c]} \..-b
2a60: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2a70: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
2a80: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
2a90: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
2aa0: 72 65 73 75 6c 74 20 31 31 30 36 33 30 63 61 37  result 110630ca7
2ab0: 36 33 31 62 37 36 32 30 65 36 62 65 65 36 65 64  631b7620e6bee6ed
2ac0: 36 65 39 32 39 30 39 38 39 36 35 35 37 31 39 33  6e92909896557193
2ad0: 36 63 33 34 38 32 39 34 38 34 39 38 33 65 62 61  6c34829484983eba
2ae0: 39 35 33 32 62 38 31 37 35 35 32 38 63 32 32 38  9532b8175528c228
2af0: 63 35 37 34 33 39 34 35 33 66 30 32 37 61 34 66  c57439453f027a4f
2b00: 37 63 38 33 63 61 33 0a 0a 74 63 6c 74 65 73 74  7c83ca3..tcltest
2b10: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2b20: 2d 33 38 34 2d 32 2e 33 34 20 7b 53 48 41 33 5f  -384-2.34 {SHA3_
2b30: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
2b40: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2b50: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
2b60: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2b70: 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 34 33  y decode hex 243
2b80: 62 39 34 31 64 37 34 38 35 34 31 61 66 33 30 33  b941d748541af303
2b90: 66 38 65 39 64 32 63 33 37 31 63 64 30 33 65 34  f8e9d2c371cd03e4
2ba0: 33 37 64 36 32 61 39 64 66 34 38 35 64 64 63 31  37d62a9df485ddc1
2bb0: 37 36 64 63 36 35 64 61 38 63 37 64 61 30 30 5d  76dc65da8c7da00]
2bc0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2bd0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2be0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
2bf0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2c00: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 38  exact -result 58
2c10: 38 34 32 30 31 66 37 61 35 35 35 65 61 33 63 35  84201f7a555ea3c5
2c20: 64 65 65 62 30 31 39 66 64 39 65 38 63 31 36 31  deeb019fd9e8c161
2c30: 65 31 62 38 39 37 35 36 30 34 35 65 34 37 35 62  e1b89756045e475b
2c40: 31 34 31 65 63 35 31 33 35 63 65 35 61 34 31 63  141ec5135ce5a41c
2c50: 39 33 65 35 65 31 66 37 39 35 33 34 64 33 36 66  93e5e1f79534d36f
2c60: 64 38 33 34 35 62 61 34 33 34 64 61 34 33 0a 0a  d8345ba434da43..
2c70: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2c80: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33 35  sh_SHA3-384-2.35
2c90: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
2ca0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2cb0: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
2cc0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
2cd0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
2ce0: 68 65 78 20 32 64 63 33 64 37 38 39 35 38 32 63  hex 2dc3d789582c
2cf0: 31 61 38 30 36 63 33 62 34 39 31 64 35 39 37 32  1a806c3b491d5972
2d00: 65 66 38 66 31 37 33 33 66 31 66 35 65 30 32 38  ef8f1733f1f5e028
2d10: 36 36 64 63 39 64 65 32 61 38 30 32 39 65 63 30  66dc9de2a8029ec0
2d20: 61 62 36 30 38 64 31 33 5d 7d 20 5c 0a 09 2d 62  ab608d13]} \..-b
2d30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2d40: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
2d50: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
2d60: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
2d70: 72 65 73 75 6c 74 20 30 35 61 33 39 30 33 62 35  result 05a3903b5
2d80: 31 39 63 64 66 36 37 39 31 32 30 63 37 63 63 62  19cdf679120c7ccb
2d90: 34 65 66 31 37 38 62 35 38 65 34 35 30 32 66 63  4ef178b58e4502fc
2da0: 64 34 36 31 33 36 30 39 38 38 66 61 30 36 36 36  d461360988fa0666
2db0: 39 32 39 34 38 35 31 65 36 32 39 64 39 64 64 33  9294851e629d9dd3
2dc0: 65 37 37 66 66 62 37 33 64 32 34 35 39 39 64 35  e77ffb73d24599d5
2dd0: 64 33 65 64 64 33 36 0a 0a 74 63 6c 74 65 73 74  d3edd36..tcltest
2de0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
2df0: 2d 33 38 34 2d 32 2e 33 36 20 7b 53 48 41 33 5f  -384-2.36 {SHA3_
2e00: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
2e10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
2e20: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
2e30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2e40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 35 62  y decode hex e5b
2e50: 33 66 36 39 36 32 66 65 35 37 32 33 30 37 38 30  3f6962fe57230780
2e60: 62 33 64 35 35 62 32 39 65 66 66 65 30 64 66 65  b3d55b29effe0dfe
2e70: 62 64 65 32 63 38 31 62 61 39 37 64 34 35 31 32  bde2c81ba97d4512
2e80: 65 63 64 62 64 33 33 65 63 61 31 35 37 36 61 37  ecdbd33eca1576a7
2e90: 66 38 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  f82]} \..-body {
2ea0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2eb0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
2ec0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
2ed0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
2ee0: 74 20 37 61 63 32 37 37 36 61 66 62 37 34 66 35  t 7ac2776afb74f5
2ef0: 35 62 62 63 34 66 36 65 63 63 66 38 32 35 65 65  5bbc4f6eccf825ee
2f00: 31 33 61 63 37 34 34 35 66 62 35 34 39 37 34 65  13ac7445fb54974e
2f10: 36 63 32 34 65 62 63 30 66 30 33 66 64 63 64 38  6c24ebc0f03fdcd8
2f20: 35 33 30 31 39 39 61 36 31 31 30 36 61 33 31 62  530199a61106a31b
2f30: 34 32 37 39 65 30 32 32 30 31 65 65 30 66 35 34  4279e02201ee0f54
2f40: 66 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  fd..tcltest::tes
2f50: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
2f60: 32 2e 33 37 20 7b 53 48 41 33 5f 33 38 34 53 68  2.37 {SHA3_384Sh
2f70: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2f80: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
2f90: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2fa0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2fb0: 6f 64 65 20 68 65 78 20 64 61 30 33 34 38 36 61  ode hex da03486a
2fc0: 61 33 63 65 62 62 64 36 35 30 32 65 39 66 35 61  a3cebbd6502e9f5a
2fd0: 36 66 30 66 38 33 35 65 39 37 33 61 35 38 31 62  6f0f835e973a581b
2fe0: 65 66 63 63 31 61 61 64 65 66 65 37 62 33 36 39  efcc1aadefe7b369
2ff0: 36 62 61 37 31 63 37 30 63 64 35 38 63 35 38 34  6ba71c70cd58c584
3000: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3010: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3020: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
3030: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3040: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30   exact -result 0
3050: 32 63 34 34 63 65 65 63 30 62 62 37 64 63 30 66  2c44ceec0bb7dc0f
3060: 36 36 34 65 62 65 34 34 32 33 30 31 39 32 62 35  664ebe44230192b5
3070: 62 30 62 62 36 34 36 62 62 39 34 34 64 32 33 66  b0bb646bb944d23f
3080: 61 31 66 66 33 35 38 36 64 63 30 35 32 33 66 61  a1ff3586dc0523fa
3090: 39 64 37 66 30 64 64 36 64 66 35 34 34 39 61 62  9d7f0dd6df5449ab
30a0: 39 65 64 64 39 61 31 30 39 36 62 30 37 64 63 0a  9edd9a1096b07dc.
30b0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
30c0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33  ash_SHA3-384-2.3
30d0: 38 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  8 {SHA3_384Short
30e0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
30f0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
3100: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3110: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3120: 20 68 65 78 20 33 63 36 38 36 64 33 32 31 62 61   hex 3c686d321ba
3130: 36 36 31 38 35 63 64 63 61 38 33 62 61 39 66 34  66185cdca83ba9f4
3140: 31 39 38 34 66 61 36 31 62 38 32 36 65 66 35 36  1984fa61b826ef56
3150: 62 31 33 36 65 31 33 66 31 32 33 39 64 61 64 66  b136e13f1239dadf
3160: 36 65 30 33 64 38 37 37 38 36 36 63 63 62 38 5d  6e03d877866ccb8]
3170: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3180: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3190: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
31a0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
31b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 64  exact -result ad
31c0: 36 32 34 65 64 64 39 66 32 63 33 61 33 32 62 35  624edd9f2c3a32b5
31d0: 36 63 35 33 64 39 65 38 31 33 63 30 31 64 36 36  6c53d9e813c01d66
31e0: 62 63 66 65 34 32 34 63 34 61 39 36 39 30 37 64  bcfe424c4a96907d
31f0: 35 32 61 63 31 64 64 64 36 38 33 37 30 65 63 38  52ac1ddd68370ec8
3200: 36 64 61 63 36 37 35 30 34 61 39 30 65 38 61 38  6dac67504a90e8a8
3210: 65 37 35 35 30 32 65 30 31 30 38 31 64 32 0a 0a  e75502e01081d2..
3220: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3230: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 33 39  sh_SHA3-384-2.39
3240: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
3250: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3260: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
3270: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
3280: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
3290: 68 65 78 20 34 64 63 66 66 39 39 66 61 63 33 33  hex 4dcff99fac33
32a0: 38 34 30 66 36 35 33 32 35 34 37 66 62 36 39 62  840f6532547fb69b
32b0: 34 35 36 39 30 32 64 36 37 31 38 66 64 35 64 34  456902d6718fd5d4
32c0: 35 33 38 65 32 33 34 36 32 64 62 36 64 30 30 64  538e23462db6d00d
32d0: 61 36 31 39 37 35 66 32 62 38 65 32 36 32 39 38  a61975f2b8e26298
32e0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
32f0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3300: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
3310: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3320: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63   exact -result c
3330: 66 33 37 64 64 32 37 39 39 37 63 31 62 62 37 65  f37dd27997c1bb7e
3340: 36 64 63 34 30 35 31 37 30 30 36 36 65 37 34 63  6dc405170066e74c
3350: 36 63 65 35 31 37 63 30 32 39 65 64 38 64 63 65  6ce517c029ed8dce
3360: 31 32 36 64 30 32 35 64 61 37 34 65 30 62 38 65  126d025da74e0b8e
3370: 38 36 64 61 35 36 37 65 38 64 37 64 38 64 35 62  86da567e8d7d8d5b
3380: 35 64 33 65 32 61 35 34 36 64 66 37 34 38 39 0a  5d3e2a546df7489.
3390: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
33a0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34  ash_SHA3-384-2.4
33b0: 30 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  0 {SHA3_384Short
33c0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
33d0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
33e0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
33f0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3400: 20 68 65 78 20 32 37 39 39 66 36 37 32 33 32 38   hex 2799f672328
3410: 38 33 34 64 37 65 61 65 66 39 34 33 39 37 39 35  834d7eaef9439795
3420: 64 33 35 63 65 39 33 63 39 30 39 34 66 35 38 64  d35ce93c9094f58d
3430: 65 64 39 66 31 37 63 39 36 38 61 39 37 61 35 30  ed9f17c968a97a50
3440: 61 39 65 34 36 31 34 38 39 66 65 64 39 38 38 65  a9e461489fed988e
3450: 37 66 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  7f6]} \..-body {
3460: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3470: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
3480: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
3490: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
34a0: 74 20 38 35 63 66 63 32 33 63 39 37 63 62 31 33  t 85cfc23c97cb13
34b0: 39 31 30 62 38 30 38 65 37 30 33 33 38 30 39 61  910b808e7033809a
34c0: 34 35 61 61 30 62 37 66 37 31 33 38 64 65 36 31  45aa0b7f7138de61
34d0: 38 63 32 63 61 36 32 32 63 38 62 38 31 33 63 39  8c2ca622c8b813c9
34e0: 38 38 65 32 36 34 61 66 33 62 39 36 63 37 39 32  88e264af3b96c792
34f0: 35 64 63 62 64 31 64 32 37 36 31 37 35 37 64 38  5dcbd1d2761757d8
3500: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  00..tcltest::tes
3510: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
3520: 32 2e 34 31 20 7b 53 48 41 33 5f 33 38 34 53 68  2.41 {SHA3_384Sh
3530: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3540: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
3550: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3560: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3570: 6f 64 65 20 68 65 78 20 63 37 65 39 34 37 35 30  ode hex c7e94750
3580: 37 38 32 32 66 32 38 61 35 36 32 37 34 35 61 38  7822f28a562745a8
3590: 66 65 36 66 65 64 36 63 62 34 37 64 37 33 31 34  fe6fed6cb47d7314
35a0: 35 38 30 34 63 38 39 34 39 35 34 65 32 31 32 34  5804c894954e2124
35b0: 35 63 64 65 30 34 66 61 39 31 35 35 61 33 35 39  5cde04fa9155a359
35c0: 30 34 39 32 36 61 63 61 5d 7d 20 5c 0a 09 2d 62  04926aca]} \..-b
35d0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
35e0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
35f0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
3600: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
3610: 72 65 73 75 6c 74 20 38 62 64 64 66 33 62 61 65  result 8bddf3bae
3620: 62 62 63 35 62 30 34 66 65 30 62 30 61 39 63 33  bbc5b04fe0b0a9c3
3630: 63 32 62 37 33 30 61 62 65 39 31 38 63 65 34 38  c2b730abe918ce48
3640: 39 32 64 32 38 34 33 63 36 31 33 65 65 39 36 64  92d2843c613ee96d
3650: 61 30 32 32 38 35 31 32 66 30 64 31 33 30 37 63  a0228512f0d1307c
3660: 37 64 31 61 38 39 32 32 65 37 39 61 39 32 65 39  7d1a8922e79a92e9
3670: 35 37 64 64 31 38 65 0a 0a 74 63 6c 74 65 73 74  57dd18e..tcltest
3680: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
3690: 2d 33 38 34 2d 32 2e 34 32 20 7b 53 48 41 33 5f  -384-2.42 {SHA3_
36a0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
36b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
36c0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
36d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
36e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 63 34  y decode hex 6c4
36f0: 39 37 62 66 36 66 66 36 39 63 62 33 39 65 33 66  97bf6ff69cb39e3f
3700: 61 61 33 34 39 32 31 32 62 38 62 36 36 39 31 63  aa349212b8b6691c
3710: 61 32 33 37 39 30 35 61 63 30 30 39 39 63 34 35  a237905ac0099c45
3720: 30 62 36 64 33 33 61 62 66 33 36 32 62 65 64 62  0b6d33abf362bedb
3730: 36 35 62 64 65 62 33 30 37 62 66 65 61 32 33 5d  65bdeb307bfea23]
3740: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3750: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3760: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
3770: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3780: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 36  exact -result 36
3790: 33 39 66 61 62 36 31 39 31 62 33 35 32 34 36 32  39fab6191b352462
37a0: 37 38 35 32 32 63 66 61 63 65 65 30 63 64 35 62  78522cfacee0cd5b
37b0: 31 35 35 38 30 61 32 36 63 35 30 35 61 65 33 63  15580a26c505ae3c
37c0: 34 36 62 34 62 31 63 32 35 37 32 30 31 36 62 34  46b4b1c2572016b4
37d0: 38 66 31 62 30 31 32 62 62 62 65 64 65 63 34 37  8f1b012bbbedec47
37e0: 39 31 36 39 35 30 66 62 62 33 33 61 31 64 0a 0a  916950fbb33a1d..
37f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3800: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34 33  sh_SHA3-384-2.43
3810: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
3820: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3830: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
3840: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
3850: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
3860: 68 65 78 20 64 31 35 39 33 36 66 33 62 30 63 39  hex d15936f3b0c9
3870: 30 31 38 32 37 31 38 31 32 62 34 63 38 31 34 35  018271812b4c8145
3880: 33 63 34 34 35 37 63 37 65 64 64 31 31 30 62 63  3c4457c7edd110bc
3890: 65 61 37 66 35 37 33 35 64 36 66 35 38 38 32 64  ea7f5735d6f5882d
38a0: 38 66 32 37 31 35 35 65 62 34 63 63 32 38 35 61  8f27155eb4cc285a
38b0: 36 35 31 33 38 61 64 36 5d 7d 20 5c 0a 09 2d 62  65138ad6]} \..-b
38c0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
38d0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
38e0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
38f0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
3900: 72 65 73 75 6c 74 20 30 32 39 33 65 65 65 66 30  result 0293eeef0
3910: 61 61 33 33 39 32 63 39 33 64 39 63 36 63 61 38  aa3392c93d9c6ca8
3920: 39 63 30 38 62 33 31 37 36 32 32 35 37 32 64 34  9c08b317622572d4
3930: 64 65 32 32 38 36 61 34 62 39 61 65 36 63 32 66  de2286a4b9ae6c2f
3940: 39 63 39 65 30 65 36 34 65 65 36 63 34 38 33 64  9c9e0e64ee6c483d
3950: 34 66 31 30 38 35 39 30 37 37 65 33 63 36 38 36  4f10859077e3c686
3960: 38 34 33 30 32 31 34 0a 0a 74 63 6c 74 65 73 74  8430214..tcltest
3970: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
3980: 2d 33 38 34 2d 32 2e 34 34 20 7b 53 48 41 33 5f  -384-2.44 {SHA3_
3990: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
39a0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
39b0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
39c0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
39d0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 66 31  y decode hex df1
39e0: 38 31 33 39 66 33 34 62 38 39 30 34 65 66 30 36  8139f34b8904ef06
39f0: 38 31 63 31 62 37 61 33 63 38 36 36 35 33 65 34  81c1b7a3c86653e4
3a00: 34 62 32 35 33 35 64 36 63 65 63 64 31 61 32 61  4b2535d6cecd1a2a
3a10: 31 37 63 64 35 62 39 33 35 37 62 65 37 39 62 38  17cd5b9357be79b8
3a20: 35 65 35 65 30 34 64 64 39 65 66 66 32 63 61 38  5e5e04dd9eff2ca8
3a30: 62 39 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  b9a]} \..-body {
3a40: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3a50: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
3a60: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
3a70: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
3a80: 74 20 64 62 39 65 31 37 31 64 36 65 33 33 33 36  t db9e171d6e3336
3a90: 36 33 31 63 39 63 65 65 63 36 62 34 64 37 33 32  631c9ceec6b4d732
3aa0: 63 65 36 32 62 30 31 35 39 33 39 32 36 39 66 62  ce62b015939269fb
3ab0: 36 39 66 61 65 37 64 32 32 37 32 35 35 30 30 65  69fae7d22725500e
3ac0: 38 61 32 66 63 39 66 31 34 35 39 63 66 30 61 33  8a2fc9f1459cf0a3
3ad0: 31 66 62 39 64 31 36 64 37 63 34 34 35 38 33 66  1fb9d16d7c44583f
3ae0: 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  52..tcltest::tes
3af0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
3b00: 32 2e 34 35 20 7b 53 48 41 33 5f 33 38 34 53 68  2.45 {SHA3_384Sh
3b10: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3b20: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
3b30: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3b40: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3b50: 6f 64 65 20 68 65 78 20 30 34 35 39 64 63 62 63  ode hex 0459dcbc
3b60: 31 34 39 33 33 33 65 61 32 66 39 33 37 62 37 37  149333ea2f937b77
3b70: 39 61 35 66 33 37 32 38 31 34 38 34 34 39 61 39  9a5f3728148449a9
3b80: 61 65 61 33 36 36 32 63 64 64 32 63 63 36 35 33  aea3662cdd2cc653
3b90: 63 65 36 61 32 30 35 30 66 39 63 30 64 35 34 62  ce6a2050f9c0d54b
3ba0: 66 39 33 32 36 63 30 33 39 62 32 36 33 65 62 39  f9326c039b263eb9
3bb0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3bc0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3bd0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
3be0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3bf0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34   exact -result 4
3c00: 36 34 62 61 34 30 39 66 62 62 34 35 65 39 38 35  64ba409fbb45e985
3c10: 66 38 34 65 65 32 34 36 36 32 65 62 37 63 30 34  f84ee24662eb7c04
3c20: 32 63 33 63 32 61 64 39 36 34 39 66 31 61 63 34  2c3c2ad9649f1ac4
3c30: 61 38 62 32 62 65 39 63 30 37 64 33 37 65 64 32  a8b2be9c07d37ed2
3c40: 65 34 32 38 34 33 36 32 30 35 37 34 39 33 66 36  e4284362057493f6
3c50: 61 37 65 35 32 63 33 35 36 62 30 35 62 63 35 0a  a7e52c356b05bc5.
3c60: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
3c70: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34  ash_SHA3-384-2.4
3c80: 36 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  6 {SHA3_384Short
3c90: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
3ca0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
3cb0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3cc0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3cd0: 20 68 65 78 20 65 62 33 66 37 30 30 32 63 38 33   hex eb3f7002c83
3ce0: 35 32 32 37 30 33 34 30 62 38 64 61 38 36 34 33  52270340b8da8643
3cf0: 36 32 32 65 35 66 37 65 33 32 63 64 62 32 30 38  622e5f7e32cdb208
3d00: 61 30 64 65 63 30 36 63 36 63 62 39 65 36 62 36  a0dec06c6cb9e6b6
3d10: 34 63 63 34 64 38 63 62 39 64 65 31 64 34 39 33  4cc4d8cb9de1d493
3d20: 39 37 62 33 33 38 36 34 36 34 61 32 35 64 31 5d  97b3386464a25d1]
3d30: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3d40: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3d50: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
3d60: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3d70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 32  exact -result a2
3d80: 36 62 64 37 36 63 65 34 32 64 38 31 38 64 62 65  6bd76ce42d818dbe
3d90: 63 34 36 32 64 38 66 65 37 63 64 64 39 35 37 65  c462d8fe7cdd957e
3da0: 36 62 38 34 61 65 38 37 35 30 66 62 35 65 31 63  6b84ae8750fb5e1c
3db0: 39 63 37 36 62 63 36 30 30 30 65 32 33 37 33 37  9c76bc6000e23737
3dc0: 65 30 37 33 61 35 39 62 34 36 30 30 65 35 30 35  e073a59b4600e505
3dd0: 36 35 32 34 65 64 63 36 36 37 39 30 39 64 0a 0a  6524edc667909d..
3de0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3df0: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34 37  sh_SHA3-384-2.47
3e00: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
3e10: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3e20: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
3e30: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
3e40: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
3e50: 68 65 78 20 34 37 65 33 65 33 64 38 63 36 38 61  hex 47e3e3d8c68a
3e60: 63 39 64 39 66 34 62 33 37 35 39 64 38 63 37 64  c9d9f4b3759d8c7d
3e70: 39 64 64 39 30 31 65 33 35 62 30 39 36 65 65 34  9dd901e35b096ee4
3e80: 63 38 62 36 63 62 65 30 63 64 66 34 36 37 34 36  c8b6cbe0cdf46746
3e90: 33 36 33 30 39 32 36 63 30 38 32 38 39 61 62 65  3630926c08289abe
3ea0: 31 35 33 62 66 61 31 62 63 64 65 33 63 64 37 63  153bfa1bcde3cd7c
3eb0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3ec0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3ed0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
3ee0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
3ef0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
3f00: 35 30 34 65 66 34 37 35 61 35 36 38 66 39 63 61  504ef475a568f9ca
3f10: 62 61 38 33 35 32 61 30 62 32 64 32 34 33 61 63  ba8352a0b2d243ac
3f20: 64 66 33 64 32 62 34 31 64 38 38 39 30 61 36 66  df3d2b41d8890a6f
3f30: 62 33 61 62 62 38 61 61 32 38 61 32 39 65 30 63  b3abb8aa28a29e0c
3f40: 37 35 32 37 64 32 30 65 32 64 37 39 62 32 35 62  7527d20e2d79b25b
3f50: 34 30 30 65 63 32 37 63 33 31 34 64 62 37 32 0a  400ec27c314db72.
3f60: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
3f70: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 34  ash_SHA3-384-2.4
3f80: 38 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  8 {SHA3_384Short
3f90: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
3fa0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
3fb0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3fc0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3fd0: 20 68 65 78 20 38 33 38 64 39 63 31 38 31 63 35   hex 838d9c181c5
3fe0: 61 62 35 39 35 39 32 37 32 33 62 64 36 39 33 36  ab59592723bd6936
3ff0: 30 65 30 64 37 66 64 31 35 32 33 32 62 65 61 64  0e0d7fd15232bead
4000: 61 37 35 39 31 65 61 38 39 39 61 63 37 38 66 66  a7591ea899ac78ff
4010: 64 35 33 61 33 32 66 63 37 33 61 35 66 65 35 32  d53a32fc73a5fe52
4020: 32 65 64 33 35 64 39 32 61 36 65 32 62 63 31 34  2ed35d92a6e2bc14
4030: 38 63 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  8ca]} \..-body {
4040: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
4050: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
4060: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4070: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
4080: 74 20 35 33 65 39 39 65 31 31 35 38 64 35 39 30  t 53e99e1158d590
4090: 33 32 66 66 65 34 62 35 65 61 33 30 34 63 37 64  32ffe4b5ea304c7d
40a0: 32 66 37 61 36 31 62 36 62 32 61 39 36 61 63 39  2f7a61b6b2a96ac9
40b0: 37 38 33 32 63 61 32 36 30 31 33 35 34 39 66 65  7832ca26013549fe
40c0: 33 66 37 64 63 64 66 39 32 36 62 64 37 34 63 65  3f7dcdf926bd74ce
40d0: 61 62 65 34 66 31 66 66 31 37 32 64 61 65 64 36  abe4f1ff172daed6
40e0: 65 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e6..tcltest::tes
40f0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
4100: 32 2e 34 39 20 7b 53 48 41 33 5f 33 38 34 53 68  2.49 {SHA3_384Sh
4110: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4120: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
4130: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
4140: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
4150: 6f 64 65 20 68 65 78 20 61 39 30 64 32 61 61 35  ode hex a90d2aa5
4160: 62 32 34 31 65 31 63 61 39 64 61 62 35 62 36 64  b241e1ca9dab5b6d
4170: 63 30 35 63 33 65 32 63 39 33 66 63 35 61 32 32  c05c3e2c93fc5a22
4180: 31 30 61 36 33 31 35 64 36 30 66 39 62 37 39 31  10a6315d60f9b791
4190: 62 33 36 62 35 36 30 64 37 30 65 31 33 35 65 66  b36b560d70e135ef
41a0: 38 65 37 64 62 61 39 34 34 31 62 37 34 65 35 33  8e7dba9441b74e53
41b0: 64 61 62 30 36 30 36 62 5d 7d 20 5c 0a 09 2d 62  dab0606b]} \..-b
41c0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
41d0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
41e0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
41f0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
4200: 72 65 73 75 6c 74 20 34 61 31 36 38 38 31 63 65  result 4a16881ce
4210: 31 35 36 66 34 35 66 64 66 64 62 34 35 30 38 38  156f45fdfdb45088
4220: 65 33 66 32 33 62 65 31 62 34 63 35 61 37 61 36  e3f23be1b4c5a7a6
4230: 61 33 35 33 31 35 64 33 36 63 35 31 63 37 35 66  a35315d36c51c75f
4240: 32 37 35 37 33 33 33 31 39 61 63 61 31 38 35 64  275733319aca185d
4250: 34 61 62 33 33 31 33 30 66 66 65 34 35 66 37 35  4ab33130ffe45f75
4260: 31 66 31 62 62 63 35 0a 0a 74 63 6c 74 65 73 74  1f1bbc5..tcltest
4270: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4280: 2d 33 38 34 2d 32 2e 35 30 20 7b 53 48 41 33 5f  -384-2.50 {SHA3_
4290: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
42a0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
42b0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
42c0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
42d0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 63 32  y decode hex 8c2
42e0: 39 33 34 35 64 33 61 30 39 31 61 35 64 35 64 37  9345d3a091a5d5d7
42f0: 31 61 62 38 66 35 61 30 36 38 61 35 37 31 31 66  1ab8f5a068a5711f
4300: 37 62 61 30 30 62 31 38 33 30 64 35 65 64 30 62  7ba00b1830d5ed0b
4310: 63 64 66 62 31 62 62 38 62 30 33 63 64 30 61 66  cdfb1bb8b03cd0af
4320: 35 66 65 37 38 37 38 39 63 37 33 31 34 66 32 38  5fe78789c7314f28
4330: 39 64 66 37 65 65 65 32 38 38 37 33 35 66 65 5d  9df7eee288735fe]
4340: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4350: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4360: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
4370: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4380: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 32  exact -result e2
4390: 37 62 33 39 61 39 36 32 35 35 66 66 36 39 63 34  7b39a96255ff69c4
43a0: 35 32 38 35 66 63 61 36 65 64 61 61 61 33 39 35  5285fca6edaaa395
43b0: 34 63 65 33 32 63 31 65 33 64 39 62 31 66 36 30  4ce32c1e3d9b1f60
43c0: 63 31 62 36 36 37 36 35 39 34 62 62 34 35 63 61  c1b6676594bb45ca
43d0: 66 30 38 38 39 66 63 31 31 64 61 66 39 33 61 31  f0889fc11daf93a1
43e0: 62 36 30 37 34 36 32 32 39 36 38 39 64 64 0a 0a  b60746229689dd..
43f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4400: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 31  sh_SHA3-384-2.51
4410: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
4420: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
4430: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
4440: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
4450: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
4460: 68 65 78 20 33 32 38 37 36 66 65 65 66 65 39 39  hex 32876feefe99
4470: 31 35 61 33 32 33 39 39 30 38 33 34 37 32 65 33  15a32399083472e3
4480: 63 33 38 30 35 65 66 32 36 31 38 30 30 62 32 35  c3805ef261800b25
4490: 35 38 32 61 61 37 63 33 36 33 39 35 66 64 33 65  582aa7c36395fd3e
44a0: 63 30 35 64 34 37 62 34 39 63 34 39 34 34 62 62  c05d47b49c4944bb
44b0: 63 63 32 62 38 62 35 65 62 64 30 38 31 66 36 33  cc2b8b5ebd081f63
44c0: 61 65 37 39 34 33 64 30 5d 7d 20 5c 0a 09 2d 62  ae7943d0]} \..-b
44d0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
44e0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
44f0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
4500: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
4510: 72 65 73 75 6c 74 20 66 39 36 34 33 33 63 64 62  result f96433cdb
4520: 36 39 61 36 30 37 34 33 33 65 61 32 65 62 37 37  69a607433ea2eb77
4530: 64 38 37 64 33 33 32 38 38 36 37 64 63 34 30 37  d87d3328867dc407
4540: 36 62 36 37 63 63 66 31 37 66 35 30 66 39 65 30  6b67ccf17f50f9e0
4550: 38 65 38 39 61 38 36 36 32 34 62 36 30 66 32 65  8e89a86624b60f2e
4560: 63 64 62 38 61 66 66 63 64 34 33 31 66 63 31 33  cdb8affcd431fc13
4570: 31 37 33 66 65 37 35 0a 0a 74 63 6c 74 65 73 74  173fe75..tcltest
4580: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4590: 2d 33 38 34 2d 32 2e 35 32 20 7b 53 48 41 33 5f  -384-2.52 {SHA3_
45a0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
45b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
45c0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
45d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
45e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 32 65  y decode hex e2e
45f0: 37 37 65 62 35 34 66 33 32 31 66 38 36 66 35 32  77eb54f321f86f52
4600: 65 61 33 64 33 63 38 63 64 63 33 62 63 37 34 64  ea3d3c8cdc3bc74d
4610: 38 62 34 66 32 66 33 33 34 35 39 31 65 35 65 36  8b4f2f334591e5e6
4620: 33 62 37 38 31 30 33 34 64 61 39 64 37 62 39 34  3b781034da9d7b94
4630: 31 64 35 38 32 37 30 33 37 64 65 65 34 30 63 35  1d5827037dee40c5
4640: 38 64 63 30 64 37 34 63 30 30 39 39 36 65 35 38  8dc0d74c00996e58
4650: 32 62 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  2bc]} \..-body {
4660: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
4670: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
4680: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4690: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
46a0: 74 20 61 33 35 32 61 62 33 33 63 61 37 33 30 34  t a352ab33ca7304
46b0: 38 32 63 33 37 36 62 64 63 35 37 33 63 39 64 31  82c376bdc573c9d1
46c0: 64 63 36 64 33 35 39 37 66 39 62 65 39 66 37 39  dc6d3597f9be9f79
46d0: 38 62 37 34 61 35 37 62 65 61 61 38 65 39 63 35  8b74a57beaa8e9c5
46e0: 37 62 37 38 65 65 36 37 36 31 30 35 36 65 62 36  7b78ee6761056eb6
46f0: 37 33 36 33 65 38 38 32 66 65 66 63 61 64 34 66  7363e882fefcad4f
4700: 62 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  b9..tcltest::tes
4710: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
4720: 32 2e 35 33 20 7b 53 48 41 33 5f 33 38 34 53 68  2.53 {SHA3_384Sh
4730: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4740: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
4750: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
4760: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
4770: 6f 64 65 20 68 65 78 20 64 61 31 34 62 36 64 30  ode hex da14b6d0
4780: 62 32 65 63 34 63 66 31 65 37 63 37 39 30 65 37  b2ec4cf1e7c790e7
4790: 66 38 66 34 32 31 32 62 38 66 34 64 30 35 66 35  f8f4212b8f4d05f5
47a0: 30 65 37 35 65 32 61 35 36 61 35 64 37 30 36 32  0e75e2a56a5d7062
47b0: 33 63 30 64 32 65 30 31 31 35 61 31 35 34 32 38  3c0d2e0115a15428
47c0: 31 32 39 31 30 39 62 33 62 31 33 36 64 37 35 36  129109b3b136d756
47d0: 65 33 38 61 35 63 38 34 36 33 33 30 34 32 39 30  e38a5c8463304290
47e0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
47f0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4800: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
4810: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
4820: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61   exact -result a
4830: 61 65 37 61 64 39 37 37 65 31 37 61 63 30 65 35  ae7ad977e17ac0e5
4840: 36 30 63 30 65 30 31 38 36 34 33 33 34 32 30 66  60c0e0186433420f
4850: 39 66 64 64 63 64 31 39 31 62 39 65 39 31 35 36  9fddcd191b9e9156
4860: 37 63 65 65 30 35 64 66 38 38 66 31 65 31 61 65  7cee05df88f1e1ae
4870: 65 35 30 34 32 34 61 33 31 33 39 39 38 61 38 37  e50424a313998a87
4880: 33 66 37 61 39 63 32 38 39 61 30 32 32 31 37 0a  3f7a9c289a02217.
4890: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
48a0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35  ash_SHA3-384-2.5
48b0: 34 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  4 {SHA3_384Short
48c0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
48d0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
48e0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
48f0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4900: 20 68 65 78 20 32 64 62 30 36 66 30 39 61 62 61   hex 2db06f09aba
4910: 61 36 61 39 65 39 34 32 64 36 32 37 34 31 65 61  a6a9e942d62741ea
4920: 63 64 30 61 61 33 62 36 30 64 38 36 38 62 64 64  cd0aa3b60d868bdd
4930: 66 38 37 31 37 62 65 66 30 35 39 64 32 33 66 39  f8717bef059d23f9
4940: 65 66 65 31 37 30 66 38 62 35 64 63 33 65 66 38  efe170f8b5dc3ef8
4950: 37 64 61 33 64 66 33 36 31 64 34 66 31 32 62 66  7da3df361d4f12bf
4960: 64 37 32 30 30 38 33 61 37 61 30 33 35 65 38 5d  d720083a7a035e8]
4970: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4980: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4990: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
49a0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
49b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 35  exact -result 85
49c0: 64 34 65 33 65 35 61 62 63 62 31 62 35 39 63 61  d4e3e5abcb1b59ca
49d0: 36 66 35 35 31 65 62 34 33 62 34 33 66 66 36 34  6f551eb43b43ff64
49e0: 38 39 30 35 31 31 66 37 33 61 39 30 38 33 61 32  890511f73a9083a2
49f0: 63 65 36 65 39 63 32 38 36 31 63 36 65 39 36 36  ce6e9c2861c6e966
4a00: 34 63 37 36 35 36 32 39 30 32 34 66 34 62 30 31  4c765629024f4b01
4a10: 62 30 63 64 31 35 39 34 61 35 39 38 31 62 0a 0a  b0cd1594a5981b..
4a20: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4a30: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 35  sh_SHA3-384-2.55
4a40: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
4a50: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
4a60: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
4a70: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
4a80: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
4a90: 68 65 78 20 32 36 62 61 64 32 33 65 35 31 63 34  hex 26bad23e51c4
4aa0: 35 36 30 63 31 37 32 30 37 36 35 33 38 62 32 38  560c172076538b28
4ab0: 37 31 36 37 38 32 65 65 36 33 30 34 39 36 32 66  716782ee6304962f
4ac0: 36 38 65 32 37 31 38 32 30 34 38 39 34 38 64 35  68e27182048948d5
4ad0: 63 33 36 37 61 35 31 61 31 63 32 30 36 61 33 65  c367a51a1c206a3e
4ae0: 39 62 32 35 31 33 35 62 34 30 38 38 33 62 32 65  9b25135b40883b2e
4af0: 32 32 30 66 36 31 63 62 35 37 38 37 65 64 38 66  220f61cb5787ed8f
4b00: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4b10: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4b20: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
4b30: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
4b40: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61   exact -result a
4b50: 34 34 63 37 66 38 34 61 62 39 36 32 66 36 38 32  44c7f84ab962f682
4b60: 38 33 34 30 34 66 38 63 35 63 34 30 32 39 64 62  83404f8c5c4029db
4b70: 63 33 35 64 32 31 33 38 65 30 37 35 63 39 33 32  c35d2138e075c932
4b80: 37 35 38 30 62 61 66 38 39 66 32 39 32 39 33 37  7580baf89f292937
4b90: 62 66 39 39 34 32 32 65 34 35 37 35 36 62 33 66  bf99422e45756b3f
4ba0: 39 34 32 62 66 30 61 35 61 65 34 61 63 62 36 0a  942bf0a5ae4acb6.
4bb0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
4bc0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35  ash_SHA3-384-2.5
4bd0: 36 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  6 {SHA3_384Short
4be0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
4bf0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
4c00: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4c10: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4c20: 20 68 65 78 20 37 37 61 39 66 36 35 32 61 30 30   hex 77a9f652a00
4c30: 33 61 38 33 64 32 32 66 62 38 34 39 62 37 33 66  3a83d22fb849b73f
4c40: 65 64 37 64 33 37 38 33 30 63 30 64 63 35 33 66  ed7d37830c0dc53f
4c50: 38 39 63 65 61 37 64 62 65 63 32 34 65 31 34 66  89cea7dbec24e14f
4c60: 33 37 31 39 37 37 36 35 32 30 36 66 65 30 65 36  37197765206fe0e6
4c70: 36 37 32 30 31 36 65 34 64 65 63 34 64 39 65 62  672016e4dec4d9eb
4c80: 62 65 33 65 31 62 34 34 32 33 37 37 31 61 35 64  be3e1b4423771a5d
4c90: 30 61 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  0a8]} \..-body {
4ca0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
4cb0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
4cc0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4cd0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
4ce0: 74 20 32 39 63 38 62 62 33 39 62 62 32 61 61 64  t 29c8bb39bb2aad
4cf0: 34 31 39 61 30 30 61 38 30 32 31 36 65 63 37 31  419a00a80216ec71
4d00: 65 63 35 65 63 39 61 62 35 34 63 34 31 39 32 37  ec5ec9ab54c41927
4d10: 65 33 65 33 66 32 66 34 38 66 30 37 39 61 35 38  e3e3f2f48f079a58
4d20: 38 36 64 37 66 65 38 39 64 62 39 38 63 38 30 37  86d7fe89db98c807
4d30: 61 62 36 38 36 64 32 33 33 39 30 30 31 64 36 32  ab686d2339001d62
4d40: 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  52..tcltest::tes
4d50: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
4d60: 32 2e 35 37 20 7b 53 48 41 33 5f 33 38 34 53 68  2.57 {SHA3_384Sh
4d70: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4d80: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
4d90: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
4da0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
4db0: 6f 64 65 20 68 65 78 20 32 36 38 63 37 62 33 61  ode hex 268c7b3a
4dc0: 38 34 38 34 39 66 65 63 35 63 37 36 39 62 63 34  84849fec5c769bc4
4dd0: 61 64 33 37 37 64 65 61 31 30 63 39 64 32 30 63  ad377dea10c9d20c
4de0: 39 31 64 64 31 37 66 64 62 64 39 36 37 30 61 32  91dd17fdbd9670a2
4df0: 66 63 39 30 39 64 30 65 32 31 32 31 32 39 65 63  fc909d0e212129ec
4e00: 34 30 64 65 65 34 31 64 62 66 36 31 39 34 61 33  40dee41dbf6194a3
4e10: 62 30 34 61 65 38 62 65 35 65 38 34 61 64 35 34  b04ae8be5e84ad54
4e20: 32 36 63 61 34 34 39 36 5d 7d 20 5c 0a 09 2d 62  26ca4496]} \..-b
4e30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
4e40: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
4e50: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
4e60: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
4e70: 72 65 73 75 6c 74 20 30 64 66 63 36 66 66 63 66  result 0dfc6ffcf
4e80: 34 61 33 38 37 65 63 30 39 66 66 38 36 32 63 36  4a387ec09ff862c6
4e90: 31 33 39 61 36 66 37 61 63 37 37 61 62 62 32 62  139a6f7ac77abb2b
4ea0: 35 65 31 66 36 64 63 38 31 34 65 62 37 31 35 32  5e1f6dc814eb7152
4eb0: 35 66 38 36 35 37 61 63 37 34 61 37 36 39 37 63  5f8657ac74a7697c
4ec0: 32 39 37 35 63 37 30 61 35 34 33 61 66 30 65 32  2975c70a543af0e2
4ed0: 32 37 64 30 33 63 61 0a 0a 74 63 6c 74 65 73 74  27d03ca..tcltest
4ee0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
4ef0: 2d 33 38 34 2d 32 2e 35 38 20 7b 53 48 41 33 5f  -384-2.58 {SHA3_
4f00: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
4f10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
4f20: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
4f30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4f40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 38 33  y decode hex b83
4f50: 32 34 33 34 31 61 36 38 39 31 61 36 62 35 65 30  24341a6891a6b5e0
4f60: 30 31 61 37 64 32 65 62 62 61 36 65 30 32 65 38  01a7d2ebba6e02e8
4f70: 33 33 35 63 31 32 34 31 38 35 33 30 39 61 34 63  335c124185309a4c
4f80: 39 65 39 39 30 37 63 34 33 62 64 38 64 34 66 61  9e9907c43bd8d4fa
4f90: 37 33 63 35 32 37 66 64 66 37 38 33 36 35 30 33  73c527fdf7836503
4fa0: 31 36 64 64 32 34 62 31 34 38 38 37 30 65 31 34  16dd24b148870e14
4fb0: 33 36 61 63 30 35 31 31 31 65 39 63 64 63 63 5d  36ac05111e9cdcc]
4fc0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4fd0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4fe0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
4ff0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
5000: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 32  exact -result 62
5010: 37 38 64 31 63 63 31 37 66 62 36 64 35 34 31 32  78d1cc17fb6d5412
5020: 39 64 30 34 39 38 37 64 34 37 37 34 66 61 38 34  9d04987d4774fa84
5030: 36 64 63 61 63 34 62 61 38 62 36 62 37 32 66 34  6dcac4ba8b6b72f4
5040: 31 65 36 33 64 63 33 38 37 63 65 30 30 38 31 62  1e63dc387ce0081b
5050: 61 32 39 66 62 32 63 31 37 63 36 37 34 34 65 64  a29fb2c17c6744ed
5060: 61 65 32 34 65 36 36 39 63 63 39 65 37 35 0a 0a  ae24e669cc9e75..
5070: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
5080: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 35 39  sh_SHA3-384-2.59
5090: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
50a0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
50b0: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
50c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
50d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
50e0: 68 65 78 20 35 65 66 38 62 33 64 37 39 64 32 39  hex 5ef8b3d79d29
50f0: 39 62 65 65 32 63 34 31 34 35 36 30 63 37 64 65  9bee2c414560c7de
5100: 36 32 36 63 63 30 64 39 66 62 34 32 39 38 38 34  626cc0d9fb429884
5110: 61 61 36 39 63 63 33 30 30 39 35 65 66 31 66 33  aa69cc30095ef1f3
5120: 36 62 37 65 30 33 61 38 63 61 32 35 66 62 33 36  6b7e03a8ca25fb36
5130: 30 31 31 38 39 66 31 36 33 62 32 30 39 65 30 66  01189f163b209e0f
5140: 61 63 66 38 64 63 34 34 37 66 36 39 30 62 37 31  acf8dc447f690b71
5150: 30 66 62 34 37 62 37 32 5d 7d 20 5c 0a 09 2d 62  0fb47b72]} \..-b
5160: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
5170: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
5180: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
5190: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
51a0: 72 65 73 75 6c 74 20 37 65 63 39 35 30 35 66 33  result 7ec9505f3
51b0: 33 66 34 61 35 34 39 33 35 37 34 34 32 32 64 65  3f4a5493574422de
51c0: 30 37 38 65 30 34 39 30 62 36 31 62 65 38 65 38  078e0490b61be8e8
51d0: 64 36 66 31 35 38 31 39 32 62 62 37 64 32 62 64  d6f158192bb7d2bd
51e0: 63 32 64 63 33 33 35 35 39 38 64 63 38 38 64 39  c2dc335598dc88d9
51f0: 62 34 34 33 63 64 31 63 31 34 62 38 38 33 61 37  b443cd1c14b883a7
5200: 37 31 31 39 64 66 31 0a 0a 74 63 6c 74 65 73 74  7119df1..tcltest
5210: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
5220: 2d 33 38 34 2d 32 2e 36 30 20 7b 53 48 41 33 5f  -384-2.60 {SHA3_
5230: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
5240: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
5250: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
5260: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5270: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 64 37  y decode hex ad7
5280: 33 32 31 63 39 61 38 62 38 66 30 62 66 65 31 30  321c9a8b8f0bfe10
5290: 30 38 31 31 31 31 34 32 37 30 64 61 61 64 35 37  0811114270daad57
52a0: 66 36 65 38 38 37 37 32 33 32 36 62 36 32 64 38  f6e88772326b62d8
52b0: 38 61 33 37 61 36 66 35 35 63 32 63 66 39 66 37  8a37a6f55c2cf9f7
52c0: 35 39 31 31 35 65 64 36 61 35 39 30 38 37 38 65  59115ed6a590878e
52d0: 34 64 63 65 66 62 35 39 32 64 62 31 35 31 35 33  4dcefb592db15153
52e0: 38 64 62 37 64 65 32 30 32 32 39 64 32 36 61 31  8db7de20229d26a1
52f0: 38 31 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  81c]} \..-body {
5300: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
5310: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
5320: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
5330: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
5340: 74 20 33 37 38 32 64 32 63 61 61 35 33 37 32 39  t 3782d2caa53729
5350: 34 65 38 30 39 65 39 64 66 38 33 37 62 31 62 30  4e809e9df837b1b0
5360: 37 65 32 66 31 64 66 30 37 64 30 66 34 63 31 32  7e2f1df07d0f4c12
5370: 65 31 32 34 35 39 66 35 36 65 65 61 61 34 37 38  e12459f56eeaa478
5380: 64 35 62 33 61 34 31 65 35 31 39 64 39 34 31 34  d5b3a41e519d9414
5390: 65 61 66 61 35 64 64 64 35 36 36 31 63 38 33 31  eafa5ddd5661c831
53a0: 62 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  ba..tcltest::tes
53b0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
53c0: 32 2e 36 31 20 7b 53 48 41 33 5f 33 38 34 53 68  2.61 {SHA3_384Sh
53d0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
53e0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
53f0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
5400: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
5410: 6f 64 65 20 68 65 78 20 30 37 31 39 64 39 36 36  ode hex 0719d966
5420: 34 35 34 31 66 30 61 38 32 34 66 37 31 63 38 33  4541f0a824f71c83
5430: 62 38 30 39 62 62 36 61 66 63 39 37 33 63 39 66  b809bb6afc973c9f
5440: 37 34 32 38 65 31 65 64 31 31 66 37 63 32 39 61  7428e1ed11f7c29a
5450: 35 35 38 65 31 36 39 38 62 37 39 36 61 65 66 62  558e1698b796aefb
5460: 34 39 65 65 63 32 62 30 39 38 66 61 66 30 36 62  49eec2b098faf06b
5470: 64 34 33 65 38 32 65 31 33 31 32 62 66 30 33 38  d43e82e1312bf038
5480: 38 63 33 38 61 35 62 62 35 32 33 35 30 36 64 33  8c38a5bb523506d3
5490: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
54a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
54b0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
54c0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
54d0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33   exact -result 3
54e0: 36 32 63 30 35 66 36 37 38 64 66 39 32 38 38 33  62c05f678df92883
54f0: 64 35 36 65 31 39 32 32 31 33 39 31 66 62 30 30  d56e19221391fb00
5500: 64 30 66 30 61 66 63 65 63 35 31 64 33 65 30 66  d0f0afcec51d3e0f
5510: 65 62 31 35 62 61 32 66 62 36 30 36 39 33 62 30  eb15ba2fb60693b0
5520: 39 64 36 39 31 31 38 61 66 36 34 39 36 34 38 39  9d69118af6496489
5530: 33 33 32 35 39 64 37 62 31 65 32 34 30 61 62 0a  33259d7b1e240ab.
5540: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
5550: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36  ash_SHA3-384-2.6
5560: 32 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  2 {SHA3_384Short
5570: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
5580: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
5590: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
55a0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
55b0: 20 68 65 78 20 35 34 31 35 63 32 35 39 36 61 61   hex 5415c2596aa
55c0: 37 64 32 31 65 38 35 35 62 65 39 38 34 39 31 62  7d21e855be98491b
55d0: 64 37 30 32 33 35 37 63 31 39 66 32 31 66 34 36  d702357c19f21f46
55e0: 32 39 34 66 39 38 61 38 61 61 33 37 62 33 35 33  294f98a8aa37b353
55f0: 32 65 65 31 35 34 31 63 61 33 35 35 30 39 61 64  2ee1541ca35509ad
5600: 62 65 66 39 64 38 33 65 62 39 39 35 32 38 62 61  bef9d83eb99528ba
5610: 31 34 65 66 30 62 64 32 39 39 38 61 37 31 38 64  14ef0bd2998a718d
5620: 61 38 36 31 63 33 66 31 36 66 65 36 39 37 31 5d  a861c3f16fe6971]
5630: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
5640: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
5650: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
5660: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
5670: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 66  exact -result 8f
5680: 39 66 64 37 64 38 37 39 64 36 62 35 31 65 65 38  9fd7d879d6b51ee8
5690: 34 33 65 31 66 62 63 64 34 30 62 62 36 37 34 34  43e1fbcd40bb6744
56a0: 39 61 65 37 34 34 64 62 39 66 36 37 33 65 33 34  9ae744db9f673e34
56b0: 35 32 66 30 32 38 63 62 30 31 38 39 64 39 63 62  52f028cb0189d9cb
56c0: 30 66 65 66 37 62 64 62 35 63 37 36 30 64 36 33  0fef7bdb5c760d63
56d0: 66 65 61 30 65 33 62 61 33 64 64 38 64 31 0a 0a  fea0e3ba3dd8d1..
56e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
56f0: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36 33  sh_SHA3-384-2.63
5700: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
5710: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
5720: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
5730: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
5740: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
5750: 68 65 78 20 62 39 37 39 61 32 35 61 34 32 34 62  hex b979a25a424b
5760: 31 65 34 63 37 65 61 37 31 62 36 36 34 35 35 34  1e4c7ea71b664554
5770: 35 32 34 38 34 39 38 61 32 62 38 63 34 62 35 36  5248498a2b8c4b56
5780: 38 65 34 63 38 66 33 66 66 36 65 35 38 64 32 61  8e4c8f3ff6e58d2a
5790: 63 38 66 62 65 39 37 62 65 34 62 65 61 35 37 64  c8fbe97be4bea57d
57a0: 37 39 36 62 39 36 30 34 31 64 31 35 31 34 35 31  796b96041d151451
57b0: 31 64 61 35 66 36 33 35 31 31 32 30 62 65 37 61  1da5f6351120be7a
57c0: 62 34 32 38 31 30 37 65 66 33 63 36 36 39 32 31  b428107ef3c66921
57d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
57e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
57f0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
5800: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
5810: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65   exact -result e
5820: 32 34 38 61 36 34 62 36 65 66 31 31 32 62 66 33  248a64b6ef112bf3
5830: 64 32 39 39 34 38 62 31 63 39 39 35 38 30 38 65  d29948b1c995808e
5840: 35 30 36 63 30 34 39 66 33 39 30 36 64 37 34 63  506c049f3906d74c
5850: 33 65 65 31 65 34 64 39 66 33 35 31 36 35 38 36  3ee1e4d9f3516586
5860: 38 31 39 30 31 66 65 34 32 63 38 65 32 38 30 32  81901fe42c8e2802
5870: 34 66 65 33 31 30 31 34 65 32 64 33 34 32 62 0a  4fe31014e2d342b.
5880: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
5890: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36  ash_SHA3-384-2.6
58a0: 34 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  4 {SHA3_384Short
58b0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
58c0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
58d0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
58e0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
58f0: 20 68 65 78 20 65 36 34 63 37 62 62 39 63 64 39   hex e64c7bb9cd9
5900: 39 63 65 35 34 37 64 34 33 64 65 33 63 63 33 62  9ce547d43de3cc3b
5910: 36 66 37 64 38 37 61 32 64 66 39 64 38 61 34 37  6f7d87a2df9d8a47
5920: 36 30 63 31 38 62 61 66 35 39 30 63 37 34 30 65  60c18baf590c740e
5930: 63 35 33 63 38 39 62 66 61 30 37 35 38 32 37 65  c53c89bfa075827e
5940: 31 66 33 66 32 38 35 38 63 65 38 36 66 33 32 35  1f3f2858ce86f325
5950: 30 37 37 37 32 35 65 37 32 36 31 30 33 66 62 65  077725e726103fbe
5960: 39 34 66 37 61 31 34 36 36 63 33 39 66 36 30 39  94f7a1466c39f609
5970: 32 34 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  24f]} \..-body {
5980: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
5990: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
59a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
59b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
59c0: 74 20 64 31 65 35 61 37 32 64 32 35 39 35 66 33  t d1e5a72d2595f3
59d0: 38 37 31 34 63 36 31 39 38 61 63 31 34 66 38 61  8714c6198ac14f8a
59e0: 35 63 64 64 38 39 34 64 63 66 39 62 34 62 38 65  5cdd894dcf9b4b8e
59f0: 39 37 35 31 37 34 62 31 30 30 64 66 37 62 62 66  975174b100df7bbf
5a00: 34 66 37 63 65 32 39 31 62 34 38 36 34 66 32 37  4f7ce291b4864f27
5a10: 63 30 62 36 34 65 36 33 33 30 66 36 63 31 63 38  c0b64e6330f6c1c8
5a20: 32 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  2c..tcltest::tes
5a30: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
5a40: 32 2e 36 35 20 7b 53 48 41 33 5f 33 38 34 53 68  2.65 {SHA3_384Sh
5a50: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5a60: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
5a70: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
5a80: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
5a90: 6f 64 65 20 68 65 78 20 39 31 62 37 61 31 66 64  ode hex 91b7a1fd
5aa0: 30 65 32 30 30 37 32 64 39 63 35 62 65 37 31 39  0e20072d9c5be719
5ab0: 36 65 35 65 61 66 38 64 66 33 36 66 64 66 31 34  6e5eaf8df36fdf14
5ac0: 35 38 39 35 62 33 30 64 34 65 34 63 30 32 30 31  5895b30d4e4c0201
5ad0: 30 64 37 63 36 36 33 34 39 39 61 63 39 64 37 61  0d7c663499ac9d7a
5ae0: 34 34 37 33 32 66 34 63 37 34 33 30 35 31 31 62  44732f4c7430511b
5af0: 61 36 66 62 30 61 65 34 62 33 64 63 39 34 30 35  a6fb0ae4b3dc9405
5b00: 35 32 33 61 30 35 34 66 64 66 39 36 32 66 35 63  523a054fdf962f5c
5b10: 35 62 37 39 63 34 32 33 5d 7d 20 5c 0a 09 2d 62  5b79c423]} \..-b
5b20: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
5b30: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
5b40: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
5b50: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
5b60: 72 65 73 75 6c 74 20 30 37 63 32 65 30 61 65 61  result 07c2e0aea
5b70: 65 33 30 64 61 38 33 62 35 61 36 62 33 32 30 61  e30da83b5a6b320a
5b80: 61 31 63 66 37 32 37 62 31 30 63 32 30 33 34 35  a1cf727b10c20345
5b90: 38 33 64 37 61 63 64 61 35 35 36 34 38 66 61 33  83d7acda55648fa3
5ba0: 64 61 61 30 31 37 61 61 31 35 35 38 38 62 36 65  daa017aa15588b6e
5bb0: 32 31 34 39 31 30 31 63 35 36 65 33 64 37 64 66  2149101c56e3d7df
5bc0: 37 63 37 36 64 66 31 0a 0a 74 63 6c 74 65 73 74  7c76df1..tcltest
5bd0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
5be0: 2d 33 38 34 2d 32 2e 36 36 20 7b 53 48 41 33 5f  -384-2.66 {SHA3_
5bf0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
5c00: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
5c10: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
5c20: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5c30: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 62 62  y decode hex 5bb
5c40: 63 32 64 34 65 66 65 36 33 63 62 66 63 39 66 63  c2d4efe63cbfc9fc
5c50: 32 32 31 64 64 38 64 38 33 38 34 30 37 35 61 37  221dd8d8384075a7
5c60: 39 63 38 30 61 32 37 64 36 61 38 63 35 32 31 39  9c80a27d6a8c5219
5c70: 65 36 37 37 66 34 63 35 62 62 38 33 33 38 30 31  e677f4c5bb833801
5c80: 33 64 63 32 61 62 31 37 37 30 61 63 66 37 33 35  3dc2ab1770acf735
5c90: 64 31 33 63 30 62 63 37 30 34 36 32 31 65 63 32  d13c0bc704621ec2
5ca0: 36 39 31 33 35 30 63 66 33 65 61 32 66 35 33 62  691350cf3ea2f53b
5cb0: 64 65 64 34 35 65 66 38 66 63 37 30 37 30 32 5d  ded45ef8fc70702]
5cc0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
5cd0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
5ce0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
5cf0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
5d00: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 64  exact -result dd
5d10: 30 62 62 66 65 34 62 37 39 39 36 34 32 31 39 31  0bbfe4b799642191
5d20: 61 62 65 33 31 36 64 66 39 64 35 39 61 33 37 34  abe316df9d59a374
5d30: 33 35 36 36 37 37 38 62 34 34 35 39 63 35 31 63  3566778b4459c51c
5d40: 33 62 65 33 66 36 35 38 62 64 63 65 34 35 35 31  3be3f658bdce4551
5d50: 36 61 64 31 38 38 66 62 65 31 61 38 63 61 64 38  6ad188fbe1a8cad8
5d60: 61 31 66 61 37 38 66 38 65 62 62 36 34 35 0a 0a  a1fa78f8ebb645..
5d70: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
5d80: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 36 37  sh_SHA3-384-2.67
5d90: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
5da0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
5db0: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
5dc0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
5dd0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
5de0: 68 65 78 20 31 32 39 35 34 39 32 37 38 65 38 39  hex 129549278e89
5df0: 37 36 63 33 38 62 35 35 30 35 38 31 35 37 32 35  76c38b5505815725
5e00: 34 30 30 63 33 64 32 30 38 31 65 64 66 31 34 31  400c3d2081edf141
5e10: 61 64 30 30 32 65 36 32 66 66 32 39 39 64 39 61  ad002e62ff299d9a
5e20: 30 37 34 33 66 39 63 39 66 32 35 39 37 31 37 31  0743f9c9f2597171
5e30: 30 62 31 39 34 64 63 38 38 32 38 35 64 35 30 62  0b194dc88285d50b
5e40: 36 63 65 63 36 65 31 34 30 63 31 39 30 37 32 66  6cec6e140c19072f
5e50: 35 31 63 61 62 33 32 61 39 66 36 34 39 37 61 62  51cab32a9f6497ab
5e60: 64 33 65 34 30 37 63 36 5d 7d 20 5c 0a 09 2d 62  d3e407c6]} \..-b
5e70: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
5e80: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
5e90: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
5ea0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
5eb0: 72 65 73 75 6c 74 20 63 61 32 36 61 65 63 35 32  result ca26aec52
5ec0: 37 66 61 64 63 64 35 65 62 65 62 34 65 61 66 61  7fadcd5ebeb4eafa
5ed0: 37 63 31 30 32 66 37 39 61 33 63 32 65 64 62 34  7c102f79a3c2edb4
5ee0: 35 32 61 66 64 30 34 66 36 31 36 32 64 64 37 61  52afd04f6162dd7a
5ef0: 31 37 62 64 64 31 61 61 64 37 64 36 31 36 35 30  17bdd1aad7d61650
5f00: 38 61 38 39 61 33 65 63 36 61 34 30 37 39 31 64  8a89a3ec6a40791d
5f10: 39 31 35 61 63 63 38 0a 0a 74 63 6c 74 65 73 74  915acc8..tcltest
5f20: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
5f30: 2d 33 38 34 2d 32 2e 36 38 20 7b 53 48 41 33 5f  -384-2.68 {SHA3_
5f40: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
5f50: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
5f60: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
5f70: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5f80: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 39 61  y decode hex b9a
5f90: 39 66 33 37 38 61 64 65 66 66 34 33 33 37 62 63  9f378adeff4337bc
5fa0: 37 65 63 31 30 64 35 32 36 63 36 64 64 61 30 37  7ec10d526c6dda07
5fb0: 30 32 38 33 37 35 35 34 39 66 37 66 64 61 37 61  028375549f7fda7a
5fc0: 38 31 64 30 35 36 36 32 63 38 61 30 64 61 33 62  81d05662c8a0da3b
5fd0: 34 37 38 66 34 31 35 32 61 66 34 32 61 62 62 39  478f4152af42abb9
5fe0: 66 39 61 36 35 63 33 39 64 61 30 39 35 61 62 62  f9a65c39da095abb
5ff0: 38 31 36 31 62 61 36 36 37 36 62 33 35 34 31 31  8161ba6676b35411
6000: 32 33 34 62 64 34 36 36 63 32 39 31 34 65 30 30  234bd466c2914e00
6010: 33 37 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  370]} \..-body {
6020: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
6030: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
6040: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
6050: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
6060: 74 20 39 39 39 31 34 66 36 38 34 65 30 62 33 31  t 99914f684e0b31
6070: 37 66 39 33 33 38 61 66 30 63 37 31 65 39 36 35  7f9338af0c71e965
6080: 35 61 33 61 66 37 31 35 33 65 62 39 66 61 62 61  5a3af7153eb9faba
6090: 61 65 36 31 34 35 34 62 66 38 64 65 39 65 30 62  ae61454bf8de9e0b
60a0: 66 64 32 37 34 63 31 65 66 66 36 63 34 62 35 35  fd274c1eff6c4b55
60b0: 30 65 34 37 61 66 63 62 33 62 32 30 66 61 37 64  0e47afcb3b20fa7d
60c0: 39 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  9e..tcltest::tes
60d0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
60e0: 32 2e 36 39 20 7b 53 48 41 33 5f 33 38 34 53 68  2.69 {SHA3_384Sh
60f0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
6100: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
6110: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
6120: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
6130: 6f 64 65 20 68 65 78 20 31 30 31 64 61 35 62 30  ode hex 101da5b0
6140: 39 37 30 30 64 63 61 64 66 38 30 65 35 62 37 39  9700dcadf80e5b79
6150: 30 30 66 34 65 39 34 63 35 34 64 35 66 31 37 35  00f4e94c54d5f175
6160: 35 36 39 61 38 35 34 65 34 38 38 61 61 33 36 66  569a854e488aa36f
6170: 62 34 31 61 62 37 32 32 30 62 30 36 36 32 31 37  b41ab7220b066217
6180: 38 63 61 30 37 61 35 39 36 37 36 38 35 32 38 31  8ca07a5967685281
6190: 32 33 64 65 33 62 32 61 33 64 39 34 34 61 61 34  23de3b2a3d944aa4
61a0: 31 32 38 37 35 63 65 64 66 65 61 66 35 38 64 63  12875cedfeaf58dc
61b0: 63 36 64 35 62 34 61 30 33 33 61 35 33 62 36 39  c6d5b4a033a53b69
61c0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
61d0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
61e0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
61f0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
6200: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64   exact -result d
6210: 33 65 33 32 63 39 62 32 37 31 65 31 31 65 34 39  3e32c9b271e11e49
6220: 36 38 33 39 37 64 38 35 64 37 36 39 33 38 62 39  68397d85d76938b9
6230: 37 34 61 63 31 62 61 35 35 62 63 62 65 38 64 37  74ac1ba55bcbe8d7
6240: 62 37 64 61 30 32 64 62 64 37 65 33 62 39 63 39  b7da02dbd7e3b9c9
6250: 61 66 30 64 39 38 62 62 64 37 65 35 30 63 34 33  af0d98bbd7e50c43
6260: 36 66 63 66 39 65 33 35 35 31 65 33 34 33 32 0a  6fcf9e3551e3432.
6270: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
6280: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37  ash_SHA3-384-2.7
6290: 30 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  0 {SHA3_384Short
62a0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
62b0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
62c0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
62d0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
62e0: 20 68 65 78 20 31 34 37 36 31 62 62 63 35 36 38   hex 14761bbc568
62f0: 35 62 35 64 65 36 39 32 39 37 33 65 32 64 66 37  5b5de692973e2df7
6300: 63 39 63 34 37 35 30 38 38 39 63 31 39 61 39 35  c9c4750889c19a95
6310: 32 66 39 31 32 63 38 31 37 38 39 30 35 34 36 64  2f912c817890546d
6320: 35 65 33 37 64 39 34 30 64 31 33 61 31 34 61 63  5e37d940d13a14ac
6330: 37 39 32 35 61 62 62 64 38 37 35 62 38 63 64 36  7925abbd875b8cd6
6340: 30 65 34 39 32 30 38 39 36 63 65 36 64 65 63 63  0e4920896ce6decc
6350: 38 64 62 39 66 38 38 39 64 61 32 62 35 34 38 39  8db9f889da2b5489
6360: 65 31 64 31 31 30 66 66 34 35 39 64 38 38 35 5d  e1d110ff459d885]
6370: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
6380: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
6390: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
63a0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
63b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 37  exact -result 27
63c0: 32 32 32 32 65 64 35 30 36 33 31 61 66 66 34 36  2222ed50631aff46
63d0: 35 63 30 65 36 66 65 34 39 65 63 64 66 64 63 61  5c0e6fe49ecdfdca
63e0: 39 38 33 62 63 62 37 32 33 31 65 35 30 39 30 33  983bcb7231e50903
63f0: 65 32 30 30 62 33 33 35 62 38 34 35 31 30 38 32  e200b335b8451082
6400: 30 32 63 32 38 33 31 35 39 31 32 63 39 63 34 66  02c28315912c9c4f
6410: 64 35 30 65 32 63 36 66 31 33 61 39 65 61 0a 0a  d50e2c6f13a9ea..
6420: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
6430: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37 31  sh_SHA3-384-2.71
6440: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
6450: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
6460: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
6470: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
6480: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
6490: 68 65 78 20 65 64 35 33 38 30 30 39 61 65 61 65  hex ed538009aeae
64a0: 64 33 32 38 34 63 32 39 61 36 32 35 33 37 30 32  d3284c29a6253702
64b0: 39 30 34 39 36 37 65 30 65 61 39 37 39 66 30 61  904967e0ea979f0a
64c0: 33 34 61 35 66 33 64 37 62 35 61 62 38 38 36 36  34a5f3d7b5ab8866
64d0: 36 32 64 61 39 62 38 65 30 31 65 66 63 34 31 38  62da9b8e01efc418
64e0: 38 65 30 37 37 63 32 63 64 65 62 35 64 65 30 61  8e077c2cdeb5de0a
64f0: 38 32 35 32 61 61 66 62 65 65 39 34 38 66 38 36  8252aafbee948f86
6500: 64 62 36 32 61 61 65 36 65 39 65 37 34 61 62 63  db62aae6e9e74abc
6510: 38 39 65 36 66 36 30 32 31 61 34 64 62 31 34 30  89e6f6021a4db140
6520: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6530: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6540: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
6550: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
6560: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38   exact -result 8
6570: 33 36 31 62 36 38 30 32 34 33 62 31 36 36 31 64  361b680243b1661d
6580: 36 66 31 64 66 35 33 64 62 33 36 33 63 61 65 34  6f1df53db363cae4
6590: 31 63 32 65 62 62 37 34 33 38 63 30 30 36 30 36  1c2ebb7438c00606
65a0: 64 37 36 62 39 63 32 61 32 35 33 66 61 61 31 66  d76b9c2a253faa1f
65b0: 30 39 64 36 66 35 32 30 64 36 39 64 36 39 32 65  09d6f520d69d692e
65c0: 63 31 64 63 61 30 63 37 38 38 35 31 31 39 63 0a  c1dca0c7885119c.
65d0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
65e0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37  ash_SHA3-384-2.7
65f0: 32 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  2 {SHA3_384Short
6600: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
6610: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
6620: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
6630: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
6640: 20 68 65 78 20 63 34 33 34 64 38 38 34 36 38 66   hex c434d88468f
6650: 31 65 64 61 32 33 38 34 38 64 30 38 30 34 62 34  1eda23848d0804b4
6660: 37 36 39 33 33 66 32 34 62 61 65 61 64 65 63 36  76933f24baeadec6
6670: 39 37 34 33 64 64 39 30 64 38 34 35 35 66 31 65  9743dd90d8455f1e
6680: 31 66 32 39 30 66 36 66 31 61 61 66 33 36 37 30  1f290f6f1aaf3670
6690: 63 34 63 37 34 66 37 36 64 33 61 62 38 33 65 39  c4c74f76d3ab83e9
66a0: 62 65 66 32 31 61 64 38 64 39 32 30 38 63 37 31  bef21ad8d9208c71
66b0: 32 63 61 34 37 38 65 37 30 64 35 66 62 33 63 34  2ca478e70d5fb3c4
66c0: 62 64 34 38 38 33 34 63 39 36 39 64 64 33 38 66  bd48834c969dd38f
66d0: 34 38 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  484]} \..-body {
66e0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
66f0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
6700: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
6710: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
6720: 74 20 39 63 32 36 65 39 36 66 63 63 30 39 61 37  t 9c26e96fcc09a7
6730: 36 63 63 31 33 64 32 34 61 64 32 35 63 39 63 65  6cc13d24ad25c9ce
6740: 66 34 33 30 30 65 39 36 65 39 37 65 34 66 62 35  f4300e96e97e4fb5
6750: 39 62 34 34 31 62 61 66 66 65 64 30 37 66 36 61  9b441baffed07f6a
6760: 37 30 62 31 34 36 34 66 32 35 34 38 63 37 66 64  70b1464f2548c7fd
6770: 37 38 33 39 38 31 30 64 62 62 39 65 39 63 31 65  7839810dbb9e9c1e
6780: 31 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  18..tcltest::tes
6790: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
67a0: 32 2e 37 33 20 7b 53 48 41 33 5f 33 38 34 53 68  2.73 {SHA3_384Sh
67b0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
67c0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
67d0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
67e0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
67f0: 6f 64 65 20 68 65 78 20 33 30 36 34 65 35 62 61  ode hex 3064e5ba
6800: 31 65 37 37 35 31 62 66 37 31 39 38 65 30 38 31  1e7751bf7198e081
6810: 31 66 66 34 64 34 63 61 31 37 64 31 33 31 31 63  1ff4d4ca17d1311c
6820: 32 35 64 39 63 33 61 33 31 36 62 35 36 32 36 39  25d9c3a316b56269
6830: 31 63 64 65 37 35 63 39 37 34 62 30 62 35 32 36  1cde75c974b0b526
6840: 34 35 63 31 33 34 64 64 63 63 37 30 39 64 37 37  45c134ddcc709d77
6850: 62 36 63 31 62 64 32 34 63 64 36 38 34 32 36 35  b6c1bd24cd684265
6860: 64 37 32 33 63 33 30 38 62 62 34 64 30 31 35 39  d723c308bb4d0159
6870: 65 36 62 31 36 64 39 37 65 64 39 63 65 61 61 35  e6b16d97ed9ceaa5
6880: 37 34 33 36 64 33 30 32 5d 7d 20 5c 0a 09 2d 62  7436d302]} \..-b
6890: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
68a0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
68b0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
68c0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
68d0: 72 65 73 75 6c 74 20 31 65 61 37 37 39 37 33 39  result 1ea779739
68e0: 62 32 30 34 61 62 65 39 31 31 62 34 39 32 33 65  b204abe911b4923e
68f0: 36 66 36 30 66 65 63 65 32 37 31 65 65 64 66 63  6f60fece271eedfc
6900: 37 66 30 37 34 66 65 31 39 31 39 66 30 63 62 63  7f074fe1919f0cbc
6910: 36 63 65 32 61 39 39 32 33 34 62 30 30 33 33 38  6ce2a99234b00338
6920: 39 35 32 30 38 38 34 62 36 36 30 31 36 35 66 35  9520884b660165f5
6930: 61 31 65 38 30 66 38 0a 0a 74 63 6c 74 65 73 74  a1e80f8..tcltest
6940: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6950: 2d 33 38 34 2d 32 2e 37 34 20 7b 53 48 41 33 5f  -384-2.74 {SHA3_
6960: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
6970: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6980: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
6990: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
69a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 39 64  y decode hex 89d
69b0: 39 35 32 31 61 64 38 34 62 31 63 39 61 66 63 32  9521ad84b1c9afc2
69c0: 66 62 64 30 65 64 63 32 32 37 31 39 33 61 63 64  fbd0edc227193acd
69d0: 33 33 33 30 37 36 34 62 30 64 32 63 62 37 31 62  3330764b0d2cb71b
69e0: 66 34 37 63 37 61 61 63 39 34 36 61 66 38 35 62  f47c7aac946af85b
69f0: 65 31 33 38 35 38 62 35 35 39 37 36 30 30 39 66  e13858b55976009f
6a00: 33 62 33 36 62 30 39 63 65 64 34 33 30 38 30 35  3b36b09ced430805
6a10: 32 63 38 31 37 63 39 63 34 64 30 32 39 35 32 32  2c817c9c4d029522
6a20: 35 66 36 31 61 39 36 35 39 61 30 38 37 34 62 38  5f61a9659a0874b8
6a30: 38 36 36 37 63 64 63 63 35 32 31 33 39 31 39 5d  8667cdcc5213919]
6a40: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
6a50: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
6a60: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
6a70: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
6a80: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 32  exact -result 42
6a90: 30 39 62 62 38 66 38 36 39 66 36 66 31 37 63 38  09bb8f869f6f17c8
6aa0: 64 35 63 33 36 38 63 34 38 39 61 63 35 31 61 37  d5c368c489ac51a7
6ab0: 35 65 32 34 61 38 35 61 31 32 64 65 31 62 31 36  5e24a85a12de1b16
6ac0: 66 65 66 63 32 39 32 63 65 36 33 36 66 66 38 66  fefc292ce636ff8f
6ad0: 61 33 36 30 65 38 32 66 30 35 36 38 34 66 36 62  a360e82f05684f6b
6ae0: 30 62 30 37 34 62 61 33 37 30 61 39 33 33 0a 0a  0b074ba370a933..
6af0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
6b00: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37 35  sh_SHA3-384-2.75
6b10: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
6b20: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
6b30: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
6b40: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
6b50: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
6b60: 68 65 78 20 33 32 31 36 36 36 32 64 61 30 32 32  hex 3216662da022
6b70: 37 39 39 33 64 38 38 32 38 38 31 38 37 31 37 37  7993d88288187177
6b80: 61 30 32 38 37 64 65 34 65 63 63 66 32 34 35 64  a0287de4eccf245d
6b90: 37 63 37 31 38 62 38 30 34 35 62 62 66 62 38 38  7c718b8045bbfb88
6ba0: 36 39 64 39 33 66 31 66 62 39 65 39 34 64 37 34  69d93f1fb9e94d74
6bb0: 37 38 62 30 32 39 38 65 36 32 38 63 30 37 65 30  78b0298e628c07e0
6bc0: 65 64 61 61 62 30 31 64 63 66 37 39 32 36 34 64  edaab01dcf79264d
6bd0: 63 30 35 66 38 62 32 31 38 31 61 61 33 66 38 33  c05f8b2181aa3f83
6be0: 31 64 63 39 34 39 37 32 36 66 62 63 66 38 30 64  1dc949726fbcf80d
6bf0: 65 34 63 39 63 39 65 64 5d 7d 20 5c 0a 09 2d 62  e4c9c9ed]} \..-b
6c00: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
6c10: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
6c20: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
6c30: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
6c40: 72 65 73 75 6c 74 20 36 34 63 34 35 65 30 31 38  result 64c45e018
6c50: 63 66 62 63 38 38 66 38 66 34 66 66 65 33 63 65  cfbc88f8f4ffe3ce
6c60: 66 30 64 66 33 61 39 34 61 61 62 33 30 34 39 66  f0df3a94aab3049f
6c70: 61 66 61 65 32 38 65 32 38 65 66 62 62 32 61 34  afae28e28efbb2a4
6c80: 62 39 34 38 30 39 65 62 33 30 32 63 61 66 39 30  b94809eb302caf90
6c90: 31 30 31 30 61 62 66 61 31 39 34 66 37 32 39 36  1010abfa194f7296
6ca0: 35 36 36 33 64 33 35 0a 0a 74 63 6c 74 65 73 74  5663d35..tcltest
6cb0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
6cc0: 2d 33 38 34 2d 32 2e 37 36 20 7b 53 48 41 33 5f  -384-2.76 {SHA3_
6cd0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
6ce0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
6cf0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
6d00: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6d10: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 37 37  y decode hex e77
6d20: 36 65 36 37 34 39 63 35 62 36 63 37 64 65 66 35  6e6749c5b6c7def5
6d30: 39 63 62 39 38 33 34 30 39 38 34 35 33 39 32 38  9cb9834098453928
6d40: 30 61 39 38 37 34 66 38 30 34 31 32 64 34 64 66  0a9874f80412d4df
6d50: 30 65 65 37 33 64 35 38 61 63 64 31 30 39 34 64  0ee73d58acd1094d
6d60: 34 39 65 64 34 65 33 35 31 32 35 38 33 34 63 66  49ed4e35125834cf
6d70: 38 63 66 65 33 34 39 65 35 39 39 31 34 34 65 34  8cfe349e599144e4
6d80: 66 32 65 32 30 30 61 62 61 34 66 64 33 65 62 36  f2e200aba4fd3eb6
6d90: 64 37 38 63 64 65 30 32 37 63 31 64 35 36 32 30  d78cde027c1d5620
6da0: 65 30 32 37 30 62 35 65 38 33 61 62 32 36 62 38  e0270b5e83ab26b8
6db0: 64 33 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  d32]} \..-body {
6dc0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
6dd0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
6de0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
6df0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
6e00: 74 20 39 34 62 64 36 37 62 37 66 32 35 38 37 62  t 94bd67b7f2587b
6e10: 30 62 64 61 35 34 38 37 63 63 34 35 64 30 30 65  0bda5487cc45d00e
6e20: 34 33 36 35 66 31 65 65 34 30 30 37 33 63 64 66  4365f1ee40073cdf
6e30: 30 64 32 33 61 35 65 61 33 66 62 61 30 31 65 65  0d23a5ea3fba01ee
6e40: 66 34 32 61 34 36 62 66 62 61 63 35 33 30 36 64  f42a46bfbac5306d
6e50: 36 37 62 65 30 32 64 38 64 39 31 38 61 65 35 63  67be02d8d918ae5c
6e60: 39 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  9a..tcltest::tes
6e70: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
6e80: 32 2e 37 37 20 7b 53 48 41 33 5f 33 38 34 53 68  2.77 {SHA3_384Sh
6e90: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
6ea0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
6eb0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
6ec0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
6ed0: 6f 64 65 20 68 65 78 20 35 64 38 66 38 34 62 32  ode hex 5d8f84b2
6ee0: 66 32 30 38 62 35 38 61 36 38 65 38 38 63 65 38  f208b58a68e88ce8
6ef0: 65 66 62 35 34 33 61 38 34 30 34 66 30 65 63 30  efb543a8404f0ec0
6f00: 63 39 38 30 35 63 37 36 30 61 64 33 35 39 64 31  c9805c760ad359d1
6f10: 33 66 61 61 62 38 34 64 33 66 38 62 62 31 64 32  3faab84d3f8bb1d2
6f20: 61 34 62 62 34 35 65 37 32 63 30 65 63 39 32 34  a4bb45e72c0ec924
6f30: 35 66 66 64 61 32 65 35 37 32 66 39 34 65 34 36  5ffda2e572f94e46
6f40: 36 63 66 66 61 34 34 62 38 37 36 64 35 63 35 65  6cffa44b876d5c5e
6f50: 64 39 31 34 64 31 66 66 33 33 38 65 30 36 62 37  d914d1ff338e06b7
6f60: 34 61 64 31 65 37 34 64 31 34 30 35 64 32 33 64  4ad1e74d1405d23d
6f70: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6f80: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6f90: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
6fa0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
6fb0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39   exact -result 9
6fc0: 34 37 33 35 30 33 30 37 37 34 38 63 32 39 34 36  47350307748c2946
6fd0: 37 66 30 30 31 30 33 64 30 61 30 37 63 33 63 32  7f00103d0a07c3c2
6fe0: 32 38 63 35 66 34 39 34 66 63 38 38 66 65 32 33  28c5f494fc88fe23
6ff0: 35 32 63 61 35 64 31 30 34 34 39 64 30 64 64 61  52ca5d10449d0dda
7000: 37 30 37 36 37 38 30 63 30 35 34 33 39 61 30 39  7076780c05439a09
7010: 36 39 34 65 62 35 32 38 64 31 66 34 37 37 61 0a  694eb528d1f477a.
7020: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
7030: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37  ash_SHA3-384-2.7
7040: 38 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  8 {SHA3_384Short
7050: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
7060: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
7070: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
7080: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
7090: 20 68 65 78 20 33 35 37 64 35 37 36 35 35 39 35   hex 357d5765595
70a0: 30 36 35 65 66 65 32 38 31 61 66 62 38 64 30 32  065efe281afb8d02
70b0: 31 64 34 37 36 34 66 62 61 30 39 31 61 64 64 65  1d4764fba091adde
70c0: 30 35 65 30 32 61 66 30 61 34 33 37 30 35 31 61  05e02af0a437051a
70d0: 30 34 61 33 62 38 65 35 35 32 65 63 34 38 66 62  04a3b8e552ec48fb
70e0: 37 31 35 32 63 34 37 30 34 31 32 63 34 30 65 34  7152c470412c40e4
70f0: 30 65 65 63 35 38 62 38 34 32 38 34 32 64 38 39  0eec58b842842d89
7100: 39 33 61 35 61 65 31 63 36 31 65 62 32 30 64 65  93a5ae1c61eb20de
7110: 35 31 31 32 33 32 31 62 63 39 37 61 66 36 31 38  5112321bc97af618
7120: 62 62 66 62 61 66 38 65 32 61 38 37 36 39 39 5d  bbfbaf8e2a87699]
7130: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7140: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7150: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
7160: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
7170: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 32  exact -result 32
7180: 32 38 36 39 37 30 32 30 34 63 33 34 35 31 39 35  286970204c345195
7190: 38 66 35 31 35 35 66 30 39 30 34 34 38 66 30 36  8f5155f090448f06
71a0: 31 64 64 38 31 62 31 33 36 61 31 34 35 39 32 61  1dd81b136a14592a
71b0: 33 32 30 34 63 36 62 30 38 65 39 32 32 65 65 35  3204c6b08e922ee5
71c0: 62 62 36 64 36 35 33 34 64 62 66 38 65 66 62 34  bb6d6534dbf8efb4
71d0: 62 62 37 33 38 37 30 39 32 63 38 34 30 30 0a 0a  bb7387092c8400..
71e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
71f0: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 37 39  sh_SHA3-384-2.79
7200: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
7210: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
7220: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
7230: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
7240: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
7250: 68 65 78 20 61 38 63 62 37 38 65 31 34 38 35 63  hex a8cb78e1485c
7260: 62 62 37 61 39 34 37 34 63 31 63 31 66 38 65 30  bb7a9474c1c1f8e0
7270: 66 33 30 37 63 64 61 35 31 33 39 61 37 65 39 34  f307cda5139a7e94
7280: 37 64 66 35 65 61 32 30 61 63 33 33 30 61 36 64  7df5ea20ac330a6d
7290: 66 66 63 61 64 34 61 39 62 64 37 35 35 66 39 66  ffcad4a9bd755f9f
72a0: 35 38 37 32 34 37 38 39 65 65 65 65 35 33 32 36  58724789eeee5326
72b0: 31 35 62 65 35 35 30 64 64 38 34 66 35 32 34 31  15be550dd84f5241
72c0: 66 64 65 30 65 33 30 35 38 61 65 65 64 62 66 32  fde0e3058aeedbf2
72d0: 38 37 66 30 32 61 34 36 30 34 34 35 30 32 37 66  87f02a460445027f
72e0: 35 65 36 62 33 38 32 39 62 66 37 31 65 63 66 34  5e6b3829bf71ecf4
72f0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7300: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7310: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
7320: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
7330: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35   exact -result 5
7340: 31 31 36 38 62 66 65 65 66 38 61 39 38 31 63 30  1168bfeef8a981c0
7350: 64 65 66 30 63 34 63 62 30 36 37 62 61 66 31 35  def0c4cb067baf15
7360: 63 65 35 66 65 62 38 64 35 66 37 65 39 64 36 30  ce5feb8d5f7e9d60
7370: 37 36 62 32 38 33 36 32 36 37 33 39 31 61 65 65  76b2836267391aee
7380: 31 66 64 33 61 30 62 35 64 33 34 33 34 63 65 62  1fd3a0b5d3434ceb
7390: 35 63 66 32 64 36 66 61 30 36 66 61 30 36 33 0a  5cf2d6fa06fa063.
73a0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
73b0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38  ash_SHA3-384-2.8
73c0: 30 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  0 {SHA3_384Short
73d0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
73e0: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
73f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
7400: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
7410: 20 68 65 78 20 38 31 61 63 63 61 38 32 35 34 35   hex 81acca82545
7420: 65 37 36 37 61 62 35 39 64 63 63 37 35 30 61 30  e767ab59dcc750a0
7430: 39 38 34 39 63 65 62 61 64 30 38 66 66 33 31 63  9849cebad08ff31c
7440: 39 32 39 37 66 34 66 64 35 31 30 65 62 65 36 63  9297f4fd510ebe6c
7450: 32 37 37 36 39 39 33 38 33 31 39 31 38 30 63 63  27769938319180cc
7460: 63 36 36 66 33 36 62 31 61 37 63 66 39 63 39 66  c66f36b1a7cf9c9f
7470: 33 35 33 38 62 30 66 36 66 33 37 31 35 30 39 66  3538b0f6f371509f
7480: 37 37 63 66 30 62 63 34 64 36 64 38 37 66 61 63  77cf0bc4d6d87fac
7490: 63 38 35 62 39 33 33 66 32 65 32 37 66 38 65 31  c85b933f2e27f8e1
74a0: 62 66 36 63 66 33 38 38 66 38 30 63 30 66 63 62  bf6cf388f80c0fcb
74b0: 66 62 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  fba]} \..-body {
74c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
74d0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
74e0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
74f0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
7500: 74 20 34 61 65 34 34 64 36 35 30 39 39 38 36 38  t 4ae44d65099868
7510: 39 33 61 38 34 31 34 37 35 33 62 35 37 64 31 31  93a8414753b57d11
7520: 66 39 63 35 35 34 64 38 39 63 31 35 61 64 36 64  f9c554d89c15ad6d
7530: 37 30 36 38 37 63 35 36 63 36 63 32 61 63 37 33  70687c56c6c2ac73
7540: 35 33 37 61 63 62 62 30 64 35 31 66 34 38 65 36  537acbb0d51f48e6
7550: 62 65 61 36 63 66 37 36 32 64 35 38 38 39 30 64  bea6cf762d58890d
7560: 37 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  7a..tcltest::tes
7570: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
7580: 32 2e 38 31 20 7b 53 48 41 33 5f 33 38 34 53 68  2.81 {SHA3_384Sh
7590: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
75a0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
75b0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
75c0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
75d0: 6f 64 65 20 68 65 78 20 39 34 39 38 37 34 39 38  ode hex 94987498
75e0: 62 31 63 61 38 37 61 36 66 33 66 61 34 62 39 39  b1ca87a6f3fa4b99
75f0: 39 64 62 37 32 36 31 31 35 63 34 35 35 64 30 65  9db726115c455d0e
7600: 63 32 34 30 32 39 62 32 66 35 38 31 30 65 34 39  c24029b2f5810e49
7610: 61 39 34 36 36 38 38 36 34 62 38 63 34 37 30 66  a94668864b8c470f
7620: 37 66 63 30 37 63 33 64 63 64 39 37 66 34 31 63  7fc07c3dcd97f41c
7630: 39 37 33 62 34 35 62 61 34 66 61 37 38 37 39 65  973b45ba4fa7879e
7640: 65 37 35 34 36 35 39 36 38 38 31 35 37 33 62 36  e7546596881573b6
7650: 38 36 33 66 63 33 39 64 39 34 30 65 62 33 66 61  863fc39d940eb3fa
7660: 33 34 34 34 30 38 34 66 37 32 31 33 34 31 66 35  3444084f721341f5
7670: 64 32 33 64 32 35 36 31 5d 7d 20 5c 0a 09 2d 62  d23d2561]} \..-b
7680: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
7690: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
76a0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
76b0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
76c0: 72 65 73 75 6c 74 20 61 37 33 33 62 31 31 38 62  result a733b118b
76d0: 65 37 32 61 31 38 37 64 64 63 62 65 35 62 61 36  e72a187ddcbe5ba6
76e0: 37 65 30 34 62 35 38 39 66 39 63 64 39 66 38 34  7e04b589f9cd9f84
76f0: 38 32 63 34 62 64 39 64 36 34 63 35 38 30 61 62  82c4bd9d64c580ab
7700: 61 37 64 31 39 64 32 64 31 66 39 63 31 64 64 66  a7d19d2d1f9c1ddf
7710: 39 35 66 65 36 65 66 64 65 66 66 64 34 34 66 36  95fe6efdeffd44f6
7720: 37 66 63 61 62 62 35 0a 0a 74 63 6c 74 65 73 74  7fcabb5..tcltest
7730: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
7740: 2d 33 38 34 2d 32 2e 38 32 20 7b 53 48 41 33 5f  -384-2.82 {SHA3_
7750: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
7760: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
7770: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
7780: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7790: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 65 36  y decode hex de6
77a0: 62 33 32 63 32 64 34 30 64 30 36 35 39 31 36 36  b32c2d40d0659166
77b0: 64 62 32 33 35 32 35 39 62 35 33 30 65 61 34 33  db235259b530ea43
77c0: 66 34 34 65 37 35 64 38 62 33 65 39 65 38 35 36  f44e75d8b3e9e856
77d0: 65 63 34 63 31 34 31 30 62 62 65 61 33 36 39 36  ec4c1410bbea3696
77e0: 39 36 34 61 66 38 62 36 63 35 64 66 64 33 33 30  964af8b6c5dfd330
77f0: 34 32 38 32 33 36 39 61 34 62 63 34 65 37 63 66  4282369a4bc4e7cf
7800: 36 36 62 39 31 66 65 63 64 30 63 37 63 31 30 35  66b91fecd0c7c105
7810: 62 35 39 66 31 65 30 61 34 39 36 33 33 36 66 33  b59f1e0a496336f3
7820: 32 37 34 34 30 39 38 30 61 33 34 36 31 34 65 65  27440980a34614ee
7830: 30 30 66 66 66 32 35 38 37 64 36 62 38 31 33 5d  00fff2587d6b813]
7840: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7850: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7860: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
7870: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
7880: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 37  exact -result 17
7890: 62 61 33 30 63 30 62 35 66 63 31 38 35 62 33 32  ba30c0b5fc185b32
78a0: 34 35 33 31 33 62 38 33 64 64 30 34 38 31 31 34  45313b83dd048114
78b0: 35 39 35 33 31 30 31 31 32 38 39 31 34 37 36 35  5953101128914765
78c0: 37 38 34 61 66 37 35 31 37 34 35 62 38 61 32 62  784af751745b8a2b
78d0: 36 61 39 30 61 34 33 34 35 34 38 66 33 61 64 61  6a90a434548f3ada
78e0: 66 31 66 30 37 66 31 38 36 34 39 38 39 30 0a 0a  f1f07f18649890..
78f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
7900: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38 33  sh_SHA3-384-2.83
7910: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
7920: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
7930: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
7940: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
7950: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
7960: 68 65 78 20 38 35 34 32 31 31 62 65 64 61 63 63  hex 854211bedacc
7970: 31 39 66 37 37 62 34 36 63 66 61 34 34 37 61 34  19f77b46cfa447a4
7980: 61 64 36 37 32 65 61 39 62 36 34 33 66 30 39 66  ad672ea9b643f09f
7990: 35 63 66 35 32 37 34 62 61 32 38 38 38 38 32 30  5cf5274ba2888820
79a0: 37 65 32 34 36 36 62 33 38 31 32 37 37 37 36 66  7e2466b38127776f
79b0: 62 39 37 36 64 62 38 61 64 37 31 36 35 61 33 37  b976db8ad7165a37
79c0: 38 64 66 36 65 65 31 65 33 61 30 66 38 31 30 39  8df6ee1e3a0f8109
79d0: 63 39 61 66 66 37 65 30 64 36 31 32 36 66 64 37  c9aff7e0d6126fd7
79e0: 31 33 33 33 63 36 65 36 65 62 65 31 35 64 37 61  1333c6e6ebe15d7a
79f0: 36 35 31 35 31 64 36 61 34 61 38 33 62 38 32 63  65151d6a4a83b82c
7a00: 38 61 36 66 33 31 34 39 5d 7d 20 5c 0a 09 2d 62  8a6f3149]} \..-b
7a10: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
7a20: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
7a30: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
7a40: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
7a50: 72 65 73 75 6c 74 20 63 61 38 35 36 33 32 61 39  result ca85632a9
7a60: 66 37 63 33 32 61 63 34 37 30 35 63 36 34 35 38  f7c32ac4705c6458
7a70: 37 37 30 30 32 35 64 64 61 34 66 64 30 37 61 38  770025dda4fd07a8
7a80: 64 35 64 36 39 32 31 62 38 39 37 62 30 64 61 34  d5d6921b897b0da4
7a90: 39 30 64 36 34 34 30 30 35 38 37 36 34 39 66 32  90d64400587649f2
7aa0: 64 32 30 62 66 36 30 38 62 39 61 31 38 64 30 37  d20bf608b9a18d07
7ab0: 31 62 36 33 62 34 38 0a 0a 74 63 6c 74 65 73 74  1b63b48..tcltest
7ac0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
7ad0: 2d 33 38 34 2d 32 2e 38 34 20 7b 53 48 41 33 5f  -384-2.84 {SHA3_
7ae0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
7af0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
7b00: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
7b10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7b20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 32 32  y decode hex 822
7b30: 33 37 33 64 39 64 33 64 35 62 30 36 61 38 64 61  373d9d3d5b06a8da
7b40: 34 38 61 34 33 30 39 35 37 34 30 66 62 39 38 63  48a43095740fb98c
7b50: 39 63 61 66 37 31 37 33 35 30 66 64 32 63 33 62  9caf717350fd2c3b
7b60: 30 35 38 30 32 34 66 66 37 30 35 62 39 33 34 36  058024ff705b9346
7b70: 62 37 66 30 61 34 39 35 61 36 64 34 64 39 33 38  b7f0a495a6d4d938
7b80: 30 32 62 63 34 35 65 63 65 37 37 37 66 38 63 36  02bc45ece777f8c6
7b90: 61 36 65 37 63 32 65 66 36 62 38 31 33 35 31 31  a6e7c2ef6b813511
7ba0: 35 66 66 39 31 31 61 32 62 61 35 32 34 31 36 36  5ff911a2ba524166
7bb0: 35 62 36 66 37 63 62 66 61 31 62 39 64 39 33 62  5b6f7cbfa1b9d93b
7bc0: 30 31 31 62 33 61 61 61 31 64 61 63 31 38 35 33  011b3aaa1dac1853
7bd0: 66 62 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  fb2]} \..-body {
7be0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
7bf0: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
7c00: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
7c10: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
7c20: 74 20 36 65 38 34 35 38 37 63 38 63 36 65 35 34  t 6e84587c8c6e54
7c30: 33 35 33 61 36 30 33 32 65 37 35 30 35 39 30 32  353a6032e7505902
7c40: 65 66 37 66 30 66 30 35 33 38 64 64 31 62 62 33  ef7f0f0538dd1bb3
7c50: 32 39 32 32 65 31 33 61 37 64 34 64 39 38 63 34  2922e13a7d4d98c4
7c60: 37 61 35 34 31 30 31 35 33 38 31 65 61 62 32 37  7a541015381eab27
7c70: 65 39 31 38 36 33 39 38 31 32 30 64 61 37 66 62  e9186398120da7fb
7c80: 33 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  32..tcltest::tes
7c90: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
7ca0: 32 2e 38 35 20 7b 53 48 41 33 5f 33 38 34 53 68  2.85 {SHA3_384Sh
7cb0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
7cc0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
7cd0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
7ce0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
7cf0: 6f 64 65 20 68 65 78 20 63 30 34 62 37 30 31 66  ode hex c04b701f
7d00: 36 38 38 30 39 32 62 62 64 31 63 66 34 32 31 37  688092bbd1cf4217
7d10: 62 63 34 62 35 38 37 37 66 32 65 36 30 63 30 38  bc4b5877f2e60c08
7d20: 37 62 64 61 63 34 36 36 31 31 34 38 32 61 36 31  7bdac46611482a61
7d30: 64 35 31 66 38 32 30 31 34 30 34 30 33 62 63 38  d51f820140403bc8
7d40: 35 62 65 30 63 33 33 36 33 33 32 64 61 30 39 33  5be0c336332da093
7d50: 38 37 33 34 62 64 65 38 63 35 30 32 30 31 34 66  8734bde8c502014f
7d60: 33 35 30 39 32 36 36 63 37 33 63 36 63 39 33 63  3509266c73c6c93c
7d70: 32 32 61 31 62 64 30 64 64 66 31 35 61 35 63 65  22a1bd0ddf15a5ce
7d80: 37 34 31 30 63 32 38 39 34 65 39 64 30 39 32 65  7410c2894e9d092e
7d90: 33 32 63 30 37 39 39 32 32 62 61 31 61 62 62 37  32c079922ba1abb7
7da0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7db0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7dc0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
7dd0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
7de0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37   exact -result 7
7df0: 35 63 35 38 35 35 30 33 66 31 35 61 35 32 36 31  5c585503f15a5261
7e00: 31 33 36 30 38 62 63 31 38 33 31 38 30 62 31 63  13608bc183180b1c
7e10: 62 38 30 66 34 64 31 62 34 36 36 63 35 37 36 62  b80f4d1b466c576b
7e20: 66 30 32 31 62 31 63 65 37 61 31 35 32 38 33 39  f021b1ce7a152839
7e30: 31 66 37 30 65 31 30 34 34 36 36 38 31 38 34 39  1f70e10446681849
7e40: 66 61 38 61 36 34 33 63 62 32 62 36 38 32 38 0a  fa8a643cb2b6828.
7e50: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
7e60: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38  ash_SHA3-384-2.8
7e70: 36 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  6 {SHA3_384Short
7e80: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
7e90: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
7ea0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
7eb0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
7ec0: 20 68 65 78 20 30 30 39 64 64 38 32 31 63 62 65   hex 009dd821cbe
7ed0: 64 31 32 33 35 38 38 30 66 65 36 34 37 65 31 39  d1235880fe647e19
7ee0: 31 66 65 36 66 36 35 35 35 66 64 63 39 38 62 38  1fe6f6555fdc98b8
7ef0: 61 61 64 30 66 66 33 64 61 35 61 36 64 66 30 65  aad0ff3da5a6df0e
7f00: 35 37 39 39 30 34 34 65 66 38 65 30 31 32 61 64  5799044ef8e012ad
7f10: 35 34 63 62 31 39 61 34 36 66 64 64 35 63 38 32  54cb19a46fdd5c82
7f20: 66 32 34 66 33 65 65 37 37 36 31 33 64 34 62 65  f24f3ee77613d4be
7f30: 64 39 36 31 66 36 62 37 66 34 38 31 34 61 61 61  d961f6b7f4814aaa
7f40: 63 34 38 62 64 66 34 33 63 39 32 33 34 63 65 32  c48bdf43c9234ce2
7f50: 65 37 35 39 65 39 61 66 32 66 34 66 66 31 36 64  e759e9af2f4ff16d
7f60: 38 36 64 35 33 32 37 63 39 37 38 64 61 64 35 5d  86d5327c978dad5]
7f70: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7f80: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7f90: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
7fa0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
7fb0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 32  exact -result 02
7fc0: 61 30 39 64 33 37 64 33 31 65 34 33 36 35 63 32  a09d37d31e4365c2
7fd0: 36 62 65 63 30 65 61 61 63 65 63 66 32 39 65 65  6bec0eaacecf29ee
7fe0: 61 34 65 38 64 32 31 61 62 39 31 35 64 64 36 30  a4e8d21ab915dd60
7ff0: 35 32 34 38 37 36 34 64 39 36 34 66 31 30 65 62  5248764d964f10eb
8000: 62 38 66 61 66 64 62 35 39 31 39 38 32 64 33 33  b8fafdb591982d33
8010: 38 36 39 61 31 64 30 38 61 37 65 33 31 33 0a 0a  869a1d08a7e313..
8020: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8030: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38 37  sh_SHA3-384-2.87
8040: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
8050: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
8060: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
8070: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
8080: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
8090: 68 65 78 20 30 62 37 64 64 36 37 30 39 64 35 35  hex 0b7dd6709d55
80a0: 65 30 64 35 32 36 64 36 34 63 30 63 35 61 66 34  e0d526d64c0c5af4
80b0: 30 61 63 66 35 39 35 62 65 33 35 33 64 37 30 35  0acf595be353d705
80c0: 62 65 37 62 37 61 30 62 31 63 34 63 38 33 62 62  be7b7a0b1c4c83bb
80d0: 65 36 61 31 62 31 65 63 36 38 31 66 36 32 38 65  e6a1b1ec681f628e
80e0: 39 64 36 63 66 63 38 35 61 64 39 63 38 62 62 38  9d6cfc85ad9c8bb8
80f0: 62 34 65 63 61 63 36 34 63 35 62 33 61 39 62 37  b4ecac64c5b3a9b7
8100: 32 66 39 35 65 35 39 61 66 65 66 61 37 62 63 65  2f95e59afefa7bce
8110: 63 35 62 65 32 32 33 61 39 62 32 62 35 34 38 33  c5be223a9b2b5483
8120: 36 34 32 34 61 66 64 65 35 32 61 32 39 62 32 32  6424afde52a29b22
8130: 61 62 36 35 32 64 32 32 63 63 65 33 34 62 33 39  ab652d22cce34b39
8140: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8150: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8160: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
8170: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
8180: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35   exact -result 5
8190: 63 38 34 61 65 33 39 64 39 35 39 62 37 39 35 35  c84ae39d959b7955
81a0: 35 32 33 31 37 34 36 61 64 35 62 33 33 36 38 39  5231746ad5b33689
81b0: 61 33 31 37 32 30 65 64 30 30 37 30 66 36 37 37  a31720ed0070f677
81c0: 32 31 34 37 39 37 37 65 64 64 30 61 65 61 64 30  2147977edd0aead0
81d0: 37 66 62 38 62 37 62 37 31 62 30 62 64 35 38 37  7fb8b7b71b0bd587
81e0: 65 62 63 35 63 31 61 38 30 64 35 36 34 63 37 0a  ebc5c1a80d564c7.
81f0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
8200: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 38  ash_SHA3-384-2.8
8210: 38 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  8 {SHA3_384Short
8220: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
8230: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
8240: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
8250: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
8260: 20 68 65 78 20 33 65 39 62 36 35 64 37 62 66 34   hex 3e9b65d7bf4
8270: 32 33 39 34 32 30 61 66 61 38 36 33 39 63 38 31  239420afa8639c81
8280: 39 35 62 36 33 39 30 32 62 32 34 34 39 35 62 39  95b63902b24495b9
8290: 35 63 34 31 34 33 39 37 38 65 34 39 38 34 33 64  5c4143978e49843d
82a0: 38 38 61 39 32 64 31 66 65 65 64 32 65 65 64 31  88a92d1feed2eed1
82b0: 61 38 38 63 64 30 37 32 64 36 64 30 34 65 61 32  a88cd072d6d04ea2
82c0: 36 64 63 65 38 65 65 34 62 31 34 38 39 36 66 64  6dce8ee4b14896fd
82d0: 62 36 39 62 63 37 66 66 32 39 37 31 65 64 38 61  b69bc7ff2971ed8a
82e0: 63 35 36 35 35 31 34 38 64 32 65 39 39 32 31 32  c5655148d2e99212
82f0: 31 38 64 37 34 65 66 64 66 31 37 63 35 36 62 35  18d74efdf17c56b5
8300: 33 33 64 30 62 62 31 37 64 31 31 65 30 37 64 37  33d0bb17d11e07d7
8310: 34 35 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  458]} \..-body {
8320: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
8330: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
8340: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
8350: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
8360: 74 20 61 62 37 38 39 30 64 31 62 35 31 61 66 31  t ab7890d1b51af1
8370: 30 32 38 35 37 35 32 62 66 39 64 61 35 65 65 65  0285752bf9da5eee
8380: 35 63 33 65 38 37 61 32 38 35 64 63 33 33 32 36  5c3e87a285dc3326
8390: 32 64 30 32 36 31 61 61 39 61 35 37 35 66 33 30  2d0261aa9a575f30
83a0: 33 65 39 34 38 34 35 64 37 61 62 32 31 62 34 38  3e94845d7ab21b48
83b0: 66 34 65 36 38 38 34 35 36 38 63 64 37 38 62 35  f4e6884568cd78b5
83c0: 35 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  50..tcltest::tes
83d0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
83e0: 32 2e 38 39 20 7b 53 48 41 33 5f 33 38 34 53 68  2.89 {SHA3_384Sh
83f0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
8400: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
8410: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
8420: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
8430: 6f 64 65 20 68 65 78 20 39 34 33 36 64 61 34 33  ode hex 9436da43
8440: 33 64 31 65 62 64 31 30 62 39 34 36 62 31 32 39  3d1ebd10b946b129
8450: 63 62 33 34 62 63 63 65 63 39 62 38 66 37 30 35  cb34bccec9b8f705
8460: 61 61 62 61 33 66 38 35 36 31 33 35 32 65 64 33  aaba3f8561352ed3
8470: 36 61 38 34 34 39 61 62 61 32 64 64 37 62 61 31  6a8449aba2dd7ba1
8480: 35 62 31 62 63 33 30 38 62 30 63 30 32 39 31 33  5b1bc308b0c02913
8490: 31 36 33 61 66 36 33 61 33 34 36 35 32 34 64 66  163af63a346524df
84a0: 66 35 35 32 31 34 33 32 64 62 34 37 37 66 35 32  f5521432db477f52
84b0: 39 36 30 36 61 66 62 35 64 35 35 32 65 66 63 39  9606afb5d552efc9
84c0: 35 63 62 30 34 30 64 62 35 36 36 62 34 64 33 39  5cb040db566b4d39
84d0: 65 64 64 61 61 31 39 33 31 39 65 35 31 38 61 37  eddaa19319e518a7
84e0: 62 35 63 36 39 33 31 65 5d 7d 20 5c 0a 09 2d 62  b5c6931e]} \..-b
84f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
8500: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
8510: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
8520: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
8530: 72 65 73 75 6c 74 20 39 36 38 61 65 39 31 30 34  result 968ae9104
8540: 66 39 63 39 30 37 63 35 61 37 32 39 33 36 32 35  f9c907c5a7293625
8550: 30 64 66 65 64 64 36 32 63 64 30 34 66 36 65 35  0dfedd62cd04f6e5
8560: 64 64 64 32 63 31 31 33 34 39 30 38 30 38 61 31  ddd2c113490808a1
8570: 31 38 38 34 34 34 39 61 61 65 66 35 64 30 31 33  1884449aaef5d013
8580: 65 61 33 39 39 33 61 36 63 62 36 66 63 35 63 30  ea3993a6cb6fc5c0
8590: 38 37 35 34 34 30 38 0a 0a 74 63 6c 74 65 73 74  8754408..tcltest
85a0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
85b0: 2d 33 38 34 2d 32 2e 39 30 20 7b 53 48 41 33 5f  -384-2.90 {SHA3_
85c0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
85d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
85e0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
85f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8600: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 37 32  y decode hex 372
8610: 35 34 62 66 39 62 63 37 63 64 34 65 64 37 32 65  54bf9bc7cd4ed72e
8620: 37 32 62 36 62 62 36 32 33 61 30 63 63 38 65 65  72b6bb623a0cc8ee
8630: 62 39 36 33 64 38 32 37 61 65 66 36 35 61 64 34  b963d827aef65ad4
8640: 62 63 35 34 39 31 33 32 33 35 62 36 64 33 35 35  bc54913235b6d355
8650: 31 35 33 33 63 65 33 33 34 32 31 61 61 35 32 66  1533ce33421aa52f
8660: 66 62 66 31 38 36 65 62 39 61 32 37 38 37 31 38  fbf186eb9a278718
8670: 38 65 65 62 31 62 35 32 65 65 36 34 35 63 36 64  8eeb1b52ee645c6d
8680: 34 61 36 33 31 62 63 30 37 31 34 31 35 63 38 30  4a631bc071415c80
8690: 30 31 34 39 34 30 63 32 38 66 62 66 65 62 30 64  014940c28fbfeb0d
86a0: 62 34 37 32 63 33 32 36 63 38 64 61 63 66 64 36  b472c326c8dacfd6
86b0: 61 62 32 31 66 33 65 32 32 35 65 64 65 66 33 5d  ab21f3e225edef3]
86c0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
86d0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
86e0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
86f0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
8700: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 37  exact -result 97
8710: 35 65 31 30 66 61 63 39 61 61 37 37 62 37 38 30  5e10fac9aa77b780
8720: 65 35 66 36 63 32 31 35 31 65 63 34 61 33 63 37  e5f6c2151ec4a3c7
8730: 32 66 66 32 36 65 34 31 32 33 33 63 63 37 37 34  2ff26e41233cc774
8740: 63 30 37 34 64 66 31 62 37 38 63 63 65 35 61 66  c074df1b78cce5af
8750: 31 31 39 31 62 61 39 35 35 61 30 62 63 65 31 35  1191ba955a0bce15
8760: 39 32 36 61 65 36 39 31 62 30 66 66 65 37 0a 0a  926ae691b0ffe7..
8770: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8780: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39 31  sh_SHA3-384-2.91
8790: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
87a0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
87b0: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
87c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
87d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
87e0: 68 65 78 20 37 39 65 37 37 63 64 30 38 61 36 65  hex 79e77cd08a6e
87f0: 66 37 37 30 62 62 65 34 62 65 64 66 36 31 35 35  f770bbe4bedf6155
8800: 37 65 61 36 33 32 62 34 32 64 37 38 36 33 37 31  7ea632b42d786371
8810: 34 39 36 37 30 64 34 64 36 31 35 37 64 35 36 65  49670d4d6157d56e
8820: 64 37 62 32 63 63 61 65 65 34 35 64 39 34 33 39  d7b2ccaee45d9439
8830: 64 63 65 62 63 35 35 37 62 34 31 31 38 65 38 36  dcebc557b4118e86
8840: 63 31 35 61 61 30 63 63 63 32 31 63 34 37 34 62  c15aa0ccc21c474b
8850: 32 31 61 62 64 61 31 36 37 36 63 63 35 36 34 33  21abda1676cc5643
8860: 34 64 36 64 34 36 34 32 32 39 39 33 65 36 36 64  4d6d46422993e66d
8870: 63 39 39 33 38 37 64 66 61 39 38 35 33 35 38 61  c99387dfa985358a
8880: 63 63 66 36 39 38 38 34 62 39 64 64 31 38 61 32  ccf69884b9dd18a2
8890: 63 34 64 30 34 34 34 38 5d 7d 20 5c 0a 09 2d 62  c4d04448]} \..-b
88a0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
88b0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
88c0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
88d0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
88e0: 72 65 73 75 6c 74 20 39 34 37 32 39 66 35 66 39  result 94729f5f9
88f0: 39 61 35 34 66 35 61 33 65 61 36 39 32 33 33 66  9a54f5a3ea69233f
8900: 66 39 64 35 32 32 33 39 32 64 34 35 39 36 65 62  f9d522392d4596eb
8910: 36 61 63 32 62 62 62 30 37 34 39 32 65 63 65 33  6ac2bbb07492ece3
8920: 63 36 37 33 31 37 34 31 32 62 62 34 37 61 65 33  c67317412bb47ae3
8930: 31 37 64 64 64 32 30 35 33 36 63 33 61 64 63 30  17ddd20536c3adc0
8940: 30 33 38 36 32 66 31 0a 0a 74 63 6c 74 65 73 74  03862f1..tcltest
8950: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
8960: 2d 33 38 34 2d 32 2e 39 32 20 7b 53 48 41 33 5f  -384-2.92 {SHA3_
8970: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
8980: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
8990: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
89a0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
89b0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 34 62  y decode hex 64b
89c0: 37 36 63 62 35 35 34 66 36 62 65 63 63 32 33 38  76cb554f6becc238
89d0: 61 33 66 63 66 63 33 65 62 39 37 39 39 33 36 36  a3fcfc3eb9799366
89e0: 37 65 63 38 32 66 64 63 33 66 62 32 38 64 34 32  7ec82fdc3fb28d42
89f0: 35 36 37 37 30 39 63 33 32 35 30 63 37 39 39 37  567709c3250c7997
8a00: 33 32 38 61 65 64 64 66 64 63 32 37 35 30 34 35  328aeddfdc275045
8a10: 31 61 63 34 36 32 32 38 31 62 66 36 36 66 61 39  1ac462281bf66fa9
8a20: 34 66 34 62 38 37 31 32 63 37 61 38 33 34 32 36  4f4b8712c7a83426
8a30: 36 30 35 37 34 66 32 30 32 36 38 65 37 30 37 63  60574f20268e707c
8a40: 34 36 36 36 32 37 35 31 39 63 35 36 32 35 39 66  466627519c56259f
8a50: 65 61 35 35 62 65 39 31 65 31 30 66 61 61 62 33  ea55be91e10faab3
8a60: 61 64 32 61 64 65 36 63 65 38 62 36 35 35 37 66  ad2ade6ce8b6557f
8a70: 32 30 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  202]} \..-body {
8a80: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
8a90: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
8aa0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
8ab0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
8ac0: 74 20 32 36 64 34 38 65 66 35 30 36 37 64 37 30  t 26d48ef5067d70
8ad0: 34 65 65 39 65 32 61 36 34 65 33 39 39 64 65 32  4ee9e2a64e399de2
8ae0: 33 30 36 38 39 30 38 62 33 63 39 31 31 66 66 63  3068908b3c911ffc
8af0: 34 30 35 36 63 31 36 38 33 36 32 63 33 37 33 38  4056c168362c3738
8b00: 35 63 39 32 64 33 37 64 35 31 33 35 34 62 36 35  5c92d37d51354b65
8b10: 30 35 61 38 32 63 34 64 32 32 66 65 63 33 37 65  05a82c4d22fec37e
8b20: 61 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  aa..tcltest::tes
8b30: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
8b40: 32 2e 39 33 20 7b 53 48 41 33 5f 33 38 34 53 68  2.93 {SHA3_384Sh
8b50: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
8b60: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
8b70: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
8b80: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
8b90: 6f 64 65 20 68 65 78 20 33 64 66 32 37 38 32 39  ode hex 3df27829
8ba0: 62 66 62 31 61 62 37 64 33 38 31 66 31 34 36 62  bfb1ab7d381f146b
8bb0: 33 30 33 37 30 65 66 35 36 62 33 39 32 62 37 33  30370ef56b392b73
8bc0: 62 33 35 62 31 62 65 35 64 38 62 62 63 66 38 38  b35b1be5d8bbcf88
8bd0: 66 34 39 39 64 64 61 37 66 33 63 33 32 37 62 34  f499dda7f3c327b4
8be0: 35 33 35 30 62 38 39 37 32 39 39 31 65 65 34 36  5350b8972991ee46
8bf0: 36 35 34 35 64 65 39 36 35 36 30 63 66 34 35 31  6545de96560cf451
8c00: 37 31 31 66 64 61 38 38 34 65 33 64 39 62 32 61  711fda884e3d9b2a
8c10: 66 33 65 39 30 39 64 36 35 35 64 32 35 63 65 65  f3e909d655d25cee
8c20: 31 63 39 33 31 62 65 64 61 37 39 63 34 30 66 61  1c931beda79c40fa
8c30: 35 30 37 30 39 37 62 64 66 31 31 32 36 37 37 31  507097bdf1126771
8c40: 61 37 62 39 35 34 33 61 64 35 63 62 38 34 62 39  a7b9543ad5cb84b9
8c50: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8c60: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8c70: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
8c80: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
8c90: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35   exact -result 5
8ca0: 66 61 34 65 62 66 61 32 34 31 35 30 32 33 36 63  fa4ebfa24150236c
8cb0: 30 33 34 30 39 66 30 38 35 37 62 33 31 63 62 39  03409f0857b31cb9
8cc0: 35 62 30 31 35 30 66 33 38 31 63 38 38 35 38 62  5b0150f381c8858b
8cd0: 30 31 35 35 39 39 35 37 62 31 32 36 38 66 37 33  01559957b1268f73
8ce0: 63 36 39 38 37 30 39 32 33 33 65 36 62 31 35 34  c698709233e6b154
8cf0: 36 38 36 37 35 61 31 30 32 64 30 63 35 65 35 0a  68675a102d0c5e5.
8d00: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
8d10: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39  ash_SHA3-384-2.9
8d20: 34 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  4 {SHA3_384Short
8d30: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
8d40: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
8d50: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
8d60: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
8d70: 20 68 65 78 20 62 30 30 66 34 65 36 37 63 61 30   hex b00f4e67ca0
8d80: 38 63 63 66 61 33 32 62 32 36 39 38 66 37 30 34  8ccfa32b2698f704
8d90: 31 31 64 38 66 35 37 30 66 36 39 63 38 39 36 65  11d8f570f69c896e
8da0: 31 38 65 63 38 38 39 36 63 66 65 38 39 35 35 31  18ec8896cfe89551
8db0: 38 31 30 35 34 33 33 30 33 66 37 64 66 30 63 34  810543303f7df0c4
8dc0: 39 66 35 62 39 34 37 38 33 63 63 65 37 64 66 38  9f5b94783cce7df8
8dd0: 64 37 36 64 30 62 38 38 64 31 35 35 36 33 33 33  d76d0b88d1556333
8de0: 30 32 64 34 36 30 30 33 37 31 31 66 32 33 33 33  02d46003711f2333
8df0: 33 39 62 31 63 39 61 38 63 32 30 31 36 34 65 63  39b1c9a8c20164ec
8e00: 38 61 33 32 38 38 39 30 61 34 39 33 32 62 37 64  8a328890a4932b7d
8e10: 39 30 64 39 32 64 30 32 33 62 35 34 38 65 34 38  90d92d023b548e48
8e20: 32 30 35 35 38 66 38 62 64 33 32 37 30 31 30 5d  20558f8bd327010]
8e30: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
8e40: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
8e50: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
8e60: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
8e70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 61  exact -result ea
8e80: 61 37 35 36 62 35 38 39 32 66 64 66 63 37 39 33  a756b5892fdfc793
8e90: 64 37 34 65 33 66 39 66 34 64 36 63 37 61 35 61  d74e3f9f4d6c7a5a
8ea0: 36 61 32 32 34 31 64 64 31 31 65 30 63 33 38 63  6a2241dd11e0c38c
8eb0: 65 64 35 39 63 38 65 63 37 62 65 33 37 37 61 34  ed59c8ec7be377a4
8ec0: 31 64 31 64 30 36 37 37 34 61 35 39 37 30 63 65  1d1d06774a5970ce
8ed0: 39 37 32 32 64 38 65 31 31 39 64 30 61 64 0a 0a  9722d8e119d0ad..
8ee0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8ef0: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39 35  sh_SHA3-384-2.95
8f00: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
8f10: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
8f20: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
8f30: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
8f40: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
8f50: 68 65 78 20 61 34 66 39 35 66 36 61 34 36 61 39  hex a4f95f6a46a9
8f60: 63 62 66 33 38 34 61 37 65 39 38 65 31 30 32 64  cbf384a7e98e102d
8f70: 31 66 64 63 39 36 38 33 39 64 31 62 66 32 36 62  1fdc96839d1bf26b
8f80: 33 35 61 35 61 30 62 64 36 63 62 39 37 33 34 66  35a5a0bd6cb9734f
8f90: 64 31 37 65 38 61 31 37 38 64 34 35 38 31 39 34  d17e8a178d458194
8fa0: 33 63 30 66 65 34 36 39 66 62 34 66 65 39 34 63  3c0fe469fb4fe94c
8fb0: 63 32 66 31 35 65 31 65 66 35 39 61 65 30 35 62  c2f15e1ef59ae05b
8fc0: 33 35 33 32 34 65 62 35 37 63 61 30 37 64 66 63  35324eb57ca07dfc
8fd0: 36 39 64 34 32 64 34 31 64 38 30 62 33 63 33 62  69d42d41d80b3c3b
8fe0: 62 36 34 65 31 61 65 61 31 34 33 63 37 64 37 39  b64e1aea143c7d79
8ff0: 37 39 30 61 35 36 36 39 37 64 63 38 30 33 65 63  790a56697dc803ec
9000: 39 33 65 36 63 36 38 66 32 37 66 36 37 36 31 63  93e6c68f27f6761c
9010: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
9020: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
9030: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20   SHA3-384 -data 
9040: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
9050: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31   exact -result 1
9060: 61 66 66 38 64 39 63 36 34 66 30 63 31 36 32 65  aff8d9c64f0c162e
9070: 64 30 31 39 35 64 31 66 33 61 33 34 32 61 30 31  d0195d1f3a342a01
9080: 30 64 31 34 62 65 30 36 33 36 39 30 33 63 34 38  0d14be0636903c48
9090: 30 32 30 62 61 34 32 64 65 31 63 66 61 38 62 39  020ba42de1cfa8b9
90a0: 38 61 65 32 31 34 32 64 38 39 61 66 33 65 36 39  8ae2142d89af3e69
90b0: 65 39 65 62 34 63 37 33 35 38 35 37 64 64 31 0a  e9eb4c735857dd1.
90c0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
90d0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39  ash_SHA3-384-2.9
90e0: 36 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74  6 {SHA3_384Short
90f0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
9100: 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a  ints SHA3_384 \.
9110: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
9120: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
9130: 20 68 65 78 20 30 32 37 31 33 30 38 34 62 66 39   hex 02713084bf9
9140: 33 66 64 63 33 35 31 33 35 35 31 35 32 34 33 63  3fdc35135515243c
9150: 33 62 63 30 66 34 62 32 62 34 34 37 66 32 64 33  3bc0f4b2b447f2d3
9160: 34 36 31 63 30 64 63 31 30 34 63 62 66 65 32 33  461c0dc104cbfe23
9170: 34 37 39 61 62 30 33 36 37 36 32 61 39 31 64 31  479ab036762a91d1
9180: 39 38 37 63 39 35 33 66 37 62 33 33 38 36 61 62  987c953f7b3386ab
9190: 63 38 30 62 38 37 33 34 61 31 64 34 65 61 62 66  c80b8734a1d4eabf
91a0: 39 34 66 33 61 39 66 32 66 62 36 32 63 39 34 33  94f3a9f2fb62c943
91b0: 31 35 32 62 35 32 35 33 38 34 36 66 63 32 65 63  152b5253846fc2ec
91c0: 38 64 62 62 32 65 39 33 64 63 37 34 38 35 37 61  8dbb2e93dc74857a
91d0: 37 62 30 35 66 65 32 64 37 65 63 38 30 34 30 62  7b05fe2d7ec8040b
91e0: 61 38 62 30 64 39 61 65 36 39 37 37 37 65 65 37  a8b0d9ae69777ee7
91f0: 33 39 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  39a]} \..-body {
9200: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
9210: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61  est SHA3-384 -da
9220: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
9230: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
9240: 74 20 38 34 64 61 30 32 31 31 34 65 33 34 31 61  t 84da02114e341a
9250: 33 36 33 36 66 30 30 38 32 32 62 33 32 62 64 32  3636f00822b32bd2
9260: 31 61 38 61 31 66 37 62 33 39 66 32 39 35 36 62  1a8a1f7b39f2956b
9270: 64 39 37 66 33 39 33 34 36 66 65 64 66 39 61 61  d97f39346fedf9aa
9280: 65 36 33 62 33 30 34 63 36 35 63 39 33 61 35 34  e63b304c65c93a54
9290: 31 65 38 62 63 64 61 35 34 39 35 37 36 64 35 66  1e8bcda549576d5f
92a0: 32 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  27..tcltest::tes
92b0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d  t Hash_SHA3-384-
92c0: 32 2e 39 37 20 7b 53 48 41 33 5f 33 38 34 53 68  2.97 {SHA3_384Sh
92d0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
92e0: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
92f0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
9300: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
9310: 6f 64 65 20 68 65 78 20 30 30 63 65 32 32 35 65  ode hex 00ce225e
9320: 61 65 61 32 34 38 34 33 34 30 36 66 61 34 32 63  aea24843406fa42c
9330: 63 38 34 35 30 65 36 36 66 37 36 61 63 39 66 35  c8450e66f76ac9f5
9340: 34 39 62 38 35 39 31 66 37 64 34 30 39 34 32 66  49b8591f7d40942f
9350: 34 38 33 33 66 63 37 33 34 61 30 33 34 63 38 37  4833fc734a034c87
9360: 34 31 63 35 35 31 64 35 37 64 64 61 66 62 35 64  41c551d57ddafb5d
9370: 39 34 63 65 62 34 62 32 35 36 38 30 66 30 34 35  94ceb4b25680f045
9380: 30 33 38 33 30 36 65 36 62 63 63 35 33 65 38 38  038306e6bcc53e88
9390: 33 38 36 65 32 62 34 35 62 38 30 62 33 62 61 32  386e2b45b80b3ba2
93a0: 33 64 65 63 38 63 31 33 66 38 63 61 30 31 63 32  3dec8c13f8ca01c2
93b0: 30 32 61 65 39 36 38 63 34 64 30 64 66 30 34 63  02ae968c4d0df04c
93c0: 64 62 33 38 33 39 35 64 32 64 66 34 32 61 35 61  db38395d2df42a5a
93d0: 66 66 36 34 36 39 32 38 5d 7d 20 5c 0a 09 2d 62  ff646928]} \..-b
93e0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
93f0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
9400: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
9410: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
9420: 72 65 73 75 6c 74 20 38 31 64 36 65 30 64 39 36  result 81d6e0d96
9430: 35 37 35 61 39 62 38 63 61 30 38 33 65 65 39 65  575a9b8ca083ee9e
9440: 63 32 65 61 64 35 37 64 64 66 37 32 62 39 37 64  c2ead57ddf72b97d
9450: 37 37 30 39 30 38 36 61 32 66 34 61 37 34 39 64  7709086a2f4a749d
9460: 33 66 36 31 64 31 36 34 32 33 34 36 33 34 38 37  3f61d16423463487
9470: 35 36 32 63 37 66 30 39 61 62 61 31 62 32 36 65  562c7f09aba1b26e
9480: 38 63 61 65 34 37 62 0a 0a 74 63 6c 74 65 73 74  8cae47b..tcltest
9490: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
94a0: 2d 33 38 34 2d 32 2e 39 38 20 7b 53 48 41 33 5f  -384-2.98 {SHA3_
94b0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
94c0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
94d0: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  3_384 \..-setup 
94e0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
94f0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 61 66  y decode hex 7af
9500: 33 66 65 65 64 39 62 30 66 36 65 39 34 30 38 65  3feed9b0f6e9408e
9510: 38 63 30 33 39 37 63 39 62 62 36 37 31 64 30 66  8c0397c9bb671d0f
9520: 33 66 38 30 39 32 36 64 32 66 34 38 66 36 38 64  3f80926d2f48f68d
9530: 32 65 38 31 34 66 31 32 62 33 64 33 31 38 39 64  2e814f12b3d3189d
9540: 38 31 37 34 38 39 37 66 35 32 61 30 63 39 32 36  8174897f52a0c926
9550: 63 63 66 34 34 62 39 64 30 35 37 63 63 30 34 38  ccf44b9d057cc048
9560: 39 39 66 64 63 35 61 33 32 65 34 38 63 30 34 33  99fdc5a32e48c043
9570: 66 64 39 39 38 36 32 65 33 66 37 36 31 64 63 33  fd99862e3f761dc3
9580: 31 31 35 33 35 31 63 38 31 33 38 64 30 37 61 31  115351c8138d07a1
9590: 35 61 63 32 33 62 38 66 63 35 34 35 34 66 30 33  5ac23b8fc5454f03
95a0: 37 33 65 30 35 63 61 31 62 37 61 64 39 66 32 66  73e05ca1b7ad9f2f
95b0: 36 32 64 33 34 63 61 66 35 65 31 34 33 35 63 5d  62d34caf5e1435c]
95c0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
95d0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
95e0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24  SHA3-384 -data $
95f0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
9600: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30  exact -result 00
9610: 65 39 35 66 34 65 38 61 33 32 61 30 33 65 30 61  e95f4e8a32a03e0a
9620: 33 61 66 62 61 30 66 64 36 32 63 37 63 33 63 37  3afba0fd62c7c3c7
9630: 31 32 30 62 34 31 65 32 39 37 61 37 66 66 31 34  120b41e297a7ff14
9640: 39 35 38 63 30 62 64 66 30 31 35 61 34 37 38 66  958c0bdf015a478f
9650: 37 62 61 62 39 61 32 32 30 38 32 62 66 62 30 64  7bab9a22082bfb0d
9660: 32 30 36 65 38 38 66 34 36 38 35 31 31 37 0a 0a  206e88f4685117..
9670: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
9680: 73 68 5f 53 48 41 33 2d 33 38 34 2d 32 2e 39 39  sh_SHA3-384-2.99
9690: 20 7b 53 48 41 33 5f 33 38 34 53 68 6f 72 74 4d   {SHA3_384ShortM
96a0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
96b0: 6e 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09  nts SHA3_384 \..
96c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
96d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
96e0: 68 65 78 20 32 65 61 65 37 36 66 34 65 37 66 34  hex 2eae76f4e7f4
96f0: 38 64 33 36 63 64 38 33 36 30 37 38 31 33 63 65  8d36cd83607813ce
9700: 36 62 64 39 61 62 30 65 63 66 38 34 36 61 64 39  6bd9ab0ecf846ad9
9710: 39 39 64 66 36 37 66 36 34 37 30 36 61 34 37 30  99df67f64706a470
9720: 38 39 37 37 66 30 65 39 34 34 30 66 30 62 33 31  8977f0e9440f0b31
9730: 64 63 33 35 30 63 31 37 62 33 35 35 30 30 37 66  dc350c17b355007f
9740: 65 64 39 30 64 34 62 35 37 37 62 31 37 35 30 31  ed90d4b577b17501
9750: 34 37 36 33 33 35 37 63 65 35 61 32 37 31 32 31  4763357ce5a27121
9760: 32 61 37 30 37 30 32 37 34 37 63 39 38 66 38 66  2a70702747c98f8f
9770: 30 61 64 38 39 62 66 39 35 64 36 62 37 66 62 62  0ad89bf95d6b7fbb
9780: 31 30 61 35 31 66 33 34 64 38 66 32 38 33 35 65  10a51f34d8f2835e
9790: 39 37 34 30 33 38 61 33 64 64 36 64 66 33 66 32  974038a3dd6df3f2
97a0: 61 66 66 62 37 38 31 31 5d 7d 20 5c 0a 09 2d 62  affb7811]} \..-b
97b0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
97c0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
97d0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
97e0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
97f0: 72 65 73 75 6c 74 20 65 62 33 39 36 63 66 61 66  result eb396cfaf
9800: 32 36 65 65 32 37 37 35 61 66 33 63 39 61 33 61  26ee2775af3c9a3a
9810: 33 30 34 37 36 36 34 63 61 33 34 63 62 63 32 32  3047664ca34cbc22
9820: 38 63 63 62 62 39 36 36 64 66 31 38 37 64 35 31  8ccbb966df187d51
9830: 38 37 31 37 64 66 36 61 33 32 38 65 63 63 33 31  8717df6a328ecc31
9840: 36 65 64 30 65 64 30 39 62 31 37 30 30 38 30 65  6ed0ed09b170080e
9850: 63 63 63 34 38 36 66 0a 0a 74 63 6c 74 65 73 74  ccc486f..tcltest
9860: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
9870: 2d 33 38 34 2d 32 2e 31 30 30 20 7b 53 48 41 33  -384-2.100 {SHA3
9880: 5f 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _384ShortMsg} \.
9890: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
98a0: 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  A3_384 \..-setup
98b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
98c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 39  ry decode hex 09
98d0: 33 65 35 36 64 33 33 62 64 39 33 33 37 61 64 32  3e56d33bd9337ad2
98e0: 61 64 32 36 38 64 31 34 62 61 63 36 39 61 36 34  ad268d14bac69a64
98f0: 61 38 61 37 33 36 31 33 35 30 63 66 39 66 37 38  a8a7361350cf9f78
9900: 37 65 36 39 61 30 34 33 66 35 62 65 62 35 30 65  7e69a043f5beb50e
9910: 62 34 36 30 37 30 33 35 37 38 61 38 31 62 65 38  b460703578a81be8
9920: 38 32 36 33 39 66 37 65 39 61 63 39 61 35 30 63  82639f7e9ac9a50c
9930: 35 34 61 66 66 61 33 37 39 32 66 64 33 38 34 36  54affa3792fd3846
9940: 34 61 36 31 61 33 37 63 38 61 34 35 35 31 61 34  4a61a37c8a4551a4
9950: 62 39 66 66 38 65 65 64 31 66 34 38 37 65 66 38  b9ff8eed1f487ef8
9960: 61 38 66 30 30 34 33 30 65 34 64 30 65 33 35 61  a8f00430e4d0e35a
9970: 35 33 66 66 32 33 36 63 65 30 34 39 62 37 61 33  53ff236ce049b7a3
9980: 61 62 64 63 35 63 64 30 30 62 34 35 63 34 66 33  abdc5cd00b45c4f3
9990: 64 34 39 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d49b]} \..-body 
99a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
99b0: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
99c0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
99d0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
99e0: 6c 74 20 34 61 33 33 39 31 32 38 34 38 36 65 35  lt 4a339128486e5
99f0: 62 32 37 34 66 63 34 65 64 35 33 38 63 30 65 63  b274fc4ed538c0ec
9a00: 39 65 35 37 66 37 38 30 65 39 63 35 30 30 63 35  9e57f780e9c500c5
9a10: 66 39 32 62 30 34 61 65 38 31 61 32 32 66 62 65  f92b04ae81a22fbe
9a20: 65 62 66 33 37 38 35 32 35 39 61 30 62 62 33 62  ebf3785259a0bb3b
9a30: 36 64 39 62 34 37 66 33 31 38 37 33 63 64 38 64  6d9b47f31873cd8d
9a40: 66 66 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  ffa..tcltest::te
9a50: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
9a60: 2d 32 2e 31 30 31 20 7b 53 48 41 33 5f 33 38 34  -2.101 {SHA3_384
9a70: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
9a80: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
9a90: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
9aa0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
9ab0: 65 63 6f 64 65 20 68 65 78 20 30 35 39 33 62 61  ecode hex 0593ba
9ac0: 62 65 37 61 36 32 30 32 30 37 37 63 30 32 36 65  be7a6202077c026e
9ad0: 32 35 33 63 62 34 63 36 30 65 65 37 62 61 64 37  253cb4c60ee7bad7
9ae0: 62 31 63 33 31 61 32 30 64 61 37 61 61 30 63 65  b1c31a20da7aa0ce
9af0: 35 36 62 36 32 32 65 62 35 37 65 64 30 37 64 32  56b622eb57ed07d2
9b00: 31 61 37 66 30 61 65 36 63 36 66 65 33 63 38 33  1a7f0ae6c6fe3c83
9b10: 39 38 63 63 34 38 33 35 33 64 65 63 66 62 32 38  98cc48353decfb28
9b20: 37 66 31 32 30 34 65 30 32 34 66 63 66 38 32 61  7f1204e024fcf82a
9b30: 31 33 30 35 39 39 35 33 62 39 66 38 35 37 39 37  13059953b9f85797
9b40: 61 62 32 32 31 37 64 63 38 64 61 62 33 34 61 31  ab2217dc8dab34a1
9b50: 33 32 32 36 63 33 33 31 30 34 36 36 31 63 31 63  3226c33104661c1c
9b60: 61 37 39 33 39 36 65 37 64 39 37 65 39 31 30 33  a79396e7d97e9103
9b70: 39 64 33 32 62 61 66 63 39 38 63 63 38 61 66 33  9d32bafc98cc8af3
9b80: 62 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  bb]} \..-body {t
9b90: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
9ba0: 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74  st SHA3-384 -dat
9bb0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
9bc0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
9bd0: 20 35 39 38 31 38 31 35 63 31 36 31 38 63 63 34   5981815c1618cc4
9be0: 39 63 64 35 63 66 37 31 61 34 62 37 62 33 32 62  9cd5cf71a4b7b32b
9bf0: 38 63 64 37 62 37 65 66 35 35 33 62 66 61 65 66  8cd7b7ef553bfaef
9c00: 32 31 34 39 61 63 37 32 33 66 66 32 35 38 32 61  2149ac723ff2582a
9c10: 32 64 33 34 35 63 35 62 64 30 35 39 34 33 65 31  2d345c5bd05943e1
9c20: 35 35 63 65 64 31 65 35 66 30 39 31 63 35 36 30  55ced1e5f091c560
9c30: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
9c40: 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32   Hash_SHA3-384-2
9c50: 2e 31 30 32 20 7b 53 48 41 33 5f 33 38 34 53 68  .102 {SHA3_384Sh
9c60: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
9c70: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
9c80: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
9c90: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
9ca0: 6f 64 65 20 68 65 78 20 61 65 31 38 32 38 30 34  ode hex ae182804
9cb0: 37 63 35 66 38 32 61 37 62 39 37 31 32 66 33 33  7c5f82a7b9712f33
9cc0: 39 39 38 33 32 31 32 34 62 38 39 32 66 32 66 37  99832124b892f2f7
9cd0: 61 65 61 35 31 63 38 66 65 33 35 33 36 63 64 36  aea51c8fe3536cd6
9ce0: 61 35 38 34 62 34 61 37 37 37 37 63 63 31 65 63  a584b4a7777cc1ec
9cf0: 61 63 31 35 38 63 30 33 33 35 34 62 62 34 36 37  ac158c03354bb467
9d00: 62 38 66 65 32 63 38 63 65 32 66 34 33 31 30 61  b8fe2c8ce2f4310a
9d10: 66 64 31 65 38 30 66 65 63 35 31 63 63 35 61 64  fd1e80fec51cc5ad
9d20: 37 37 30 32 35 36 36 62 32 63 35 64 32 31 62 63  7702566b2c5d21bc
9d30: 36 35 37 31 65 34 62 38 65 37 63 35 39 63 62 34  6571e4b8e7c59cb4
9d40: 63 39 65 32 33 66 31 65 63 62 35 37 61 64 61 39  c9e23f1ecb57ada9
9d50: 65 39 30 30 65 34 61 61 33 30 38 38 37 34 63 32  e900e4aa308874c2
9d60: 64 31 32 64 33 34 62 65 37 34 63 33 33 32 62 62  d12d34be74c332bb
9d70: 63 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  ce]} \..-body {t
9d80: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
9d90: 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74  st SHA3-384 -dat
9da0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
9db0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
9dc0: 20 37 32 35 37 66 35 62 66 61 37 64 33 33 64 31   7257f5bfa7d33d1
9dd0: 63 66 35 66 34 35 35 30 64 30 63 62 37 38 37 35  cf5f4550d0cb7875
9de0: 30 65 38 34 63 35 62 37 64 32 35 30 32 37 64 61  0e84c5b7d25027da
9df0: 36 61 63 65 63 36 34 62 64 66 33 30 38 37 39 61  6acec64bdf30879a
9e00: 30 65 35 63 39 37 66 65 37 63 34 36 38 65 37 34  0e5c97fe7c468e74
9e10: 33 61 61 35 65 63 32 62 64 64 62 32 39 64 31 39  3aa5ec2bddb29d19
9e20: 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  3..tcltest::test
9e30: 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 32   Hash_SHA3-384-2
9e40: 2e 31 30 33 20 7b 53 48 41 33 5f 33 38 34 53 68  .103 {SHA3_384Sh
9e50: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
9e60: 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34  traints SHA3_384
9e70: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
9e80: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
9e90: 6f 64 65 20 68 65 78 20 33 62 63 65 65 64 66 35  ode hex 3bceedf5
9ea0: 64 66 38 66 65 36 39 39 38 37 31 64 65 63 62 37  df8fe699871decb7
9eb0: 64 64 34 38 32 30 33 65 32 35 31 38 66 62 30 66  dd48203e2518fb0f
9ec0: 63 65 30 66 38 36 35 66 34 36 61 64 63 65 35 63  ce0f865f46adce5c
9ed0: 31 33 33 61 39 32 31 33 32 30 62 66 34 30 39 31  133a921320bf4091
9ee0: 35 34 35 36 32 30 34 38 36 39 61 33 63 65 62 35  5456204869a3ceb5
9ef0: 66 63 61 33 65 64 34 30 65 30 61 34 31 61 36 34  fca3ed40e0a41a64
9f00: 62 38 39 35 31 66 30 66 63 35 38 30 36 39 34 63  b8951f0fc580694c
9f10: 66 63 35 35 62 64 31 66 35 63 65 39 32 36 62 30  fc55bd1f5ce926b0
9f20: 37 65 33 65 33 32 61 63 36 65 30 35 35 64 65 39  7e3e32ac6e055de9
9f30: 62 39 36 31 63 65 34 39 63 37 65 65 34 31 65 30  b961ce49c7ee41e0
9f40: 36 62 30 32 34 35 35 39 62 39 33 33 61 37 39 35  6b024559b933a795
9f50: 31 38 31 39 32 65 39 36 39 38 35 35 38 38 39 63  18192e969855889c
9f60: 38 35 64 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  85d1]} \..-body 
9f70: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
9f80: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64  gest SHA3-384 -d
9f90: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
9fa0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
9fb0: 6c 74 20 36 30 64 37 66 38 62 64 38 35 66 62 37  lt 60d7f8bd85fb7
9fc0: 61 31 33 37 30 31 64 62 35 61 64 65 64 32 62 37  a13701db5aded2b7
9fd0: 37 37 31 61 62 35 65 34 37 36 65 63 33 34 66 31  771ab5e476ec34f1
9fe0: 66 64 34 32 39 38 39 37 38 64 65 66 62 64 32 62  fd4298978defbd2b
9ff0: 33 31 62 62 32 39 37 39 33 39 31 35 35 39 61 31  31bb2979391559a1
a000: 36 34 62 33 65 64 32 38 66 36 61 33 39 30 33 31  64b3ed28f6a39031
a010: 61 31 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  a11..tcltest::te
a020: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34  st Hash_SHA3-384
a030: 2d 32 2e 31 30 34 20 7b 53 48 41 33 5f 33 38 34  -2.104 {SHA3_384
a040: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
a050: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33  nstraints SHA3_3
a060: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
a070: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
a080: 65 63 6f 64 65 20 68 65 78 20 36 63 33 36 31 34  ecode hex 6c3614
a090: 37 36 35 32 65 37 31 62 35 36 30 62 65 63 62 63  7652e71b560becbc
a0a0: 61 31 65 37 36 35 36 63 38 31 62 34 66 37 30 62  a1e7656c81b4f70b
a0b0: 65 63 65 32 36 33 32 31 64 35 65 35 35 65 36 37  ece26321d5e55e67
a0c0: 61 33 64 62 39 64 38 39 65 32 36 66 32 66 32 61  a3db9d89e26f2f2a
a0d0: 33 38 66 64 30 66 32 38 39 62 66 37 66 61 32 32  38fd0f289bf7fa22
a0e0: 63 32 38 37 37 65 33 38 64 39 37 35 35 34 31 32  c2877e38d9755412
a0f0: 37 39 34 63 65 66 32 34 64 37 62 38 35 35 33 30  794cef24d7b85530
a100: 33 63 33 33 32 65 30 63 62 35 65 30 31 61 61 35  3c332e0cb5e01aa5
a110: 30 62 62 37 34 38 34 34 66 35 65 33 34 35 31 30  0bb74844f5e34510
a120: 38 64 36 38 31 31 64 35 30 31 30 39 37 38 30 33  8d6811d501097803
a130: 38 62 36 39 39 66 66 61 61 33 37 30 64 65 38 34  8b699ffaa370de84
a140: 37 33 66 30 63 64 61 33 38 62 38 39 61 32 38 65  73f0cda38b89a28e
a150: 64 36 63 61 62 61 66 36 5d 7d 20 5c 0a 09 2d 62  d6cabaf6]} \..-b
a160: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
a170: 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38   -digest SHA3-38
a180: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
a190: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
a1a0: 72 65 73 75 6c 74 20 62 31 33 31 39 31 39 32 64  result b1319192d
a1b0: 66 31 31 66 61 61 30 30 64 33 63 34 62 30 36 38  f11faa00d3c4b068
a1c0: 62 65 63 63 38 66 31 62 61 33 62 30 30 65 30 64  becc8f1ba3b00e0d
a1d0: 31 66 66 31 66 39 33 63 31 31 61 33 36 36 33 35  1ff1f93c11a36635
a1e0: 32 32 66 64 62 39 32 61 62 33 63 63 61 33 38 39  22fdb92ab3cca389
a1f0: 36 33 34 36 38 37 63 36 33 32 65 30 61 34 62 35  634687c632e0a4b5
a200: 61 32 36 63 65 39 32 0a 0a 74 63 6c 74 65 73 74  a26ce92..tcltest
a210: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
a220: 2d 33 38 34 2d 32 2e 31 30 35 20 7b 53 48 41 33  -384-2.105 {SHA3
a230: 5f 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _384ShortMsg} \.
a240: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
a250: 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  A3_384 \..-setup
a260: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
a270: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 32  ry decode hex 92
a280: 63 34 31 64 33 34 62 64 32 34 39 63 31 38 32 61  c41d34bd249c182a
a290: 64 34 65 31 38 65 33 62 38 35 36 37 37 30 37 36  d4e18e3b85677076
a2a0: 36 66 31 37 35 37 32 30 39 36 37 35 30 32 30 64  6f1757209675020d
a2b0: 34 63 31 63 66 37 62 36 66 37 36 38 36 63 38 63  4c1cf7b6f7686c8c
a2c0: 31 34 37 32 36 37 38 63 37 63 34 31 32 35 31 34  1472678c7c412514
a2d0: 65 36 33 65 62 39 66 35 61 65 65 39 66 35 63 39  e63eb9f5aee9f5c9
a2e0: 64 35 63 62 38 64 38 37 34 38 61 62 37 61 35 34  d5cb8d8748ab7a54
a2f0: 36 35 30 35 39 64 39 63 62 62 62 38 61 35 36 32  65059d9cbbb8a562
a300: 31 31 66 66 33 32 64 34 61 61 61 32 33 61 32 33  11ff32d4aaa23a23
a310: 63 38 36 65 61 64 39 31 36 66 65 32 35 34 63 63  c86ead916fe254cc
a320: 36 62 32 62 66 66 37 61 39 35 35 33 64 66 31 35  6b2bff7a9553df15
a330: 35 31 62 35 33 31 66 39 35 62 62 34 31 63 62 62  51b531f95bb41cbb
a340: 63 34 61 63 64 64 62 64 33 37 32 39 32 31 5d 7d  c4acddbd372921]}
a350: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
a360: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
a370: 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64  HA3-384 -data $d
a380: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
a390: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 31 33  xact -result 713
a3a0: 30 37 65 65 63 31 33 35 35 66 37 33 65 35 62 37  07eec1355f73e5b7
a3b0: 32 36 65 64 39 65 66 61 31 31 32 39 30 38 36 61  26ed9efa1129086a
a3c0: 66 38 31 33 36 34 65 33 30 61 32 39 31 66 36 38  f81364e30a291f68
a3d0: 34 64 66 61 64 65 36 39 33 63 63 34 62 63 33 64  4dfade693cc4bc3d
a3e0: 36 66 66 63 62 37 66 33 62 34 30 31 32 61 32 31  6ffcb7f3b4012a21
a3f0: 39 37 36 66 66 39 65 64 63 61 62 36 31 0a 0a 23  976ff9edcab61..#
a400: 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65   Cleanup.::tclte
a410: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73  st::cleanupTests
a420: 0a 72 65 74 75 72 6e 0a                          .return.