TclTLS: Hex Artifact Content

Artifact b756234b7b675aa6ba2fc1dd03ae9f33926111806e9882ae9f1cce2f2f376717:

File tests/test_vectors/Hash/SHA384ShortMsg.test — part of check-in [feef0d0cef] at 2023-12-24 06:36:24 on branch crypto — Added MAC test vectors. Added all.tcl files to each test subdirectory so all tests run. Updated Hash and KDF test vectors to add missing cleanupTests. Corrected bug with using dash in constraints. Added constraints for ciphers, digests, and kdfs. (user: bohagan, size: 53495) [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 38 34 53 68 6f   from "SHA384Sho
0020: 72 74 4d 73 67 2e 72 73 70 22 0a 70 61 63 6b 61  rtMsg.rsp".packa
0030: 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70  ge require tls.p
0040: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74  ackage require t
0050: 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a  cltest..tcltest:
0060: 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20  :testConstraint 
0070: 53 48 41 33 38 34 20 5b 65 78 70 72 20 7b 5b 6c  SHA384 [expr {[l
0080: 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b  search -nocase [
0090: 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 48  tls::digests] SH
00a0: 41 33 38 34 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63  A384] > -1}]..tc
00b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
00c0: 5f 53 48 41 33 38 34 2d 32 2e 31 20 7b 53 48 41  _SHA384-2.1 {SHA
00d0: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
00e0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
00f0: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
0100: 65 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d  et data ""} \..-
0110: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0120: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
0130: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0140: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0150: 65 73 75 6c 74 20 33 38 62 30 36 30 61 37 35 31  esult 38b060a751
0160: 61 63 39 36 33 38 34 63 64 39 33 32 37 65 62 31  ac96384cd9327eb1
0170: 62 31 65 33 36 61 32 31 66 64 62 37 31 31 31 34  b1e36a21fdb71114
0180: 62 65 30 37 34 33 34 63 30 63 63 37 62 66 36 33  be07434c0cc7bf63
0190: 66 36 65 31 64 61 32 37 34 65 64 65 62 66 65 37  f6e1da274edebfe7
01a0: 36 66 36 35 66 62 64 35 31 61 64 32 66 31 34 38  6f65fbd51ad2f148
01b0: 39 38 62 39 35 62 0a 0a 74 63 6c 74 65 73 74 3a  98b95b..tcltest:
01c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
01d0: 34 2d 32 2e 32 20 7b 53 48 41 33 38 34 53 68 6f  4-2.2 {SHA384Sho
01e0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
01f0: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a  raints SHA384 \.
0200: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0210: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0220: 20 68 65 78 20 63 35 5d 7d 20 5c 0a 09 2d 62 6f   hex c5]} \..-bo
0230: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0240: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d  -digest SHA384 -
0250: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0260: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0270: 75 6c 74 20 62 35 32 62 37 32 64 61 37 35 64 30  ult b52b72da75d0
0280: 36 36 36 33 37 39 65 32 30 66 39 62 34 61 37 39  666379e20f9b4a79
0290: 63 33 33 61 33 32 39 61 30 31 66 30 36 61 32 66  c33a329a01f06a2f
02a0: 62 37 38 36 35 63 39 30 36 32 61 32 38 63 31 64  b7865c9062a28c1d
02b0: 65 38 36 30 62 61 34 33 32 65 64 66 64 38 36 62  e860ba432edfd86b
02c0: 34 63 62 31 63 62 38 61 37 35 62 34 36 30 37 36  4cb1cb8a75b46076
02d0: 65 33 62 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  e3b1..tcltest::t
02e0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d  est Hash_SHA384-
02f0: 32 2e 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74  2.3 {SHA384Short
0300: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0310: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d  ints SHA384 \..-
0320: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0330: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0340: 65 78 20 36 65 63 65 5d 7d 20 5c 0a 09 2d 62 6f  ex 6ece]} \..-bo
0350: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0360: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d  -digest SHA384 -
0370: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0380: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0390: 75 6c 74 20 35 33 64 34 37 37 33 64 61 35 30 64  ult 53d4773da50d
03a0: 38 62 65 34 31 34 35 64 38 66 33 61 37 30 39 38  8be4145d8f3a7098
03b0: 66 66 33 36 39 31 61 35 35 34 61 32 39 61 65 36  ff3691a554a29ae6
03c0: 66 36 35 32 63 63 37 31 32 31 65 62 38 62 63 39  f652cc7121eb8bc9
03d0: 36 66 64 32 32 31 30 65 30 36 61 65 32 66 61 32  6fd2210e06ae2fa2
03e0: 61 33 36 63 34 62 33 62 33 34 39 37 33 34 31 65  a36c4b3b3497341e
03f0: 37 30 66 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  70f0..tcltest::t
0400: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d  est Hash_SHA384-
0410: 32 2e 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74  2.4 {SHA384Short
0420: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0430: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d  ints SHA384 \..-
0440: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0450: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0460: 65 78 20 31 66 61 34 64 35 5d 7d 20 5c 0a 09 2d  ex 1fa4d5]} \..-
0470: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0480: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
0490: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
04a0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
04b0: 65 73 75 6c 74 20 65 34 63 61 34 36 36 33 64 66  esult e4ca4663df
04c0: 66 31 38 39 35 34 31 63 64 30 32 36 64 63 63 30  f189541cd026dcc0
04d0: 35 36 36 32 36 34 31 39 30 32 38 37 37 34 36 36  5662641902877466
04e0: 36 66 35 62 33 37 39 62 39 39 66 34 38 38 37 63  6f5b379b99f4887c
04f0: 37 32 33 37 62 64 62 64 33 62 65 61 34 36 64 35  7237bdbd3bea46d5
0500: 33 38 38 62 65 30 65 66 63 32 64 34 62 37 39 38  388be0efc2d4b798
0510: 39 61 62 32 63 34 0a 0a 74 63 6c 74 65 73 74 3a  9ab2c4..tcltest:
0520: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
0530: 34 2d 32 2e 35 20 7b 53 48 41 33 38 34 53 68 6f  4-2.5 {SHA384Sho
0540: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0550: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a  raints SHA384 \.
0560: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0570: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0580: 20 68 65 78 20 35 30 65 33 38 35 33 64 5d 7d 20   hex 50e3853d]} 
0590: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
05a0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
05b0: 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61  A384 -data $data
05c0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
05d0: 74 20 2d 72 65 73 75 6c 74 20 39 33 36 61 33 63  t -result 936a3c
05e0: 33 39 39 31 37 31 36 62 61 34 63 34 31 33 62 63  3991716ba4c413bc
05f0: 30 33 64 65 32 30 66 35 63 65 31 63 36 33 37 30  03de20f5ce1c6370
0600: 33 62 33 61 35 62 64 62 36 61 62 35 35 38 63 39  3b3a5bdb6ab558c9
0610: 66 66 37 30 64 35 33 37 65 34 36 65 62 34 61 31  ff70d537e46eb4a1
0620: 35 64 39 66 32 63 38 35 65 36 38 64 38 36 37 38  5d9f2c85e68d8678
0630: 64 65 35 36 38 32 36 39 35 65 0a 0a 74 63 6c 74  de5682695e..tclt
0640: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
0650: 48 41 33 38 34 2d 32 2e 36 20 7b 53 48 41 33 38  HA384-2.6 {SHA38
0660: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
0670: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
0680: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0690: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
06a0: 63 6f 64 65 20 68 65 78 20 34 62 35 66 61 62 36  code hex 4b5fab6
06b0: 31 65 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  1e0]} \..-body {
06c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
06d0: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61  est SHA384 -data
06e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
06f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0700: 66 62 33 39 30 61 61 35 62 37 30 62 30 36 38 61  fb390aa5b70b068a
0710: 35 34 64 36 64 35 31 32 37 64 66 36 61 36 32 32  54d6d5127df6a622
0720: 37 62 65 63 63 34 64 36 66 38 39 31 66 64 33 66  7becc4d6f891fd3f
0730: 36 30 36 38 62 39 31 37 61 38 38 33 63 39 62 36  6068b917a883c9b6
0740: 36 66 33 31 38 66 64 64 62 36 33 38 34 64 31 30  6f318fddb6384d10
0750: 62 65 38 63 37 61 66 30 64 33 31 33 32 66 30 33  be8c7af0d3132f03
0760: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0770: 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 37 20  Hash_SHA384-2.7 
0780: 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d  {SHA384ShortMsg}
0790: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
07a0: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75   SHA384 \..-setu
07b0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
07c0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64  ary decode hex d
07d0: 61 64 39 35 61 34 62 34 64 33 37 5d 7d 20 5c 0a  ad95a4b4d37]} \.
07e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
07f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
0800: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
0810: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0820: 2d 72 65 73 75 6c 74 20 33 61 32 62 34 30 66 34  -result 3a2b40f4
0830: 35 33 39 32 35 62 63 33 63 65 31 37 64 36 34 30  53925bc3ce17d640
0840: 37 35 37 65 65 30 65 38 39 39 33 39 30 62 34 61  757ee0e899390b4a
0850: 38 64 39 38 34 64 30 32 39 37 63 31 62 61 65 36  8d984d0297c1bae6
0860: 62 36 30 62 39 66 32 36 30 33 62 66 37 31 63 33  b60b9f2603bf71c3
0870: 32 33 66 64 31 37 31 30 31 31 33 37 32 33 33 35  23fd171011372335
0880: 65 35 37 30 32 65 34 30 0a 0a 74 63 6c 74 65 73  e5702e40..tcltes
0890: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
08a0: 33 38 34 2d 32 2e 38 20 7b 53 48 41 33 38 34 53  384-2.8 {SHA384S
08b0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
08c0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20  straints SHA384 
08d0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
08e0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
08f0: 64 65 20 68 65 78 20 31 32 31 38 33 35 66 65 33  de hex 121835fe3
0900: 37 30 30 62 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79  700b7]} \..-body
0910: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0920: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61  igest SHA384 -da
0930: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0940: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0950: 74 20 37 62 64 30 36 61 39 34 61 63 62 61 37 62  t 7bd06a94acba7b
0960: 65 62 33 63 35 61 39 62 39 65 38 37 36 39 63 33  eb3c5a9b9e8769c3
0970: 64 61 36 36 39 31 63 34 38 32 64 37 38 62 31 65  da6691c482d78b1e
0980: 35 63 37 36 31 39 62 33 36 36 33 30 65 62 61 34  5c7619b36630eba4
0990: 65 35 39 36 64 31 31 63 34 31 30 61 34 63 38 37  e596d11c410a4c87
09a0: 30 30 36 66 34 37 31 36 62 36 66 31 37 62 62 39  006f4716b6f17bb9
09b0: 61 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  a0..tcltest::tes
09c0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e  t Hash_SHA384-2.
09d0: 39 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  9 {SHA384ShortMs
09e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
09f0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
0a00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0a10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0a20: 20 64 65 36 30 32 37 35 62 64 61 66 63 65 34 62   de60275bdafce4b
0a30: 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  1]} \..-body {tl
0a40: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0a50: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
0a60: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0a70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 33  exact -result a3
0a80: 64 38 36 31 64 38 36 36 63 31 33 36 32 34 32 33  d861d866c1362423
0a90: 65 62 32 31 63 36 62 65 63 38 65 34 34 62 37 34  eb21c6bec8e44b74
0aa0: 63 65 39 39 33 63 35 35 62 61 61 32 62 36 36 34  ce993c55baa2b664
0ab0: 30 35 36 37 35 36 30 65 62 65 63 64 61 65 64 61  0567560ebecdaeda
0ac0: 30 37 31 38 33 64 62 62 62 64 39 35 65 30 66 35  07183dbbbd95e0f5
0ad0: 32 32 63 61 65 65 35 64 64 62 64 61 66 30 0a 0a  22caee5ddbdaf0..
0ae0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0af0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 30 20 7b  sh_SHA384-2.10 {
0b00: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
0b10: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0b20: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
0b30: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0b40: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 64  ry decode hex 8d
0b50: 34 35 61 35 35 64 35 63 65 31 66 39 32 38 65 36  45a55d5ce1f928e6
0b60: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0b70: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0b80: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
0b90: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
0ba0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 65 37  xact -result de7
0bb0: 36 36 38 33 35 37 35 61 30 35 30 65 32 65 62 35  6683575a050e2eb5
0bc0: 65 66 39 35 65 65 32 30 31 66 38 32 34 31 36 34  ef95ee201f824164
0bd0: 37 38 61 31 64 31 34 62 66 33 64 39 36 64 31 66  78a1d14bf3d96d1f
0be0: 64 34 65 66 64 35 32 62 31 61 32 38 66 65 64 38  d4efd52b1a28fed8
0bf0: 64 66 65 65 31 38 33 30 30 37 30 30 30 31 64 63  dfee1830070001dc
0c00: 31 30 32 61 32 31 66 37 36 31 64 32 30 0a 0a 74  102a21f761d20..t
0c10: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0c20: 68 5f 53 48 41 33 38 34 2d 32 2e 31 31 20 7b 53  h_SHA384-2.11 {S
0c30: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
0c40: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0c50: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
0c60: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0c70: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 63 37  y decode hex 5c7
0c80: 64 64 65 39 62 33 38 39 34 64 37 33 63 65 66 65  dde9b3894d73cefe
0c90: 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  1]} \..-body {tl
0ca0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0cb0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
0cc0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0cd0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 33  exact -result f3
0ce0: 31 62 32 32 31 31 35 66 61 37 31 37 38 65 37 38  1b22115fa7178e78
0cf0: 32 32 33 65 30 36 61 61 65 38 37 30 35 34 37 61  223e06aae870547a
0d00: 62 39 33 63 36 65 62 33 63 33 39 31 30 62 30 65  b93c6eb3c3910b0e
0d10: 65 31 36 65 36 31 30 36 64 62 35 35 39 33 35 64  e16e6106db55935d
0d20: 36 63 30 65 62 38 32 30 31 33 32 61 32 30 37 38  6c0eb820132a2078
0d30: 65 63 65 31 30 36 37 65 66 63 38 31 63 33 0a 0a  ece1067efc81c3..
0d40: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0d50: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 32 20 7b  sh_SHA384-2.12 {
0d60: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
0d70: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0d80: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
0d90: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0da0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 36  ry decode hex 96
0db0: 37 66 61 33 34 63 30 37 65 34 39 34 35 61 37 37  7fa34c07e4945a77
0dc0: 30 35 31 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  051a]} \..-body 
0dd0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0de0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
0df0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0e00: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0e10: 20 66 38 66 32 34 64 38 31 63 34 66 38 66 32 33   f8f24d81c4f8f23
0e20: 65 63 62 34 32 64 37 36 65 64 35 64 32 62 33 34  ecb42d76ed5d2b34
0e30: 63 39 63 62 63 31 66 30 61 39 37 32 33 34 64 31  c9cbc1f0a97234d1
0e40: 31 31 34 38 30 34 62 35 39 39 39 37 35 39 66 33  114804b5999759f3
0e50: 31 33 31 63 37 34 31 64 35 37 36 38 63 63 39 32  131c741d5768cc92
0e60: 38 31 36 33 35 30 33 63 35 66 35 35 66 35 39 34  8163503c5f55f594
0e70: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
0e80: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
0e90: 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  3 {SHA384ShortMs
0ea0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0eb0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
0ec0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0ed0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0ee0: 20 32 32 30 39 31 31 32 65 65 37 37 39 62 66 36   2209112ee779bf6
0ef0: 64 39 35 37 31 31 31 30 35 5d 7d 20 5c 0a 09 2d  d95711105]} \..-
0f00: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0f10: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
0f20: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0f30: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0f40: 65 73 75 6c 74 20 30 39 63 35 34 62 66 35 33 33  esult 09c54bf533
0f50: 61 32 36 63 37 34 34 37 63 61 61 35 37 38 33 64  a26c7447caa5783d
0f60: 62 32 65 63 37 65 66 35 65 35 35 37 35 32 64 61  b2ec7ef5e55752da
0f70: 37 66 32 61 32 63 34 65 33 36 30 39 38 32 61 39  7f2a2c4e360982a9
0f80: 34 65 63 31 63 61 32 63 62 36 61 31 35 37 64 33  4ec1ca2cb6a157d3
0f90: 34 65 65 64 32 38 64 65 39 37 38 62 34 31 34 35  4eed28de978b4145
0fa0: 65 31 37 65 62 63 0a 0a 74 63 6c 74 65 73 74 3a  e17ebc..tcltest:
0fb0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
0fc0: 34 2d 32 2e 31 34 20 7b 53 48 41 33 38 34 53 68  4-2.14 {SHA384Sh
0fd0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0fe0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
0ff0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1000: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1010: 65 20 68 65 78 20 32 30 34 34 32 65 31 63 33 66  e hex 20442e1c3f
1020: 33 63 38 38 39 31 39 63 33 39 39 37 38 62 37 38  3c88919c39978b78
1030: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1040: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1050: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
1060: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1070: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 30 62  xact -result 50b
1080: 63 39 35 62 30 33 36 65 30 66 35 34 64 38 33 33  c95b036e0f54d833
1090: 30 33 32 61 38 30 64 34 35 63 32 61 63 33 38 62  032a80d45c2ac38b
10a0: 33 64 32 39 65 39 63 37 66 37 32 61 32 65 62 31  3d29e9c7f72a2eb1
10b0: 34 37 38 31 65 39 32 34 31 64 32 61 34 62 38 65  4781e9241d2a4b8e
10c0: 38 64 62 61 36 65 65 36 66 34 63 39 65 34 36 61  8dba6ee6f4c9e46a
10d0: 37 35 38 64 35 37 31 32 64 62 64 33 39 0a 0a 74  758d5712dbd39..t
10e0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
10f0: 68 5f 53 48 41 33 38 34 2d 32 2e 31 35 20 7b 53  h_SHA384-2.15 {S
1100: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
1110: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1120: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
1130: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1140: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 64 34  y decode hex 4d4
1150: 33 37 30 32 62 65 34 66 30 35 33 30 33 31 39 35  3702be4f05303195
1160: 35 35 64 37 66 31 61 33 33 5d 7d 20 5c 0a 09 2d  55d7f1a33]} \..-
1170: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1180: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
1190: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
11a0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
11b0: 65 73 75 6c 74 20 38 33 63 38 66 30 62 62 37 36  esult 83c8f0bb76
11c0: 32 38 30 31 65 62 32 36 63 63 35 31 31 35 61 62  2801eb26cc5115ab
11d0: 65 62 62 36 35 37 63 31 38 66 66 38 31 31 64 65  ebb657c18ff811de
11e0: 35 30 30 62 33 32 62 37 61 35 36 38 61 32 32 30  500b32b7a568a220
11f0: 61 32 38 37 65 39 30 30 62 36 63 37 35 32 32 34  a287e900b6c75224
1200: 66 65 37 34 32 39 31 36 39 66 62 64 35 33 34 63  fe7429169fbd534c
1210: 62 35 38 38 65 31 0a 0a 74 63 6c 74 65 73 74 3a  b588e1..tcltest:
1220: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
1230: 34 2d 32 2e 31 36 20 7b 53 48 41 33 38 34 53 68  4-2.16 {SHA384Sh
1240: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1250: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
1260: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1270: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1280: 65 20 68 65 78 20 35 65 32 61 37 39 61 35 34 34  e hex 5e2a79a544
1290: 61 66 38 35 66 31 35 30 66 37 61 39 64 32 30 39  af85f150f7a9d209
12a0: 66 64 34 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  fd44]} \..-body 
12b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
12c0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
12d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
12e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
12f0: 20 38 30 35 31 65 62 63 39 63 61 62 62 30 35 32   8051ebc9cabb052
1300: 63 61 62 65 30 37 65 34 30 32 33 65 32 31 34 30  cabe07e4023e2140
1310: 38 30 38 62 37 37 64 32 35 62 30 37 62 39 36 64  808b77d25b07b96d
1320: 32 65 33 63 32 32 33 39 33 66 37 31 62 31 31 36  2e3c22393f71b116
1330: 63 31 61 31 65 34 31 62 66 36 32 65 35 37 66 37  c1a1e41bf62e57f7
1340: 33 66 66 36 37 38 37 31 64 61 37 63 39 33 63 66  3ff67871da7c93cf
1350: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  9..tcltest::test
1360: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
1370: 37 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  7 {SHA384ShortMs
1380: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1390: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
13a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
13b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
13c0: 20 65 31 62 62 39 36 37 62 35 64 33 37 39 61 34   e1bb967b5d379a4
13d0: 61 61 33 39 30 35 30 32 37 34 64 30 39 62 64 39  aa39050274d09bd9
13e0: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
13f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1400: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
1410: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1420: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 62  exact -result 3b
1430: 30 34 66 39 36 39 36 35 61 64 32 66 62 61 62 64  04f96965ad2fbabd
1440: 34 64 66 32 35 64 35 64 38 63 39 35 35 38 39 64  4df25d5d8c95589d
1450: 30 36 39 63 33 31 32 65 65 34 38 35 33 39 30 39  069c312ee4853909
1460: 30 62 32 64 37 62 34 39 35 64 32 34 34 36 63 33  0b2d7b495d2446c3
1470: 31 65 62 32 62 38 66 38 66 66 62 33 30 31 32 62  1eb2b8f8ffb3012b
1480: 64 63 65 30 36 35 33 32 33 64 39 66 34 38 0a 0a  dce065323d9f48..
1490: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
14a0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 38 20 7b  sh_SHA384-2.18 {
14b0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
14c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
14d0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
14e0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
14f0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 62  ry decode hex bb
1500: 38 34 61 30 31 34 63 64 31 37 63 63 32 33 32 63  84a014cd17cc232c
1510: 39 38 61 65 38 62 30 37 30 39 39 31 37 65 39 64  98ae8b0709917e9d
1520: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1530: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1540: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
1550: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1560: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 35 32  xact -result 852
1570: 32 37 61 65 30 35 37 66 32 30 38 32 61 64 66 31  27ae057f2082adf1
1580: 37 38 63 61 65 39 39 36 34 34 39 31 30 30 62 36  78cae996449100b6
1590: 61 33 31 31 39 65 34 63 34 31 35 61 39 39 65 32  a3119e4c415a99e2
15a0: 35 62 65 36 65 66 32 30 62 61 38 63 30 65 61 65  5be6ef20ba8c0eae
15b0: 38 31 38 64 36 30 66 37 31 63 35 63 38 33 66 66  818d60f71c5c83ff
15c0: 32 64 34 63 35 39 61 61 37 35 32 36 33 0a 0a 74  2d4c59aa75263..t
15d0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
15e0: 68 5f 53 48 41 33 38 34 2d 32 2e 31 39 20 7b 53  h_SHA384-2.19 {S
15f0: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
1600: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1610: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
1620: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1630: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 33 34  y decode hex c34
1640: 31 31 61 30 35 39 32 66 31 66 34 66 61 36 39 38  11a0592f1f4fa698
1650: 38 31 35 32 33 38 39 39 37 64 62 33 35 36 34 31  815238997db35641
1660: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
1670: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1680: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
1690: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
16a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 33  exact -result 23
16b0: 33 61 63 34 34 31 37 30 64 39 66 34 35 32 61 31  3ac44170d9f452a1
16c0: 61 30 32 33 31 36 32 32 30 33 30 62 31 35 63 31  a0231622030b15c1
16d0: 30 34 66 66 38 65 63 61 61 33 66 63 63 64 62 39  04ff8ecaa3fccdb9
16e0: 65 39 65 35 30 33 31 66 64 35 62 34 32 32 30 31  e9e5031fd5b42201
16f0: 38 36 61 38 65 64 64 30 33 32 38 34 39 63 38 62  86a8edd032849c8b
1700: 39 33 64 63 31 38 33 61 35 63 38 36 32 37 0a 0a  93dc183a5c8627..
1710: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1720: 73 68 5f 53 48 41 33 38 34 2d 32 2e 32 30 20 7b  sh_SHA384-2.20 {
1730: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
1740: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1750: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
1760: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1770: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 38  ry decode hex e8
1780: 33 31 62 37 33 39 65 38 65 62 39 66 37 38 37 66  31b739e8eb9f787f
1790: 36 33 63 30 62 62 30 37 31 64 64 63 63 39 66 34  63c0bb071ddcc9f4
17a0: 34 63 61 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  4cab]} \..-body 
17b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
17c0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
17d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
17e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
17f0: 20 39 31 37 32 32 64 34 62 37 61 65 63 63 32 31   91722d4b7aecc21
1800: 31 62 62 38 61 35 34 38 30 63 36 38 35 35 66 33  1bb8a5480c6855f3
1810: 62 37 31 62 65 34 36 34 37 65 31 64 64 65 30 33  b71be4647e1dde03
1820: 38 30 63 32 33 61 66 61 61 30 33 66 34 35 63 36  80c23afaa03f45c6
1830: 34 32 36 30 36 61 32 34 35 30 36 65 30 33 31 37  42606a24506e0317
1840: 62 66 35 31 35 30 36 61 34 38 33 64 65 32 38 61  bf51506a483de28a
1850: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
1860: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 32   Hash_SHA384-2.2
1870: 31 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  1 {SHA384ShortMs
1880: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1890: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
18a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
18b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
18c0: 20 62 38 61 37 62 62 63 63 64 65 34 36 65 38 35   b8a7bbccde46e85
18d0: 66 31 32 32 33 32 33 37 64 39 33 35 33 62 37 38  f1223237d9353b78
18e0: 63 33 62 31 39 37 32 37 62 5d 7d 20 5c 0a 09 2d  c3b19727b]} \..-
18f0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1900: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
1910: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1920: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1930: 65 73 75 6c 74 20 32 38 62 61 36 39 64 63 30 35  esult 28ba69dc05
1940: 65 36 65 32 39 64 65 39 31 39 32 34 31 31 34 64  e6e29de91924114d
1950: 36 63 39 66 63 37 36 31 32 66 36 64 32 61 36 38  6c9fc7612f6d2a68
1960: 62 30 37 66 61 30 30 31 64 66 30 35 39 62 63 66  b07fa001df059bcf
1970: 39 38 66 37 61 61 38 35 33 38 39 63 61 65 62 39  98f7aa85389caeb9
1980: 36 36 65 61 61 32 39 39 63 37 39 66 65 31 66 64  66eaa299c79fe1fd
1990: 31 65 34 30 65 33 0a 0a 74 63 6c 74 65 73 74 3a  1e40e3..tcltest:
19a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
19b0: 34 2d 32 2e 32 32 20 7b 53 48 41 33 38 34 53 68  4-2.22 {SHA384Sh
19c0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
19d0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
19e0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
19f0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1a00: 65 20 68 65 78 20 63 66 33 39 31 62 38 61 61 62  e hex cf391b8aab
1a10: 65 63 36 66 38 31 32 38 38 63 38 62 37 62 39 32  ec6f81288c8b7b92
1a20: 38 34 33 62 65 32 33 64 32 65 38 34 37 35 37 34  843be23d2e847574
1a30: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1a40: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1a50: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
1a60: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1a70: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 32 31  xact -result 121
1a80: 65 35 65 66 36 39 37 64 66 34 39 31 61 35 33 64  e5ef697df491a53d
1a90: 37 62 61 65 31 32 31 34 31 36 61 61 36 35 33 64  7bae121416aa653d
1aa0: 37 35 39 61 33 37 64 62 39 64 30 62 39 39 33 30  759a37db9d0b9930
1ab0: 33 31 62 31 38 61 30 65 66 31 36 30 65 64 39 38  31b18a0ef160ed98
1ac0: 38 34 32 61 32 39 31 65 31 62 61 32 63 65 61 38  842a291e1ba2cea8
1ad0: 62 39 39 38 62 63 35 65 65 65 30 62 31 0a 0a 74  b998bc5eee0b1..t
1ae0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1af0: 68 5f 53 48 41 33 38 34 2d 32 2e 32 33 20 7b 53  h_SHA384-2.23 {S
1b00: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
1b10: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1b20: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
1b30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1b40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 64 36  y decode hex 9d6
1b50: 35 64 38 38 62 66 66 65 64 37 36 34 63 32 38 36  5d88bffed764c286
1b60: 66 33 34 38 39 34 66 39 39 31 36 30 30 64 31 61  f34894f991600d1a
1b70: 36 37 64 36 32 32 33 38 32 5d 7d 20 5c 0a 09 2d  67d622382]} \..-
1b80: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1b90: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
1ba0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1bb0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1bc0: 65 73 75 6c 74 20 38 34 62 36 65 30 64 36 61 34  esult 84b6e0d6a4
1bd0: 35 33 32 39 64 61 66 34 37 61 37 39 33 34 31 38  5329daf47a793418
1be0: 65 64 35 64 62 64 65 30 31 33 33 36 62 34 62 39  ed5dbde01336b4b9
1bf0: 34 36 38 62 62 36 39 65 35 64 61 36 31 63 34 32  468bb69e5da61c42
1c00: 62 36 39 31 65 36 37 39 34 65 36 65 64 30 65 38  b691e6794e6ed0e8
1c10: 66 62 31 62 38 65 37 64 34 63 64 33 63 62 61 61  fb1b8e7d4cd3cbaa
1c20: 64 63 35 32 30 61 0a 0a 74 63 6c 74 65 73 74 3a  dc520a..tcltest:
1c30: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
1c40: 34 2d 32 2e 32 34 20 7b 53 48 41 33 38 34 53 68  4-2.24 {SHA384Sh
1c50: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1c60: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
1c70: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1c80: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1c90: 65 20 68 65 78 20 62 61 62 36 65 61 34 36 66 62  e hex bab6ea46fb
1ca0: 37 31 37 66 37 33 66 30 36 32 38 31 33 32 61 32  717f73f0628132a2
1cb0: 62 39 36 62 65 33 38 33 37 37 34 66 31 65 35 64  b96be383774f1e5d
1cc0: 38 62 36 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8b6d]} \..-body 
1cd0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1ce0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
1cf0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1d00: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1d10: 20 65 39 36 39 61 63 61 31 62 35 30 65 39 32 38   e969aca1b50e928
1d20: 63 61 64 32 39 61 30 64 37 35 36 34 35 37 66 36  cad29a0d756457f6
1d30: 64 65 38 64 37 61 34 65 35 38 39 66 64 34 31 65  de8d7a4e589fd41e
1d40: 35 33 61 31 65 37 35 38 63 33 62 32 30 66 39 62  53a1e758c3b20f9b
1d50: 38 31 62 33 36 62 66 30 39 38 61 34 39 31 30 32  81b36bf098a49102
1d60: 66 62 66 38 36 39 36 35 31 63 61 39 61 39 38 62  fbf869651ca9a98b
1d70: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
1d80: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 32   Hash_SHA384-2.2
1d90: 35 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  5 {SHA384ShortMs
1da0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1db0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
1dc0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1dd0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1de0: 20 38 38 35 33 62 30 30 65 38 36 39 37 36 34 61   8853b00e869764a
1df0: 64 62 35 32 37 61 30 37 62 30 37 33 63 38 35 61  db527a07b073c85a
1e00: 32 34 65 36 63 32 30 38 62 61 34 37 65 65 66 34  24e6c208ba47eef4
1e10: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
1e20: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1e30: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
1e40: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1e50: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 39  exact -result 09
1e60: 61 64 34 34 65 38 35 61 63 31 39 30 65 32 64 31  ad44e85ac190e2d1
1e70: 63 33 63 65 62 34 65 66 62 65 61 31 30 64 65 64  c3ceb4efbea10ded
1e80: 33 34 64 30 64 65 39 36 31 66 65 34 65 65 32 36  34d0de961fe4ee26
1e90: 38 31 33 32 63 34 38 65 33 38 36 36 30 65 36 63  8132c48e38660e6c
1ea0: 66 35 38 35 62 66 66 66 62 38 66 37 62 30 30 62  f585bfffb8f7b00b
1eb0: 30 66 61 64 31 35 31 34 33 31 32 62 36 33 0a 0a  0fad1514312b63..
1ec0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1ed0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 32 36 20 7b  sh_SHA384-2.26 {
1ee0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
1ef0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1f00: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
1f10: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1f20: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 31  ry decode hex 71
1f30: 66 65 31 62 61 35 64 32 39 39 34 39 35 64 32 61  fe1ba5d299495d2a
1f40: 35 36 30 33 39 63 36 34 30 33 32 65 63 36 32 36  56039c64032ec626
1f50: 33 64 34 33 37 66 35 35 65 33 66 35 62 65 64 62  3d437f55e3f5bedb
1f60: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1f70: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1f80: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
1f90: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1fa0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 34 31  xact -result b41
1fb0: 61 35 64 33 62 34 61 66 36 64 34 62 39 63 33 34  a5d3b4af6d4b9c34
1fc0: 39 65 30 37 38 38 35 33 38 65 39 61 30 33 31 31  9e0788538e9a0311
1fd0: 30 38 36 38 39 34 64 66 37 62 37 32 63 66 35 61  086894df7b72cf5a
1fe0: 61 66 34 30 39 31 61 37 65 30 33 39 65 34 65 38  af4091a7e039e4e8
1ff0: 39 63 63 37 37 61 31 32 33 34 37 34 65 36 64 31  9cc77a123474e6d1
2000: 62 61 63 34 33 38 65 35 65 39 66 38 38 0a 0a 74  bac438e5e9f88..t
2010: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2020: 68 5f 53 48 41 33 38 34 2d 32 2e 32 37 20 7b 53  h_SHA384-2.27 {S
2030: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
2040: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2050: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
2060: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2070: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 65 62  y decode hex 4eb
2080: 65 30 37 64 30 33 63 39 33 65 38 34 39 62 34 62  e07d03c93e849b4b
2090: 62 66 65 39 66 32 64 32 32 39 34 62 66 36 63 63  bfe9f2d2294bf6cc
20a0: 61 62 34 35 37 66 37 36 64 33 66 39 39 63 62 36  ab457f76d3f99cb6
20b0: 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  4]} \..-body {tl
20c0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
20d0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
20e0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
20f0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 65  exact -result be
2100: 62 61 34 36 34 64 37 30 36 35 31 38 35 35 38 37  ba464d7065185587
2110: 66 61 64 38 39 62 66 63 65 61 39 36 33 35 62 66  fad89bfcea9635bf
2120: 30 61 62 37 37 35 63 33 65 62 38 63 31 34 37 62  0ab775c3eb8c147b
2130: 35 62 32 62 64 38 36 30 31 64 62 36 64 62 61 30  5b2bd8601db6dba0
2140: 35 39 30 62 35 30 64 64 31 30 36 38 37 33 33 66  590b50dd1068733f
2150: 32 30 64 63 36 38 65 30 30 34 61 30 39 30 0a 0a  20dc68e004a090..
2160: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2170: 73 68 5f 53 48 41 33 38 34 2d 32 2e 32 38 20 7b  sh_SHA384-2.28 {
2180: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
2190: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
21a0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
21b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
21c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 31  ry decode hex 91
21d0: 38 61 63 30 61 39 37 65 63 31 36 33 32 39 30 38  8ac0a97ec1632908
21e0: 34 38 39 65 35 32 34 32 62 61 32 38 34 62 63 38  489e5242ba284bc8
21f0: 31 31 61 61 37 31 39 37 32 34 32 63 66 37 32 32  11aa7197242cf722
2200: 36 66 63 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  6fcd]} \..-body 
2210: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2220: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
2230: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2240: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2250: 20 63 34 62 61 66 36 33 39 37 61 34 63 36 65 32   c4baf6397a4c6e2
2260: 36 34 39 32 62 36 33 61 34 61 61 62 37 64 66 66  6492b63a4aab7dff
2270: 64 64 30 30 35 31 64 38 66 35 31 39 33 38 61 63  dd0051d8f51938ac
2280: 32 34 63 66 64 38 64 61 65 32 66 37 61 66 65 64  24cfd8dae2f7afed
2290: 31 61 34 61 61 32 34 33 30 64 37 61 65 62 30 62  1a4aa2430d7aeb0b
22a0: 65 32 61 37 32 62 32 31 61 36 63 35 30 31 39 38  e2a72b21a6c50198
22b0: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
22c0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 32   Hash_SHA384-2.2
22d0: 39 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  9 {SHA384ShortMs
22e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
22f0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
2300: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2310: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2320: 20 39 37 34 37 37 66 37 32 37 32 64 38 61 38 39   97477f7272d8a89
2330: 65 33 38 65 37 39 36 63 35 33 33 65 39 66 38 61  e38e796c533e9f8a
2340: 38 61 65 34 63 39 32 63 63 61 61 35 64 39 30 37  8ae4c92ccaa5d907
2350: 65 64 32 36 61 31 61 31 35 5d 7d 20 5c 0a 09 2d  ed26a1a15]} \..-
2360: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
2370: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
2380: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2390: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
23a0: 65 73 75 6c 74 20 64 31 61 64 35 32 34 65 62 65  esult d1ad524ebe
23b0: 39 30 38 64 37 63 35 61 66 66 35 30 65 36 63 62  908d7c5aff50e6cb
23c0: 37 38 30 66 64 33 61 37 30 65 38 37 63 39 31 34  780fd3a70e87c914
23d0: 61 33 36 62 39 33 63 34 65 33 35 66 35 62 32 63  a36b93c4e35f5b2c
23e0: 62 30 33 38 35 30 62 31 32 32 62 34 38 30 65 66  b03850b122b480ef
23f0: 38 35 38 37 64 34 61 34 34 66 32 32 34 36 37 66  8587d4a44f22467f
2400: 34 63 34 38 30 63 0a 0a 74 63 6c 74 65 73 74 3a  4c480c..tcltest:
2410: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
2420: 34 2d 32 2e 33 30 20 7b 53 48 41 33 38 34 53 68  4-2.30 {SHA384Sh
2430: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2440: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
2450: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2460: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2470: 65 20 68 65 78 20 37 31 38 65 30 63 66 65 31 33  e hex 718e0cfe13
2480: 38 36 63 62 31 34 32 31 62 34 37 39 39 62 31 35  86cb1421b4799b15
2490: 37 38 38 62 38 36 32 62 66 30 33 61 38 30 37 32  788b862bf03a8072
24a0: 62 62 33 30 64 30 32 33 30 33 38 38 38 30 33 32  bb30d02303888032
24b0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
24c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
24d0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
24e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
24f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 64 38  xact -result 6d8
2500: 62 38 61 35 62 63 37 65 61 33 36 35 65 61 30 37  b8a5bc7ea365ea07
2510: 66 31 31 64 33 62 31 32 65 39 35 38 37 32 61 39  f11d3b12e95872a9
2520: 36 33 33 36 38 34 37 35 32 34 39 35 63 63 34 33  633684752495cc43
2530: 31 36 33 36 63 61 66 31 62 32 37 33 61 33 35 33  1636caf1b273a353
2540: 32 31 30 34 34 61 66 33 31 63 39 37 34 64 38 35  21044af31c974d85
2550: 37 35 64 33 38 37 31 31 66 35 36 63 36 0a 0a 74  75d38711f56c6..t
2560: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2570: 68 5f 53 48 41 33 38 34 2d 32 2e 33 31 20 7b 53  h_SHA384-2.31 {S
2580: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
2590: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
25a0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
25b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
25c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 33 62  y decode hex d3b
25d0: 30 37 66 30 66 64 35 64 34 63 64 33 31 38 38 61  07f0fd5d4cd3188a
25e0: 65 61 64 38 64 63 38 33 33 38 64 65 34 32 30 35  ead8dc8338de4205
25f0: 36 65 32 65 38 34 38 37 65 63 61 35 31 65 63 33  6e2e8487eca51ec3
2600: 37 65 66 32 64 61 66 32 37 5d 7d 20 5c 0a 09 2d  7ef2daf27]} \..-
2610: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
2620: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
2630: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2640: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
2650: 65 73 75 6c 74 20 61 64 63 63 32 65 39 35 34 63  esult adcc2e954c
2660: 39 31 64 62 33 64 62 32 64 37 31 64 30 64 65 65  91db3db2d71d0dee
2670: 31 66 30 33 30 65 37 32 33 62 65 65 31 61 32 33  1f030e723bee1a23
2680: 38 31 36 66 65 30 30 33 61 63 35 64 63 38 36 32  816fe003ac5dc862
2690: 61 30 38 37 32 65 66 35 31 66 66 33 38 36 63 31  a0872ef51ff386c1
26a0: 38 62 65 36 65 62 63 61 61 34 39 33 66 33 32 64  8be6ebcaa493f32d
26b0: 31 31 39 35 62 39 0a 0a 74 63 6c 74 65 73 74 3a  1195b9..tcltest:
26c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
26d0: 34 2d 32 2e 33 32 20 7b 53 48 41 33 38 34 53 68  4-2.32 {SHA384Sh
26e0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
26f0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
2700: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2710: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2720: 65 20 68 65 78 20 36 39 35 62 39 65 66 65 31 38  e hex 695b9efe18
2730: 30 39 61 62 64 35 64 34 34 65 61 65 39 35 37 64  09abd5d44eae957d
2740: 64 66 39 63 32 63 64 33 63 37 35 66 61 65 32 66  df9c2cd3c75fae2f
2750: 35 32 32 38 35 35 37 31 32 61 30 37 63 36 33 39  522855712a07c639
2760: 63 30 62 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c0b9]} \..-body 
2770: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2780: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
2790: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
27a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
27b0: 20 33 62 62 39 35 64 31 36 34 64 39 34 35 39 35   3bb95d164d94595
27c0: 61 31 31 38 37 66 37 37 66 63 32 36 63 32 38 30  a1187f77fc26c280
27d0: 66 66 62 62 30 38 65 37 34 65 63 37 39 34 37 61  ffbb08e74ec7947a
27e0: 61 33 65 35 62 33 38 62 65 63 37 63 36 66 38 31  a3e5b38bec7c6f81
27f0: 31 35 63 34 64 38 38 30 37 38 38 63 32 34 30 32  15c4d880788c2402
2800: 64 62 62 33 65 35 62 39 34 61 66 64 31 33 30 65  dbb3e5b94afd130e
2810: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
2820: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 33   Hash_SHA384-2.3
2830: 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  3 {SHA384ShortMs
2840: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2850: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
2860: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2870: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2880: 20 62 65 30 31 65 35 32 30 65 36 39 66 30 34 31   be01e520e69f041
2890: 37 34 63 63 66 39 35 34 35 35 62 31 63 38 31 34  74ccf95455b1c814
28a0: 34 35 32 39 38 32 36 34 64 39 61 64 63 34 39 35  45298264d9adc495
28b0: 38 35 37 34 61 35 32 38 34 33 64 39 35 62 38 62  8574a52843d95b8b
28c0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
28d0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
28e0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
28f0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2900: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 35  exact -result c5
2910: 63 66 35 34 62 38 65 33 31 30 35 62 31 63 37 62  cf54b8e3105b1c7b
2920: 66 37 61 34 33 37 35 34 64 39 31 35 62 30 39 34  f7a43754d915b094
2930: 37 66 32 38 62 36 64 63 39 34 61 30 31 39 31 38  7f28b6dc94a01918
2940: 32 39 32 39 62 35 63 38 34 38 65 31 31 34 34 31  2929b5c848e11441
2950: 63 39 65 34 65 39 30 63 37 34 34 39 66 34 63 33  c9e4e90c7449f4c3
2960: 63 64 31 32 39 35 34 66 30 66 35 64 39 39 0a 0a  cd12954f0f5d99..
2970: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2980: 73 68 5f 53 48 41 33 38 34 2d 32 2e 33 34 20 7b  sh_SHA384-2.34 {
2990: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
29a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
29b0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
29c0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
29d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 38  ry decode hex 98
29e0: 65 66 37 33 30 31 66 39 35 37 64 37 33 64 34 65  ef7301f957d73d4e
29f0: 38 32 31 64 35 38 37 33 65 38 61 39 62 35 39 37  821d5873e8a9b597
2a00: 30 66 62 64 32 31 39 64 35 63 66 37 34 65 63 32  0fbd219d5cf74ec2
2a10: 32 39 31 62 38 33 38 31 31 38 31 33 39 31 62 34  291b8381181391b4
2a20: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2a30: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2a40: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
2a50: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2a60: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 32 35  xact -result b25
2a70: 36 34 62 62 62 31 35 39 63 33 61 65 61 64 62 61  64bbb159c3aeadba
2a80: 65 30 65 34 61 34 34 33 37 66 37 63 35 31 31 31  e0e4a4437f7c5111
2a90: 30 32 30 65 39 61 64 30 66 34 65 62 35 30 38 31  020e9ad0f4eb5081
2aa0: 34 37 61 39 36 31 61 63 32 32 61 30 31 65 31 61  47a961ac22a01e1a
2ab0: 32 36 64 66 30 34 36 62 31 34 65 65 35 65 38 61  26df046b14ee5e8a
2ac0: 34 39 64 39 65 64 32 32 62 38 63 64 31 0a 0a 74  49d9ed22b8cd1..t
2ad0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2ae0: 68 5f 53 48 41 33 38 34 2d 32 2e 33 35 20 7b 53  h_SHA384-2.35 {S
2af0: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
2b00: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2b10: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
2b20: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2b30: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 37 33  y decode hex 873
2b40: 62 61 37 66 38 62 37 31 35 31 37 65 63 35 30 32  ba7f8b71517ec502
2b50: 39 37 62 32 31 63 66 39 34 63 64 62 37 61 35 38  97b21cf94cdb7a58
2b60: 61 62 62 62 38 38 32 39 32 30 36 66 30 64 33 66  abbb8829206f0d3f
2b70: 33 32 38 66 66 38 61 36 39 33 39 61 63 31 64 31  328ff8a6939ac1d1
2b80: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
2b90: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2ba0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
2bb0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2bc0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 34  exact -result 74
2bd0: 30 35 66 64 64 35 35 37 64 32 62 35 64 34 66 36  05fdd557d2b5d4f6
2be0: 35 65 39 65 38 35 66 35 30 38 64 33 37 39 31 34  5e9e85f508d37914
2bf0: 39 35 66 31 38 32 30 64 33 37 63 61 62 66 63 38  95f1820d37cabfc8
2c00: 64 62 62 37 34 64 37 62 34 31 64 66 38 36 31 33  dbb74d7b41df8613
2c10: 64 39 39 35 63 36 31 32 64 33 37 38 64 64 38 38  d995c612d378dd88
2c20: 33 33 37 65 30 30 39 35 31 64 30 32 38 30 0a 0a  337e00951d0280..
2c30: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2c40: 73 68 5f 53 48 41 33 38 34 2d 32 2e 33 36 20 7b  sh_SHA384-2.36 {
2c50: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
2c60: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2c70: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
2c80: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2c90: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 33  ry decode hex e3
2ca0: 62 64 34 62 63 33 61 36 30 63 64 64 64 32 36 63  bd4bc3a60cddd26c
2cb0: 32 30 61 61 38 36 33 36 34 62 64 34 34 66 34 61  20aa86364bd44f4a
2cc0: 30 37 66 33 33 30 32 38 32 35 61 64 30 61 63 31  07f3302825ad0ac1
2cd0: 32 37 38 38 31 64 65 34 65 61 66 62 63 63 66 39  27881de4eafbccf9
2ce0: 38 38 63 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  88cb]} \..-body 
2cf0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2d00: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
2d10: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2d20: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2d30: 20 31 39 39 64 35 34 32 33 61 30 65 32 36 34 33   199d5423a0e2643
2d40: 38 66 34 63 65 61 30 30 38 31 61 38 39 65 30 62  8f4cea0081a89e0b
2d50: 36 63 38 34 63 61 39 33 66 37 63 33 31 32 30 63  6c84ca93f7c3120c
2d60: 38 31 30 34 62 35 31 63 36 65 64 63 30 34 65 30  8104b51c6edc04e0
2d70: 66 36 61 32 30 33 62 62 37 37 64 35 39 39 37 33  f6a203bb77d59973
2d80: 61 37 34 31 31 61 30 65 66 62 65 39 33 61 30 39  a7411a0efbe93a09
2d90: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
2da0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 33   Hash_SHA384-2.3
2db0: 37 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  7 {SHA384ShortMs
2dc0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2dd0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
2de0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2df0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2e00: 20 38 37 31 36 65 34 62 38 36 64 65 66 66 39 64   8716e4b86deff9d
2e10: 61 32 61 38 65 64 35 35 62 61 61 34 33 35 38 32  a2a8ed55baa43582
2e20: 61 37 35 38 36 65 63 39 63 64 33 38 61 63 33 61  a7586ec9cd38ac3a
2e30: 39 33 33 31 35 36 31 35 38 63 64 38 65 35 62 37  933156158cd8e5b7
2e40: 38 38 37 35 38 35 65 39 31 5d 7d 20 5c 0a 09 2d  887585e91]} \..-
2e50: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
2e60: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
2e70: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2e80: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
2e90: 65 73 75 6c 74 20 30 64 32 33 30 36 64 39 63 30  esult 0d2306d9c0
2ea0: 61 38 63 65 35 37 62 63 37 38 36 39 62 34 33 39  a8ce57bc7869b439
2eb0: 33 37 36 63 30 37 63 65 33 35 32 61 34 31 64 38  376c07ce352a41d8
2ec0: 36 61 62 36 63 66 34 61 35 36 35 34 63 63 63 64  6ab6cf4a5654cccd
2ed0: 35 63 37 32 34 66 65 31 62 36 32 62 32 63 31 31  5c724fe1b62b2c11
2ee0: 30 31 63 39 38 36 32 32 32 66 35 32 36 34 61 62  01c986222f5264ab
2ef0: 33 66 64 64 36 36 0a 0a 74 63 6c 74 65 73 74 3a  3fdd66..tcltest:
2f00: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
2f10: 34 2d 32 2e 33 38 20 7b 53 48 41 33 38 34 53 68  4-2.38 {SHA384Sh
2f20: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2f30: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
2f40: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2f50: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2f60: 65 20 68 65 78 20 66 38 61 35 30 33 61 61 61 32  e hex f8a503aaa2
2f70: 35 65 66 32 63 65 61 32 35 65 33 31 39 33 30 63  5ef2cea25e31930c
2f80: 33 61 39 30 64 62 34 36 38 63 64 33 61 38 36 32  3a90db468cd3a862
2f90: 66 34 61 39 33 61 61 62 35 64 65 32 37 37 37 65  f4a93aab5de2777e
2fa0: 38 32 64 63 39 30 35 63 62 30 33 65 65 32 33 63  82dc905cb03ee23c
2fb0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2fc0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2fd0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
2fe0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2ff0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 37 33  xact -result 773
3000: 65 65 39 35 38 66 65 39 33 64 66 64 31 62 37 33  ee958fe93dfd1b73
3010: 61 66 32 34 64 32 37 64 64 63 65 33 33 31 34 34  af24d27ddce33144
3020: 61 39 32 34 39 64 35 61 36 37 31 36 38 32 61 35  a9249d5a671682a5
3030: 36 64 66 33 30 64 30 62 62 66 39 32 62 39 33 32  6df30d0bbf92b932
3040: 37 31 33 30 30 32 32 30 37 35 31 38 35 64 33 39  7130022075185d39
3050: 36 64 65 37 35 32 39 35 39 33 30 34 66 0a 0a 74  6de752959304f..t
3060: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3070: 68 5f 53 48 41 33 38 34 2d 32 2e 33 39 20 7b 53  h_SHA384-2.39 {S
3080: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
3090: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
30a0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
30b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
30c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 36 39  y decode hex 669
30d0: 30 32 35 31 37 35 65 61 39 31 37 63 64 64 37 61  025175ea917cdd7a
30e0: 37 31 66 66 34 65 63 30 63 34 35 62 66 31 32 34  71ff4ec0c45bf124
30f0: 36 64 32 61 36 66 30 33 31 63 30 30 62 37 31 64  6d2a6f031c00b71d
3100: 65 37 30 31 65 31 37 39 33 39 62 66 65 39 32 31  e701e17939bfe921
3110: 32 38 62 32 31 39 31 31 65 5d 7d 20 5c 0a 09 2d  28b21911e]} \..-
3120: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3130: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
3140: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3150: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3160: 65 73 75 6c 74 20 39 66 66 36 62 65 33 66 30 32  esult 9ff6be3f02
3170: 63 37 63 35 64 30 32 30 36 66 34 62 39 34 34 63  c7c5d0206f4b944c
3180: 30 38 34 33 63 62 36 38 62 65 61 38 66 39 62 37  0843cb68bea8f9b7
3190: 63 38 63 63 30 62 37 32 39 35 30 33 64 62 35 30  c8cc0b729503db50
31a0: 30 35 63 37 63 64 35 63 62 31 34 65 33 34 35 37  05c7cd5cb14e3457
31b0: 64 38 66 35 65 61 62 66 37 33 33 66 63 61 39 30  d8f5eabf733fca90
31c0: 38 34 66 31 36 62 0a 0a 74 63 6c 74 65 73 74 3a  84f16b..tcltest:
31d0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
31e0: 34 2d 32 2e 34 30 20 7b 53 48 41 33 38 34 53 68  4-2.40 {SHA384Sh
31f0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3200: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
3210: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3220: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3230: 65 20 68 65 78 20 62 33 35 66 62 32 32 36 32 65  e hex b35fb2262e
3240: 64 66 61 31 34 39 33 38 61 30 66 62 61 30 33 65  dfa14938a0fba03e
3250: 62 32 61 32 35 64 33 37 37 39 37 34 62 31 31 66  b2a25d377974b11f
3260: 35 35 36 34 39 31 61 37 38 31 64 30 62 61 32 62  556491a781d0ba2b
3270: 33 63 30 66 66 33 65 34 32 37 34 39 39 32 35 66  3c0ff3e42749925f
3280: 65 66 38 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ef8b]} \..-body 
3290: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
32a0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
32b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
32c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
32d0: 20 38 33 35 62 30 35 61 34 62 66 30 30 63 32 35   835b05a4bf00c25
32e0: 39 34 63 33 63 38 63 31 33 64 61 36 63 32 37 33  94c3c8c13da6c273
32f0: 61 30 64 39 65 66 64 65 61 30 64 61 37 32 62 37  a0d9efdea0da72b7
3300: 31 62 31 39 64 33 32 36 62 66 35 63 65 39 36 38  1b19d326bf5ce968
3310: 63 32 65 35 37 37 61 37 64 39 39 66 63 30 66 39  c2e577a7d99fc0f9
3320: 38 35 61 66 64 32 33 62 34 36 34 32 33 31 32 39  85afd23b46423129
3330: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
3340: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34   Hash_SHA384-2.4
3350: 31 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  1 {SHA384ShortMs
3360: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3370: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
3380: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3390: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
33a0: 20 39 64 38 36 62 34 35 64 66 38 64 37 64 61 65   9d86b45df8d7dae
33b0: 30 63 66 36 62 30 62 63 32 30 38 36 36 36 65 65  0cf6b0bc208666ee
33c0: 31 31 36 33 61 33 39 65 36 31 31 36 64 36 64 32  1163a39e6116d6d2
33d0: 34 30 63 39 64 63 31 63 33 61 33 63 31 64 62 31  40c9dc1c3a3c1db1
33e0: 64 64 33 62 31 63 36 36 38 30 66 65 39 61 31 39  dd3b1c6680fe9a19
33f0: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
3400: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3410: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
3420: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3430: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 38  exact -result a8
3440: 34 63 34 36 39 63 32 34 36 39 36 66 38 31 64 37  4c469c24696f81d7
3450: 64 66 34 65 65 38 63 64 37 36 61 61 35 38 34 66  df4ee8cd76aa584f
3460: 38 63 39 39 36 30 65 61 61 39 39 30 38 64 33 65  8c9960eaa9908d3e
3470: 33 65 62 63 35 65 65 61 37 64 30 62 35 30 61 66  3ebc5eea7d0b50af
3480: 64 64 65 64 33 39 64 65 62 39 34 66 64 35 39 33  dded39deb94fd593
3490: 32 33 61 32 31 61 36 35 33 39 65 39 33 66 0a 0a  23a21a6539e93f..
34a0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
34b0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 34 32 20 7b  sh_SHA384-2.42 {
34c0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
34d0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
34e0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
34f0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3500: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 31  ry decode hex 41
3510: 34 66 35 36 31 39 66 36 64 66 64 34 35 38 35 33  4f5619f6dfd45853
3520: 62 62 61 62 64 32 32 34 63 63 33 30 35 64 37 37  bbabd224cc305d77
3530: 33 35 30 61 64 32 35 33 33 35 38 39 31 30 61 37  350ad253358910a7
3540: 34 66 33 61 34 33 38 31 61 39 62 38 36 36 38 30  4f3a4381a9b86680
3550: 62 33 63 34 30 36 38 63 30 38 39 38 34 39 63 34  b3c4068c089849c4
3560: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3570: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3580: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
3590: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
35a0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 34 38  xact -result 848
35b0: 64 34 38 31 65 33 62 62 66 35 64 64 37 32 36 66  d481e3bbf5dd726f
35c0: 36 32 35 63 66 36 61 34 34 34 64 39 39 35 62 33  625cf6a444d995b3
35d0: 36 32 36 32 63 39 66 38 30 64 35 38 33 62 37 37  6262c9f80d583b77
35e0: 61 63 63 66 31 37 30 37 65 33 66 34 39 62 62 33  accf1707e3f49bb3
35f0: 64 63 34 38 30 61 35 36 30 36 39 34 64 37 36 39  dc480a560694d769
3600: 61 61 31 63 65 36 35 64 36 39 34 32 38 0a 0a 74  aa1ce65d69428..t
3610: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3620: 68 5f 53 48 41 33 38 34 2d 32 2e 34 33 20 7b 53  h_SHA384-2.43 {S
3630: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
3640: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3650: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
3660: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3670: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 32 36  y decode hex e26
3680: 35 38 33 32 34 38 32 31 61 65 37 62 30 66 61 61  58324821ae7b0faa
3690: 30 63 64 64 36 33 65 65 39 65 66 62 39 66 63 62  0cdd63ee9efb9fcb
36a0: 65 38 32 30 39 32 64 30 34 36 39 36 66 65 62 33  e82092d04696feb3
36b0: 64 61 39 32 63 38 32 35 32 31 64 66 64 63 39 38  da92c82521dfdc98
36c0: 66 36 62 34 31 62 33 65 66 33 36 35 64 32 31 39  f6b41b3ef365d219
36d0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
36e0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
36f0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
3700: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3710: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 65  exact -result 3e
3720: 61 35 64 30 37 39 39 66 31 61 34 64 63 61 62 39  a5d0799f1a4dcab9
3730: 31 34 39 61 34 30 61 62 37 34 62 65 63 39 63 38  149a40ab74bec9c8
3740: 64 37 36 64 38 65 33 39 32 63 31 65 36 33 65 30  d76d8e392c1e63e0
3750: 38 30 64 64 65 63 32 65 63 35 33 35 66 38 30 62  80ddec2ec535f80b
3760: 65 39 66 30 30 39 32 37 62 65 32 38 31 65 63 39  e9f00927be281ec9
3770: 37 61 63 30 63 38 38 32 62 62 30 62 62 66 0a 0a  7ac0c882bb0bbf..
3780: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3790: 73 68 5f 53 48 41 33 38 34 2d 32 2e 34 34 20 7b  sh_SHA384-2.44 {
37a0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
37b0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
37c0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
37d0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
37e0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 65  ry decode hex 7e
37f0: 38 30 32 37 31 62 62 35 66 32 63 63 37 64 64 61  80271bb5f2cc7dda
3800: 65 34 31 35 38 36 35 38 65 34 65 38 64 30 36 65  e4158658e4e8d06e
3810: 30 34 61 33 39 33 38 35 64 61 30 65 63 61 63 31  04a39385da0ecac1
3820: 63 62 38 65 39 31 64 36 38 61 39 62 64 32 31 64  cb8e91d68a9bd21d
3830: 64 62 37 33 32 30 65 37 39 64 31 30 65 33 31 31  db7320e79d10e311
3840: 30 37 35 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  0758]} \..-body 
3850: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3860: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
3870: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3880: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3890: 20 66 61 30 30 62 63 30 33 35 39 61 36 34 32 64   fa00bc0359a642d
38a0: 63 62 33 35 35 39 36 35 36 30 39 34 65 62 32 66  cb3559656094eb2f
38b0: 64 34 66 36 33 62 63 35 37 66 30 64 33 34 61 62  d4f63bc57f0d34ab
38c0: 66 66 32 36 64 66 35 63 35 34 63 63 36 33 64 62  ff26df5c54cc63db
38d0: 65 62 34 65 61 63 37 35 39 30 35 32 39 36 65 37  eb4eac75905296e7
38e0: 66 62 36 39 66 38 37 31 65 31 33 34 30 38 33 66  fb69f871e134083f
38f0: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
3900: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34   Hash_SHA384-2.4
3910: 35 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  5 {SHA384ShortMs
3920: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3930: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
3940: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3950: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3960: 20 34 33 64 32 38 32 38 65 38 36 66 37 38 35 36   43d2828e86f7856
3970: 62 37 38 63 36 36 63 66 61 33 64 36 30 32 33 38  b78c66cfa3d60238
3980: 37 63 32 39 30 39 37 35 61 66 64 30 32 31 61 38  7c290975afd021a8
3990: 62 37 36 61 66 30 39 31 38 30 36 39 63 61 63 33  b76af0918069cac3
39a0: 35 64 65 63 34 35 64 65 33 63 63 35 32 65 64 63  5dec45de3cc52edc
39b0: 34 62 61 31 34 34 33 32 65 5d 7d 20 5c 0a 09 2d  4ba14432e]} \..-
39c0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
39d0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
39e0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
39f0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3a00: 65 73 75 6c 74 20 36 63 39 65 33 36 37 65 30 36  esult 6c9e367e06
3a10: 36 30 33 32 63 65 34 37 62 61 32 35 37 35 35 36  6032ce47ba257556
3a20: 35 39 33 32 30 30 32 63 63 37 38 36 66 35 33 33  5932002cc786f533
3a30: 63 35 35 35 31 36 35 36 61 62 66 65 37 33 39 31  c5551656abfe7391
3a40: 65 37 64 63 62 35 66 39 64 39 65 30 34 37 61 64  e7dcb5f9d9e047ad
3a50: 61 63 65 32 33 64 33 32 66 38 61 63 65 64 66 64  ace23d32f8acedfd
3a60: 30 63 61 66 63 35 0a 0a 74 63 6c 74 65 73 74 3a  0cafc5..tcltest:
3a70: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
3a80: 34 2d 32 2e 34 36 20 7b 53 48 41 33 38 34 53 68  4-2.46 {SHA384Sh
3a90: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3aa0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
3ab0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3ac0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3ad0: 65 20 68 65 78 20 33 66 34 39 62 62 36 34 35 63  e hex 3f49bb645c
3ae0: 63 65 64 37 35 33 30 62 38 62 38 32 65 36 63 66  ced7530b8b82e6cf
3af0: 30 37 66 62 66 36 37 30 66 37 65 66 30 62 61 30  07fbf670f7ef0ba0
3b00: 35 38 33 64 31 36 64 65 62 61 66 63 36 33 39 62  583d16debafc639b
3b10: 64 66 62 66 63 39 39 62 38 34 31 37 32 34 39 66  dfbfc99b8417249f
3b20: 37 66 35 61 30 35 34 31 30 61 61 33 61 37 31 66  7f5a05410aa3a71f
3b30: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3b40: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3b50: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
3b60: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
3b70: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 62 33  xact -result 2b3
3b80: 30 31 61 31 34 36 34 37 61 36 37 34 32 39 63 63  01a14647a67429cc
3b90: 33 65 37 64 61 30 32 63 34 30 39 33 61 37 33 39  3e7da02c4093a739
3ba0: 36 34 30 66 37 62 34 37 61 33 30 35 32 35 31 64  640f7b47a305251d
3bb0: 32 38 35 35 65 37 35 65 30 39 65 36 30 65 32 36  2855e75e09e60e26
3bc0: 32 62 32 37 39 61 30 37 33 30 37 37 64 31 66 62  2b279a073077d1fb
3bd0: 36 64 30 66 30 34 37 38 38 66 32 62 38 0a 0a 74  6d0f04788f2b8..t
3be0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3bf0: 68 5f 53 48 41 33 38 34 2d 32 2e 34 37 20 7b 53  h_SHA384-2.47 {S
3c00: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
3c10: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3c20: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
3c30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3c40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 31 61  y decode hex 31a
3c50: 61 63 30 36 61 35 39 62 37 34 62 66 34 37 38 36  ac06a59b74bf4786
3c60: 31 37 63 31 36 33 37 66 61 36 63 35 35 39 33 64  17c1637fa6c5593d
3c70: 66 31 36 38 62 38 64 35 38 62 31 65 39 32 33 62  f168b8d58b1e923b
3c80: 66 33 65 33 64 38 30 65 35 35 64 37 31 37 30 62  f3e3d80e55d7170b
3c90: 31 36 34 35 34 31 36 30 61 62 32 39 65 65 31 66  16454160ab29ee1f
3ca0: 37 34 31 32 65 62 63 30 35 5d 7d 20 5c 0a 09 2d  7412ebc05]} \..-
3cb0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3cc0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
3cd0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3ce0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3cf0: 65 73 75 6c 74 20 64 64 64 32 34 35 63 39 62 32  esult ddd245c9b2
3d00: 39 63 65 61 63 36 30 35 30 36 66 62 36 62 64 36  9ceac60506fb6bd6
3d10: 65 38 30 33 37 38 38 39 63 62 37 33 64 36 65 63  e8037889cb73d6ec
3d20: 63 36 36 39 66 64 31 32 39 30 36 30 61 38 61 38  c669fd129060a8a8
3d30: 66 35 38 39 37 31 61 63 35 37 32 64 33 65 63 39  f58971ac572d3ec9
3d40: 62 34 34 34 30 34 66 38 31 33 38 31 64 30 66 64  b44404f81381d0fd
3d50: 33 35 61 36 34 39 0a 0a 74 63 6c 74 65 73 74 3a  35a649..tcltest:
3d60: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
3d70: 34 2d 32 2e 34 38 20 7b 53 48 41 33 38 34 53 68  4-2.48 {SHA384Sh
3d80: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3d90: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
3da0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3db0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3dc0: 65 20 68 65 78 20 63 31 30 62 32 38 35 32 30 35  e hex c10b285205
3dd0: 34 64 38 30 33 34 65 30 37 39 30 36 63 37 66 63  4d8034e07906c7fc
3de0: 65 33 63 65 39 39 34 30 32 33 32 31 61 36 34 38  e3ce99402321a648
3df0: 62 62 38 38 31 66 31 33 66 62 32 37 36 61 66 63  bb881f13fb276afc
3e00: 32 32 34 63 36 61 65 63 63 36 34 38 30 30 63 64  224c6aecc64800cd
3e10: 37 36 37 65 64 32 34 32 39 64 62 39 34 62 39 35  767ed2429db94b95
3e20: 61 39 63 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  a9c3]} \..-body 
3e30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3e40: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
3e50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3e60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3e70: 20 61 34 34 36 34 30 66 62 34 63 65 36 64 66 64   a44640fb4ce6dfd
3e80: 34 61 31 30 32 39 30 61 30 61 65 63 64 62 34 35  4a10290a0aecdb45
3e90: 33 30 35 34 61 39 62 35 34 66 32 35 38 33 65 39  3054a9b54f2583e9
3ea0: 37 62 62 37 64 63 32 62 30 30 35 65 35 66 61 32  7bb7dc2b005e5fa2
3eb0: 62 34 66 64 61 31 37 62 31 66 37 35 39 30 32 66  b4fda17b1f75902f
3ec0: 35 31 63 31 38 63 30 63 61 61 64 33 35 38 33 33  51c18c0caad35833
3ed0: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
3ee0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34   Hash_SHA384-2.4
3ef0: 39 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  9 {SHA384ShortMs
3f00: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3f10: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
3f20: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3f30: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3f40: 20 62 31 65 65 65 66 33 32 34 62 34 39 39 66 31   b1eeef324b499f1
3f50: 39 65 62 61 33 32 32 32 31 35 66 65 33 63 65 31  9eba322215fe3ce1
3f60: 39 63 39 66 30 30 30 62 36 39 38 64 32 62 32 64  9c9f000b698d2b2d
3f70: 61 62 37 31 34 35 30 31 35 30 34 36 63 63 38 36  ab7145015046cc86
3f80: 64 30 34 39 65 65 31 35 61 64 35 39 64 63 64 31  d049ee15ad59dcd1
3f90: 35 36 34 66 33 30 31 31 32 65 30 36 34 34 34 63  564f30112e06444c
3fa0: 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  b]} \..-body {tl
3fb0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3fc0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
3fd0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3fe0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 38  exact -result 38
3ff0: 37 34 32 64 31 38 62 66 61 36 65 39 31 38 62 38  742d18bfa6e918b8
4000: 38 38 64 36 38 64 31 30 33 34 65 36 31 66 36 35  88d68d1034e61f65
4010: 64 65 63 30 37 35 39 31 37 32 63 32 64 62 66 30  dec0759172c2dbf0
4020: 38 63 66 31 65 31 33 32 62 32 31 37 65 61 66 34  8cf1e132b217eaf4
4030: 65 63 32 39 65 31 35 64 62 37 66 34 62 30 37 65  ec29e15db7f4b07e
4040: 30 38 61 37 30 63 63 35 36 36 32 30 31 32 0a 0a  08a70cc5662012..
4050: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4060: 73 68 5f 53 48 41 33 38 34 2d 32 2e 35 30 20 7b  sh_SHA384-2.50 {
4070: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
4080: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4090: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
40a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
40b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 39  ry decode hex 79
40c0: 30 64 62 62 61 30 39 39 36 35 63 39 37 37 34 64  0dbba09965c9774d
40d0: 64 36 30 61 33 32 65 30 31 30 63 35 30 64 36 64  d60a32e010c50d6d
40e0: 35 31 38 39 36 38 61 32 32 30 31 34 31 64 63 33  518968a220141dc3
40f0: 33 65 37 34 31 30 66 32 64 61 36 63 30 38 61 64  3e7410f2da6c08ad
4100: 30 34 31 39 62 64 39 38 36 34 64 35 33 32 37 64  0419bd9864d5327d
4110: 32 63 35 63 34 34 39 31 34 62 32 65 38 33 66 39  2c5c44914b2e83f9
4120: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4130: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4140: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
4150: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4160: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 31 37  xact -result 917
4170: 34 39 35 38 62 63 38 66 34 65 64 34 37 33 31 65  4958bc8f4ed4731e
4180: 63 65 64 39 39 39 62 65 61 32 66 36 33 30 33 32  ced999bea2f63032
4190: 66 35 32 62 63 38 63 34 36 62 63 64 39 30 33 32  f52bc8c46bcd9032
41a0: 33 32 66 33 66 62 63 35 30 34 36 66 30 64 36 63  32f3fbc5046f0d6c
41b0: 32 30 33 64 34 33 61 30 37 38 62 38 32 32 66 63  203d43a078b822fc
41c0: 30 35 31 30 31 34 30 34 66 32 36 33 35 0a 0a 74  05101404f2635..t
41d0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
41e0: 68 5f 53 48 41 33 38 34 2d 32 2e 35 31 20 7b 53  h_SHA384-2.51 {S
41f0: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
4200: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4210: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
4220: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4230: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 37 62  y decode hex f7b
4240: 35 37 37 66 31 33 39 36 62 32 33 63 32 37 65 62  577f1396b23c27eb
4250: 36 33 37 65 35 33 64 33 64 39 32 34 36 30 32 37  637e53d3d9246027
4260: 30 62 30 30 31 63 63 36 31 32 66 64 33 62 34 64  0b001cc612fd3b4d
4270: 36 38 62 63 64 64 30 39 63 32 64 35 30 35 37 31  68bcdd09c2d50571
4280: 65 61 34 33 35 30 36 33 36 33 32 34 63 63 32 34  ea4350636324cc24
4290: 32 38 61 30 38 37 65 37 62 64 38 37 38 35 66 38  28a087e7bd8785f8
42a0: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
42b0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
42c0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
42d0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
42e0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 30  exact -result 80
42f0: 61 66 65 31 31 31 65 34 34 61 64 39 61 66 66 39  afe111e44ad9aff9
4300: 65 33 39 63 34 63 66 39 65 36 62 34 63 35 32 30  e39c4cf9e6b4c520
4310: 30 37 32 62 34 35 35 30 65 36 32 62 31 37 34 30  072b4550e62b1740
4320: 31 36 30 61 30 34 66 38 64 35 33 30 36 31 32 64  160a04f8d530612d
4330: 63 30 39 38 39 31 37 61 35 35 36 62 34 34 39 37  c098917a556b4497
4340: 37 64 30 65 37 33 64 66 35 31 38 62 65 65 0a 0a  7d0e73df518bee..
4350: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4360: 73 68 5f 53 48 41 33 38 34 2d 32 2e 35 32 20 7b  sh_SHA384-2.52 {
4370: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
4380: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4390: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
43a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
43b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 33  ry decode hex 73
43c0: 37 30 64 39 62 34 35 33 39 33 36 39 35 35 62 39  70d9b453936955b9
43d0: 63 39 64 33 33 36 66 34 62 32 38 33 32 33 37 39  c9d336f4b2832379
43e0: 38 36 32 33 32 64 65 30 30 37 62 66 34 31 32 66  86232de007bf412f
43f0: 62 34 32 36 66 66 35 62 34 30 39 33 63 38 30 63  b426ff5b4093c80c
4400: 34 32 38 63 31 39 61 31 32 65 30 62 31 38 37 34  428c19a12e0b1874
4410: 38 34 64 63 36 64 35 66 34 37 34 36 35 33 37 66  84dc6d5f4746537f
4420: 62 31 65 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  b1ed]} \..-body 
4430: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4440: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
4450: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4460: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4470: 20 36 63 64 32 39 31 35 39 38 32 30 64 33 34 65   6cd29159820d34e
4480: 35 37 30 36 64 64 38 36 37 65 36 33 36 33 37 35  5706dd867e636375
4490: 38 64 33 31 32 36 36 30 64 34 64 61 63 61 38 64  8d312660d4daca8d
44a0: 32 61 62 66 36 37 37 66 32 33 34 37 34 36 65 39  2abf677f234746e9
44b0: 37 61 30 61 36 32 32 34 65 62 30 35 34 30 36 36  7a0a6224eb054066
44c0: 61 30 62 37 34 65 31 38 63 37 30 39 36 35 33 36  a0b74e18c7096536
44d0: 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  8..tcltest::test
44e0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 35   Hash_SHA384-2.5
44f0: 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  3 {SHA384ShortMs
4500: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4510: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
4520: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4530: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4540: 20 65 38 36 32 30 31 37 30 66 30 66 33 39 33 32   e8620170f0f3932
4550: 38 62 64 66 38 38 38 38 31 34 38 63 66 64 31 37  8bdf8888148cfd17
4560: 37 33 30 66 33 31 34 65 61 36 38 64 38 66 65 61  730f314ea68d8fea
4570: 30 32 64 31 36 64 39 38 61 33 63 63 61 36 31 34  02d16d98a3cca614
4580: 38 34 31 33 39 64 33 65 65 39 32 62 37 34 38 30  84139d3ee92b7480
4590: 39 31 64 63 38 34 31 64 64 61 30 38 34 38 33 66  91dc841dda08483f
45a0: 31 31 38 34 30 32 35 63 65 5d 7d 20 5c 0a 09 2d  1184025ce]} \..-
45b0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
45c0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
45d0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
45e0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
45f0: 65 73 75 6c 74 20 32 39 63 34 30 38 61 36 61 35  esult 29c408a6a5
4600: 30 34 35 66 33 39 37 62 35 36 64 66 62 35 32 39  045f397b56dfb529
4610: 32 63 37 63 31 36 30 32 38 63 36 33 66 30 36 38  2c7c16028c63f068
4620: 65 36 39 39 62 38 36 61 38 39 31 66 66 38 35 30  e699b86a891ff850
4630: 31 32 30 38 65 63 39 33 39 38 64 62 61 66 34 36  1208ec9398dbaf46
4640: 33 63 30 30 66 33 39 61 66 37 62 32 63 62 65 34  3c00f39af7b2cbe4
4650: 35 62 61 63 31 35 0a 0a 74 63 6c 74 65 73 74 3a  5bac15..tcltest:
4660: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
4670: 34 2d 32 2e 35 34 20 7b 53 48 41 33 38 34 53 68  4-2.54 {SHA384Sh
4680: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4690: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
46a0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
46b0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
46c0: 65 20 68 65 78 20 37 35 64 34 32 31 36 62 61 64  e hex 75d4216bad
46d0: 37 37 39 34 33 62 66 65 38 32 62 65 32 31 36 31  77943bfe82be2161
46e0: 35 37 38 34 33 62 30 64 61 30 66 64 31 36 65 65  57843b0da0fd16ee
46f0: 65 65 38 34 37 31 35 33 61 30 30 62 34 33 65 37  ee847153a00b43e7
4700: 30 37 62 32 66 66 65 32 63 38 39 38 31 36 38 30  07b2ffe2c8981680
4710: 38 31 66 30 62 64 62 33 61 66 35 38 66 32 31 34  81f0bdb3af58f214
4720: 63 66 36 37 62 39 32 30 63 33 38 35 61 63 61 31  cf67b920c385aca1
4730: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4740: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4750: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
4760: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4770: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 31 37  xact -result 017
4780: 30 33 35 37 33 38 35 61 32 30 38 36 35 61 38 64  0357385a20865a8d
4790: 33 30 63 32 64 66 33 39 34 30 36 39 30 33 66 66  30c2df39406903ff
47a0: 38 38 63 37 66 37 30 66 61 31 61 37 61 35 61 61  88c7f70fa1a7a5aa
47b0: 61 38 36 37 31 31 64 36 34 30 34 36 63 34 33 32  a86711d64046c432
47c0: 61 31 62 31 33 39 36 36 38 61 65 35 61 62 65 64  a1b139668ae5abed
47d0: 36 33 37 64 31 64 63 34 31 30 37 62 37 0a 0a 74  637d1dc4107b7..t
47e0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
47f0: 68 5f 53 48 41 33 38 34 2d 32 2e 35 35 20 7b 53  h_SHA384-2.55 {S
4800: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
4810: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4820: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
4830: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4840: 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 66 61  y decode hex 2fa
4850: 39 30 63 32 32 31 30 65 33 30 39 36 63 61 65 64  90c2210e3096caed
4860: 31 32 32 62 37 34 65 62 39 35 35 39 39 37 37 31  122b74eb95599771
4870: 32 30 65 35 64 39 61 39 37 65 65 62 33 66 39 39  20e5d9a97eeb3f99
4880: 62 63 62 61 36 63 31 39 63 66 38 63 66 37 39 31  bcba6c19cf8cf791
4890: 61 63 36 63 38 61 30 61 39 34 61 65 34 39 32 34  ac6c8a0a94ae4924
48a0: 36 36 31 31 64 61 63 65 37 66 32 34 65 62 30 35  6611dace7f24eb05
48b0: 36 37 33 61 33 36 62 33 65 5d 7d 20 5c 0a 09 2d  673a36b3e]} \..-
48c0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
48d0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
48e0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
48f0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
4900: 65 73 75 6c 74 20 36 63 32 63 65 64 33 66 61 65  esult 6c2ced3fae
4910: 39 34 64 62 64 39 32 66 34 31 37 30 62 36 33 66  94dbd92f4170b63f
4920: 31 66 66 36 66 63 64 38 31 39 34 66 36 30 39 33  1ff6fcd8194f6093
4930: 37 62 32 32 62 34 66 33 63 39 35 66 63 39 65 31  7b22b4f3c95fc9e1
4940: 30 34 62 37 37 31 34 38 66 39 62 63 36 63 31 36  04b77148f9bc6c16
4950: 61 38 39 30 64 65 38 36 64 39 65 66 31 35 35 34  a890de86d9ef1554
4960: 63 39 36 66 61 30 0a 0a 74 63 6c 74 65 73 74 3a  c96fa0..tcltest:
4970: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
4980: 34 2d 32 2e 35 36 20 7b 53 48 41 33 38 34 53 68  4-2.56 {SHA384Sh
4990: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
49a0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
49b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
49c0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
49d0: 65 20 68 65 78 20 61 38 64 65 35 35 31 37 30 63  e hex a8de55170c
49e0: 36 64 63 30 64 38 30 64 65 33 32 66 35 30 38 62  6dc0d80de32f508b
49f0: 66 34 39 62 37 30 34 36 61 65 65 61 34 62 39 37  f49b7046aeea4b97
4a00: 35 61 35 31 31 62 35 65 61 33 64 63 38 35 33 62  5a511b5ea3dc853b
4a10: 66 61 34 62 31 65 30 31 33 38 32 30 32 64 36 37  fa4b1e0138202d67
4a20: 38 35 66 36 62 33 30 31 37 39 31 34 61 38 36 66  85f6b3017914a86f
4a30: 38 32 34 32 38 38 64 35 38 36 64 63 30 65 38 62  824288d586dc0e8b
4a40: 63 39 32 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c924]} \..-body 
4a50: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4a60: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
4a70: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4a80: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4a90: 20 32 62 63 33 62 31 30 63 31 34 38 32 30 30 66   2bc3b10c148200f
4aa0: 37 39 31 39 62 35 37 61 66 65 31 64 37 64 62 37  7919b57afe1d7db7
4ab0: 37 33 66 66 64 32 33 35 65 30 34 66 65 63 36 38  73ffd235e04fec68
4ac0: 39 37 64 64 39 34 66 31 33 61 64 39 63 34 33 37  97dd94f13ad9c437
4ad0: 65 66 35 30 39 30 30 61 34 30 39 33 37 66 38 32  ef50900a40937f82
4ae0: 61 33 39 64 61 66 32 61 61 32 62 33 64 66 64 36  a39daf2aa2b3dfd6
4af0: 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  8..tcltest::test
4b00: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 35   Hash_SHA384-2.5
4b10: 37 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  7 {SHA384ShortMs
4b20: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4b30: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
4b40: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4b50: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4b60: 20 61 63 63 64 39 64 30 35 66 62 37 65 66 33 30   accd9d05fb7ef30
4b70: 34 33 34 37 30 38 33 36 31 33 37 35 35 34 61 66  43470836137554af
4b80: 31 31 37 34 34 30 62 33 63 63 63 61 37 61 32 38  117440b3ccca7a28
4b90: 30 32 38 35 34 39 34 66 39 30 64 66 61 65 61 36  0285494f90dfaea6
4ba0: 30 64 63 62 66 34 30 62 32 33 30 32 37 31 39 33  0dcbf40b23027193
4bb0: 32 63 64 33 38 37 35 62 31 64 33 64 63 61 36 30  2cd3875b1d3dca60
4bc0: 64 33 38 38 36 35 66 66 38 37 34 31 38 30 65 66  d38865ff874180ef
4bd0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
4be0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4bf0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
4c00: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4c10: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 39  exact -result b9
4c20: 65 30 32 64 66 39 33 65 39 32 35 34 31 38 30 64  e02df93e9254180d
4c30: 36 61 31 35 32 38 38 64 37 37 30 38 38 62 35 61  6a15288d77088b5a
4c40: 35 63 65 35 31 37 36 34 34 31 30 39 62 34 65 32  5ce517644109b4e2
4c50: 35 33 32 62 65 33 31 35 66 30 38 64 65 65 34 33  532be315f08dee43
4c60: 34 39 31 36 30 38 61 31 31 32 37 64 63 64 66 36  491608a1127dcdf6
4c70: 39 33 39 37 34 30 36 65 32 33 64 32 33 31 0a 0a  9397406e23d231..
4c80: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4c90: 73 68 5f 53 48 41 33 38 34 2d 32 2e 35 38 20 7b  sh_SHA384-2.58 {
4ca0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
4cb0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4cc0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
4cd0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
4ce0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 32  ry decode hex 32
4cf0: 62 38 33 35 63 31 38 30 63 63 34 30 30 36 63 31  b835c180cc4006c1
4d00: 31 61 36 31 63 36 35 62 30 33 63 30 39 39 35 31  1a61c65b03c09951
4d10: 30 65 31 64 34 66 30 61 39 34 62 36 33 64 35 34  0e1d4f0a94b63d54
4d20: 62 64 36 62 64 35 61 38 61 62 32 30 37 61 62 30  bd6bd5a8ab207ab0
4d30: 66 34 36 33 39 32 30 36 35 36 34 65 64 63 33 66  f4639206564edc3f
4d40: 61 36 61 66 30 33 32 38 30 61 36 37 37 34 34 66  a6af03280a67744f
4d50: 36 38 31 30 36 64 63 35 31 65 65 33 35 37 32 33  68106dc51ee35723
4d60: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4d70: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4d80: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
4d90: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4da0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 66 39  xact -result df9
4db0: 37 61 31 63 35 64 64 61 36 66 39 64 64 65 37 34  7a1c5dda6f9dde74
4dc0: 39 66 32 31 33 65 34 32 39 64 62 38 34 66 30 64  9f213e429db84f0d
4dd0: 63 64 34 38 31 64 34 33 62 66 35 38 65 36 31 34  cd481d43bf58e614
4de0: 32 39 36 38 64 36 32 39 65 63 66 30 35 62 32 36  2968d629ecf05b26
4df0: 32 38 33 30 61 37 64 61 63 38 37 66 36 37 66 34  2830a7dac87f67f4
4e00: 33 38 33 39 37 35 66 33 65 38 32 31 64 0a 0a 74  383975f3e821d..t
4e10: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4e20: 68 5f 53 48 41 33 38 34 2d 32 2e 35 39 20 7b 53  h_SHA384-2.59 {S
4e30: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
4e40: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4e50: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
4e60: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4e70: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 34 30  y decode hex 940
4e80: 39 66 39 65 66 61 64 62 66 31 39 30 62 32 35 33  9f9efadbf190b253
4e90: 33 36 37 36 32 39 66 38 66 33 36 38 63 39 64 35  367629f8f368c9d5
4ea0: 61 63 32 36 32 65 39 34 61 62 38 36 66 33 35 35  ac262e94ab86f355
4eb0: 39 66 39 61 31 66 65 31 61 39 62 34 34 62 36 34  9f9a1fe1a9b44b64
4ec0: 65 33 31 33 31 32 31 62 33 34 64 34 33 30 30 31  e313121b34d43001
4ed0: 63 34 33 30 62 65 64 63 36 32 66 63 35 38 36 65  c430bedc62fc586e
4ee0: 61 33 39 38 61 63 64 38 66 31 37 63 37 63 66 61  a398acd8f17c7cfa
4ef0: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
4f00: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4f10: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
4f20: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4f30: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 31  exact -result e1
4f40: 61 36 39 33 38 38 65 65 36 62 36 64 32 33 34 31  a69388ee6b6d2341
4f50: 30 38 65 63 32 39 34 30 32 63 64 30 61 66 64 37  08ec29402cd0afd7
4f60: 34 39 35 37 64 39 39 30 63 37 62 64 62 35 34 34  4957d990c7bdb544
4f70: 63 66 31 31 65 38 65 62 32 63 63 64 31 37 30 62  cf11e8eb2ccd170b
4f80: 36 62 35 61 37 34 34 33 31 62 65 37 30 33 36 34  6b5a74431be70364
4f90: 64 37 61 33 31 62 39 32 36 66 66 35 33 63 0a 0a  d7a31b926ff53c..
4fa0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4fb0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 36 30 20 7b  sh_SHA384-2.60 {
4fc0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
4fd0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4fe0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
4ff0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
5000: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 38  ry decode hex 28
5010: 39 35 38 36 62 61 66 38 64 61 63 65 64 35 30 64  9586baf8daced50d
5020: 62 31 34 63 39 33 36 35 32 39 61 30 61 36 34 33  b14c936529a0a643
5030: 38 65 62 35 64 61 38 64 33 64 34 36 39 31 37 32  8eb5da8d3d469172
5040: 62 36 61 30 36 66 34 66 66 33 61 39 35 36 64 34  b6a06f4ff3a956d4
5050: 66 39 32 31 39 35 36 33 61 63 32 38 35 63 62 38  f9219563ac285cb8
5060: 65 37 30 30 37 34 63 66 63 63 31 35 32 63 30 32  e70074cfcc152c02
5070: 35 39 33 61 39 37 37 33 33 63 33 36 66 34 61 39  593a97733c36f4a9
5080: 65 39 37 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e97f]} \..-body 
5090: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
50a0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
50b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
50c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
50d0: 20 35 30 39 65 39 39 36 63 31 65 31 31 36 31 31   509e996c1e11611
50e0: 63 32 34 33 30 32 31 62 38 62 37 38 66 32 61 64  c243021b8b78f2ad
50f0: 39 30 63 35 61 39 32 36 33 62 62 66 33 35 39 31  90c5a9263bbf3591
5100: 30 64 62 37 63 38 65 63 31 30 32 61 61 37 63 35  0db7c8ec102aa7c5
5110: 31 38 30 36 36 66 66 66 38 63 65 38 38 35 36 32  18066fff8ce88562
5120: 66 65 63 32 63 64 36 64 66 65 30 34 30 35 36 61  fec2cd6dfe04056a
5130: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
5140: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 36   Hash_SHA384-2.6
5150: 31 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  1 {SHA384ShortMs
5160: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
5170: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
5180: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5190: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
51a0: 20 31 35 36 35 33 30 63 64 36 65 64 33 62 61 66   156530cd6ed3baf
51b0: 31 66 64 37 32 33 32 63 37 66 66 32 30 34 66 33  1fd7232c7ff204f3
51c0: 63 37 64 34 64 31 30 36 30 31 36 61 66 61 33 62  c7d4d106016afa3b
51d0: 64 66 66 33 37 38 36 65 38 34 38 34 33 65 63 35  dff3786e84843ec5
51e0: 35 36 31 31 35 36 32 36 66 64 63 38 34 62 32 65  56115626fdc84b2e
51f0: 38 37 34 66 31 30 37 34 65 34 66 37 64 35 33 65  874f1074e4f7d53e
5200: 30 38 30 37 39 65 65 39 66 64 30 31 66 38 30 61  08079ee9fd01f80a
5210: 38 62 65 37 66 32 30 63 30 5d 7d 20 5c 0a 09 2d  8be7f20c0]} \..-
5220: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
5230: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
5240: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
5250: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
5260: 65 73 75 6c 74 20 37 62 38 61 35 39 38 30 32 39  esult 7b8a598029
5270: 63 61 30 65 64 34 37 35 61 37 32 63 30 36 34 34  ca0ed475a72c0644
5280: 61 63 38 31 63 36 33 64 37 32 66 64 35 31 33 30  ac81c63d72fd5130
5290: 35 64 61 64 61 30 37 62 30 61 62 34 61 32 39 65  5dada07b0ab4a29e
52a0: 34 37 34 32 32 66 35 39 65 31 32 36 34 33 31 37  47422f59e1264317
52b0: 39 32 36 39 63 61 33 64 37 64 31 30 34 34 36 62  9269ca3d7d10446b
52c0: 33 37 32 62 32 63 0a 0a 74 63 6c 74 65 73 74 3a  372b2c..tcltest:
52d0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
52e0: 34 2d 32 2e 36 32 20 7b 53 48 41 33 38 34 53 68  4-2.62 {SHA384Sh
52f0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5300: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
5310: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
5320: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
5330: 65 20 68 65 78 20 33 30 36 35 35 61 36 62 35 61  e hex 30655a6b5a
5340: 35 39 36 35 64 62 39 39 32 65 37 32 34 38 64 32  5965db992e7248d2
5350: 34 31 34 31 30 35 35 65 39 38 38 64 37 32 36 61  4141055e988d726a
5360: 62 62 38 65 37 32 39 64 63 35 63 32 31 66 66 63  bb8e729dc5c21ffc
5370: 62 61 65 64 62 63 30 62 31 62 35 66 65 61 33 35  baedbc0b1b5fea35
5380: 62 38 37 35 31 66 36 65 63 36 36 32 35 35 31 37  b8751f6ec6625517
5390: 33 31 32 66 66 66 32 32 33 34 30 31 34 31 37 36  312fff2234014176
53a0: 32 36 39 62 36 30 39 35 39 37 32 33 37 38 37 63  269b60959723787c
53b0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
53c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
53d0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
53e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
53f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 66 61  xact -result cfa
5400: 66 34 34 33 65 39 35 64 65 65 62 33 63 63 31 39  f443e95deeb3cc19
5410: 31 30 37 37 31 61 32 63 30 36 39 32 61 35 34 62  10771a2c0692a54b
5420: 31 38 62 33 36 33 33 64 63 35 34 31 34 65 37 31  18b3633dc5414e71
5430: 61 65 30 38 38 37 37 66 30 38 30 34 38 31 38 66  ae08877f0804818f
5440: 36 37 66 37 31 39 36 63 35 32 65 32 36 62 37 36  67f7196c52e26b76
5450: 32 64 64 31 32 62 62 37 61 38 36 63 61 0a 0a 74  2dd12bb7a86ca..t
5460: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
5470: 68 5f 53 48 41 33 38 34 2d 32 2e 36 33 20 7b 53  h_SHA384-2.63 {S
5480: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
5490: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
54a0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
54b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
54c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 34 35  y decode hex 345
54d0: 63 33 63 30 32 32 65 32 30 31 34 34 65 31 33 35  c3c022e20144e135
54e0: 36 30 34 30 37 38 37 36 32 65 66 35 63 38 61 38  604078762ef5c8a8
54f0: 66 30 33 38 63 66 31 62 31 64 36 61 39 31 37 30  f038cf1b1d6a9170
5500: 39 62 35 39 64 64 30 36 38 33 39 36 61 39 65 39  9b59dd068396a9e9
5510: 37 31 61 62 36 32 38 66 37 34 38 38 36 65 37 36  71ab628f74886e76
5520: 35 33 38 34 61 32 33 36 30 37 63 31 61 31 65 36  5384a23607c1a1e6
5530: 65 39 37 33 66 38 66 62 62 30 66 66 35 35 31 30  e973f8fbb0ff5510
5540: 34 63 34 36 66 35 64 62 33 5d 7d 20 5c 0a 09 2d  4c46f5db3]} \..-
5550: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
5560: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
5570: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
5580: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
5590: 65 73 75 6c 74 20 62 66 62 31 64 35 65 65 33 61  esult bfb1d5ee3a
55a0: 30 62 36 32 39 30 35 38 65 63 63 35 32 31 63 37  0b629058ecc521c7
55b0: 30 36 63 32 66 39 32 34 31 63 34 38 63 64 61 33  06c2f9241c48cda3
55c0: 64 63 66 64 62 61 36 36 30 61 32 36 30 31 64 38  dcfdba660a2601d8
55d0: 33 32 61 37 61 38 37 32 61 32 62 62 38 34 30 66  32a7a872a2bb840f
55e0: 33 62 39 38 64 32 31 63 33 37 65 32 38 66 39 30  3b98d21c37e28f90
55f0: 34 31 61 35 62 32 0a 0a 74 63 6c 74 65 73 74 3a  41a5b2..tcltest:
5600: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
5610: 34 2d 32 2e 36 34 20 7b 53 48 41 33 38 34 53 68  4-2.64 {SHA384Sh
5620: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5630: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
5640: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
5650: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
5660: 65 20 68 65 78 20 30 62 39 34 61 30 66 34 33 61  e hex 0b94a0f43a
5670: 39 32 34 30 38 39 36 33 61 35 39 64 65 64 30 31  92408963a59ded01
5680: 61 39 33 33 38 32 38 33 61 36 66 66 31 62 66 62  a9338283a6ff1bfb
5690: 61 63 64 39 30 35 31 61 30 31 30 34 34 34 35 63  acd9051a0104445c
56a0: 37 66 30 34 31 65 38 30 33 37 61 66 64 65 33 62  7f041e8037afde3b
56b0: 35 61 38 37 64 32 32 64 35 61 34 37 39 36 31 34  5a87d22d5a479614
56c0: 34 63 62 63 39 34 34 30 39 31 64 36 63 63 34 37  4cbc944091d6cc47
56d0: 62 35 66 66 64 31 66 39 39 37 61 62 31 34 39 36  b5ffd1f997ab1496
56e0: 63 61 33 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ca31]} \..-body 
56f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5700: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
5710: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5720: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5730: 20 30 37 61 30 34 35 63 39 35 39 30 65 39 39 30   07a045c9590e990
5740: 31 64 30 35 39 38 65 36 30 34 63 34 36 34 39 35  1d0598e604c46495
5750: 35 34 61 38 32 33 64 65 39 39 36 66 61 34 33 38  54a823de996fa438
5760: 63 63 38 31 61 36 33 34 33 34 34 65 65 62 39 38  cc81a634344eeb98
5770: 65 35 66 33 63 30 63 32 33 34 62 61 33 30 65 32  e5f3c0c234ba30e2
5780: 32 38 35 61 34 64 37 61 62 35 36 38 66 32 36 31  285a4d7ab568f261
5790: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  0..tcltest::test
57a0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 36   Hash_SHA384-2.6
57b0: 35 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  5 {SHA384ShortMs
57c0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
57d0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
57e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
57f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5800: 20 39 33 30 33 35 64 33 61 31 33 61 65 31 62 30   93035d3a13ae1b0
5810: 36 64 64 30 33 33 65 37 36 34 61 63 61 30 31 32  6dd033e764aca012
5820: 34 39 36 31 64 61 37 39 63 33 36 36 63 36 63 37  4961da79c366c6c7
5830: 35 36 62 63 34 62 63 63 31 31 38 35 30 61 33 61  56bc4bcc11850a3a
5840: 38 64 31 32 30 38 35 34 66 33 34 32 39 30 66 66  8d120854f34290ff
5850: 66 37 63 38 64 36 64 38 33 35 33 31 64 62 64 64  f7c8d6d83531dbdd
5860: 31 65 38 31 63 63 34 65 64 34 32 34 36 65 30 30  1e81cc4ed4246e00
5870: 62 64 34 31 31 33 65 66 34 35 31 33 33 34 64 61  bd4113ef451334da
5880: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
5890: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
58a0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
58b0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
58c0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 64  exact -result 8d
58d0: 34 36 63 63 38 34 62 36 63 32 64 65 62 32 30 36  46cc84b6c2deb206
58e0: 61 61 35 63 38 36 31 37 39 38 37 39 38 37 35 31  aa5c861798798751
58f0: 61 32 36 65 65 37 34 62 31 64 61 66 33 61 35 35  a26ee74b1daf3a55
5900: 37 63 34 31 61 65 62 64 36 35 61 64 63 30 32 37  7c41aebd65adc027
5910: 35 35 39 66 37 63 64 39 32 62 32 35 35 62 33 37  559f7cd92b255b37
5920: 34 63 38 33 62 64 35 35 35 36 38 62 34 35 0a 0a  4c83bd55568b45..
5930: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
5940: 73 68 5f 53 48 41 33 38 34 2d 32 2e 36 36 20 7b  sh_SHA384-2.66 {
5950: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
5960: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
5970: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
5980: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
5990: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 66  ry decode hex bf
59a0: 62 39 34 64 66 62 65 30 64 39 61 35 30 39 62 37  b94dfbe0d9a509b7
59b0: 38 64 31 36 34 61 37 32 32 30 35 30 30 35 34 64  8d164a722050054d
59c0: 61 64 39 31 63 39 61 38 65 32 36 30 35 34 35 64  ad91c9a8e260545d
59d0: 30 33 37 65 62 34 35 30 33 32 31 61 61 63 34 38  037eb450321aac48
59e0: 65 64 34 34 35 39 66 64 64 38 61 34 31 35 37 32  ed4459fdd8a41572
59f0: 62 64 36 63 39 63 38 34 64 31 38 62 36 65 63 33  bd6c9c84d18b6ec3
5a00: 33 39 32 34 37 34 38 32 63 63 33 65 65 35 32 61  39247482cc3ee52a
5a10: 31 62 62 64 36 62 64 34 61 65 39 31 38 32 31 36  1bbd6bd4ae918216
5a20: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5a30: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
5a40: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
5a50: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
5a60: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 33 61  xact -result 13a
5a70: 66 30 62 65 30 32 39 38 36 65 61 33 31 37 36 65  f0be02986ea3176e
5a80: 38 63 36 35 35 33 34 65 63 39 66 33 32 63 32 33  8c65534ec9f32c23
5a90: 62 35 33 63 39 33 61 37 33 62 31 35 63 32 36 62  b53c93a73b15c26b
5aa0: 39 65 63 62 64 38 61 31 31 38 31 61 65 31 38 34  9ecbd8a1181ae184
5ab0: 61 33 37 32 65 39 66 35 65 30 35 39 36 63 64 36  a372e9f5e0596cd6
5ac0: 36 30 36 38 34 39 61 65 61 65 38 65 30 0a 0a 74  606849aeae8e0..t
5ad0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
5ae0: 68 5f 53 48 41 33 38 34 2d 32 2e 36 37 20 7b 53  h_SHA384-2.67 {S
5af0: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
5b00: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
5b10: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
5b20: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5b30: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 63 38  y decode hex 1c8
5b40: 39 32 34 61 31 36 66 61 37 63 36 30 32 61 66 66  924a16fa7c602aff
5b50: 35 65 65 39 36 31 37 39 38 62 64 34 34 66 65 35  5ee961798bd44fe5
5b60: 33 37 39 38 62 66 34 34 63 33 64 36 62 30 64 31  3798bf44c3d6b0d1
5b70: 33 65 66 38 33 37 64 65 30 37 33 37 37 36 35 31  3ef837de07377651
5b80: 63 31 65 39 34 65 64 32 33 36 65 62 37 39 33 34  c1e94ed236eb7934
5b90: 39 66 38 36 61 63 33 31 62 61 31 35 31 61 37 65  9f86ac31ba151a7e
5ba0: 37 31 31 63 35 34 30 37 65 36 35 62 65 62 36 33  711c5407e65beb63
5bb0: 38 32 34 66 36 65 63 33 39 37 35 34 62 35 38 66  824f6ec39754b58f
5bc0: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
5bd0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
5be0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
5bf0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
5c00: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 62  exact -result 5b
5c10: 65 36 34 38 32 38 35 31 64 64 61 66 64 65 35 38  e6482851ddafde58
5c20: 32 66 32 38 30 34 30 37 31 61 37 30 32 61 65 33  2f2804071a702ae3
5c30: 39 62 61 63 62 36 38 38 37 34 31 62 37 63 33 37  9bacb688741b7c37
5c40: 62 62 61 65 39 39 38 32 31 63 65 34 64 33 66 34  bbae99821ce4d3f4
5c50: 37 64 35 62 30 39 37 66 64 38 65 65 66 61 30 65  7d5b097fd8eefa0e
5c60: 66 39 32 34 38 61 33 34 66 35 64 33 63 65 0a 0a  f9248a34f5d3ce..
5c70: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
5c80: 73 68 5f 53 48 41 33 38 34 2d 32 2e 36 38 20 7b  sh_SHA384-2.68 {
5c90: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
5ca0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
5cb0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
5cc0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
5cd0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 38  ry decode hex 18
5ce0: 34 32 31 35 31 34 35 64 61 34 39 64 62 34 31 37  4215145da49db417
5cf0: 65 38 62 64 64 35 37 33 64 36 32 38 32 64 65 30  e8bdd573d6282de0
5d00: 37 33 65 36 37 34 63 33 64 65 61 38 36 62 36 63  73e674c3dea86b6c
5d10: 37 38 35 39 31 64 34 39 34 37 66 35 36 35 35 61  78591d4947f5655a
5d20: 39 64 39 65 62 30 65 35 66 34 65 64 30 34 36 62  9d9eb0e5f4ed046b
5d30: 31 64 38 36 34 32 64 61 39 61 65 66 61 38 30 34  1d8642da9aefa804
5d40: 34 38 61 32 39 39 35 30 34 31 36 30 61 31 62 30  48a299504160a1b0
5d50: 30 30 63 39 62 34 64 33 63 36 32 61 62 36 39 62  00c9b4d3c62ab69b
5d60: 33 64 39 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  3d96]} \..-body 
5d70: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5d80: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
5d90: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5da0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5db0: 20 38 39 39 35 63 64 37 66 63 30 39 35 36 65 31   8995cd7fc0956e1
5dc0: 32 34 30 37 35 34 34 30 36 38 36 62 65 65 63 65  24075440686beece
5dd0: 31 37 61 36 32 35 36 62 32 38 32 65 37 39 38 38  17a6256b282e7988
5de0: 61 30 63 39 39 38 66 37 39 30 65 33 39 39 35 63  a0c998f790e3995c
5df0: 39 37 34 33 38 33 31 37 39 38 39 33 34 37 37 62  974383179893477b
5e00: 63 63 33 32 64 31 66 31 31 34 31 32 39 62 34 39  cc32d1f114129b49
5e10: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
5e20: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 36   Hash_SHA384-2.6
5e30: 39 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  9 {SHA384ShortMs
5e40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
5e50: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
5e60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5e70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5e80: 20 63 61 37 61 36 33 61 64 66 34 31 66 34 64 61   ca7a63adf41f4da
5e90: 33 33 31 34 32 39 31 30 63 39 36 37 37 30 36 62  33142910c967706b
5ea0: 35 63 38 61 30 39 33 33 35 30 65 62 33 65 36 64  5c8a093350eb3e6d
5eb0: 33 61 61 62 65 36 39 61 34 36 61 32 38 37 32 66  3aabe69a46a2872f
5ec0: 34 37 61 33 39 62 62 65 37 37 63 64 63 31 31 36  47a39bbe77cdc116
5ed0: 30 64 61 61 34 35 30 32 32 35 62 30 65 38 65 33  0daa450225b0e8e3
5ee0: 36 66 35 30 36 39 37 38 63 65 33 61 63 39 61 65  6f506978ce3ac9ae
5ef0: 35 66 37 35 37 32 31 65 66 33 30 64 61 34 36 62  5f75721ef30da46b
5f00: 32 38 66 30 37 32 34 32 63 5d 7d 20 5c 0a 09 2d  28f07242c]} \..-
5f10: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
5f20: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
5f30: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
5f40: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
5f50: 65 73 75 6c 74 20 62 38 39 63 63 31 32 62 31 31  esult b89cc12b11
5f60: 65 33 61 66 61 35 38 39 30 38 35 38 30 63 34 37  e3afa58908580c47
5f70: 62 32 35 34 30 37 61 62 62 66 35 38 34 66 38 65  b25407abbf584f8e
5f80: 38 64 34 62 35 36 33 31 65 39 66 34 35 30 34 36  8d4b5631e9f45046
5f90: 34 63 37 65 35 33 63 66 64 37 65 39 66 39 64 33  4c7e53cfd7e9f9d3
5fa0: 63 66 33 35 65 35 38 37 61 36 66 30 32 39 35 37  cf35e587a6f02957
5fb0: 63 65 34 63 32 38 0a 0a 74 63 6c 74 65 73 74 3a  ce4c28..tcltest:
5fc0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
5fd0: 34 2d 32 2e 37 30 20 7b 53 48 41 33 38 34 53 68  4-2.70 {SHA384Sh
5fe0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5ff0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
6000: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
6010: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
6020: 65 20 68 65 78 20 31 64 61 34 31 61 30 61 66 32  e hex 1da41a0af2
6030: 30 32 62 30 37 39 35 32 31 64 65 62 36 31 30 39  02b079521deb6109
6040: 65 33 31 32 63 32 61 64 65 34 38 35 34 34 64 32  e312c2ade48544d2
6050: 62 34 39 38 63 30 37 65 39 31 61 31 30 32 64 64  b498c07e91a102dd
6060: 34 36 35 30 63 65 33 35 34 66 33 66 32 30 31 62  4650ce354f3f201b
6070: 33 65 63 61 62 38 65 38 35 65 32 31 64 36 36 37  3ecab8e85e21d667
6080: 39 35 39 62 34 33 64 30 38 66 34 65 39 30 66 61  959b43d08f4e90fa
6090: 31 38 64 63 61 32 63 63 63 61 38 66 36 66 66 35  18dca2ccca8f6ff5
60a0: 65 39 61 39 30 32 64 63 38 62 66 35 63 35 64 61  e9a902dc8bf5c5da
60b0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
60c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
60d0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
60e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
60f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 63 32  xact -result 5c2
6100: 39 37 65 32 30 63 33 30 37 61 61 62 37 66 33 32  97e20c307aab7f32
6110: 35 39 33 39 66 64 34 65 32 38 38 33 62 30 33 34  5939fd4e2883b034
6120: 66 64 35 34 37 66 31 64 64 31 37 66 62 36 62 39  fd547f1dd17fb6b9
6130: 37 61 64 65 38 62 31 34 38 65 30 36 65 62 62 66  7ade8b148e06ebbf
6140: 33 66 66 36 30 63 62 66 34 36 39 65 34 39 33 33  3ff60cbf469e4933
6150: 64 35 66 34 38 66 30 31 36 36 63 62 37 0a 0a 74  d5f48f0166cb7..t
6160: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6170: 68 5f 53 48 41 33 38 34 2d 32 2e 37 31 20 7b 53  h_SHA384-2.71 {S
6180: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
6190: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
61a0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
61b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
61c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 65 63  y decode hex dec
61d0: 65 34 32 63 38 38 34 39 62 65 34 30 63 37 38 62  e42c8849be40c78b
61e0: 38 64 65 36 64 61 39 36 63 32 61 38 64 37 65 39  8de6da96c2a8d7e9
61f0: 34 30 35 34 35 62 39 66 33 66 33 39 61 61 31 63  40545b9f3f39aa1c
6200: 61 30 33 65 63 36 30 61 38 35 34 37 31 61 61 38  a03ec60a85471aa8
6210: 34 64 38 65 32 39 66 30 39 35 38 37 34 66 33 33  4d8e29f095874f33
6220: 31 62 39 30 61 34 63 31 35 37 64 61 39 65 62 30  1b90a4c157da9eb0
6230: 34 38 64 32 63 38 66 64 32 33 35 33 39 39 36 37  48d2c8fd23539967
6240: 32 37 30 37 33 36 36 63 37 36 36 66 31 30 62 62  2707366c766f10bb
6250: 38 33 33 66 30 32 31 38 33 5d 7d 20 5c 0a 09 2d  833f02183]} \..-
6260: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
6270: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
6280: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
6290: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
62a0: 65 73 75 6c 74 20 62 62 35 30 39 65 33 33 65 39  esult bb509e33e9
62b0: 66 66 63 63 34 63 30 31 32 33 33 31 34 36 32 32  ffcc4c0123314622
62c0: 36 65 65 39 33 36 34 63 64 61 63 35 36 35 38 31  6ee9364cdac56581
62d0: 33 32 34 36 30 61 37 36 65 64 66 36 31 37 61 30  32460a76edf617a0
62e0: 33 35 62 31 39 37 63 38 36 34 33 34 65 65 38 38  35b197c86434ee88
62f0: 39 34 33 38 35 38 31 34 35 38 31 30 32 36 31 38  9438581458102618
6300: 37 36 39 33 38 32 0a 0a 74 63 6c 74 65 73 74 3a  769382..tcltest:
6310: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
6320: 34 2d 32 2e 37 32 20 7b 53 48 41 33 38 34 53 68  4-2.72 {SHA384Sh
6330: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
6340: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
6350: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
6360: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
6370: 65 20 68 65 78 20 39 35 32 30 30 38 65 62 64 65  e hex 952008ebde
6380: 64 64 34 38 30 34 34 39 62 62 39 36 61 30 32 35  dd480449bb96a025
6390: 35 37 36 63 35 66 36 31 37 62 62 62 38 33 30 37  576c5f617bbb8307
63a0: 39 35 38 61 30 31 30 37 36 37 65 30 64 37 33 36  958a010767e0d736
63b0: 66 66 65 35 61 31 39 36 65 61 34 34 36 37 64 38  ffe5a196ea4467d8
63c0: 61 35 64 33 62 61 31 66 35 34 37 36 66 66 30 37  a5d3ba1f5476ff07
63d0: 62 36 34 31 30 61 65 36 35 39 64 63 65 66 35 32  b6410ae659dcef52
63e0: 30 61 32 63 31 34 65 33 39 30 32 66 38 62 33 39  0a2c14e3902f8b39
63f0: 39 61 32 38 39 66 34 31 66 35 66 64 61 64 62 35  9a289f41f5fdadb5
6400: 30 32 64 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  02dd]} \..-body 
6410: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6420: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
6430: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6440: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6450: 20 39 62 36 33 64 39 31 34 35 62 63 37 31 34 61   9b63d9145bc714a
6460: 38 32 35 33 64 63 64 62 38 33 34 31 62 32 66 35  8253dcdb8341b2f5
6470: 37 31 34 65 62 35 38 62 39 64 34 62 32 32 63 65  714eb58b9d4b22ce
6480: 34 35 61 61 65 30 37 66 35 31 32 39 37 61 33 64  45aae07f51297a3d
6490: 63 39 63 35 62 36 39 31 61 38 61 33 63 64 34 33  c9c5b691a8a3cd43
64a0: 38 64 63 35 62 64 31 38 62 65 34 30 30 61 66 32  8dc5bd18be400af2
64b0: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
64c0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 37   Hash_SHA384-2.7
64d0: 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  3 {SHA384ShortMs
64e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
64f0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
6500: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
6510: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6520: 20 31 30 30 31 33 32 63 33 31 35 62 66 63 39 63   100132c315bfc9c
6530: 34 66 62 39 33 30 32 33 66 35 64 33 35 30 30 64  4fb93023f5d3500d
6540: 37 32 30 38 61 36 38 61 63 62 34 64 32 63 36 33  7208a68acb4d2c63
6550: 30 39 36 32 33 32 63 33 36 31 61 31 36 31 63 34  096232c361a161c4
6560: 63 36 37 63 30 61 37 34 62 63 33 65 34 64 37 32  c67c0a74bc3e4d72
6570: 63 31 31 36 36 34 62 31 64 39 37 30 33 32 31 64  c11664b1d970321d
6580: 34 30 35 34 30 31 39 32 34 62 33 61 30 66 36 63  405401924b3a0f6c
6590: 65 32 62 31 61 32 38 39 39 65 37 63 61 61 39 61  e2b1a2899e7caa9a
65a0: 35 35 63 65 37 32 35 66 63 33 37 66 35 35 64 36  55ce725fc37f55d6
65b0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
65c0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
65d0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
65e0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
65f0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 36  exact -result b6
6600: 63 61 30 34 34 36 37 65 64 33 65 36 32 33 64 62  ca04467ed3e623db
6610: 61 33 36 66 32 65 30 32 34 38 63 65 66 62 65 31  a36f2e0248cefbe1
6620: 33 34 63 66 35 35 35 66 64 63 31 34 37 33 31 31  34cf555fdc147311
6630: 37 35 65 61 61 66 30 38 65 32 34 34 61 62 30 62  75eaaf08e244ab0b
6640: 31 35 66 63 61 32 66 31 37 33 61 30 65 63 39 38  15fca2f173a0ec98
6650: 66 65 61 66 33 35 39 66 62 38 34 61 31 31 0a 0a  feaf359fb84a11..
6660: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
6670: 73 68 5f 53 48 41 33 38 34 2d 32 2e 37 34 20 7b  sh_SHA384-2.74 {
6680: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
6690: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
66a0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
66b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
66c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 39  ry decode hex 99
66d0: 63 62 61 34 30 31 39 66 35 34 37 38 37 38 39 65  cba4019f5478789e
66e0: 36 37 34 65 30 38 66 65 35 64 36 63 65 61 64 64  674e08fe5d6ceadd
66f0: 36 39 38 62 30 37 35 37 63 61 33 39 63 36 30 35  698b0757ca39c605
6700: 34 35 37 63 32 32 63 33 64 33 62 38 66 66 62 37  457c22c3d3b8ffb7
6710: 39 37 64 32 62 65 38 66 31 32 39 36 30 66 30 39  97d2be8f12960f09
6720: 39 61 35 36 30 36 62 39 30 38 64 34 37 32 30 37  9a5606b908d47207
6730: 62 32 36 33 36 61 37 37 39 39 34 38 32 38 32 64  b2636a779948282d
6740: 65 33 36 36 31 62 62 30 38 62 31 62 33 37 65 65  e3661bb08b1b37ee
6750: 35 37 36 35 39 30 38 30 30 61 34 39 32 37 33 30  576590800a492730
6760: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6770: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6780: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
6790: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
67a0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 35 33  xact -result e53
67b0: 37 38 63 37 63 32 35 31 61 65 39 36 66 30 33 35  78c7c251ae96f035
67c0: 39 61 33 30 62 33 31 33 34 66 64 37 37 64 36 31  9a30b3134fd77d61
67d0: 64 30 64 62 36 38 63 34 32 61 31 61 32 61 61 63  d0db68c42a1a2aac
67e0: 32 39 33 31 39 35 61 35 39 36 64 66 34 32 66 36  293195a596df42f6
67f0: 37 37 65 36 63 62 39 38 61 62 65 63 39 30 64 36  77e6cb98abec90d6
6800: 37 32 32 62 61 61 63 36 33 66 63 38 36 0a 0a 74  722baac63fc86..t
6810: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6820: 68 5f 53 48 41 33 38 34 2d 32 2e 37 35 20 7b 53  h_SHA384-2.75 {S
6830: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
6840: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
6850: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
6860: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6870: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 62 33  y decode hex bb3
6880: 32 37 61 30 62 63 62 32 35 37 34 64 66 34 37 30  27a0bcb2574df470
6890: 38 30 65 38 63 30 64 38 61 34 35 65 65 31 63 30  80e8c0d8a45ee1c0
68a0: 34 32 34 61 65 30 34 31 34 64 63 30 61 39 62 38  424ae0414dc0a9b8
68b0: 37 31 37 64 39 66 32 37 64 38 61 63 39 38 37 63  717d9f27d8ac987c
68c0: 37 63 39 65 63 62 63 39 34 36 30 37 33 38 38 34  7c9ecbc946073884
68d0: 64 31 66 62 39 36 64 62 64 62 35 38 33 61 61 37  d1fb96dbdb583aa7
68e0: 35 38 31 38 36 62 31 36 66 61 34 32 39 64 62 66  58186b16fa429dbf
68f0: 31 35 62 38 64 35 62 62 34 38 63 63 61 37 31 34  15b8d5bb48cca714
6900: 36 39 65 37 63 65 30 61 64 38 65 37 66 61 31 34  69e7ce0ad8e7fa14
6910: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
6920: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
6930: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
6940: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
6950: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 66  exact -result 0f
6960: 37 35 65 36 35 66 66 38 34 39 34 61 65 32 38 64  75e65ff8494ae28d
6970: 39 61 30 61 32 65 36 35 39 35 39 36 35 33 32 37  9a0a2e6595965327
6980: 35 66 63 33 34 62 32 66 61 32 37 62 39 65 31 30  5fc34b2fa27b9e10
6990: 66 61 61 66 66 66 30 37 63 34 35 61 64 64 65 66  faafff07c45addef
69a0: 33 62 38 66 32 35 39 35 33 64 35 61 32 65 35 34  3b8f25953d5a2e54
69b0: 65 33 31 65 62 65 36 64 34 32 39 64 32 36 0a 0a  e31ebe6d429d26..
69c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
69d0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 37 36 20 7b  sh_SHA384-2.76 {
69e0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
69f0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
6a00: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
6a10: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
6a20: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 66  ry decode hex 7f
6a30: 64 39 65 65 62 35 66 66 33 36 38 30 34 30 64 32  d9eeb5ff368040d2
6a40: 39 39 66 64 31 37 61 39 34 33 62 32 31 64 36 35  99fd17a943b21d65
6a50: 64 65 62 32 65 63 63 66 36 31 32 38 64 31 38 61  deb2eccf6128d18a
6a60: 33 33 65 62 31 37 34 36 39 33 35 33 38 39 33 35  33eb174693538935
6a70: 33 37 34 63 33 32 63 33 33 33 61 38 36 37 38 32  374c32c333a86782
6a80: 31 64 62 61 30 38 36 33 36 66 32 30 30 32 32 63  1dba08636f20022c
6a90: 32 63 65 30 31 38 32 36 63 37 62 37 65 34 31 36  2ce01826c7b7e416
6aa0: 34 30 61 64 31 38 36 66 39 30 65 64 30 61 63 36  40ad186f90ed0ac6
6ab0: 34 37 64 34 37 30 38 36 37 34 34 38 36 37 65 35  47d47086744867e5
6ac0: 63 35 34 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c54b]} \..-body 
6ad0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6ae0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
6af0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6b00: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6b10: 20 30 30 37 32 35 31 61 32 61 35 37 37 61 64 64   007251a2a577add
6b20: 30 34 38 62 31 65 64 63 37 39 64 39 36 63 37 64  048b1edc79d96c7d
6b30: 66 38 66 64 35 62 35 66 61 30 64 37 32 36 34 66  f8fd5b5fa0d7264f
6b40: 31 32 32 65 34 63 62 35 34 63 35 30 62 63 33 31  122e4cb54c50bc31
6b50: 36 61 38 62 63 35 66 34 66 39 64 66 64 34 34 36  6a8bc5f4f9dfd446
6b60: 39 65 32 39 65 39 62 30 33 30 66 35 36 33 61 36  9e29e9b030f563a6
6b70: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
6b80: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 37   Hash_SHA384-2.7
6b90: 37 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  7 {SHA384ShortMs
6ba0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
6bb0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
6bc0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
6bd0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6be0: 20 37 63 61 39 65 33 36 39 65 38 32 31 38 36 39   7ca9e369e821869
6bf0: 38 34 64 35 66 63 37 32 39 65 31 31 31 61 37 65  84d5fc729e111a7e
6c00: 35 64 38 65 63 31 39 63 35 64 37 34 65 31 33 62  5d8ec19c5d74e13b
6c10: 35 61 62 32 32 65 34 39 39 33 62 30 35 63 38 38  5ab22e4993b05c88
6c20: 65 62 62 61 36 62 61 37 32 32 33 37 33 38 39 61  ebba6ba72237389a
6c30: 36 65 30 37 32 32 65 31 32 63 39 36 63 35 64 36  6e0722e12c96c5d6
6c40: 61 35 34 35 31 35 61 62 30 30 61 64 38 30 65 66  a54515ab00ad80ef
6c50: 62 33 38 36 36 35 61 37 36 65 38 33 31 61 62 61  b38665a76e831aba
6c60: 62 30 66 61 35 63 66 30 32 30 38 30 37 30 37 38  b0fa5cf020807078
6c70: 34 34 31 35 38 35 64 65 35 5d 7d 20 5c 0a 09 2d  441585de5]} \..-
6c80: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
6c90: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
6ca0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
6cb0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
6cc0: 65 73 75 6c 74 20 33 65 65 38 63 34 31 38 34 64  esult 3ee8c4184d
6cd0: 65 39 63 65 61 65 63 64 30 64 33 61 65 61 31 36  e9ceaecd0d3aea16
6ce0: 32 37 31 38 33 35 66 33 64 34 35 63 38 37 33 33  271835f3d45c8733
6cf0: 35 38 63 39 33 61 35 31 35 35 33 39 63 33 38 65  58c93a515539c38e
6d00: 38 31 39 34 31 34 65 61 36 33 62 30 38 64 30 61  819414ea63b08d0a
6d10: 31 30 39 33 34 36 37 39 33 64 35 65 30 66 37 30  109346793d5e0f70
6d20: 33 31 32 35 65 62 0a 0a 74 63 6c 74 65 73 74 3a  3125eb..tcltest:
6d30: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
6d40: 34 2d 32 2e 37 38 20 7b 53 48 41 33 38 34 53 68  4-2.78 {SHA384Sh
6d50: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
6d60: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
6d70: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
6d80: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
6d90: 65 20 68 65 78 20 35 62 34 64 39 34 35 64 35 35  e hex 5b4d945d55
6da0: 64 65 61 32 32 65 33 37 38 32 31 65 63 33 39 36  dea22e37821ec396
6db0: 34 37 36 61 34 62 66 62 36 31 37 64 32 66 33 39  476a4bfb617d2f39
6dc0: 32 61 64 39 33 61 66 65 36 37 62 63 66 64 61 39  2ad93afe67bcfda9
6dd0: 63 64 39 62 37 32 35 62 63 34 63 63 64 66 35 31  cd9b725bc4ccdf51
6de0: 36 61 38 33 66 64 37 31 64 62 66 66 35 61 32 32  6a83fd71dbff5a22
6df0: 62 30 30 35 66 63 36 31 63 35 38 65 34 37 31 32  b005fc61c58e4712
6e00: 34 30 62 64 32 31 39 33 63 65 31 33 35 33 39 37  40bd2193ce135397
6e10: 33 30 65 36 33 32 33 32 66 37 30 66 38 30 33 30  30e63232f70f8030
6e20: 38 62 65 34 38 64 61 62 37 32 36 36 61 31 64 64  8be48dab7266a1dd
6e30: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6e40: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6e50: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
6e60: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
6e70: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 66 38  xact -result df8
6e80: 32 64 32 34 32 65 34 63 64 63 32 65 62 34 30 62  2d242e4cdc2eb40b
6e90: 66 33 64 62 36 61 35 36 65 31 61 61 30 61 36 36  f3db6a56e1aa0a66
6ea0: 65 35 35 33 66 31 39 31 34 62 65 64 63 36 35 63  e553f1914bedc65c
6eb0: 38 63 63 36 61 64 39 35 36 34 62 36 65 38 35 64  8cc6ad9564b6e85d
6ec0: 66 35 39 66 34 63 34 34 33 63 62 65 34 65 30 61  f59f4c443cbe4e0a
6ed0: 65 65 30 35 39 38 36 66 37 64 36 39 30 0a 0a 74  ee05986f7d690..t
6ee0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6ef0: 68 5f 53 48 41 33 38 34 2d 32 2e 37 39 20 7b 53  h_SHA384-2.79 {S
6f00: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
6f10: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
6f20: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
6f30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6f40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 38 36  y decode hex e86
6f50: 35 66 34 61 34 32 62 62 62 64 30 62 37 33 66 65  5f4a42bbbd0b73fe
6f60: 32 37 35 62 38 61 62 39 30 64 33 61 39 66 62 37  275b8ab90d3a9fb7
6f70: 34 65 63 35 30 37 30 31 39 32 64 33 38 66 36 30  4ec5070192d38f60
6f80: 65 66 65 66 39 35 36 34 34 39 38 62 39 61 64 62  efef9564498b9adb
6f90: 37 31 36 66 33 31 64 35 30 63 66 37 37 63 32 30  716f31d50cf77c20
6fa0: 61 65 34 62 32 65 38 35 35 31 35 33 30 37 62 62  ae4b2e85515307bb
6fb0: 38 64 39 35 66 62 65 62 39 61 64 39 36 34 30 30  8d95fbeb9ad96400
6fc0: 31 61 63 35 35 30 64 62 63 36 30 63 66 32 31 33  1ac550dbc60cf213
6fd0: 66 64 38 61 35 32 32 65 64 66 61 66 35 34 65 35  fd8a522edfaf54e5
6fe0: 62 31 62 39 33 62 32 62 32 5d 7d 20 5c 0a 09 2d  b1b93b2b2]} \..-
6ff0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
7000: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
7010: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
7020: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
7030: 65 73 75 6c 74 20 30 39 31 66 61 39 61 65 32 31  esult 091fa9ae21
7040: 38 34 65 32 32 36 38 65 66 39 65 66 32 33 63 37  84e2268ef9ef23c7
7050: 63 38 30 39 65 66 61 64 32 34 34 35 33 36 65 30  c809efad244536e0
7060: 30 61 61 39 65 38 62 33 61 36 63 32 32 38 64 39  0aa9e8b3a6c228d9
7070: 30 65 33 31 64 61 30 35 31 62 34 30 66 32 36 38  0e31da051b40f268
7080: 61 31 33 62 64 36 66 36 32 65 36 39 63 39 31 61  a13bd6f62e69c91a
7090: 65 38 63 64 32 64 0a 0a 74 63 6c 74 65 73 74 3a  e8cd2d..tcltest:
70a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
70b0: 34 2d 32 2e 38 30 20 7b 53 48 41 33 38 34 53 68  4-2.80 {SHA384Sh
70c0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
70d0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
70e0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
70f0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
7100: 65 20 68 65 78 20 31 64 34 30 38 63 37 62 36 38  e hex 1d408c7b68
7110: 65 31 36 38 66 34 31 62 62 34 36 66 39 62 32 65  e168f41bb46f9b2e
7120: 39 63 38 62 30 34 66 39 36 38 65 34 30 38 30 32  9c8b04f968e40802
7130: 35 32 35 34 36 38 31 34 63 63 31 63 62 32 39 31  52546814cc1cb291
7140: 37 64 64 35 36 39 30 38 38 36 61 39 36 30 30 61  7dd5690886a9600a
7150: 30 39 63 32 36 37 33 61 65 63 30 33 32 39 61 34  09c2673aec0329a4
7160: 64 61 66 36 35 35 35 30 38 62 30 36 66 63 31 36  daf655508b06fc16
7170: 34 36 65 66 33 62 62 33 61 34 37 32 31 39 31 64  46ef3bb3a472191d
7180: 39 36 34 64 62 32 31 34 61 39 36 61 39 36 66 61  964db214a96a96fa
7190: 38 39 35 37 36 63 65 34 63 34 66 36 64 62 66 31  89576ce4c4f6dbf1
71a0: 64 31 37 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d176]} \..-body 
71b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
71c0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
71d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
71e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
71f0: 20 37 65 32 33 34 37 32 63 30 33 34 33 31 39 32   7e23472c0343192
7200: 35 66 33 62 34 35 35 39 64 38 38 36 65 38 64 35  5f3b4559d886e8d5
7210: 64 38 33 37 62 33 64 33 39 62 38 65 66 65 31 62  d837b3d39b8efe1b
7220: 37 61 39 31 65 36 31 61 31 33 38 31 30 63 34 64  7a91e61a13810c4d
7230: 62 63 32 34 33 39 36 33 34 64 37 63 36 61 62 61  bc2439634d7c6aba
7240: 62 66 63 36 36 65 39 62 31 38 65 36 35 34 31 64  bfc66e9b18e6541d
7250: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
7260: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 38   Hash_SHA384-2.8
7270: 31 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  1 {SHA384ShortMs
7280: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7290: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
72a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
72b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
72c0: 20 35 34 61 65 30 33 30 61 34 65 32 37 61 30 35   54ae030a4e27a05
72d0: 63 31 65 61 34 61 31 32 65 36 39 63 36 37 35 34  c1ea4a12e69c6754
72e0: 34 61 66 39 62 34 30 34 34 63 66 31 35 37 64 63  4af9b4044cf157dc
72f0: 38 63 65 62 62 65 38 62 32 64 34 39 66 39 62 63  8cebbe8b2d49f9bc
7300: 30 37 37 39 30 37 37 36 30 33 63 39 30 63 35 63  0779077603c90c5c
7310: 35 35 62 38 39 31 64 33 61 63 33 33 62 38 37 62  55b891d3ac33b87b
7320: 36 35 65 37 39 65 31 62 31 39 36 39 35 38 31 33  65e79e1b19695813
7330: 37 31 38 31 39 31 62 33 62 64 38 62 37 65 34 32  718191b3bd8b7e42
7340: 64 35 35 38 33 66 37 63 66 31 65 36 30 66 38 34  d5583f7cf1e60f84
7350: 34 39 35 62 38 66 38 36 39 66 33 37 31 39 39 36  495b8f869f371996
7360: 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  9]} \..-body {tl
7370: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
7380: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
7390: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
73a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 62  exact -result cb
73b0: 36 35 66 38 32 33 35 38 35 37 37 33 63 62 38 38  65f823585773cb88
73c0: 30 32 62 36 33 33 39 31 38 32 66 31 33 37 35 32  02b6339182f13752
73d0: 61 38 32 38 36 34 63 38 39 38 62 34 34 35 62 65  a82864c898b445be
73e0: 35 61 31 31 61 39 36 39 36 35 37 61 63 32 64 63  5a11a969657ac2dc
73f0: 34 61 33 62 62 65 62 38 37 61 63 30 61 62 62 32  4a3bbeb87ac0abb2
7400: 33 32 61 32 62 31 32 34 31 37 31 30 39 36 0a 0a  32a2b124171096..
7410: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
7420: 73 68 5f 53 48 41 33 38 34 2d 32 2e 38 32 20 7b  sh_SHA384-2.82 {
7430: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
7440: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
7450: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
7460: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
7470: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 37  ry decode hex f7
7480: 33 63 64 33 38 36 66 37 33 64 30 63 36 61 64 65  3cd386f73d0c6ade
7490: 30 35 37 37 31 62 33 33 31 31 37 31 31 37 63 36  05771b33117117c6
74a0: 30 32 65 35 32 36 39 33 66 30 35 62 34 37 65 39  02e52693f05b47e9
74b0: 30 30 33 32 65 61 63 63 33 39 32 39 35 66 39 37  0032eacc39295f97
74c0: 39 33 32 35 38 66 65 36 35 31 32 65 65 61 62 32  93258fe6512eeab2
74d0: 39 31 62 61 61 30 62 65 32 32 32 65 31 34 33 32  91baa0be222e1432
74e0: 39 35 61 32 38 65 38 36 39 37 65 34 32 66 61 32  95a28e8697e42fa2
74f0: 37 65 63 30 32 62 34 34 32 31 37 66 33 32 61 31  7ec02b44217f32a1
7500: 65 64 61 65 32 66 34 66 33 35 32 31 33 35 36 32  edae2f4f35213562
7510: 63 61 33 37 62 36 64 36 63 63 35 65 66 37 32 64  ca37b6d6cc5ef72d
7520: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7530: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7540: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
7550: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
7560: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 36 36  xact -result f66
7570: 35 63 34 64 31 37 61 38 33 64 36 35 61 37 66 66  5c4d17a83d65a7ff
7580: 31 36 62 66 63 65 32 37 39 62 35 38 35 35 38 32  16bfce279b585582
7590: 35 30 64 37 36 61 66 36 38 62 38 65 62 39 34 33  50d76af68b8eb943
75a0: 37 35 33 65 34 31 31 61 35 37 63 65 62 33 31 63  753e411a57ceb31c
75b0: 31 61 31 33 31 65 35 34 62 63 62 37 36 37 32 35  1a131e54bcb76725
75c0: 38 34 34 31 36 65 33 64 35 37 31 39 65 0a 0a 74  84416e3d5719e..t
75d0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
75e0: 68 5f 53 48 41 33 38 34 2d 32 2e 38 33 20 7b 53  h_SHA384-2.83 {S
75f0: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
7600: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
7610: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
7620: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7630: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 64 32  y decode hex 1d2
7640: 35 39 36 31 32 65 36 38 36 37 65 37 64 37 38 38  59612e6867e7d788
7650: 63 37 31 64 30 33 63 35 31 33 36 38 36 34 61 64  c71d03c5136864ad
7660: 36 64 38 34 66 32 34 65 61 66 39 31 33 61 33 34  6d84f24eaf913a34
7670: 65 36 39 33 33 33 31 31 36 66 38 31 32 33 39 35  e69333116f812395
7680: 32 38 38 64 34 64 63 65 65 36 36 36 35 65 36 64  288d4dcee6665e6d
7690: 37 64 61 62 64 30 30 35 66 66 63 36 33 32 37 65  7dabd005ffc6327e
76a0: 33 63 61 33 30 35 63 61 62 37 38 35 36 39 64 31  3ca305cab78569d1
76b0: 31 30 37 61 31 31 35 65 36 31 39 66 63 39 30 31  107a115e619fc901
76c0: 31 30 34 33 36 33 31 37 39 32 35 30 36 36 37 32  1043631792506672
76d0: 36 37 37 34 64 31 64 61 33 36 33 39 63 33 31 61  6774d1da3639c31a
76e0: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
76f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
7700: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
7710: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
7720: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 64  exact -result 5d
7730: 63 66 35 31 32 65 32 62 39 33 64 36 65 63 64 66  cf512e2b93d6ecdf
7740: 37 63 33 33 30 34 35 33 34 35 35 34 65 61 37 39  7c3304534554ea79
7750: 64 32 32 33 39 32 65 35 39 62 62 65 39 30 64 66  d22392e59bbe90df
7760: 32 31 65 39 37 38 63 39 66 61 33 62 33 34 66 66  21e978c9fa3b34ff
7770: 38 32 65 36 64 63 66 65 38 66 65 32 32 33 36 61  82e6dcfe8fe2236a
7780: 61 34 61 66 34 65 36 36 32 65 32 61 39 64 0a 0a  a4af4e662e2a9d..
7790: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
77a0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 38 34 20 7b  sh_SHA384-2.84 {
77b0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
77c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
77d0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
77e0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
77f0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 61  ry decode hex da
7800: 38 37 33 34 34 31 34 63 34 35 66 63 31 64 35 61  8734414c45fc1d5a
7810: 37 35 61 33 63 62 61 63 61 64 62 31 62 66 62 35  75a3cbacadb1bfb5
7820: 32 33 64 36 66 63 33 39 31 66 38 38 32 64 30 64  23d6fc391f882d0d
7830: 62 30 65 65 66 32 31 66 39 66 66 64 37 38 62 36  b0eef21f9ffd78b6
7840: 61 31 65 31 34 63 66 61 64 30 39 65 37 31 62 36  a1e14cfad09e71b6
7850: 35 63 66 37 62 30 35 64 37 65 38 66 32 66 34 62  5cf7b05d7e8f2f4b
7860: 61 65 34 65 34 35 34 65 31 36 30 36 38 64 36 35  ae4e454e16068d65
7870: 34 36 35 36 33 39 63 37 32 39 63 66 61 39 32 37  465639c729cfa927
7880: 33 38 35 36 33 64 33 37 65 64 63 39 36 37 36 62  38563d37edc9676b
7890: 37 62 65 36 30 34 66 66 62 63 36 38 65 63 33 62  7be604ffbc68ec3b
78a0: 36 62 37 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  6b72]} \..-body 
78b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
78c0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
78d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
78e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
78f0: 20 38 62 33 32 38 61 33 31 61 64 66 36 37 64 63   8b328a31adf67dc
7900: 37 61 65 62 38 36 34 61 33 35 39 36 32 38 34 31  7aeb864a35962841
7910: 30 64 35 38 31 34 61 32 66 30 63 63 36 38 33 33  0d5814a2f0cc6833
7920: 30 33 66 36 31 34 33 32 63 65 33 32 31 37 37 65  03f61432ce32177e
7930: 31 66 35 33 38 66 65 65 61 64 37 65 35 30 30 30  1f538feead7e5000
7940: 33 34 33 39 31 36 63 37 30 34 32 66 38 62 33 63  343916c7042f8b3c
7950: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
7960: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 38   Hash_SHA384-2.8
7970: 35 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  5 {SHA384ShortMs
7980: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7990: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
79a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
79b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
79c0: 20 62 32 32 38 63 37 35 39 30 33 64 38 30 66 62   b228c75903d80fb
79d0: 63 36 64 31 63 66 36 32 39 66 66 31 64 31 34 61  c6d1cf629ff1d14a
79e0: 39 32 65 63 34 62 66 30 65 31 32 31 66 64 39 37  92ec4bf0e121fd97
79f0: 62 64 33 30 36 65 64 32 36 35 65 66 65 37 61 35  bd306ed265efe7a5
7a00: 64 35 63 35 64 38 66 63 37 36 34 61 66 39 38 65  d5c5d8fc764af98e
7a10: 64 36 66 35 39 37 38 66 38 38 64 37 63 64 38 62  d6f5978f88d7cd8b
7a20: 63 64 37 31 63 62 65 66 36 61 35 38 32 36 31 64  cd71cbef6a58261d
7a30: 32 30 31 64 65 33 63 62 31 35 62 33 31 36 31 32  201de3cb15b31612
7a40: 38 37 65 36 61 31 30 34 63 63 32 63 66 38 38 32  87e6a104cc2cf882
7a50: 64 38 33 39 66 31 64 61 30 64 33 66 36 38 62 34  d839f1da0d3f68b4
7a60: 32 36 63 66 30 38 61 62 39 5d 7d 20 5c 0a 09 2d  26cf08ab9]} \..-
7a70: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
7a80: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
7a90: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
7aa0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
7ab0: 65 73 75 6c 74 20 66 63 39 32 62 61 34 65 61 63  esult fc92ba4eac
7ac0: 39 61 31 62 66 31 32 30 61 37 62 36 63 32 63 63  9a1bf120a7b6c2cc
7ad0: 33 30 33 33 35 62 39 36 31 35 62 31 61 39 38 65  30335b9615b1a98e
7ae0: 35 35 64 31 34 38 35 34 66 66 38 37 32 39 36 36  55d14854ff872966
7af0: 65 37 31 30 34 30 37 33 37 34 30 31 63 36 62 63  e71040737401c6bc
7b00: 30 38 64 62 35 38 34 32 63 65 61 63 65 31 34 63  08db5842ceace14c
7b10: 62 37 65 37 65 61 0a 0a 74 63 6c 74 65 73 74 3a  b7e7ea..tcltest:
7b20: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
7b30: 34 2d 32 2e 38 36 20 7b 53 48 41 33 38 34 53 68  4-2.86 {SHA384Sh
7b40: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
7b50: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
7b60: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
7b70: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
7b80: 65 20 68 65 78 20 63 39 30 64 34 37 33 61 36 66  e hex c90d473a6f
7b90: 64 33 30 62 65 39 61 39 38 62 66 34 34 32 61 39  d30be9a98bf442a9
7ba0: 61 64 36 35 61 36 39 37 64 34 36 32 39 63 33 33  ad65a697d4629c33
7bb0: 63 64 35 31 37 64 62 62 65 64 30 32 37 31 30 66  cd517dbbed02710f
7bc0: 61 38 65 65 39 39 31 33 36 30 62 63 38 65 35 35  a8ee991360bc8e55
7bd0: 37 62 30 61 30 62 66 30 62 38 36 39 65 36 62 30  7b0a0bf0b869e6b0
7be0: 63 33 61 39 34 35 37 36 30 37 35 38 30 65 64 65  c3a9457607580ede
7bf0: 63 33 38 35 39 66 32 30 36 30 63 39 63 30 33 34  c3859f2060c9c034
7c00: 30 32 38 39 64 35 33 61 35 64 37 35 35 39 31 38  0289d53a5d755918
7c10: 63 61 35 34 38 37 36 35 39 39 30 34 35 61 38 36  ca54876599045a86
7c20: 61 39 62 63 62 38 31 36 33 37 39 35 65 61 38 63  a9bcb8163795ea8c
7c30: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7c40: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7c50: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
7c60: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
7c70: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 30 37  xact -result 807
7c80: 35 38 32 62 32 35 32 30 65 39 39 30 63 66 62 37  582b2520e990cfb7
7c90: 34 33 36 37 33 34 33 32 36 38 62 39 31 34 38 62  4367343268b9148b
7ca0: 32 35 31 39 62 39 65 37 63 64 39 31 38 32 65 64  2519b9e7cd9182ed
7cb0: 62 33 64 62 39 61 65 37 61 66 65 62 65 64 66 65  b3db9ae7afebedfe
7cc0: 38 63 61 31 31 38 31 33 30 65 32 65 66 39 64 33  8ca118130e2ef9d3
7cd0: 31 61 66 39 30 38 31 64 61 38 32 32 32 0a 0a 74  1af9081da8222..t
7ce0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7cf0: 68 5f 53 48 41 33 38 34 2d 32 2e 38 37 20 7b 53  h_SHA384-2.87 {S
7d00: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
7d10: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
7d20: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
7d30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7d40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 64 66  y decode hex 6df
7d50: 38 63 35 63 32 38 64 31 37 32 38 39 37 35 61 30  8c5c28d1728975a0
7d60: 62 37 36 36 63 64 37 64 65 36 33 62 62 65 37 66  b766cd7de63bbe7f
7d70: 34 38 63 33 64 62 33 65 36 66 64 35 61 34 62 38  48c3db3e6fd5a4b8
7d80: 64 66 36 65 33 39 30 35 63 65 66 30 33 35 31 66  df6e3905cef0351f
7d90: 33 64 39 37 33 62 34 66 32 61 37 65 65 64 38 30  3d973b4f2a7eed80
7da0: 62 30 64 65 35 62 38 35 63 38 37 37 33 35 33 66  b0de5b85c877353f
7db0: 62 39 65 39 33 30 61 64 32 36 37 39 31 34 39 61  b9e930ad2679149a
7dc0: 64 34 63 62 65 36 39 39 31 30 65 36 38 64 35 35  d4cbe69910e68d55
7dd0: 30 30 62 30 39 36 63 35 61 62 64 62 66 32 37 64  00b096c5abdbf27d
7de0: 36 38 34 66 63 66 63 66 31 61 35 37 66 30 32 37  684fcfcf1a57f027
7df0: 36 39 32 38 33 64 35 61 30 5d 7d 20 5c 0a 09 2d  69283d5a0]} \..-
7e00: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
7e10: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
7e20: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
7e30: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
7e40: 65 73 75 6c 74 20 37 62 64 61 35 37 64 32 31 61  esult 7bda57d21a
7e50: 34 34 33 34 61 61 64 61 36 37 35 38 65 32 38 32  4434aada6758e282
7e60: 65 36 31 32 61 34 63 30 66 34 31 62 32 34 32 66  e612a4c0f41b242f
7e70: 39 63 37 39 30 38 30 34 64 35 62 65 65 32 35 62  9c790804d5bee25b
7e80: 38 31 61 38 32 31 64 63 36 66 32 61 30 62 61 35  81a821dc6f2a0ba5
7e90: 36 66 31 62 33 37 30 34 38 30 32 63 39 61 36 65  6f1b3704802c9a6e
7ea0: 31 35 33 64 38 35 0a 0a 74 63 6c 74 65 73 74 3a  153d85..tcltest:
7eb0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
7ec0: 34 2d 32 2e 38 38 20 7b 53 48 41 33 38 34 53 68  4-2.88 {SHA384Sh
7ed0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
7ee0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
7ef0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
7f00: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
7f10: 65 20 68 65 78 20 32 63 66 63 37 36 66 38 38 63  e hex 2cfc76f88c
7f20: 62 36 66 62 39 30 39 32 37 62 36 39 35 32 36 61  b6fb90927b69526a
7f30: 64 35 66 30 33 64 36 62 64 33 33 35 66 34 66 37  d5f03d6bd335f4f7
7f40: 35 62 35 32 62 36 61 33 63 32 31 65 38 66 39 38  5b52b6a3c21e8f98
7f50: 39 61 62 30 64 30 33 61 63 62 31 65 62 65 30 37  9ab0d03acb1ebe07
7f60: 65 36 38 61 38 37 63 31 62 35 36 30 37 61 63 66  e68a87c1b5607acf
7f70: 31 37 64 39 37 36 65 31 30 61 63 34 61 33 64 33  17d976e10ac4a3d3
7f80: 30 61 38 35 36 31 64 34 39 61 35 65 37 65 63 37  0a8561d49a5e7ec7
7f90: 32 30 65 64 61 63 65 39 66 35 66 36 33 32 62 34  20edace9f5f632b4
7fa0: 62 64 36 33 65 31 30 34 66 34 38 39 34 61 37 39  bd63e104f4894a79
7fb0: 63 61 61 64 32 65 31 63 33 31 63 37 33 36 34 35  caad2e1c31c73645
7fc0: 33 34 38 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  3485]} \..-body 
7fd0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7fe0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
7ff0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8000: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8010: 20 65 31 36 36 37 30 65 61 38 33 37 63 32 35 39   e16670ea837c259
8020: 65 34 31 38 64 33 63 30 65 31 65 61 61 64 34 39  e418d3c0e1eaad49
8030: 34 38 63 33 34 35 37 65 31 35 62 31 35 37 33 30  48c3457e15b15730
8040: 35 36 65 32 34 64 61 32 35 62 66 66 35 63 36 36  56e24da25bff5c66
8050: 62 37 65 39 35 64 32 34 63 36 62 63 31 62 38 64  b7e95d24c6bc1b8d
8060: 36 63 32 62 38 31 32 66 36 34 61 64 63 39 35 35  6c2b812f64adc955
8070: 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  3..tcltest::test
8080: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 38   Hash_SHA384-2.8
8090: 39 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  9 {SHA384ShortMs
80a0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
80b0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
80c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
80d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
80e0: 20 33 66 30 35 31 30 38 63 32 66 33 33 64 33 39   3f05108c2f33d39
80f0: 62 33 61 61 39 65 37 33 65 66 62 61 64 34 62 30  b3aa9e73efbad4b0
8100: 31 31 62 34 65 39 65 39 66 62 61 34 30 39 62 37  11b4e9e9fba409b7
8110: 36 31 31 65 37 65 30 33 39 35 36 62 32 66 33 65  611e7e03956b2f3e
8120: 35 65 30 61 61 38 36 66 36 38 63 34 62 66 61 64  5e0aa86f68c4bfad
8130: 61 35 66 39 32 32 33 61 36 36 64 35 37 34 62 30  a5f9223a66d574b0
8140: 38 66 39 64 64 37 39 37 63 64 64 61 38 66 33 63  8f9dd797cdda8f3c
8150: 33 32 64 38 65 30 31 39 32 31 37 31 31 66 34 38  32d8e01921711f48
8160: 37 30 64 65 63 36 37 36 30 32 37 65 63 63 35 36  70dec676027ecc56
8170: 66 63 32 30 31 30 62 34 39 36 65 39 35 63 66 62  fc2010b496e95cfb
8180: 66 30 37 31 63 38 32 30 66 32 31 65 64 66 32 35  f071c820f21edf25
8190: 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  b]} \..-body {tl
81a0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
81b0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
81c0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
81d0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 32  exact -result b2
81e0: 37 32 62 61 62 36 38 30 66 33 61 62 32 37 64 65  72bab680f3ab27de
81f0: 37 32 64 39 34 64 66 33 38 34 33 32 33 66 38 35  72d94df384323f85
8200: 35 35 66 31 64 31 37 66 61 63 64 32 35 38 38 61  55f1d17facd2588a
8210: 63 38 36 34 38 64 65 66 32 34 35 31 66 38 32 66  c8648def2451f82f
8220: 39 62 39 39 63 30 35 65 61 64 38 33 31 36 66 64  9b99c05ead8316fd
8230: 31 38 31 61 32 63 66 62 39 37 34 38 33 61 0a 0a  181a2cfb97483a..
8240: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8250: 73 68 5f 53 48 41 33 38 34 2d 32 2e 39 30 20 7b  sh_SHA384-2.90 {
8260: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
8270: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
8280: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
8290: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
82a0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 66  ry decode hex 1f
82b0: 66 62 65 31 61 66 66 30 61 31 65 37 66 61 33 65  fbe1aff0a1e7fa3e
82c0: 36 38 62 65 33 31 61 37 34 36 31 32 61 31 35 31  68be31a74612a151
82d0: 39 62 35 39 33 39 37 65 37 30 30 37 65 66 36 31  9b59397e7007ef61
82e0: 66 63 30 31 35 66 33 31 36 64 35 35 62 35 37 62  fc015f316d55b57b
82f0: 65 35 32 38 63 65 62 63 63 32 66 30 39 61 32 66  e528cebcc2f09a2f
8300: 32 32 65 33 63 35 65 34 61 36 61 65 39 36 31 32  22e3c5e4a6ae9612
8310: 37 37 36 62 31 37 61 65 38 37 63 64 37 36 33 63  776b17ae87cd763c
8320: 31 61 39 65 61 62 65 36 38 34 36 63 35 62 63 62  1a9eabe6846c5bcb
8330: 33 34 37 66 66 63 39 39 66 31 30 65 33 62 35 65  347ffc99f10e3b5e
8340: 36 34 62 32 39 61 39 62 64 37 31 61 35 65 39 62  64b29a9bd71a5e9b
8350: 33 63 30 31 61 38 30 32 37 31 35 64 65 32 61 39  3c01a802715de2a9
8360: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8370: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8380: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
8390: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
83a0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 30 38  xact -result f08
83b0: 62 64 61 39 64 36 37 36 32 36 30 37 35 31 39 64  bda9d6762607519d
83c0: 35 33 66 65 63 62 30 62 66 66 62 66 64 33 66 66  53fecb0bffbfd3ff
83d0: 32 39 32 34 38 35 34 38 33 33 61 37 35 39 64 36  2924854833a759d6
83e0: 33 31 65 39 31 30 63 34 32 63 61 38 36 37 34 31  31e910c42ca86741
83f0: 66 63 32 65 32 39 30 61 66 34 32 65 39 34 62 39  fc2e290af42e94b9
8400: 34 38 39 38 36 30 39 62 39 31 33 39 30 0a 0a 74  4898609b91390..t
8410: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8420: 68 5f 53 48 41 33 38 34 2d 32 2e 39 31 20 7b 53  h_SHA384-2.91 {S
8430: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
8440: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
8450: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
8460: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8470: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 37 35  y decode hex f75
8480: 35 64 36 62 35 36 34 32 33 37 38 66 32 38 34 37  5d6b5642378f2847
8490: 38 39 33 39 30 31 64 39 61 61 39 31 63 35 34 61  893901d9aa91c54a
84a0: 34 62 37 61 62 62 39 37 63 35 63 37 31 38 34 30  4b7abb97c5c71840
84b0: 36 33 65 38 66 31 65 39 37 61 61 32 64 65 34 61  63e8f1e97aa2de4a
84c0: 64 37 61 63 39 32 37 64 64 33 63 63 65 37 37 30  d7ac927dd3cce770
84d0: 63 39 30 36 39 32 31 65 32 64 32 39 38 66 36 37  c906921e2d298f67
84e0: 63 66 39 38 34 34 65 36 31 62 66 31 30 34 64 62  cf9844e61bf104db
84f0: 38 30 33 62 32 36 35 62 38 36 62 38 32 31 63 35  803b265b86b821c5
8500: 66 34 64 39 30 31 30 36 37 64 30 37 62 33 38 37  f4d901067d07b387
8510: 36 34 65 33 66 36 63 39 35 66 64 34 66 32 38 65  64e3f6c95fd4f28e
8520: 33 63 66 65 34 38 64 38 61 39 36 39 34 61 38 66  3cfe48d8a9694a8f
8530: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
8540: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
8550: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
8560: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
8570: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 38  exact -result f8
8580: 35 65 39 38 65 61 30 35 34 34 35 35 32 34 32 32  5e98ea0544552422
8590: 38 30 38 35 34 65 39 37 63 34 65 64 33 39 39 62  80854e97c4ed399b
85a0: 38 35 65 65 37 62 63 35 63 35 66 63 33 64 36 32  85ee7bc5c5fc3d62
85b0: 39 31 30 61 37 36 66 33 61 39 36 30 30 63 33 64  910a76f3a9600c3d
85c0: 39 30 34 63 38 33 32 62 37 30 62 35 38 64 37 64  904c832b70b58d7d
85d0: 39 39 38 64 62 38 64 63 39 37 38 31 33 35 0a 0a  998db8dc978135..
85e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
85f0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 39 32 20 7b  sh_SHA384-2.92 {
8600: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
8610: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
8620: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
8630: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
8640: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 37  ry decode hex 77
8650: 33 35 37 37 66 33 61 36 34 32 63 34 66 31 33 62  3577f3a642c4f13b
8660: 31 63 62 31 66 34 31 30 33 65 39 66 36 62 32 64  1cb1f4103e9f6b2d
8670: 61 38 36 32 36 38 61 35 32 66 34 34 39 63 62 62  a86268a52f449cbb
8680: 31 37 34 63 38 33 34 39 65 33 63 30 64 63 36 33  174c8349e3c0dc63
8690: 36 63 65 38 35 63 33 37 33 31 31 35 61 33 33 37  6ce85c373115a337
86a0: 65 65 65 32 36 66 37 62 37 30 62 61 31 30 36 30  eee26f7b70ba1060
86b0: 61 37 39 61 31 63 37 36 66 64 31 38 36 33 39 39  a79a1c76fd186399
86c0: 65 36 61 35 32 35 35 64 62 38 30 66 38 33 62 30  e6a5255db80f83b0
86d0: 62 65 34 61 33 34 62 61 38 37 36 66 37 39 30 38  be4a34ba876f7908
86e0: 38 34 30 35 35 33 65 61 64 33 38 30 66 33 31 39  840553ead380f319
86f0: 35 35 30 37 37 32 39 64 30 36 37 61 63 32 65 65  5507729d067ac2ee
8700: 38 65 62 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8eb4]} \..-body 
8710: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8720: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
8730: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8740: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8750: 20 63 63 32 37 38 36 39 63 64 37 65 36 33 36 39   cc27869cd7e6369
8760: 35 64 31 39 30 38 32 34 34 36 62 30 36 38 62 37  5d19082446b068b7
8770: 37 64 64 65 34 65 38 36 30 34 66 38 63 30 65 39  7dde4e8604f8c0e9
8780: 63 65 32 30 61 31 62 37 31 61 61 39 65 66 66 31  ce20a1b71aa9eff1
8790: 34 36 30 66 33 32 64 35 61 35 34 34 37 36 32 37  460f32d5a5447627
87a0: 35 62 64 65 65 38 65 37 36 32 31 34 39 31 66 34  5bdee8e7621491f4
87b0: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
87c0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 39   Hash_SHA384-2.9
87d0: 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  3 {SHA384ShortMs
87e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
87f0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
8800: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8810: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8820: 20 36 35 31 35 38 39 39 32 37 65 31 37 65 31 61   651589927e17e1a
8830: 65 66 37 38 30 36 39 30 66 33 31 30 30 61 33 37  ef780690f3100a37
8840: 37 66 30 31 37 39 62 31 38 62 33 31 66 64 35 62  7f0179b18b31fd5b
8850: 34 34 31 38 63 38 34 30 33 38 35 37 33 66 63 35  4418c84038573fc5
8860: 35 39 62 34 39 36 61 37 38 32 62 65 65 63 33 64  59b496a782beec3d
8870: 63 66 36 65 39 66 61 66 35 61 65 66 36 37 36 65  cf6e9faf5aef676e
8880: 31 30 62 62 65 63 33 34 62 31 62 65 35 38 38 38  10bbec34b1be5888
8890: 66 64 61 34 39 62 39 31 65 30 32 38 39 30 64 32  fda49b91e02890d2
88a0: 35 32 34 63 35 62 33 36 39 66 38 61 35 34 31 37  524c5b369f8a5417
88b0: 35 66 32 39 64 65 64 66 38 31 35 36 66 66 66 36  5f29dedf8156fff6
88c0: 39 30 63 66 31 38 36 65 63 37 37 31 30 34 61 37  90cf186ec77104a7
88d0: 39 38 33 31 35 30 33 33 62 5d 7d 20 5c 0a 09 2d  98315033b]} \..-
88e0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
88f0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
8900: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
8910: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
8920: 65 73 75 6c 74 20 64 61 38 34 36 30 34 32 66 62  esult da846042fb
8930: 39 30 38 65 65 65 35 66 35 64 65 66 64 31 30 35  908eee5f5defd105
8940: 35 66 66 33 65 35 37 31 30 33 37 30 38 32 37 38  5ff3e57103708278
8950: 64 33 37 39 61 38 36 38 31 66 35 38 62 65 64 63  d379a8681f58bedc
8960: 36 65 66 38 39 36 37 30 62 39 66 39 35 37 63 34  6ef89670b9f957c4
8970: 65 30 65 64 63 61 61 34 32 64 66 64 38 63 64 34  e0edcaa42dfd8cd4
8980: 39 64 66 36 65 61 0a 0a 74 63 6c 74 65 73 74 3a  9df6ea..tcltest:
8990: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
89a0: 34 2d 32 2e 39 34 20 7b 53 48 41 33 38 34 53 68  4-2.94 {SHA384Sh
89b0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
89c0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
89d0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
89e0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
89f0: 65 20 68 65 78 20 36 37 38 36 35 32 36 30 30 65  e hex 678652600e
8a00: 65 65 34 32 35 38 30 66 37 33 36 32 33 34 31 32  ee42580f73623412
8a10: 65 39 63 30 31 31 63 63 30 32 64 65 63 34 64 34  e9c011cc02dec4d4
8a20: 63 63 31 62 37 39 62 32 37 62 36 66 39 39 33 39  cc1b79b27b6f9939
8a30: 36 39 35 62 66 32 31 38 35 62 32 30 31 32 61 62  695bf2185b2012ab
8a40: 30 36 33 30 66 33 31 37 64 32 65 32 64 65 39 35  0630f317d2e2de95
8a50: 64 64 36 39 38 39 30 65 34 33 30 37 38 33 65 39  dd69890e430783e9
8a60: 39 64 37 65 64 31 32 31 63 37 63 38 64 61 39 61  9d7ed121c7c8da9a
8a70: 65 37 30 37 38 30 62 35 61 61 62 66 39 30 32 32  e70780b5aabf9022
8a80: 64 31 34 33 35 63 66 35 65 64 36 64 61 36 66 63  d1435cf5ed6da6fc
8a90: 36 36 39 32 63 30 35 30 63 32 62 35 66 32 32 62  6692c050c2b5f22b
8aa0: 32 34 66 62 31 63 66 39 31 33 35 66 39 63 62 32  24fb1cf9135f9cb2
8ab0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8ac0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8ad0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
8ae0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
8af0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 61 36  xact -result 8a6
8b00: 61 65 34 31 63 39 62 63 63 63 31 36 65 61 63 34  ae41c9bccc16eac4
8b10: 38 36 30 62 64 35 66 61 39 31 32 30 35 61 38 36  860bd5fa91205a86
8b20: 66 62 66 64 30 39 36 39 32 35 37 38 66 37 66 33  fbfd09692578f7f3
8b30: 36 62 33 63 31 33 35 64 39 36 66 39 65 39 30 30  6b3c135d96f9e900
8b40: 31 63 31 39 32 64 62 65 64 61 39 37 35 66 37 33  1c192dbeda975f73
8b50: 37 35 62 64 34 33 61 32 33 62 61 36 38 0a 0a 74  75bd43a23ba68..t
8b60: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8b70: 68 5f 53 48 41 33 38 34 2d 32 2e 39 35 20 7b 53  h_SHA384-2.95 {S
8b80: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
8b90: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
8ba0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
8bb0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8bc0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 31 36  y decode hex 416
8bd0: 64 33 66 62 37 62 34 30 31 66 61 35 65 37 38 63  d3fb7b401fa5e78c
8be0: 64 39 36 64 34 37 39 64 38 38 36 30 64 66 31 34  d96d479d8860df14
8bf0: 37 65 65 66 30 33 61 64 66 31 33 66 63 65 31 63  7eef03adf13fce1c
8c00: 36 31 31 33 31 66 62 38 39 63 63 32 65 62 63 36  61131fb89cc2ebc6
8c10: 33 32 38 39 37 34 35 62 64 37 64 62 39 62 65 66  3289745bd7db9bef
8c20: 31 34 35 37 31 61 35 35 33 31 38 34 39 36 35 37  14571a5531849657
8c30: 32 64 62 65 35 32 62 39 62 33 34 39 65 66 35 39  2dbe52b9b349ef59
8c40: 66 34 30 36 63 65 63 64 36 38 39 30 39 66 33 36  f406cecd68909f36
8c50: 34 33 32 35 33 38 30 62 62 37 35 66 33 61 61 36  4325380bb75f3aa6
8c60: 32 35 30 33 63 38 34 66 34 37 61 35 35 61 61 36  2503c84f47a55aa6
8c70: 62 39 63 39 62 31 39 39 65 62 65 34 31 34 34 30  b9c9b199ebe41440
8c80: 39 66 66 33 39 36 34 63 64 5d 7d 20 5c 0a 09 2d  9ff3964cd]} \..-
8c90: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
8ca0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
8cb0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
8cc0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
8cd0: 65 73 75 6c 74 20 63 35 66 32 30 35 34 32 65 30  esult c5f20542e0
8ce0: 63 30 61 63 31 65 62 34 33 33 64 65 36 32 32 39  c0ac1eb433de6229
8cf0: 66 65 35 62 61 63 63 66 64 34 35 30 32 65 32 63  fe5baccfd4502e2c
8d00: 32 32 37 35 34 33 39 33 38 35 65 66 64 61 36 33  2275439385efda63
8d10: 37 34 61 31 64 30 66 63 35 30 63 64 39 62 62 61  74a1d0fc50cd9bba
8d20: 34 32 33 33 64 34 37 30 61 64 39 31 61 33 33 35  4233d470ad91a335
8d30: 36 65 61 33 31 35 0a 0a 74 63 6c 74 65 73 74 3a  6ea315..tcltest:
8d40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
8d50: 34 2d 32 2e 39 36 20 7b 53 48 41 33 38 34 53 68  4-2.96 {SHA384Sh
8d60: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
8d70: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
8d80: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
8d90: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
8da0: 65 20 68 65 78 20 36 66 30 39 65 38 37 36 63 30  e hex 6f09e876c0
8db0: 62 38 33 63 39 39 33 34 66 66 62 37 37 37 66 30  b83c9934ffb777f0
8dc0: 30 36 33 33 38 63 35 31 34 32 61 33 31 33 37 35  06338c5142a31375
8dd0: 65 39 62 32 31 63 66 65 61 39 61 37 64 65 31 32  e9b21cfea9a7de12
8de0: 39 39 38 63 34 65 61 36 37 30 38 66 66 31 66 64  998c4ea6708ff1fd
8df0: 66 35 61 38 65 65 36 62 62 36 37 63 36 37 35 66  f5a8ee6bb67c675f
8e00: 66 64 38 32 30 39 61 31 30 30 36 34 65 32 64 37  fd8209a10064e2d7
8e10: 35 38 61 38 37 33 34 65 62 34 38 66 30 37 66 37  58a8734eb48f07f7
8e20: 63 66 33 64 34 33 62 30 39 66 31 62 66 64 63 35  cf3d43b09f1bfdc5
8e30: 64 30 37 61 35 32 62 37 37 30 37 39 66 32 33 63  d07a52b77079f23c
8e40: 65 63 32 38 62 66 38 36 33 62 65 64 39 37 63 38  ec28bf863bed97c8
8e50: 35 39 32 37 36 64 66 37 66 37 31 32 39 66 63 65  59276df7f7129fce
8e60: 37 31 65 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  71eb]} \..-body 
8e70: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8e80: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
8e90: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8ea0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8eb0: 20 62 33 63 39 36 38 66 33 30 32 35 66 38 37 64   b3c968f3025f87d
8ec0: 62 64 35 63 64 33 64 33 36 34 62 66 36 37 33 65  bd5cd3d364bf673e
8ed0: 36 32 38 32 37 63 33 35 38 38 39 35 33 32 34 33  62827c3588953243
8ee0: 31 62 65 63 64 38 37 63 66 62 65 32 63 63 37 35  1becd87cfbe2cc75
8ef0: 62 37 65 66 34 35 36 39 36 64 31 39 63 64 33 34  b7ef45696d19cd34
8f00: 35 32 64 30 65 37 63 32 62 36 39 64 30 39 35 34  52d0e7c2b69d0954
8f10: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
8f20: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 39   Hash_SHA384-2.9
8f30: 37 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  7 {SHA384ShortMs
8f40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
8f50: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
8f60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8f70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8f80: 20 30 64 63 32 62 32 32 36 62 33 34 33 31 63 36   0dc2b226b3431c6
8f90: 39 61 37 36 61 64 64 63 30 31 38 66 63 62 64 61  9a76addc018fcbda
8fa0: 32 32 62 64 37 32 63 38 66 66 30 31 65 64 36 35  22bd72c8ff01ed65
8fb0: 34 39 35 39 36 37 39 38 62 64 39 35 30 66 33 36  49596798bd950f36
8fc0: 31 63 34 38 39 61 30 39 63 39 35 63 65 65 32 64  1c489a09c95cee2d
8fd0: 63 66 64 36 34 30 31 32 30 38 61 65 36 33 36 38  cfd6401208ae6368
8fe0: 64 36 36 33 30 30 32 36 62 34 31 37 63 63 34 37  d6630026b417cc47
8ff0: 31 38 63 63 62 38 62 34 32 65 38 38 37 32 39 33  18ccb8b42e887293
9000: 37 64 65 36 36 38 39 35 66 64 30 39 31 34 32 63  7de66895fd09142c
9010: 34 32 66 30 36 36 62 66 30 65 66 33 61 62 32 62  42f066bf0ef3ab2b
9020: 30 33 38 30 33 61 38 31 38 35 66 62 36 35 66 63  03803a8185fb65fc
9030: 37 31 34 38 63 33 37 36 64 64 64 34 62 66 35 38  7148c376ddd4bf58
9040: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
9050: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
9060: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
9070: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
9080: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 61  exact -result aa
9090: 36 34 35 61 34 66 38 66 36 30 32 34 31 31 32 36  645a4f8f60241126
90a0: 30 61 63 65 32 34 64 33 38 31 66 33 66 35 64 66  0ace24d381f3f5df
90b0: 66 30 30 30 30 63 32 34 36 33 34 33 65 62 35 32  f0000c246343eb52
90c0: 38 65 33 64 64 30 32 37 63 64 37 34 33 38 31 35  8e3dd027cd743815
90d0: 37 33 37 39 30 36 61 63 35 63 37 34 65 61 38 33  737906ac5c74ea83
90e0: 63 32 37 35 35 65 35 36 62 39 39 35 30 39 0a 0a  c2755e56b99509..
90f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
9100: 73 68 5f 53 48 41 33 38 34 2d 32 2e 39 38 20 7b  sh_SHA384-2.98 {
9110: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
9120: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
9130: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
9140: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
9150: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 64  ry decode hex 8d
9160: 63 37 31 63 38 34 63 38 37 37 32 37 35 33 63 38  c71c84c8772753c8
9170: 36 61 62 36 61 66 64 38 30 65 38 64 31 64 66 39  6ab6afd80e8d1df9
9180: 62 30 64 37 65 38 64 36 39 65 62 65 36 37 66 61  b0d7e8d69ebe67fa
9190: 38 38 33 61 38 32 34 31 32 63 32 36 37 33 38 63  883a82412c26738c
91a0: 33 33 39 39 63 61 62 39 35 35 37 33 62 34 64 33  3399cab95573b4d3
91b0: 63 34 33 36 37 63 38 35 63 38 31 38 35 32 64 35  c4367c85c81852d5
91c0: 61 36 35 36 34 63 30 66 63 37 63 61 61 61 66 65  a6564c0fc7caaafe
91d0: 31 36 63 30 35 65 36 32 61 61 30 36 63 63 39 66  16c05e62aa06cc9f
91e0: 61 35 34 32 63 65 62 33 35 63 38 38 66 62 36 61  a542ceb35c88fb6a
91f0: 62 38 32 63 32 39 64 35 64 63 64 35 33 30 66 38  b82c29d5dcd530f8
9200: 30 37 64 33 66 31 63 33 62 63 62 33 39 37 34 34  07d3f1c3bcb39744
9210: 32 31 31 30 31 64 31 61 61 36 61 63 31 31 32 64  21101d1aa6ac112d
9220: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
9230: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
9240: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
9250: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
9260: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 32 32  xact -result 122
9270: 33 39 38 31 33 30 39 37 31 32 34 65 36 32 34 38  39813097124e6248
9280: 65 37 64 62 65 63 39 38 35 61 36 61 32 35 66 36  e7dbec985a6a25f6
9290: 32 32 62 31 64 30 37 32 39 35 63 66 63 66 62 61  22b1d07295cfcfba
92a0: 66 66 33 33 62 38 34 37 64 66 37 66 64 39 34 32  ff33b847df7fd942
92b0: 36 35 65 34 33 39 66 61 35 33 35 66 33 62 65 63  65e439fa535f3bec
92c0: 62 64 62 35 37 36 39 32 32 61 63 34 31 0a 0a 74  bdb576922ac41..t
92d0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
92e0: 68 5f 53 48 41 33 38 34 2d 32 2e 39 39 20 7b 53  h_SHA384-2.99 {S
92f0: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
9300: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9310: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
9320: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9330: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 64 66  y decode hex 3df
9340: 33 65 64 64 39 66 63 39 33 62 65 39 39 36 30 62  3edd9fc93be9960b
9350: 35 61 36 33 32 65 32 38 34 37 62 33 30 62 31 30  5a632e2847b30b10
9360: 31 38 37 63 38 66 38 33 64 65 35 62 34 35 66 63  187c8f83de5b45fc
9370: 62 32 65 33 65 64 34 37 35 35 36 39 61 38 62 32  b2e3ed475569a8b2
9380: 65 64 30 37 38 34 33 34 38 66 39 64 61 63 63 65  ed0784348f9dacce
9390: 37 62 33 32 33 63 36 62 36 35 30 37 31 61 62 64  7b323c6b65071abd
93a0: 38 62 33 32 64 31 30 32 32 62 31 65 31 32 37 38  8b32d1022b1e1278
93b0: 37 62 64 34 39 38 39 64 33 63 35 61 63 33 32 39  7bd4989d3c5ac329
93c0: 64 35 37 36 63 63 64 37 36 30 38 64 64 33 33 36  d576ccd7608dd336
93d0: 37 31 36 35 33 32 65 39 62 34 63 37 66 38 32 35  716532e9b4c7f825
93e0: 38 32 36 66 62 32 65 33 34 33 36 32 33 65 66 38  826fb2e343623ef8
93f0: 35 63 36 32 37 30 36 31 39 62 66 35 65 33 62 32  5c6270619bf5e3b2
9400: 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  7]} \..-body {tl
9410: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
9420: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
9430: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
9440: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 33  exact -result f3
9450: 36 35 39 30 66 35 32 31 31 61 39 63 66 38 34 65  6590f5211a9cf84e
9460: 65 62 30 61 33 62 32 65 35 64 63 31 31 36 34 65  eb0a3b2e5dc1164e
9470: 38 31 33 31 39 31 63 64 61 37 63 62 38 38 33 66  813191cda7cb883f
9480: 33 66 34 61 30 37 34 36 30 35 63 65 36 37 38 30  3f4a074605ce6780
9490: 63 66 32 66 31 61 31 30 35 36 35 38 37 30 36 66  cf2f1a105658706f
94a0: 62 64 32 38 32 39 64 62 38 61 32 61 35 38 0a 0a  bd2829db8a2a58..
94b0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
94c0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 30 30 20  sh_SHA384-2.100 
94d0: 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d  {SHA384ShortMsg}
94e0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
94f0: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75   SHA384 \..-setu
9500: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
9510: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63  ary decode hex c
9520: 65 64 30 65 63 36 35 30 30 63 62 38 39 31 65 36  ed0ec6500cb891e6
9530: 34 33 33 64 31 30 34 62 61 35 62 31 63 31 65 62  433d104ba5b1c1eb
9540: 63 61 33 39 37 66 33 61 35 65 65 65 61 61 30 66  ca397f3a5eeeaa0f
9550: 30 35 36 31 37 32 39 36 32 31 65 61 35 30 64 34  0561729621ea50d4
9560: 61 65 37 66 66 31 64 30 38 32 37 31 37 38 64 63  ae7ff1d0827178dc
9570: 63 64 38 34 65 34 63 61 30 36 64 39 38 39 31 61  cd84e4ca06d9891a
9580: 39 30 61 64 62 62 37 61 39 66 34 39 39 34 61 63  90adbb7a9f4994ac
9590: 39 34 37 63 66 36 32 39 36 65 37 31 64 32 66 34  947cf6296e71d2f4
95a0: 39 62 38 32 36 64 36 34 62 31 32 33 61 37 62 66  9b826d64b123a7bf
95b0: 38 36 66 33 33 39 66 61 34 36 37 39 63 61 64 64  86f339fa4679cadd
95c0: 62 64 66 31 39 63 66 65 64 37 64 30 32 30 36 61  bdf19cfed7d0206a
95d0: 61 35 66 35 32 37 61 36 62 30 63 63 30 30 66 35  a5f527a6b0cc00f5
95e0: 32 61 61 32 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79  2aa2b]} \..-body
95f0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
9600: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61  igest SHA384 -da
9610: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
9620: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
9630: 74 20 63 32 63 32 64 37 64 36 35 64 30 62 39 31  t c2c2d7d65d0b91
9640: 30 38 36 34 38 65 33 32 33 33 64 31 35 66 63 34  08648e3233d15fc4
9650: 65 34 63 62 36 32 65 64 38 66 65 65 39 63 64 64  e4cb62ed8fee9cdd
9660: 31 38 61 62 34 34 62 38 34 38 36 65 32 31 30 30  18ab44b8486e2100
9670: 66 62 65 34 35 64 64 63 66 37 34 66 34 36 63 31  fbe45ddcf74f46c1
9680: 35 65 62 37 37 66 62 31 63 38 39 33 63 31 32 32  5eb77fb1c893c122
9690: 30 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  02..tcltest::tes
96a0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e  t Hash_SHA384-2.
96b0: 31 30 31 20 7b 53 48 41 33 38 34 53 68 6f 72 74  101 {SHA384Short
96c0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
96d0: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d  ints SHA384 \..-
96e0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
96f0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
9700: 65 78 20 61 66 61 34 61 32 63 34 66 62 61 66 66  ex afa4a2c4fbaff
9710: 65 38 33 38 64 64 31 34 39 63 37 38 65 61 37 38  e838dd149c78ea78
9720: 35 31 65 61 39 33 39 36 33 30 34 62 34 31 38 30  51ea9396304b4180
9730: 36 61 30 39 33 61 39 30 61 61 65 35 39 63 30 63  6a093a90aae59c0c
9740: 35 62 64 62 31 37 30 63 63 39 61 37 64 32 32 62  5bdb170cc9a7d22b
9750: 39 30 63 62 63 65 35 32 63 63 31 62 31 30 35 31  90cbce52cc1b1051
9760: 30 38 39 34 32 64 66 32 30 63 32 39 65 66 33 61  08942df20c29ef3a
9770: 39 31 33 32 32 33 62 39 31 35 65 37 65 62 63 39  913223b915e7ebc9
9780: 38 65 66 31 33 35 61 64 65 66 61 61 30 66 30 61  8ef135adefaa0f0a
9790: 36 34 34 31 65 61 30 35 39 32 30 65 38 36 38 63  6441ea05920e868c
97a0: 65 39 64 31 66 66 36 63 38 66 65 34 64 62 65 63  e9d1ff6c8fe4dbec
97b0: 30 36 61 34 38 34 39 65 35 65 35 35 61 64 30 36  06a4849e5e55ad06
97c0: 32 37 66 39 65 30 39 64 66 63 62 5d 7d 20 5c 0a  27f9e09dfcb]} \.
97d0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
97e0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
97f0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
9800: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
9810: 2d 72 65 73 75 6c 74 20 63 66 36 65 66 39 31 64  -result cf6ef91d
9820: 38 35 36 37 34 31 34 66 35 63 37 66 30 62 31 66  8567414f5c7f0b1f
9830: 34 61 64 30 39 61 39 37 36 61 66 63 37 63 38 33  4ad09a976afc7c83
9840: 32 37 61 33 38 32 66 63 61 39 30 66 35 61 31 33  27a382fca90f5a13
9850: 36 62 31 39 62 65 33 33 31 30 30 61 36 36 34 33  6b19be33100a6643
9860: 39 30 61 33 37 37 66 38 64 38 61 33 30 31 35 66  90a377f8d8a3015f
9870: 62 38 38 32 31 32 35 62 0a 0a 74 63 6c 74 65 73  b882125b..tcltes
9880: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
9890: 33 38 34 2d 32 2e 31 30 32 20 7b 53 48 41 33 38  384-2.102 {SHA38
98a0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
98b0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
98c0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
98d0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
98e0: 63 6f 64 65 20 68 65 78 20 30 30 66 36 35 61 34  code hex 00f65a4
98f0: 38 35 62 66 64 33 38 31 31 31 33 64 36 65 37 39  85bfd381113d6e79
9900: 62 66 39 65 30 64 35 65 35 31 38 63 38 39 31 39  bf9e0d5e518c8919
9910: 38 38 63 30 37 33 62 61 31 39 38 61 63 33 61 32  88c073ba198ac3a2
9920: 30 66 32 35 63 32 63 38 31 36 31 39 37 32 33 65  0f25c2c81619723e
9930: 38 38 61 33 63 30 65 64 33 30 37 35 30 37 35 66  88a3c0ed3075075f
9940: 62 62 61 66 62 36 61 37 62 36 31 64 33 62 63 33  bbafb6a7b61d3bc3
9950: 33 36 61 35 65 36 64 36 66 30 38 64 31 36 36 63  36a5e6d6f08d166c
9960: 34 38 36 31 65 36 61 33 62 64 63 32 65 34 39 62  4861e6a3bdc2e49b
9970: 32 38 30 36 62 35 36 37 65 37 65 38 32 31 61 35  2806b567e7e821a5
9980: 35 63 62 36 37 34 61 36 63 64 36 39 39 66 37 64  5cb674a6cd699f7d
9990: 63 36 31 61 37 30 35 34 61 38 66 66 33 64 65 63  c61a7054a8ff3dec
99a0: 37 33 65 62 36 36 37 66 35 39 36 34 34 33 34 36  73eb667f59644346
99b0: 62 65 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  be2]} \..-body {
99c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
99d0: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61  est SHA384 -data
99e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
99f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
9a00: 38 30 39 63 36 62 35 64 34 31 64 61 37 63 64 31  809c6b5d41da7cd1
9a10: 30 64 66 39 30 62 30 32 62 31 39 33 61 63 37 64  0df90b02b193ac7d
9a20: 34 30 63 66 32 65 34 36 63 31 33 39 65 39 64 62  40cf2e46c139e9db
9a30: 64 32 30 38 61 39 38 38 64 61 32 62 32 35 30 30  d208a988da2b2500
9a40: 32 63 64 62 61 64 31 64 62 32 65 63 63 31 33 32  2cdbad1db2ecc132
9a50: 32 64 61 32 30 62 37 64 30 35 34 65 35 66 65 36  2da20b7d054e5fe6
9a60: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
9a70: 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 30  Hash_SHA384-2.10
9a80: 33 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  3 {SHA384ShortMs
9a90: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
9aa0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
9ab0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
9ac0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
9ad0: 20 62 39 63 65 33 38 32 65 31 65 38 32 61 38 37   b9ce382e1e82a87
9ae0: 33 63 63 34 34 34 32 34 38 61 33 30 30 38 63 32  3cc444248a3008c2
9af0: 63 66 36 34 64 31 38 37 35 39 30 35 37 61 62 65  cf64d18759057abe
9b00: 38 66 39 31 63 39 64 38 37 66 35 64 63 38 33 61  8f91c9d87f5dc83a
9b10: 61 34 65 63 61 30 63 35 31 64 33 30 38 32 39 62  a4eca0c51d30829b
9b20: 39 61 31 64 32 37 31 32 64 61 31 66 61 63 33 31  9a1d2712da1fac31
9b30: 66 35 32 39 34 32 64 37 37 63 39 66 32 30 63 32  f52942d77c9f20c2
9b40: 62 66 36 64 33 37 35 31 30 32 38 64 37 64 34 66  bf6d3751028d7d4f
9b50: 30 64 33 33 36 64 33 64 63 39 32 62 32 37 65 63  0d336d3dc92b27ec
9b60: 33 36 38 63 61 61 34 34 34 34 62 33 31 38 30 63  368caa4444b3180c
9b70: 31 65 33 37 65 39 38 62 35 38 66 32 35 65 36 34  1e37e98b58f25e64
9b80: 37 61 39 61 36 33 36 31 66 30 62 30 34 63 66 37  7a9a6361f0b04cf7
9b90: 38 64 31 37 39 35 35 37 36 36 31 36 38 5d 7d 20  8d17955766168]} 
9ba0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
9bb0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
9bc0: 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61  A384 -data $data
9bd0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
9be0: 74 20 2d 72 65 73 75 6c 74 20 31 38 63 64 31 30  t -result 18cd10
9bf0: 62 33 65 61 39 30 37 62 33 37 37 30 65 38 65 62  b3ea907b3770e8eb
9c00: 39 31 63 39 37 34 36 36 36 65 32 64 61 32 35 32  91c974666e2da252
9c10: 35 61 66 65 37 30 32 30 62 38 37 32 62 33 65 63  5afe7020b872b3ec
9c20: 36 36 38 39 65 35 65 31 63 64 30 30 35 39 64 64  6689e5e1cd0059dd
9c30: 34 66 64 34 39 63 65 34 34 64 37 35 64 63 34 63  4fd49ce44d75dc4c
9c40: 38 34 33 30 63 33 32 32 64 36 0a 0a 74 63 6c 74  8430c322d6..tclt
9c50: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
9c60: 48 41 33 38 34 2d 32 2e 31 30 34 20 7b 53 48 41  HA384-2.104 {SHA
9c70: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
9c80: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
9c90: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
9ca0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
9cb0: 64 65 63 6f 64 65 20 68 65 78 20 36 37 37 38 64  decode hex 6778d
9cc0: 38 32 66 33 61 39 38 65 65 63 64 66 61 63 35 35  82f3a98eecdfac55
9cd0: 64 64 65 65 62 63 35 32 34 37 36 61 30 37 30 30  ddeebc52476a0700
9ce0: 39 34 66 62 64 36 35 38 33 31 38 30 31 66 64 64  94fbd65831801fdd
9cf0: 36 30 66 38 33 37 64 38 30 64 32 33 62 39 30 64  60f837d80d23b90d
9d00: 34 37 32 63 35 66 34 65 35 63 61 36 32 37 33 61  472c5f4e5ca6273a
9d10: 35 30 66 34 30 31 35 34 65 61 38 66 62 39 34 30  50f40154ea8fb940
9d20: 31 33 66 36 33 31 30 61 64 31 38 38 30 30 34 33  13f6310ad1880043
9d30: 33 61 31 64 33 37 39 63 38 34 62 64 66 37 39 39  3a1d379c84bdf799
9d40: 61 39 39 65 38 63 37 62 36 37 36 66 62 63 64 32  a99e8c7b676fbcd2
9d50: 39 63 63 32 65 64 36 36 35 35 32 32 39 37 64 65  9cc2ed66552297de
9d60: 37 61 36 65 35 36 35 31 37 39 62 62 34 32 62 37  7a6e565179bb42b7
9d70: 30 64 34 38 32 39 39 65 30 39 32 35 61 31 64 37  0d48299e0925a1d7
9d80: 32 63 61 32 63 37 39 32 61 5d 7d 20 5c 0a 09 2d  2ca2c792a]} \..-
9d90: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9da0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
9db0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9dc0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
9dd0: 65 73 75 6c 74 20 37 31 66 30 38 64 39 33 33 33  esult 71f08d9333
9de0: 64 66 35 63 62 38 38 35 66 64 32 33 64 36 63 62  df5cb885fd23d6cb
9df0: 62 31 64 62 38 34 66 39 62 35 35 39 30 38 64 30  b1db84f9b55908d0
9e00: 36 39 64 66 35 30 66 61 34 37 39 35 63 63 37 31  69df50fa4795cc71
9e10: 33 61 31 38 34 33 39 62 63 61 62 38 64 61 63 61  3a18439bcab8daca
9e20: 30 37 38 33 35 36 66 35 63 37 35 61 36 31 39 66  078356f5c75a619f
9e30: 32 66 38 37 38 32 0a 0a 74 63 6c 74 65 73 74 3a  2f8782..tcltest:
9e40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
9e50: 34 2d 32 2e 31 30 35 20 7b 53 48 41 33 38 34 53  4-2.105 {SHA384S
9e60: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
9e70: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20  straints SHA384 
9e80: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
9e90: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
9ea0: 64 65 20 68 65 78 20 62 61 33 61 35 34 61 37 37  de hex ba3a54a77
9eb0: 64 37 63 32 62 38 63 63 65 63 36 64 35 33 31 33  d7c2b8ccec6d5313
9ec0: 36 63 64 34 38 38 32 37 63 38 37 61 63 64 64 31  6cd48827c87acdd1
9ed0: 63 64 38 36 61 64 31 66 35 36 65 38 36 32 36 34  cd86ad1f56e86264
9ee0: 32 65 61 32 65 31 64 63 62 34 30 39 33 66 38 35  2ea2e1dcb4093f85
9ef0: 64 36 30 66 37 62 64 37 37 31 36 30 37 33 38 34  d60f7bd771607384
9f00: 36 32 65 36 63 33 66 64 33 64 64 39 64 33 61 37  62e6c3fd3dd9d3a7
9f10: 63 35 63 66 37 65 32 61 31 64 36 30 66 34 38 39  c5cf7e2a1d60f489
9f20: 66 38 34 34 37 31 39 30 32 31 37 39 66 32 31 66  f84471902179f21f
9f30: 36 35 36 63 65 30 66 66 66 30 38 39 32 37 38 65  656ce0fff089278e
9f40: 61 31 34 34 34 31 65 30 34 65 37 61 66 37 31 38  a14441e04e7af718
9f50: 39 31 36 32 32 35 36 35 66 34 34 63 34 32 38 30  91622565f44c4280
9f60: 34 34 37 32 38 66 63 63 36 38 36 32 31 32 61 33  44728fcc686212a3
9f70: 32 61 35 64 38 30 39 5d 7d 20 5c 0a 09 2d 62 6f  2a5d809]} \..-bo
9f80: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
9f90: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d  -digest SHA384 -
9fa0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
9fb0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
9fc0: 75 6c 74 20 33 63 63 31 35 34 66 30 35 34 32 64  ult 3cc154f0542d
9fd0: 38 65 33 63 61 63 66 39 64 37 39 66 32 33 31 34  8e3cacf9d79f2314
9fe0: 31 36 38 31 36 31 37 38 61 37 65 66 32 32 37 35  16816178a7ef2275
9ff0: 66 62 32 35 37 61 34 38 61 32 66 37 36 33 66 66  fb257a48a2f763ff
a000: 61 32 65 31 35 61 33 33 63 32 37 62 39 37 30 61  a2e15a33c27b970a
a010: 34 31 36 61 30 35 37 39 32 35 61 61 30 34 31 32  416a057925aa0412
a020: 64 32 36 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  d268..tcltest::t
a030: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d  est Hash_SHA384-
a040: 32 2e 31 30 36 20 7b 53 48 41 33 38 34 53 68 6f  2.106 {SHA384Sho
a050: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
a060: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a  raints SHA384 \.
a070: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
a080: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
a090: 20 68 65 78 20 37 65 65 63 34 66 34 66 34 39 31   hex 7eec4f4f491
a0a0: 62 34 65 65 61 65 62 31 63 64 62 64 62 39 35 65  b4eeaeb1cdbdb95e
a0b0: 39 35 31 31 63 32 38 37 32 33 37 32 62 66 36 34  9511c2872372bf64
a0c0: 61 31 66 36 31 63 64 61 31 63 64 38 30 33 32 37  a1f61cda1cd80327
a0d0: 32 39 63 38 62 65 61 66 64 31 65 64 61 62 66 37  29c8beafd1edabf7
a0e0: 38 30 33 36 64 38 30 30 32 33 63 38 31 34 61 64  8036d80023c814ad
a0f0: 38 36 30 36 31 30 36 63 62 34 65 37 66 33 33 66  8606106cb4e7f33f
a100: 32 31 34 63 33 65 36 39 63 30 66 32 33 30 65 38  214c3e69c0f230e8
a110: 38 35 34 37 34 66 64 35 39 34 66 37 66 32 34 34  85474fd594f7f244
a120: 34 61 61 35 38 31 65 30 63 37 30 65 62 66 31 33  4aa581e0c70ebf13
a130: 30 37 33 64 38 39 30 36 33 65 62 38 31 61 34 33  073d89063eb81a43
a140: 63 35 66 36 30 38 62 32 66 63 39 39 66 61 31 62  c5f608b2fc99fa1b
a150: 63 66 35 65 32 62 66 65 36 32 61 36 38 30 32 65  cf5e2bfe62a6802e
a160: 37 30 63 35 32 63 65 5d 7d 20 5c 0a 09 2d 62 6f  70c52ce]} \..-bo
a170: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
a180: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d  -digest SHA384 -
a190: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
a1a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
a1b0: 75 6c 74 20 32 66 38 63 35 36 38 32 61 30 37 34  ult 2f8c5682a074
a1c0: 33 38 30 34 33 65 35 35 66 30 62 37 37 35 39 66  38043e55f0b7759f
a1d0: 65 37 65 65 61 35 64 39 62 64 66 63 38 62 30 66  e7eea5d9bdfc8b0f
a1e0: 38 39 38 30 30 65 62 63 66 37 37 37 62 63 30 35  89800ebcf777bc05
a1f0: 61 39 34 31 65 61 37 66 33 63 61 63 34 35 64 34  a941ea7f3cac45d4
a200: 36 35 39 64 65 30 66 35 30 35 64 38 31 34 35 39  659de0f505d81459
a210: 30 62 36 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  0b6b..tcltest::t
a220: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d  est Hash_SHA384-
a230: 32 2e 31 30 37 20 7b 53 48 41 33 38 34 53 68 6f  2.107 {SHA384Sho
a240: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
a250: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a  raints SHA384 \.
a260: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
a270: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
a280: 20 68 65 78 20 66 33 37 31 35 62 39 65 33 64 64   hex f3715b9e3dd
a290: 64 37 38 36 32 65 31 35 65 65 38 37 61 61 32 33  d7862e15ee87aa23
a2a0: 66 31 61 61 61 30 35 38 30 35 39 31 65 35 35 63  f1aaa0580591e55c
a2b0: 66 66 33 66 65 65 39 62 34 39 62 34 32 61 61 30  ff3fee9b49b42aa0
a2c0: 63 30 63 63 38 63 66 62 38 65 66 61 33 65 62 39  c0cc8cfb8efa3eb9
a2d0: 36 66 66 62 37 32 61 62 30 36 62 38 33 64 37 62  6ffb72ab06b83d7b
a2e0: 34 37 62 33 64 32 32 61 35 37 37 32 34 32 31 63  47b3d22a5772421c
a2f0: 66 63 35 31 32 31 34 30 30 35 31 35 30 65 64 66  fc51214005150edf
a300: 35 33 32 61 66 31 30 31 33 38 61 64 34 35 37 35  532af10138ad4575
a310: 38 61 64 64 34 35 39 39 30 38 36 30 31 65 63 63  8add459908601ecc
a320: 63 33 37 30 33 65 38 31 30 30 30 32 61 32 65 34  c3703e810002a2e4
a330: 63 36 32 30 32 65 39 38 64 38 34 32 38 31 34 37  c6202e98d8428147
a340: 35 64 35 35 64 33 64 65 39 66 33 64 39 38 38 30  5d55d3de9f3d9880
a350: 39 63 63 65 31 66 36 36 35 5d 7d 20 5c 0a 09 2d  9cce1f665]} \..-
a360: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
a370: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
a380: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
a390: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
a3a0: 65 73 75 6c 74 20 30 34 65 37 64 35 35 62 30 65  esult 04e7d55b0e
a3b0: 62 34 62 63 33 64 33 61 32 31 63 66 64 32 39 34  b4bc3d3a21cfd294
a3c0: 31 64 62 62 34 64 63 34 34 37 30 36 35 38 38 39  1dbb4dc447065889
a3d0: 36 37 31 38 36 62 34 30 64 61 35 34 39 30 32 61  67186b40da54902a
a3e0: 65 65 61 39 37 62 32 36 32 63 39 37 66 37 35 65  eea97b262c97f75e
a3f0: 33 37 65 62 65 33 63 64 36 30 61 38 30 34 65 37  37ebe3cd60a804e7
a400: 62 39 66 65 63 61 0a 0a 74 63 6c 74 65 73 74 3a  b9feca..tcltest:
a410: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
a420: 34 2d 32 2e 31 30 38 20 7b 53 48 41 33 38 34 53  4-2.108 {SHA384S
a430: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
a440: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20  straints SHA384 
a450: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
a460: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
a470: 64 65 20 68 65 78 20 64 66 64 37 64 37 39 32 65  de hex dfd7d792e
a480: 31 36 32 62 66 37 61 38 38 39 31 30 39 35 35 30  162bf7a889109550
a490: 61 30 66 63 34 63 34 31 35 32 33 32 61 66 30 63  a0fc4c415232af0c
a4a0: 30 64 37 32 64 63 62 63 32 35 39 35 32 39 39 65  0d72dcbc2595299e
a4b0: 31 61 31 63 32 61 65 61 65 35 34 39 66 37 39 37  1a1c2aeae549f797
a4c0: 30 65 39 39 34 63 31 35 65 30 61 62 30 32 66 31  0e994c15e0ab02f1
a4d0: 31 33 64 37 34 30 64 33 38 63 33 32 61 34 64 38  13d740d38c32a4d8
a4e0: 65 63 30 37 39 63 64 30 39 39 64 33 37 64 39 35  ec079cd099d37d95
a4f0: 34 61 62 37 65 66 32 38 30 30 39 30 32 63 64 66  4ab7ef2800902cdf
a500: 37 63 37 61 31 39 66 62 31 34 62 33 63 39 38 61  7c7a19fb14b3c98a
a510: 61 66 34 63 36 61 64 39 33 66 65 39 61 39 62 63  af4c6ad93fe9a9bc
a520: 37 61 36 31 32 32 39 38 32 38 65 35 35 61 64 34  7a61229828e55ad4
a530: 64 36 32 37 30 64 31 62 64 62 63 61 39 39 37 35  d6270d1bdbca9975
a540: 64 34 35 30 66 39 62 65 39 31 65 35 36 5d 7d 20  d450f9be91e56]} 
a550: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
a560: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
a570: 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61  A384 -data $data
a580: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
a590: 74 20 2d 72 65 73 75 6c 74 20 30 38 65 35 65 66  t -result 08e5ef
a5a0: 35 37 64 30 63 32 61 61 32 33 65 64 66 63 37 35  57d0c2aa23edfc75
a5b0: 63 66 61 65 33 39 65 36 62 63 31 61 34 33 62 35  cfae39e6bc1a43b5
a5c0: 64 62 30 38 62 32 65 32 37 62 63 39 38 32 33 31  db08b2e27bc98231
a5d0: 31 34 65 64 66 37 36 30 33 36 37 64 62 39 63 66  14edf760367db9cf
a5e0: 33 63 64 39 63 33 37 37 39 37 35 35 66 36 64 33  3cd9c3779755f6d3
a5f0: 39 65 32 31 39 62 37 30 37 39 0a 0a 74 63 6c 74  9e219b7079..tclt
a600: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
a610: 48 41 33 38 34 2d 32 2e 31 30 39 20 7b 53 48 41  HA384-2.109 {SHA
a620: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
a630: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
a640: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
a650: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
a660: 64 65 63 6f 64 65 20 68 65 78 20 66 66 62 63 37  decode hex ffbc7
a670: 63 34 37 66 35 32 65 36 39 66 35 63 36 36 37 66  c47f52e69f5c667f
a680: 34 65 64 35 37 38 62 34 36 66 66 34 35 39 32 30  4ed578b46ff45920
a690: 34 38 66 37 38 39 30 38 31 66 33 66 62 33 39 33  48f789081f3fb393
a6a0: 32 31 64 30 61 61 34 36 32 37 61 36 64 34 66 32  21d0aa4627a6d4f2
a6b0: 36 31 39 30 35 36 34 39 34 31 30 61 35 33 61 33  61905649410a53a3
a6c0: 30 31 63 32 33 31 66 61 37 38 37 61 65 35 35 63  01c231fa787ae55c
a6d0: 30 34 66 36 31 35 61 38 66 38 34 31 39 36 63 65  04f615a8f84196ce
a6e0: 63 66 32 38 34 34 64 32 33 30 30 37 62 34 34 65  cf2844d23007b44e
a6f0: 64 64 38 39 32 36 34 39 66 63 38 65 64 31 30 61  dd892649fc8ed10a
a700: 32 65 38 35 35 62 66 32 33 66 65 38 61 66 64 30  2e855bf23fe8afd0
a710: 62 39 65 64 62 62 33 33 32 39 36 66 35 61 37 63  b9edbb33296f5a7c
a720: 66 38 39 66 39 34 36 33 34 64 39 64 31 61 32 62  f89f94634d9d1a2b
a730: 38 63 61 63 33 62 37 66 34 65 35 34 36 66 32 33  8cac3b7f4e546f23
a740: 32 39 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  29b]} \..-body {
a750: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
a760: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61  est SHA384 -data
a770: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
a780: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
a790: 62 65 31 30 63 37 62 61 66 39 34 36 30 38 34 30  be10c7baf9460840
a7a0: 38 61 30 61 63 63 66 62 63 38 63 65 39 35 65 31  8a0accfbc8ce95e1
a7b0: 35 39 64 30 38 64 38 63 61 37 35 64 64 36 63 32  59d08d8ca75dd6c2
a7c0: 37 33 66 39 33 35 39 34 37 61 37 65 63 33 34 36  73f935947a7ec346
a7d0: 33 65 31 30 61 35 38 64 33 63 65 61 61 30 62 32  3e10a58d3ceaa0b2
a7e0: 31 39 38 62 30 38 38 37 61 33 61 32 34 61 32 39  198b0887a3a24a29
a7f0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
a800: 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 31  Hash_SHA384-2.11
a810: 30 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  0 {SHA384ShortMs
a820: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
a830: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
a840: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
a850: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
a860: 20 61 33 39 66 32 30 32 64 38 36 36 65 38 65 39   a39f202d866e8e9
a870: 36 37 36 35 66 62 62 35 33 62 36 37 37 32 35 33  6765fbb53b677253
a880: 37 64 65 63 30 34 33 33 32 32 66 34 61 37 34 37  7dec043322f4a747
a890: 35 32 34 37 30 33 36 64 37 34 39 35 63 39 38 37  5247036d7495c987
a8a0: 38 35 30 63 65 66 32 61 34 36 32 31 38 64 33 66  850cef2a46218d3f
a8b0: 61 62 33 36 65 33 62 63 64 35 39 35 63 30 61 63  ab36e3bcd595c0ac
a8c0: 61 35 65 39 38 62 39 64 62 31 34 66 61 34 38 34  a5e98b9db14fa484
a8d0: 63 61 38 63 39 37 37 32 64 66 61 33 38 33 39 66  ca8c9772dfa3839f
a8e0: 37 61 63 33 30 36 36 37 32 37 61 35 30 62 30 64  7ac3066727a50b0d
a8f0: 35 63 39 33 33 64 38 32 66 38 32 66 31 32 32 30  5c933d82f82f1220
a900: 37 32 30 65 38 30 36 33 66 30 38 62 63 32 38 33  720e8063f08bc283
a910: 66 31 39 39 63 38 61 34 66 38 35 63 37 30 30 34  f199c8a4f85c7004
a920: 33 64 66 34 66 65 35 35 65 37 35 31 64 30 64 37  3df4fe55e751d0d7
a930: 31 64 66 33 36 66 61 34 33 64 38 5d 7d 20 5c 0a  1df36fa43d8]} \.
a940: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
a950: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
a960: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
a970: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
a980: 2d 72 65 73 75 6c 74 20 33 62 32 36 36 34 63 63  -result 3b2664cc
a990: 62 35 35 35 61 31 62 31 66 33 65 63 39 39 36 38  b555a1b1f3ec9968
a9a0: 36 30 31 34 36 65 61 37 35 65 66 37 66 33 62 64  60146ea75ef7f3bd
a9b0: 36 32 30 32 38 61 31 39 63 32 36 66 36 33 33 33  62028a19c26f6333
a9c0: 39 33 39 39 66 34 32 37 35 61 30 37 66 33 63 30  9399f4275a07f3c0
a9d0: 36 34 64 33 34 37 36 36 65 62 65 38 65 34 64 64  64d34766ebe8e4dd
a9e0: 35 33 32 66 36 36 32 39 0a 0a 74 63 6c 74 65 73  532f6629..tcltes
a9f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
aa00: 33 38 34 2d 32 2e 31 31 31 20 7b 53 48 41 33 38  384-2.111 {SHA38
aa10: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
aa20: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
aa30: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
aa40: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
aa50: 63 6f 64 65 20 68 65 78 20 62 32 63 38 32 36 31  code hex b2c8261
aa60: 38 35 33 65 32 32 31 38 64 66 61 31 33 35 63 62  853e2218dfa135cb
aa70: 35 33 38 37 38 31 30 33 35 32 62 38 39 36 32 65  5387810352b8962e
aa80: 39 34 65 39 66 64 63 38 36 39 35 62 34 31 65 37  94e9fdc8695b41e7
aa90: 64 62 61 36 61 64 31 32 32 64 31 34 66 64 64 30  dba6ad122d14fdd0
aaa0: 64 32 33 36 30 64 63 63 30 33 39 63 63 63 65 38  d2360dcc039ccce8
aab0: 62 33 37 66 61 30 65 61 64 36 63 63 63 38 35 62  b37fa0ead6ccc85b
aac0: 63 32 36 32 36 31 64 34 37 63 62 61 61 37 38 62  c26261d47cbaa78b
aad0: 39 32 35 63 36 65 33 38 30 66 65 66 31 38 35 36  925c6e380fef1856
aae0: 66 65 64 33 31 64 63 36 31 36 66 65 31 36 62 32  fed31dc616fe16b2
aaf0: 30 33 39 62 31 61 63 38 35 63 64 65 65 34 63 65  039b1ac85cdee4ce
ab00: 30 34 63 30 34 39 37 39 39 38 62 34 31 33 32 31  04c0497998b41321
ab10: 38 36 38 64 62 30 38 65 33 35 66 33 35 38 36 30  868db08e35f35860
ab20: 36 35 38 35 65 30 62 62 38 63 33 64 61 39 61 33  6585e0bb8c3da9a3
ab30: 62 65 37 61 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79  be7a6]} \..-body
ab40: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
ab50: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61  igest SHA384 -da
ab60: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
ab70: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
ab80: 74 20 34 35 62 32 38 36 66 34 39 66 64 30 35 63  t 45b286f49fd05c
ab90: 34 35 63 39 32 31 62 37 62 66 64 62 65 32 63 62  45c921b7bfdbe2cb
aba0: 30 32 34 34 34 31 63 33 37 32 65 30 37 33 39 34  024441c372e07394
abb0: 64 63 63 63 61 65 30 64 65 38 33 34 63 64 35 34  dcccae0de834cd54
abc0: 31 66 31 33 61 37 39 64 62 62 33 65 35 30 37 38  1f13a79dbb3e5078
abd0: 38 39 36 65 38 38 34 33 38 35 34 32 62 64 32 66  896e88438542bd2f
abe0: 31 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  12..tcltest::tes
abf0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e  t Hash_SHA384-2.
ac00: 31 31 32 20 7b 53 48 41 33 38 34 53 68 6f 72 74  112 {SHA384Short
ac10: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
ac20: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d  ints SHA384 \..-
ac30: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
ac40: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
ac50: 65 78 20 61 30 34 66 33 39 30 61 39 63 63 32 65  ex a04f390a9cc2e
ac60: 66 66 61 64 30 35 64 62 38 30 64 39 30 37 36 61  ffad05db80d9076a
ac70: 38 64 34 62 36 63 63 38 62 62 61 39 37 62 32 37  8d4b6cc8bba97b27
ac80: 62 34 32 33 36 37 30 62 32 39 30 62 38 65 36 39  b423670b290b8e69
ac90: 63 32 62 31 38 37 32 33 30 30 31 31 63 31 34 38  c2b187230011c148
aca0: 31 61 63 38 38 64 30 39 30 66 33 39 31 35 34 36  1ac88d090f391546
acb0: 35 39 34 39 34 64 62 35 65 34 31 30 38 35 31 63  59494db5e410851c
acc0: 36 65 38 62 32 62 38 61 39 33 37 31 37 63 61 65  6e8b2b8a93717cae
acd0: 37 36 30 33 37 65 30 38 38 31 39 37 38 31 32 34  76037e0881978124
ace0: 66 65 37 65 31 61 30 39 32 39 64 38 38 39 31 34  fe7e1a0929d88914
acf0: 39 31 66 34 65 39 39 36 34 36 63 63 39 34 30 36  91f4e99646cc9406
ad00: 32 64 63 38 32 34 31 31 66 61 36 36 31 33 30 65  2dc82411fa66130e
ad10: 64 61 34 36 35 36 30 65 37 35 62 39 38 30 34 38  da46560e75b98048
ad20: 32 33 36 34 33 39 34 36 35 31 32 35 65 37 33 37  236439465125e737
ad30: 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  b]} \..-body {tl
ad40: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
ad50: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
ad60: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
ad70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 37  exact -result e7
ad80: 30 38 39 64 37 32 39 34 35 63 65 66 38 35 31 65  089d72945cef851e
ad90: 36 38 39 62 34 34 30 39 63 66 62 36 33 64 31 33  689b4409cfb63d13
ada0: 35 66 30 62 35 63 64 66 62 30 64 61 63 36 63 33  5f0b5cdfb0dac6c3
adb0: 61 32 39 32 64 64 37 30 33 37 31 61 62 34 62 37  a292dd70371ab4b7
adc0: 39 64 61 31 39 39 37 64 37 39 39 32 39 30 36 61  9da1997d7992906a
add0: 63 37 32 31 33 35 30 32 36 36 32 39 32 30 0a 0a  c7213502662920..
ade0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
adf0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 31 33 20  sh_SHA384-2.113 
ae00: 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d  {SHA384ShortMsg}
ae10: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
ae20: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75   SHA384 \..-setu
ae30: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
ae40: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66  ary decode hex f
ae50: 34 31 39 34 39 34 63 33 63 36 64 30 37 32 37 62  419494c3c6d0727b
ae60: 33 33 39 35 61 34 38 33 61 32 31 36 37 31 38 32  3395a483a2167182
ae70: 61 37 32 35 32 66 34 66 64 30 39 39 63 32 64 34  a7252f4fd099c2d4
ae80: 62 37 31 62 30 35 33 66 39 34 62 62 38 62 33 61  b71b053f94bb8b3a
ae90: 64 66 33 62 35 31 65 38 34 36 30 63 66 65 63 30  df3b51e8460cfec0
aea0: 38 34 63 65 39 34 31 35 63 39 35 37 39 38 66 62  84ce9415c95798fb
aeb0: 61 65 34 39 37 35 63 32 30 38 63 35 34 34 36 34  ae4975c208c54464
aec0: 35 62 35 34 63 34 34 64 32 62 39 37 66 32 65 63  5b54c44d2b97f2ec
aed0: 66 63 65 35 63 38 30 35 62 65 36 31 66 35 62 61  fce5c805be61f5ba
aee0: 31 64 33 35 64 63 63 30 37 61 66 64 64 35 31 61  1d35dcc07afdd51a
aef0: 38 37 62 61 61 39 39 30 35 30 36 36 36 38 63 66  87baa990506668cf
af00: 37 31 30 65 31 38 62 65 39 62 30 65 62 66 39 34  710e18be9b0ebf94
af10: 33 66 33 36 36 66 61 32 39 63 36 39 66 37 61 36  3f366fa29c69f7a6
af20: 36 31 36 64 65 37 32 61 33 33 35 33 62 36 36 5d  616de72a3353b66]
af30: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
af40: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
af50: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
af60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
af70: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 65 61 64  act -result aead
af80: 38 36 38 38 63 35 38 63 36 62 61 34 65 39 63 61  8688c58c6ba4e9ca
af90: 64 62 34 37 35 36 62 34 36 35 64 63 65 30 66 62  db4756b465dce0fb
afa0: 30 36 66 31 63 66 61 61 34 37 38 31 39 37 66 32  06f1cfaa478197f2
afb0: 65 61 38 39 34 31 34 65 34 37 65 39 35 37 32 30  ea89414e47e95720
afc0: 33 34 61 64 66 65 64 31 36 30 37 30 33 63 37 39  34adfed160703c79
afd0: 62 38 32 62 33 66 64 37 61 62 37 38 0a 0a 74 63  b82b3fd7ab78..tc
afe0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
aff0: 5f 53 48 41 33 38 34 2d 32 2e 31 31 34 20 7b 53  _SHA384-2.114 {S
b000: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
b010: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
b020: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
b030: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
b040: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 61 66  y decode hex aaf
b050: 37 35 38 34 64 35 33 30 30 36 63 62 66 32 64 32  7584d53006cbf2d2
b060: 30 34 30 65 35 31 62 37 66 65 65 62 64 32 62 62  040e51b7feebd2bb
b070: 66 31 65 39 66 36 64 38 31 37 63 64 38 30 36 32  f1e9f6d817cd8062
b080: 61 36 61 39 36 38 30 65 37 66 31 30 34 36 34 65  a6a9680e7f10464e
b090: 65 66 65 62 35 30 62 30 37 63 62 34 36 62 31 34  efeb50b07cb46b14
b0a0: 62 39 62 33 66 63 62 32 63 61 61 33 62 39 61 62  b9b3fcb2caa3b9ab
b0b0: 36 36 34 34 39 30 31 31 35 64 35 39 31 39 34 35  664490115d591945
b0c0: 36 36 31 33 62 66 31 37 32 62 35 38 63 35 33 38  6613bf172b58c538
b0d0: 38 66 64 35 32 36 34 36 61 35 37 38 33 35 33 35  8fd52646a5783535
b0e0: 62 38 38 32 31 32 37 31 37 65 66 36 30 35 33 31  b88212717ef60531
b0f0: 34 62 37 30 62 38 61 30 38 35 30 32 34 64 34 61  4b70b8a085024d4a
b100: 62 31 66 63 62 65 32 62 65 37 34 36 30 39 65 34  b1fcbe2be74609e4
b110: 63 62 64 65 63 30 37 33 30 66 61 62 64 33 63 64  cbdec0730fabd3cd
b120: 37 37 31 35 31 64 36 34 37 61 33 37 36 37 62 5d  77151d647a3767b]
b130: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
b140: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
b150: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
b160: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
b170: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 36 65 37  act -result e6e7
b180: 39 64 38 63 36 31 64 30 65 61 39 66 63 37 30 64  9d8c61d0ea9fc70d
b190: 64 34 64 65 63 31 66 61 34 33 32 38 34 39 63 33  d4dec1fa432849c3
b1a0: 33 39 36 65 37 31 37 62 31 37 30 62 61 64 62 64  396e717b170badbd
b1b0: 38 37 61 34 63 37 39 37 34 65 66 63 35 39 30 61  87a4c7974efc590a
b1c0: 62 38 63 31 31 38 33 61 36 32 33 32 62 65 66 66  b8c1183a6232beff
b1d0: 31 34 35 33 34 66 30 30 34 62 30 32 0a 0a 74 63  14534f004b02..tc
b1e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
b1f0: 5f 53 48 41 33 38 34 2d 32 2e 31 31 35 20 7b 53  _SHA384-2.115 {S
b200: 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA384ShortMsg} \
b210: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
b220: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA384 \..-setup 
b230: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
b240: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 34 36  y decode hex a46
b250: 37 66 37 37 33 36 39 37 33 30 32 30 31 66 32 38  7f77369730201f28
b260: 31 32 32 30 34 66 64 36 33 61 64 30 64 32 37 35  12204fd63ad0d275
b270: 37 62 65 35 38 30 64 39 33 37 64 66 65 62 32 32  7be580d937dfeb22
b280: 31 61 30 36 62 32 31 65 64 33 32 31 33 35 33 31  1a06b21ed3213531
b290: 64 39 33 36 31 35 32 61 30 63 31 66 30 39 66 30  d936152a0c1f09f0
b2a0: 61 64 35 66 65 64 31 39 66 64 31 31 65 38 30 61  ad5fed19fd11e80a
b2b0: 64 39 38 32 63 36 31 32 30 33 65 38 36 62 32 35  d982c61203e86b25
b2c0: 30 38 32 37 39 64 39 31 64 39 39 66 61 34 38 33  08279d91d99fa483
b2d0: 65 32 65 39 37 61 33 64 36 61 36 61 64 32 35 34  e2e97a3d6a6ad254
b2e0: 38 61 38 64 61 34 30 34 64 64 64 62 35 38 33 34  8a8da404dddb5834
b2f0: 34 66 34 62 64 63 31 63 39 65 61 39 30 37 30 38  4f4bdc1c9ea90708
b300: 38 38 38 35 65 34 66 35 33 32 64 39 63 34 63 37  8885e4f532d9c4c7
b310: 33 63 64 66 64 61 34 33 63 33 61 39 65 34 63 65  3cdfda43c3a9e4ce
b320: 35 61 32 38 30 39 30 39 36 35 39 33 63 66 61 63  5a2809096593cfac
b330: 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  1]} \..-body {tl
b340: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
b350: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
b360: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
b370: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 61  exact -result 5a
b380: 37 35 30 38 63 32 63 63 30 39 36 62 66 36 35 61  7508c2cc096bf65a
b390: 34 64 34 64 33 33 37 61 65 61 32 32 30 30 38 65  4d4d337aea22008e
b3a0: 64 62 39 61 33 62 61 65 38 36 39 66 39 34 65 30  db9a3bae869f94e0
b3b0: 39 66 62 35 32 36 61 35 32 63 33 33 36 38 65 39  9fb526a52c3368e9
b3c0: 62 32 38 35 37 36 66 62 39 35 30 66 30 37 38 62  b28576fb950f078b
b3d0: 37 65 34 33 62 35 35 36 32 31 32 30 65 36 0a 0a  7e43b5562120e6..
b3e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
b3f0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 31 36 20  sh_SHA384-2.116 
b400: 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d  {SHA384ShortMsg}
b410: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
b420: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75   SHA384 \..-setu
b430: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
b440: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30  ary decode hex 0
b450: 31 61 62 63 39 30 65 39 31 38 30 66 63 39 62 62  1abc90e9180fc9bb
b460: 38 65 61 36 37 61 34 30 35 30 37 33 65 64 36 38  8ea67a405073ed68
b470: 34 38 62 66 33 33 30 34 38 30 37 36 35 36 36 34  48bf330480765664
b480: 37 36 63 35 35 38 33 36 62 63 62 31 39 64 33 65  76c55836bcb19d3e
b490: 35 35 65 39 34 30 30 63 35 63 63 36 35 37 62 63  55e9400c5cc657bc
b4a0: 37 61 39 35 66 31 64 37 30 33 63 33 39 30 66 35  7a95f1d703c390f5
b4b0: 61 38 36 38 37 65 37 63 64 37 66 65 39 31 33 38  a8687e7cd7fe9138
b4c0: 65 61 33 38 33 37 62 66 63 61 64 61 64 36 32 35  ea3837bfcadad625
b4d0: 38 61 33 65 62 38 64 36 35 31 32 31 66 61 38 33  8a3eb8d65121fa83
b4e0: 31 39 62 66 64 65 35 33 32 61 65 63 30 65 36 39  19bfde532aec0e69
b4f0: 34 39 36 31 62 64 64 64 32 62 36 37 33 66 32 38  4961bddd2b673f28
b500: 34 31 32 34 62 65 35 37 38 31 31 30 30 66 34 30  4124be5781100f40
b510: 33 38 31 62 36 66 66 39 39 64 62 39 32 65 61 39  381b6ff99db92ea9
b520: 63 63 38 32 61 34 33 37 32 65 35 33 39 32 34 64  cc82a4372e53924d
b530: 61 63 33 39 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  ac398]} \..-body
b540: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
b550: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61  igest SHA384 -da
b560: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
b570: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
b580: 74 20 39 36 62 32 30 39 64 37 63 62 32 63 32 30  t 96b209d7cb2c20
b590: 33 33 62 33 38 33 35 30 37 34 34 37 36 37 66 61  33b38350744767fa
b5a0: 35 63 32 35 33 65 31 62 66 64 62 39 39 66 65 38  5c253e1bfdb99fe8
b5b0: 34 31 38 62 66 66 38 33 38 30 34 64 66 30 32 32  418bff83804df022
b5c0: 34 38 31 34 30 66 65 33 62 37 37 62 30 62 66 64  48140fe3b77b0bfd
b5d0: 34 61 37 39 62 35 31 66 37 30 34 30 35 61 34 33  4a79b51f70405a43
b5e0: 34 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  4b..tcltest::tes
b5f0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e  t Hash_SHA384-2.
b600: 31 31 37 20 7b 53 48 41 33 38 34 53 68 6f 72 74  117 {SHA384Short
b610: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
b620: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d  ints SHA384 \..-
b630: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
b640: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
b650: 65 78 20 62 35 35 35 64 39 39 30 35 36 33 36 32  ex b555d99056362
b660: 62 66 63 32 62 61 63 32 61 31 62 62 62 37 31 62  bfc2bac2a1bbb71b
b670: 61 31 31 32 64 36 34 34 65 35 30 62 38 32 62 30  a112d644e50b82b0
b680: 31 35 65 35 61 31 63 65 33 64 39 63 64 35 65 39  15e5a1ce3d9cd5e9
b690: 30 62 38 62 37 34 62 30 38 64 33 32 31 31 39 62  0b8b74b08d32119b
b6a0: 61 61 36 32 61 62 61 65 32 35 31 66 63 30 30 31  aa62abae251fc001
b6b0: 35 65 34 30 30 30 35 31 61 64 61 34 65 63 61 66  5e400051ada4ecaf
b6c0: 63 65 33 36 38 31 65 35 64 65 37 32 37 63 32 30  ce3681e5de727c20
b6d0: 64 34 37 66 35 63 61 64 63 36 36 33 64 34 36 61  d47f5cadc663d46a
b6e0: 63 36 38 32 30 32 32 63 61 33 39 36 61 34 62 37  c682022ca396a4b7
b6f0: 65 64 31 63 34 31 33 65 30 62 37 32 62 64 37 65  ed1c413e0b72bd7e
b700: 65 63 34 61 30 64 66 64 63 32 61 32 31 38 35 61  ec4a0dfdc2a2185a
b710: 62 62 35 64 39 39 61 66 64 35 30 39 34 30 35 32  bb5d99afd5094052
b720: 38 63 61 37 35 61 64 38 39 64 61 65 62 39 61 31  8ca75ad89daeb9a1
b730: 62 36 31 65 31 35 37 34 37 66 30 5d 7d 20 5c 0a  b61e15747f0]} \.
b740: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
b750: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
b760: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
b770: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
b780: 2d 72 65 73 75 6c 74 20 61 62 64 33 39 66 37 39  -result abd39f79
b790: 64 37 32 63 36 63 64 32 65 38 65 31 33 30 66 33  d72c6cd2e8e130f3
b7a0: 36 30 33 30 33 32 66 65 33 63 65 66 34 31 37 37  603032fe3cef4177
b7b0: 63 33 35 36 33 39 33 30 30 39 36 64 66 31 66 31  c3563930096df1f1
b7c0: 30 62 38 37 65 37 39 63 64 34 65 32 30 35 39 63  0b87e79cd4e2059c
b7d0: 66 31 62 39 66 38 32 35 32 31 38 34 62 62 32 36  f1b9f8252184bb26
b7e0: 66 36 35 39 61 35 64 61 0a 0a 74 63 6c 74 65 73  f659a5da..tcltes
b7f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
b800: 33 38 34 2d 32 2e 31 31 38 20 7b 53 48 41 33 38  384-2.118 {SHA38
b810: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
b820: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
b830: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
b840: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
b850: 63 6f 64 65 20 68 65 78 20 31 34 66 62 30 31 61  code hex 14fb01a
b860: 65 39 64 36 30 31 35 65 63 62 33 65 35 36 64 36  e9d6015ecb3e56d6
b870: 65 63 64 66 61 34 62 63 30 35 33 33 31 38 36 61  ecdfa4bc0533186a
b880: 64 66 38 34 35 37 66 35 65 34 61 35 63 35 37 63  df8457f5e4a5c57c
b890: 36 38 37 38 39 35 66 33 64 62 33 39 35 64 30 36  687895f3db395d06
b8a0: 61 65 37 66 66 62 64 36 37 65 63 34 31 34 35 32  ae7ffbd67ec41452
b8b0: 30 30 39 35 35 30 64 66 63 31 38 37 38 65 65 63  009550dfc1878eec
b8c0: 30 64 66 32 65 65 61 62 30 39 65 38 36 36 35 66  0df2eeab09e8665f
b8d0: 37 65 35 39 66 39 31 34 38 61 38 36 62 32 62 63  7e59f9148a86b2bc
b8e0: 36 39 35 62 33 36 35 32 31 61 35 35 62 32 33 30  695b36521a55b230
b8f0: 32 66 32 65 38 36 39 61 61 63 38 33 66 31 34 64  2f2e869aac83f14d
b900: 36 66 65 61 66 63 39 65 35 38 37 33 32 32 63 33  6feafc9e587322c3
b910: 63 34 34 66 30 35 32 65 61 31 63 30 35 37 38 38  c44f052ea1c05788
b920: 38 34 66 38 34 66 35 36 33 30 37 62 63 36 64 64  84f84f56307bc6dd
b930: 65 33 31 62 61 34 38 31 31 38 61 30 66 36 32 62  e31ba48118a0f62b
b940: 36 66 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  6fd]} \..-body {
b950: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
b960: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61  est SHA384 -data
b970: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
b980: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
b990: 66 63 39 62 39 61 39 35 61 38 63 65 31 63 31 35  fc9b9a95a8ce1c15
b9a0: 37 37 32 30 63 62 36 33 31 30 31 61 37 35 39 34  7720cb63101a7594
b9b0: 64 66 32 34 66 34 63 63 37 34 62 61 66 37 33 35  df24f4cc74baf735
b9c0: 62 30 63 63 66 36 61 62 62 39 32 35 34 37 38 61  b0ccf6abb925478a
b9d0: 64 35 30 37 63 64 30 34 38 64 33 30 63 64 65 31  d507cd048d30cde1
b9e0: 63 37 38 38 38 30 36 66 34 33 65 64 33 61 38 31  c788806f43ed3a81
b9f0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
ba00: 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 31  Hash_SHA384-2.11
ba10: 39 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  9 {SHA384ShortMs
ba20: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
ba30: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
ba40: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
ba50: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
ba60: 20 31 31 61 65 30 63 62 66 65 65 37 62 62 33 64   11ae0cbfee7bb3d
ba70: 66 39 30 63 65 35 38 35 66 30 39 62 39 63 66 38  f90ce585f09b9cf8
ba80: 66 66 35 62 65 61 36 39 61 36 38 65 65 62 36 63  ff5bea69a68eeb6c
ba90: 32 32 35 35 33 66 38 65 64 31 31 38 63 39 61 36  22553f8ed118c9a6
baa0: 31 65 37 62 37 35 32 63 63 32 63 39 34 66 33 38  1e7b752cc2c94f38
bab0: 37 36 36 65 36 33 65 31 62 38 39 31 64 66 61 30  766e63e1b891dfa0
bac0: 35 62 32 33 33 34 37 62 36 31 37 64 34 32 66 64  5b23347b617d42fd
bad0: 65 33 65 63 31 37 65 65 61 36 65 37 36 64 33 63  e3ec17eea6e76d3c
bae0: 62 36 34 30 62 66 38 66 61 34 36 35 38 36 66 62  b640bf8fa46586fb
baf0: 39 64 64 35 63 34 64 39 62 66 65 65 30 34 63 34  9dd5c4d9bfee04c4
bb00: 36 34 39 35 37 31 62 37 38 31 37 30 39 66 38 34  649571b781709f84
bb10: 38 61 64 37 30 38 31 61 66 62 36 65 32 63 37 34  8ad7081afb6e2c74
bb20: 36 66 30 37 31 61 35 35 31 32 35 31 30 35 30 66  6f071a551251050f
bb30: 64 35 64 66 37 32 65 65 36 35 32 34 38 65 63 64  d5df72ee65248ecd
bb40: 63 32 34 66 32 63 62 65 37 34 65 64 35 5d 7d 20  c24f2cbe74ed5]} 
bb50: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
bb60: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
bb70: 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61  A384 -data $data
bb80: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
bb90: 74 20 2d 72 65 73 75 6c 74 20 33 32 31 34 62 35  t -result 3214b5
bba0: 66 65 65 63 39 32 35 30 35 39 31 34 39 66 61 38  feec925059149fa8
bbb0: 35 32 65 33 61 65 32 38 35 61 36 65 62 33 37 37  52e3ae285a6eb377
bbc0: 64 66 39 32 36 35 30 34 65 32 66 38 32 34 35 37  df926504e2f82457
bbd0: 32 61 33 61 65 62 64 32 30 35 30 61 32 30 31 34  2a3aebd2050a2014
bbe0: 34 65 37 62 65 64 65 37 65 37 66 65 32 33 38 65  4e7bede7e7fe238e
bbf0: 65 38 33 65 36 39 66 37 32 63 0a 0a 74 63 6c 74  e83e69f72c..tclt
bc00: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
bc10: 48 41 33 38 34 2d 32 2e 31 32 30 20 7b 53 48 41  HA384-2.120 {SHA
bc20: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
bc30: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
bc40: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
bc50: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
bc60: 64 65 63 6f 64 65 20 68 65 78 20 61 35 63 34 61  decode hex a5c4a
bc70: 34 37 61 30 34 66 34 37 31 34 32 36 39 64 35 64  47a04f4714269d5d
bc80: 39 32 32 62 61 34 36 39 34 30 36 30 61 61 32 64  922ba4694060aa2d
bc90: 66 34 39 31 39 33 37 32 30 63 38 31 39 66 61 63  f49193720c819fac
bca0: 39 33 62 62 38 37 38 37 65 63 35 35 61 31 30 37  93bb8787ec55a107
bcb0: 61 63 39 61 36 36 30 32 66 30 30 34 35 66 64 32  ac9a6602f0045fd2
bcc0: 63 63 38 65 36 36 37 34 34 62 66 38 36 33 63 65  cc8e66744bf863ce
bcd0: 64 39 31 65 65 61 62 65 36 30 65 37 64 32 63 31  d91eeabe60e7d2c1
bce0: 64 38 30 32 37 36 65 63 66 33 62 62 65 39 31 66  d80276ecf3bbe91f
bcf0: 31 37 35 37 30 39 36 63 66 35 38 39 32 31 34 66  1757096cf589214f
bd00: 33 35 36 39 63 32 63 34 38 62 64 37 34 62 65 37  3569c2c48bd74be7
bd10: 66 38 62 65 66 64 64 62 32 38 33 39 35 38 31 34  f8befddb28395814
bd20: 37 38 30 61 34 37 63 31 38 30 61 35 38 62 30 64  780a47c180a58b0d
bd30: 30 32 37 36 61 37 65 39 38 37 33 64 36 38 32 66  0276a7e9873d682f
bd40: 34 37 33 65 32 37 64 65 37 32 37 35 63 39 32 35  473e27de7275c925
bd50: 65 64 65 32 33 62 36 63 63 5d 7d 20 5c 0a 09 2d  ede23b6cc]} \..-
bd60: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
bd70: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
bd80: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
bd90: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
bda0: 65 73 75 6c 74 20 36 62 64 39 65 31 33 30 33 35  esult 6bd9e13035
bdb0: 37 39 64 38 31 35 66 35 38 65 38 63 36 63 39 38  79d815f58e8c6c98
bdc0: 35 35 38 35 30 31 33 33 32 35 31 37 37 38 61 36  55850133251778a6
bdd0: 33 32 66 37 62 33 31 32 63 34 62 33 31 36 33 62  32f7b312c4b3163b
bde0: 32 39 62 35 65 66 36 63 62 39 35 31 31 61 30 38  29b5ef6cb9511a08
bdf0: 61 33 31 61 32 33 37 64 39 61 37 36 30 34 61 66  a31a237d9a7604af
be00: 62 66 61 30 35 36 0a 0a 74 63 6c 74 65 73 74 3a  bfa056..tcltest:
be10: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
be20: 34 2d 32 2e 31 32 31 20 7b 53 48 41 33 38 34 53  4-2.121 {SHA384S
be30: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
be40: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20  straints SHA384 
be50: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
be60: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
be70: 64 65 20 68 65 78 20 37 35 32 36 34 37 37 34 61  de hex 75264774a
be80: 66 36 39 65 63 37 65 65 33 31 32 35 65 32 30 35  f69ec7ee3125e205
be90: 62 64 36 64 31 63 62 38 66 64 62 32 32 66 37 65  bd6d1cb8fdb22f7e
bea0: 61 36 64 62 65 37 32 64 31 66 32 63 30 66 37 65  a6dbe72d1f2c0f7e
beb0: 32 32 30 35 39 30 32 37 39 36 64 37 35 65 33 37  2205902796d75e37
bec0: 39 63 37 39 62 31 31 34 39 38 36 31 35 63 32 31  9c79b11498615c21
bed0: 63 39 66 35 32 62 38 37 36 31 61 38 38 35 65 65  c9f52b8761a885ee
bee0: 63 63 36 39 64 31 33 32 62 32 62 34 38 63 36 33  cc69d132b2b48c63
bef0: 62 63 30 37 34 63 33 30 35 35 65 65 35 63 63 31  bc074c3055ee5cc1
bf00: 33 66 35 31 64 36 63 39 38 37 65 38 31 38 38 62  3f51d6c987e8188b
bf10: 30 33 30 62 38 33 37 65 38 66 37 35 34 64 34 30  030b837e8f754d40
bf20: 31 32 32 62 34 35 31 66 31 35 62 32 38 63 64 32  122b451f15b28cd2
bf30: 62 64 64 35 37 36 39 32 30 65 31 64 65 35 38 30  bdd576920e1de580
bf40: 36 35 39 33 61 33 36 64 38 65 31 65 38 39 62 39  6593a36d8e1e89b9
bf50: 65 66 33 63 61 65 66 65 65 35 61 63 64 38 30 62  ef3caefee5acd80b
bf60: 33 65 39 63 39 64 31 5d 7d 20 5c 0a 09 2d 62 6f  3e9c9d1]} \..-bo
bf70: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
bf80: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d  -digest SHA384 -
bf90: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
bfa0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
bfb0: 75 6c 74 20 66 66 61 39 65 34 65 38 35 36 64 30  ult ffa9e4e856d0
bfc0: 36 32 32 37 63 31 63 63 62 39 35 39 62 65 35 35  6227c1ccb959be55
bfd0: 38 33 30 39 63 63 31 30 36 33 33 31 37 33 66 34  8309cc10633173f4
bfe0: 62 36 36 63 65 62 33 38 32 39 32 33 62 35 32 62  b66ceb382923b52b
bff0: 39 31 35 30 61 63 66 62 30 38 61 37 33 39 33 35  9150acfb08a73935
c000: 30 30 34 37 37 61 36 65 65 34 34 32 35 61 38 32  00477a6ee4425a82
c010: 37 65 37 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  7e76..tcltest::t
c020: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d  est Hash_SHA384-
c030: 32 2e 31 32 32 20 7b 53 48 41 33 38 34 53 68 6f  2.122 {SHA384Sho
c040: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
c050: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a  raints SHA384 \.
c060: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
c070: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
c080: 20 68 65 78 20 37 39 31 61 33 36 64 37 34 38 36   hex 791a36d7486
c090: 39 35 65 36 32 64 62 35 30 30 33 61 38 61 64 33  95e62db5003a8ad3
c0a0: 36 37 64 66 31 66 30 35 31 63 31 61 63 36 61 32  67df1f051c1ac6a2
c0b0: 31 64 37 31 31 38 32 33 65 38 65 30 36 39 62 35  1d711823e8e069b5
c0c0: 34 36 65 33 66 61 30 36 63 65 65 61 61 65 30 36  46e3fa06ceeaae06
c0d0: 64 65 37 30 61 31 64 65 32 34 39 65 31 64 66 66  de70a1de249e1dff
c0e0: 64 30 64 39 34 30 65 64 63 36 61 63 61 63 30 30  d0d940edc6acac00
c0f0: 63 34 63 31 35 35 30 34 63 30 32 64 34 62 30 39  c4c15504c02d4b09
c100: 33 33 36 35 38 30 30 35 34 32 33 34 35 35 66 30  33658005423455f0
c110: 30 30 32 33 62 30 31 63 64 63 35 62 36 38 31 62  0023b01cdc5b681b
c120: 36 30 38 33 33 37 39 63 32 34 35 39 35 35 31 38  6083379c24595518
c130: 61 34 37 63 36 35 34 66 35 65 31 61 31 30 39 34  a47c654f5e1a1094
c140: 37 64 66 31 30 63 30 35 61 33 64 37 31 36 62 32  7df10c05a3d716b2
c150: 61 39 37 33 66 61 66 39 38 65 31 65 65 33 62 36  a973faf98e1ee3b6
c160: 37 35 38 31 36 35 39 38 62 62 38 64 34 63 32 61  75816598bb8d4c2a
c170: 33 62 30 36 65 62 37 5d 7d 20 5c 0a 09 2d 62 6f  3b06eb7]} \..-bo
c180: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
c190: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d  -digest SHA384 -
c1a0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
c1b0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
c1c0: 75 6c 74 20 66 38 64 33 33 33 36 39 36 38 30 35  ult f8d333696805
c1d0: 32 34 65 64 36 63 36 61 37 31 36 64 34 63 35 30  24ed6c6a716d4c50
c1e0: 32 64 65 33 65 61 63 38 39 31 66 33 34 30 66 34  2de3eac891f340f4
c1f0: 30 65 38 32 65 33 37 35 30 31 62 65 31 61 39 30  0e82e37501be1a90
c200: 66 62 36 31 64 32 36 65 35 64 61 61 66 65 39 32  fb61d26e5daafe92
c210: 62 63 36 65 66 35 65 63 30 61 65 34 33 31 31 36  bc6ef5ec0ae43116
c220: 38 38 34 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  8842..tcltest::t
c230: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d  est Hash_SHA384-
c240: 32 2e 31 32 33 20 7b 53 48 41 33 38 34 53 68 6f  2.123 {SHA384Sho
c250: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
c260: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a  raints SHA384 \.
c270: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
c280: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
c290: 20 68 65 78 20 37 34 63 64 38 36 62 62 65 64 31   hex 74cd86bbed1
c2a0: 34 64 38 39 35 33 30 31 64 38 61 35 34 62 32 39  4d895301d8a54b29
c2b0: 35 36 62 31 63 35 63 64 31 34 35 31 65 65 62 61  56b1c5cd1451eeba
c2c0: 62 36 32 30 62 39 37 38 64 34 65 63 65 66 32 63  b620b978d4ecef2c
c2d0: 62 64 66 37 61 31 34 33 36 37 33 38 31 66 35 65  bdf7a14367381f5e
c2e0: 65 37 39 32 38 31 61 37 37 33 33 33 37 37 34 30  e79281a773337740
c2f0: 66 62 39 66 35 38 35 33 66 34 32 35 33 63 34 62  fb9f5853f4253c4b
c300: 31 39 66 36 38 34 33 34 31 30 38 31 64 38 66 35  19f684341081d8f5
c310: 36 31 62 32 61 64 37 37 33 32 32 34 31 35 31 30  61b2ad7732241510
c320: 39 39 35 38 38 64 61 39 30 65 30 34 64 64 64 64  99588da90e04dddd
c330: 35 36 35 66 36 37 35 39 36 63 35 33 36 64 36 34  565f67596c536d64
c340: 63 35 62 38 37 65 39 34 38 30 61 64 34 33 36 30  c5b87e9480ad4360
c350: 31 33 39 37 35 30 37 61 64 31 62 36 31 63 61 30  1397507ad1b61ca0
c360: 65 33 34 39 66 62 38 38 66 31 39 66 65 62 34 38  e349fb88f19feb48
c370: 66 37 37 30 36 37 36 66 64 35 36 32 65 65 38 32  f770676fd562ee82
c380: 35 39 66 35 30 64 30 63 39 5d 7d 20 5c 0a 09 2d  59f50d0c9]} \..-
c390: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
c3a0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34  t -digest SHA384
c3b0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
c3c0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
c3d0: 65 73 75 6c 74 20 37 33 65 65 38 64 32 39 63 33  esult 73ee8d29c3
c3e0: 30 38 32 31 64 63 64 66 61 34 34 34 31 36 33 39  0821dcdfa4441639
c3f0: 66 30 33 37 66 62 36 62 61 33 61 39 63 61 35 39  f037fb6ba3a9ca59
c400: 36 64 63 34 33 34 32 38 30 34 33 37 38 35 37 35  6dc4342804378575
c410: 36 36 30 38 66 36 32 30 37 64 38 30 62 37 66 37  6608f6207d80b7f7
c420: 38 65 35 37 33 31 37 34 66 62 39 64 66 64 34 32  8e573174fb9dfd42
c430: 66 30 62 38 63 64 0a 0a 74 63 6c 74 65 73 74 3a  f0b8cd..tcltest:
c440: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38  :test Hash_SHA38
c450: 34 2d 32 2e 31 32 34 20 7b 53 48 41 33 38 34 53  4-2.124 {SHA384S
c460: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
c470: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20  straints SHA384 
c480: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
c490: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
c4a0: 64 65 20 68 65 78 20 34 36 36 31 32 65 31 61 34  de hex 46612e1a4
c4b0: 64 30 31 36 63 34 31 37 30 30 61 33 62 35 63 63  d016c41700a3b5cc
c4c0: 62 33 38 33 32 33 33 35 33 62 64 38 64 61 35 62  b38323353bd8da5b
c4d0: 39 39 34 32 63 39 63 39 32 31 32 64 66 34 30 62  9942c9c9212df40b
c4e0: 34 62 65 65 30 36 62 65 33 36 32 61 31 35 64 61  4bee06be362a15da
c4f0: 64 36 32 63 38 62 32 39 32 34 64 37 38 39 31 36  d62c8b2924d78916
c500: 38 62 32 64 33 32 35 66 65 33 35 62 64 35 31 30  8b2d325fe35bd510
c510: 30 65 31 65 32 39 66 31 61 63 30 66 61 37 61 36  0e1e29f1ac0fa7a6
c520: 30 61 39 34 63 39 65 65 65 35 61 37 30 63 63 63  0a94c9eee5a70ccc
c530: 62 63 37 35 61 63 32 31 34 62 31 39 34 36 61 35  bc75ac214b1946a5
c540: 36 37 39 63 62 35 32 33 62 33 37 38 64 35 63 36  679cb523b378d5c6
c550: 39 30 37 35 31 62 37 61 37 61 33 62 38 30 64 34  90751b7a7a3b80d4
c560: 31 33 37 31 32 66 65 61 65 37 30 32 34 63 65 37  13712feae7024ce7
c570: 31 64 36 32 39 35 61 33 64 35 64 31 36 35 31 35  1d6295a3d5d16515
c580: 63 33 36 32 32 61 30 35 32 65 62 38 36 32 65 62  c3622a052eb862eb
c590: 64 61 62 38 31 63 61 37 66 65 33 61 30 5d 7d 20  dab81ca7fe3a0]} 
c5a0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
c5b0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
c5c0: 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61  A384 -data $data
c5d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
c5e0: 74 20 2d 72 65 73 75 6c 74 20 63 61 63 31 33 61  t -result cac13a
c5f0: 33 37 38 34 32 32 35 62 65 30 33 64 35 32 36 66  3784225be03d526f
c600: 39 61 62 63 31 65 62 35 30 61 37 36 32 65 37 32  9abc1eb50a762e72
c610: 63 30 65 30 31 31 37 32 61 31 35 64 35 37 38 38  c0e01172a15d5788
c620: 30 31 30 38 39 65 35 63 39 66 32 36 65 35 33 63  01089e5c9f26e53c
c630: 63 30 30 66 66 37 35 35 39 30 39 34 35 33 65 32  c00ff755909453e2
c640: 39 36 34 64 37 64 66 38 33 38 0a 0a 74 63 6c 74  964d7df838..tclt
c650: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
c660: 48 41 33 38 34 2d 32 2e 31 32 35 20 7b 53 48 41  HA384-2.125 {SHA
c670: 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  384ShortMsg} \..
c680: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
c690: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  384 \..-setup {s
c6a0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
c6b0: 64 65 63 6f 64 65 20 68 65 78 20 31 61 38 35 37  decode hex 1a857
c6c0: 63 31 66 31 30 35 64 30 36 38 63 65 61 62 30 62  c1f105d068ceab0b
c6d0: 31 65 31 32 34 39 34 38 39 30 65 63 31 39 36 33  1e12494890ec1963
c6e0: 36 32 61 34 38 62 30 32 30 30 61 30 64 37 35 64  62a48b0200a0d75d
c6f0: 37 31 32 62 31 38 66 62 31 34 62 65 63 36 62 62  712b18fb14bec6bb
c700: 35 62 36 38 61 33 33 62 37 65 30 62 34 66 64 63  5b68a33b7e0b4fdc
c710: 35 62 37 37 31 34 32 63 32 39 63 36 64 39 31 35  5b77142c29c6d915
c720: 31 62 39 66 38 38 34 66 35 39 35 35 31 66 34 37  1b9f884f59551f47
c730: 36 65 35 32 35 36 39 38 36 61 36 35 33 64 34 61  6e5256986a653d4a
c740: 34 36 38 66 32 38 31 34 31 65 64 39 35 34 37 32  468f28141ed95472
c750: 31 66 32 63 64 30 32 30 35 34 64 66 30 34 33 38  1f2cd02054df0438
c760: 37 33 38 31 39 34 35 34 35 65 64 37 30 32 33 34  738194545ed70234
c770: 31 37 33 61 63 34 39 38 38 62 37 64 36 32 38 31  173ac4988b7d6281
c780: 32 64 65 34 66 32 66 65 61 64 61 31 34 66 36 38  2de4f2feada14f68
c790: 65 33 62 34 31 62 63 39 39 34 38 64 34 31 33 39  e3b41bc9948d4139
c7a0: 66 34 66 62 34 64 61 35 39 33 39 66 32 36 63 30  f4fb4da5939f26c0
c7b0: 32 36 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  261]} \..-body {
c7c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
c7d0: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61  est SHA384 -data
c7e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
c7f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
c800: 62 37 35 64 39 32 62 35 63 64 33 37 37 32 38 34  b75d92b5cd377284
c810: 36 66 37 62 36 38 30 36 34 61 33 35 36 37 61 65  6f7b68064a3567ae
c820: 34 33 65 35 30 31 30 30 39 39 66 32 62 36 34 39  43e5010099f2b649
c830: 66 33 35 30 38 37 65 37 35 39 32 61 65 65 63 31  f35087e7592aeec1
c840: 37 36 36 34 36 66 63 38 63 32 36 32 39 32 38 38  76646fc8c2629288
c850: 39 34 34 32 36 31 63 64 33 35 62 35 66 63 62 61  944261cd35b5fcba
c860: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
c870: 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 32  Hash_SHA384-2.12
c880: 36 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  6 {SHA384ShortMs
c890: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
c8a0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
c8b0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
c8c0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
c8d0: 20 39 64 33 36 38 31 38 64 30 63 35 61 30 30 38   9d36818d0c5a008
c8e0: 62 65 37 39 30 34 64 31 39 31 37 61 61 33 65 63  be7904d1917aa3ec
c8f0: 63 62 35 65 66 34 66 33 38 63 65 63 62 38 63 34  cb5ef4f38cecb8c4
c900: 65 36 33 63 34 62 32 65 39 62 34 62 30 39 31 61  e63c4b2e9b4b091a
c910: 33 62 66 32 35 62 34 65 64 30 33 33 32 34 34 35  3bf25b4ed0332445
c920: 66 38 39 34 63 32 61 34 63 32 35 38 62 37 34 39  f894c2a4c258b749
c930: 61 66 61 31 37 66 61 64 30 33 63 64 64 34 31 37  afa17fad03cdd417
c940: 31 33 61 38 36 39 66 38 39 39 62 61 39 61 30 38  13a869f899ba9a08
c950: 35 65 37 33 66 61 39 34 37 34 61 35 38 64 62 37  5e73fa9474a58db7
c960: 61 39 35 30 64 33 61 32 33 38 36 62 36 30 66 37  a950d3a2386b60f7
c970: 39 34 39 35 64 38 62 66 37 33 65 37 32 61 63 61  9495d8bf73e72aca
c980: 66 66 64 62 66 36 35 65 31 39 38 39 66 66 39 63  ffdbf65e1989ff9c
c990: 63 32 30 36 62 61 38 63 34 36 61 33 36 38 64 38  c206ba8c46a368d8
c9a0: 35 31 32 62 61 63 37 63 37 63 31 39 31 64 37 31  512bac7c7c191d71
c9b0: 33 61 63 61 39 34 39 64 34 35 64 66 32 39 37 62  3aca949d45df297b
c9c0: 31 62 36 35 39 34 61 31 61 33 33 5d 7d 20 5c 0a  1b6594a1a33]} \.
c9d0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
c9e0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
c9f0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
ca00: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
ca10: 2d 72 65 73 75 6c 74 20 61 38 38 64 61 38 34 34  -result a88da844
ca20: 35 37 39 66 33 65 33 37 32 35 64 30 30 64 61 61  579f3e3725d00daa
ca30: 38 65 31 65 32 38 37 64 61 34 62 66 62 62 32 64  8e1e287da4bfbb2d
ca40: 39 33 31 65 62 65 38 64 33 62 31 36 30 32 31 31  931ebe8d3b160211
ca50: 35 34 62 65 35 30 33 33 34 31 64 36 33 37 31 64  54be503341d6371d
ca60: 33 38 32 61 64 61 37 34 34 66 38 36 66 35 62 62  382ada744f86f5bb
ca70: 62 35 36 63 64 63 66 61 0a 0a 74 63 6c 74 65 73  b56cdcfa..tcltes
ca80: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
ca90: 33 38 34 2d 32 2e 31 32 37 20 7b 53 48 41 33 38  384-2.127 {SHA38
caa0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
cab0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
cac0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
cad0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
cae0: 63 6f 64 65 20 68 65 78 20 34 61 65 35 30 65 64  code hex 4ae50ed
caf0: 36 32 36 65 65 36 30 64 63 35 65 61 35 35 36 65  626ee60dc5ea556e
cb00: 33 63 65 30 64 33 63 31 38 62 39 65 36 32 32 35  3ce0d3c18b9e6225
cb10: 62 35 36 32 30 38 31 34 65 38 62 39 36 32 31 61  b5620814e8b9621a
cb20: 63 66 38 66 39 33 39 64 64 33 37 30 61 64 39 63  cf8f939dd370ad9c
cb30: 37 36 32 30 64 38 35 65 36 64 36 37 61 32 32 39  7620d85e6d67a229
cb40: 66 33 37 66 35 31 37 64 31 62 35 38 30 61 63 61  f37f517d1b580aca
cb50: 65 38 64 66 30 62 35 63 39 64 32 39 64 37 35 36  e8df0b5c9d29d756
cb60: 66 36 64 35 65 62 64 33 62 36 33 62 35 35 34 65  f6d5ebd3b63b554e
cb70: 35 35 36 34 36 39 62 35 62 34 66 38 65 37 31 31  556469b5b4f8e711
cb80: 33 62 61 64 31 35 35 39 66 62 32 35 34 63 61 38  3bad1559fb254ca8
cb90: 32 37 66 63 64 30 30 34 32 35 64 31 38 62 30 62  27fcd00425d18b0b
cba0: 65 37 66 32 62 34 38 63 32 35 34 34 63 34 38 64  e7f2b48c2544c48d
cbb0: 39 30 39 38 32 65 63 36 32 34 66 34 39 30 62 65  90982ec624f490be
cbc0: 36 35 65 38 39 33 66 61 39 33 61 63 39 34 36 37  65e893fa93ac9467
cbd0: 66 33 35 61 30 61 38 65 31 62 35 36 64 39 61 34  f35a0a8e1b56d9a4
cbe0: 30 33 37 34 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  03748]} \..-body
cbf0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
cc00: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61  igest SHA384 -da
cc10: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
cc20: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
cc30: 74 20 66 38 63 64 39 34 33 66 34 32 39 33 33 33  t f8cd943f429333
cc40: 63 37 63 38 64 33 30 61 38 35 37 36 38 32 37 66  c7c8d30a8576827f
cc50: 39 32 63 39 32 61 65 31 38 65 30 64 62 63 61 65  92c92ae18e0dbcae
cc60: 37 37 30 36 30 31 62 37 39 36 38 37 62 63 63 66  770601b79687bccf
cc70: 38 63 32 33 65 39 65 35 38 39 64 66 65 62 34 35  8c23e9e589dfeb45
cc80: 63 33 62 39 62 63 61 66 64 64 35 34 35 65 34 35  c3b9bcafdd545e45
cc90: 65 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e7..tcltest::tes
cca0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e  t Hash_SHA384-2.
ccb0: 31 32 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74  128 {SHA384Short
ccc0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
ccd0: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d  ints SHA384 \..-
cce0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
ccf0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
cd00: 65 78 20 64 62 65 64 37 36 31 32 34 34 38 64 34  ex dbed7612448d4
cd10: 36 63 62 65 30 61 33 38 34 64 31 63 39 33 32 33  6cbe0a384d1c9323
cd20: 33 66 30 32 66 66 64 31 63 39 38 34 62 61 37 36  3f02ffd1c984ba76
cd30: 35 32 39 39 35 31 38 36 35 36 64 33 37 32 33 62  5299518656d3723b
cd40: 37 36 36 63 31 36 35 38 64 34 62 31 65 37 30 34  766c1658d4b1e704
cd50: 37 63 64 63 37 32 39 34 35 39 65 33 36 36 65 66  7cdc729459e366ef
cd60: 39 33 34 39 65 66 63 34 30 63 62 64 39 39 30 66  9349efc40cbd990f
cd70: 32 61 39 61 32 34 64 62 37 61 35 30 34 35 65 31  2a9a24db7a5045e1
cd80: 64 65 61 31 32 64 63 65 38 66 39 64 39 66 32 61  dea12dce8f9d9f2a
cd90: 61 65 64 39 33 33 66 39 33 30 33 31 65 37 62 38  aed933f93031e7b8
cda0: 39 35 39 61 63 35 65 37 62 66 36 62 62 62 64 66  959ac5e7bf6bbbdf
cdb0: 33 30 62 34 38 66 37 65 62 37 38 33 66 38 66 65  30b48f7eb783f8fe
cdc0: 32 39 32 33 37 31 61 32 66 32 34 35 63 35 63 39  292371a2f245c5c9
cdd0: 34 62 34 61 63 61 65 31 36 30 37 36 37 61 32 30  4b4acae160767a20
cde0: 63 65 37 63 30 65 61 37 37 32 33 64 39 37 36 39  ce7c0ea7723d9769
cdf0: 31 64 38 65 65 64 64 61 39 65 66 64 31 66 65 32  1d8eedda9efd1fe2
ce00: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
ce10: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
ce20: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24  t SHA384 -data $
ce30: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
ce40: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 62  exact -result fb
ce50: 35 33 31 61 31 65 64 31 38 31 63 37 33 32 33 31  531a1ed181c73231
ce60: 31 65 35 36 66 34 62 35 36 65 64 39 31 64 63 61  1e56f4b56ed91dca
ce70: 63 63 30 64 64 36 62 66 31 65 62 34 61 34 34 62  cc0dd6bf1eb4a44b
ce80: 65 36 66 38 37 64 64 37 63 62 31 65 66 39 64 66  e6f87dd7cb1ef9df
ce90: 62 30 33 31 30 66 34 61 37 39 65 61 61 61 33 66  b0310f4a79eaaa3f
cea0: 33 32 62 66 33 39 31 34 64 38 36 32 34 65 0a 0a  32bf3914d8624e..
ceb0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
cec0: 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 32 39 20  sh_SHA384-2.129 
ced0: 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d  {SHA384ShortMsg}
cee0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
cef0: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75   SHA384 \..-setu
cf00: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
cf10: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33  ary decode hex 3
cf20: 62 66 35 32 63 63 35 65 65 38 36 62 39 61 30 31  bf52cc5ee86b9a01
cf30: 39 30 66 33 39 30 61 35 63 30 33 36 36 61 35 36  90f390a5c0366a56
cf40: 30 62 35 35 37 30 30 30 64 62 65 35 31 31 35 66  0b557000dbe5115f
cf50: 64 39 65 65 31 31 36 33 30 61 36 32 37 36 39 30  d9ee11630a627690
cf60: 31 31 35 37 35 66 31 35 38 38 31 31 39 38 66 32  11575f15881198f2
cf70: 32 37 38 37 36 65 38 66 65 36 38 35 61 36 39 33  27876e8fe685a693
cf80: 39 62 63 38 62 38 39 66 64 34 38 61 33 34 65 63  9bc8b89fd48a34ec
cf90: 35 65 37 31 65 31 33 31 34 36 32 62 32 38 38 36  5e71e131462b2886
cfa0: 37 39 34 64 66 66 61 36 38 63 63 63 36 64 35 36  794dffa68ccc6d56
cfb0: 34 37 33 33 65 36 37 66 66 65 66 32 35 65 36 32  4733e67ffef25e62
cfc0: 37 63 36 66 34 62 35 34 36 30 37 39 36 65 33 62  7c6f4b5460796e3b
cfd0: 63 65 36 37 62 66 35 38 63 61 36 65 38 65 35 35  ce67bf58ca6e8e55
cfe0: 35 62 63 39 31 36 61 38 35 33 31 36 39 37 61 63  5bc916a8531697ac
cff0: 39 34 38 62 39 30 64 63 38 36 31 36 66 32 35 31  948b90dc8616f251
d000: 30 31 64 62 39 30 62 35 30 63 33 64 33 64 62 63  01db90b50c3d3dbc
d010: 39 65 32 31 65 34 32 66 66 33 38 37 31 38 37 5d  9e21e42ff387187]
d020: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
d030: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
d040: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
d050: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
d060: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 32 62 36  act -result 12b6
d070: 63 62 33 35 65 64 61 39 32 65 65 33 37 33 35 36  cb35eda92ee37356
d080: 64 64 65 65 37 37 37 38 31 61 31 37 62 33 64 39  ddee77781a17b3d9
d090: 30 65 35 36 33 38 32 34 61 39 38 34 66 61 66 66  0e563824a984faff
d0a0: 63 36 66 64 64 31 36 39 33 62 64 37 36 32 36 30  c6fdd1693bd76260
d0b0: 33 39 36 33 35 35 36 33 63 66 63 33 62 39 61 32  39635563cfc3b9a2
d0c0: 62 30 30 66 39 63 36 35 65 65 66 64 0a 0a 23 20  b00f9c65eefd..# 
d0d0: 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73  Cleanup.::tcltes
d0e0: 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a  t::cleanupTests.
d0f0: 72 65 74 75 72 6e 0a                             return.