TclTLS
Hex Artifact Content
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
Download

Artifact af2f570629cbbc5835875860cfb21d8ae907d5a3955b5dbf076a51c821f8827b:

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 6c 61 70 70 65  rtMsg.rsp".lappe
0030: 6e 64 20 61 75 74 6f 5f 70 61 74 68 20 5b 66 69  nd auto_path [fi
0040: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65  le dirname [file
0050: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64   dirname [file d
0060: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72  irname [file dir
0070: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  name [file join 
0080: 5b 70 77 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69  [pwd] [info scri
0090: 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65  pt]]]]]].package
00a0: 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63   require tls.pac
00b0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c  kage require tcl
00c0: 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  test..tcltest::t
00d0: 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20 53 48  estConstraint SH
00e0: 41 33 38 34 20 5b 65 78 70 72 20 7b 5b 6c 73 65  A384 [expr {[lse
00f0: 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c  arch -nocase [tl
0100: 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 48 41 33  s::digests] SHA3
0110: 38 34 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 68  84] > -1}].catch
0120: 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20   {tls::provider 
0130: 6c 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 73 74  legacy}..tcltest
0140: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
0150: 38 34 2d 32 2e 31 20 7b 53 48 41 33 38 34 53 68  84-2.1 {SHA384Sh
0160: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0170: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
0180: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
0190: 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20  ta ""} \..-body 
01a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
01b0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
01c0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
01d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
01e0: 20 33 38 62 30 36 30 61 37 35 31 61 63 39 36 33   38b060a751ac963
01f0: 38 34 63 64 39 33 32 37 65 62 31 62 31 65 33 36  84cd9327eb1b1e36
0200: 61 32 31 66 64 62 37 31 31 31 34 62 65 30 37 34  a21fdb71114be074
0210: 33 34 63 30 63 63 37 62 66 36 33 66 36 65 31 64  34c0cc7bf63f6e1d
0220: 61 32 37 34 65 64 65 62 66 65 37 36 66 36 35 66  a274edebfe76f65f
0230: 62 64 35 31 61 64 32 66 31 34 38 39 38 62 39 35  bd51ad2f14898b95
0240: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
0250: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 32   Hash_SHA384-2.2
0260: 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67   {SHA384ShortMsg
0270: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0280: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74  s SHA384 \..-set
0290: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
02a0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
02b0: 63 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  c5]} \..-body {t
02c0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
02d0: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20  st SHA384 -data 
02e0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
02f0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62   exact -result b
0300: 35 32 62 37 32 64 61 37 35 64 30 36 36 36 33 37  52b72da75d066637
0310: 39 65 32 30 66 39 62 34 61 37 39 63 33 33 61 33  9e20f9b4a79c33a3
0320: 32 39 61 30 31 66 30 36 61 32 66 62 37 38 36 35  29a01f06a2fb7865
0330: 63 39 30 36 32 61 32 38 63 31 64 65 38 36 30 62  c9062a28c1de860b
0340: 61 34 33 32 65 64 66 64 38 36 62 34 63 62 31 63  a432edfd86b4cb1c
0350: 62 38 61 37 35 62 34 36 30 37 36 65 33 62 31 0a  b8a75b46076e3b1.
0360: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
0370: 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 33 20 7b  ash_SHA384-2.3 {
0380: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
0390: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
03a0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
03b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
03c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 65  ry decode hex 6e
03d0: 63 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  ce]} \..-body {t
03e0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
03f0: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20  st SHA384 -data 
0400: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0410: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35   exact -result 5
0420: 33 64 34 37 37 33 64 61 35 30 64 38 62 65 34 31  3d4773da50d8be41
0430: 34 35 64 38 66 33 61 37 30 39 38 66 66 33 36 39  45d8f3a7098ff369
0440: 31 61 35 35 34 61 32 39 61 65 36 66 36 35 32 63  1a554a29ae6f652c
0450: 63 37 31 32 31 65 62 38 62 63 39 36 66 64 32 32  c7121eb8bc96fd22
0460: 31 30 65 30 36 61 65 32 66 61 32 61 33 36 63 34  10e06ae2fa2a36c4
0470: 62 33 62 33 34 39 37 33 34 31 65 37 30 66 30 0a  b3b3497341e70f0.
0480: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
0490: 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34 20 7b  ash_SHA384-2.4 {
04a0: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
04b0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
04c0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
04d0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
04e0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 66  ry decode hex 1f
04f0: 61 34 64 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  a4d5]} \..-body 
0500: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0510: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
0520: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0530: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0540: 20 65 34 63 61 34 36 36 33 64 66 66 31 38 39 35   e4ca4663dff1895
0550: 34 31 63 64 30 32 36 64 63 63 30 35 36 36 32 36  41cd026dcc056626
0560: 34 31 39 30 32 38 37 37 34 36 36 36 66 35 62 33  419028774666f5b3
0570: 37 39 62 39 39 66 34 38 38 37 63 37 32 33 37 62  79b99f4887c7237b
0580: 64 62 64 33 62 65 61 34 36 64 35 33 38 38 62 65  dbd3bea46d5388be
0590: 30 65 66 63 32 64 34 62 37 39 38 39 61 62 32 63  0efc2d4b7989ab2c
05a0: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
05b0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 35   Hash_SHA384-2.5
05c0: 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67   {SHA384ShortMsg
05d0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
05e0: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74  s SHA384 \..-set
05f0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
0600: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
0610: 35 30 65 33 38 35 33 64 5d 7d 20 5c 0a 09 2d 62  50e3853d]} \..-b
0620: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0630: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20   -digest SHA384 
0640: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0650: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0660: 73 75 6c 74 20 39 33 36 61 33 63 33 39 39 31 37  sult 936a3c39917
0670: 31 36 62 61 34 63 34 31 33 62 63 30 33 64 65 32  16ba4c413bc03de2
0680: 30 66 35 63 65 31 63 36 33 37 30 33 62 33 61 35  0f5ce1c63703b3a5
0690: 62 64 62 36 61 62 35 35 38 63 39 66 66 37 30 64  bdb6ab558c9ff70d
06a0: 35 33 37 65 34 36 65 62 34 61 31 35 64 39 66 32  537e46eb4a15d9f2
06b0: 63 38 35 65 36 38 64 38 36 37 38 64 65 35 36 38  c85e68d8678de568
06c0: 32 36 39 35 65 0a 0a 74 63 6c 74 65 73 74 3a 3a  2695e..tcltest::
06d0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34  test Hash_SHA384
06e0: 2d 32 2e 36 20 7b 53 48 41 33 38 34 53 68 6f 72  -2.6 {SHA384Shor
06f0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
0700: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09  aints SHA384 \..
0710: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
0720: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0730: 68 65 78 20 34 62 35 66 61 62 36 31 65 30 5d 7d  hex 4b5fab61e0]}
0740: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
0750: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
0760: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74  HA384 -data $dat
0770: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
0780: 63 74 20 2d 72 65 73 75 6c 74 20 66 62 33 39 30  ct -result fb390
0790: 61 61 35 62 37 30 62 30 36 38 61 35 34 64 36 64  aa5b70b068a54d6d
07a0: 35 31 32 37 64 66 36 61 36 32 32 37 62 65 63 63  5127df6a6227becc
07b0: 34 64 36 66 38 39 31 66 64 33 66 36 30 36 38 62  4d6f891fd3f6068b
07c0: 39 31 37 61 38 38 33 63 39 62 36 36 66 33 31 38  917a883c9b66f318
07d0: 66 64 64 62 36 33 38 34 64 31 30 62 65 38 63 37  fddb6384d10be8c7
07e0: 61 66 30 64 33 31 33 32 66 30 33 0a 0a 74 63 6c  af0d3132f03..tcl
07f0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0800: 53 48 41 33 38 34 2d 32 2e 37 20 7b 53 48 41 33  SHA384-2.7 {SHA3
0810: 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  84ShortMsg} \..-
0820: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33  constraints SHA3
0830: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
0840: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0850: 65 63 6f 64 65 20 68 65 78 20 64 61 64 39 35 61  ecode hex dad95a
0860: 34 62 34 64 33 37 5d 7d 20 5c 0a 09 2d 62 6f 64  4b4d37]} \..-bod
0870: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
0880: 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64  digest SHA384 -d
0890: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
08a0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
08b0: 6c 74 20 33 61 32 62 34 30 66 34 35 33 39 32 35  lt 3a2b40f453925
08c0: 62 63 33 63 65 31 37 64 36 34 30 37 35 37 65 65  bc3ce17d640757ee
08d0: 30 65 38 39 39 33 39 30 62 34 61 38 64 39 38 34  0e899390b4a8d984
08e0: 64 30 32 39 37 63 31 62 61 65 36 62 36 30 62 39  d0297c1bae6b60b9
08f0: 66 32 36 30 33 62 66 37 31 63 33 32 33 66 64 31  f2603bf71c323fd1
0900: 37 31 30 31 31 33 37 32 33 33 35 65 35 37 30 32  71011372335e5702
0910: 65 34 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  e40..tcltest::te
0920: 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32  st Hash_SHA384-2
0930: 2e 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d  .8 {SHA384ShortM
0940: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0950: 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73  nts SHA384 \..-s
0960: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0970: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0980: 78 20 31 32 31 38 33 35 66 65 33 37 30 30 62 37  x 121835fe3700b7
0990: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
09a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
09b0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
09c0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
09d0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 62 64  xact -result 7bd
09e0: 30 36 61 39 34 61 63 62 61 37 62 65 62 33 63 35  06a94acba7beb3c5
09f0: 61 39 62 39 65 38 37 36 39 63 33 64 61 36 36 39  a9b9e8769c3da669
0a00: 31 63 34 38 32 64 37 38 62 31 65 35 63 37 36 31  1c482d78b1e5c761
0a10: 39 62 33 36 36 33 30 65 62 61 34 65 35 39 36 64  9b36630eba4e596d
0a20: 31 31 63 34 31 30 61 34 63 38 37 30 30 36 66 34  11c410a4c87006f4
0a30: 37 31 36 62 36 66 31 37 62 62 39 61 30 0a 0a 74  716b6f17bb9a0..t
0a40: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0a50: 68 5f 53 48 41 33 38 34 2d 32 2e 39 20 7b 53 48  h_SHA384-2.9 {SH
0a60: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
0a70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0a80: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
0a90: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0aa0: 20 64 65 63 6f 64 65 20 68 65 78 20 64 65 36 30   decode hex de60
0ab0: 32 37 35 62 64 61 66 63 65 34 62 31 5d 7d 20 5c  275bdafce4b1]} \
0ac0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0ad0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0ae0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
0af0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
0b00: 20 2d 72 65 73 75 6c 74 20 61 33 64 38 36 31 64   -result a3d861d
0b10: 38 36 36 63 31 33 36 32 34 32 33 65 62 32 31 63  866c1362423eb21c
0b20: 36 62 65 63 38 65 34 34 62 37 34 63 65 39 39 33  6bec8e44b74ce993
0b30: 63 35 35 62 61 61 32 62 36 36 34 30 35 36 37 35  c55baa2b66405675
0b40: 36 30 65 62 65 63 64 61 65 64 61 30 37 31 38 33  60ebecdaeda07183
0b50: 64 62 62 62 64 39 35 65 30 66 35 32 32 63 61 65  dbbbd95e0f522cae
0b60: 65 35 64 64 62 64 61 66 30 0a 0a 74 63 6c 74 65  e5ddbdaf0..tclte
0b70: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0b80: 41 33 38 34 2d 32 2e 31 30 20 7b 53 48 41 33 38  A384-2.10 {SHA38
0b90: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
0ba0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
0bb0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0bc0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0bd0: 63 6f 64 65 20 68 65 78 20 38 64 34 35 61 35 35  code hex 8d45a55
0be0: 64 35 63 65 31 66 39 32 38 65 36 5d 7d 20 5c 0a  d5ce1f928e6]} \.
0bf0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
0c00: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
0c10: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
0c20: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0c30: 2d 72 65 73 75 6c 74 20 64 65 37 36 36 38 33 35  -result de766835
0c40: 37 35 61 30 35 30 65 32 65 62 35 65 66 39 35 65  75a050e2eb5ef95e
0c50: 65 32 30 31 66 38 32 34 31 36 34 37 38 61 31 64  e201f82416478a1d
0c60: 31 34 62 66 33 64 39 36 64 31 66 64 34 65 66 64  14bf3d96d1fd4efd
0c70: 35 32 62 31 61 32 38 66 65 64 38 64 66 65 65 31  52b1a28fed8dfee1
0c80: 38 33 30 30 37 30 30 30 31 64 63 31 30 32 61 32  830070001dc102a2
0c90: 31 66 37 36 31 64 32 30 0a 0a 74 63 6c 74 65 73  1f761d20..tcltes
0ca0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0cb0: 33 38 34 2d 32 2e 31 31 20 7b 53 48 41 33 38 34  384-2.11 {SHA384
0cc0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0cd0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
0ce0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0cf0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0d00: 6f 64 65 20 68 65 78 20 35 63 37 64 64 65 39 62  ode hex 5c7dde9b
0d10: 33 38 39 34 64 37 33 63 65 66 65 31 5d 7d 20 5c  3894d73cefe1]} \
0d20: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0d30: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0d40: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
0d50: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
0d60: 20 2d 72 65 73 75 6c 74 20 66 33 31 62 32 32 31   -result f31b221
0d70: 31 35 66 61 37 31 37 38 65 37 38 32 32 33 65 30  15fa7178e78223e0
0d80: 36 61 61 65 38 37 30 35 34 37 61 62 39 33 63 36  6aae870547ab93c6
0d90: 65 62 33 63 33 39 31 30 62 30 65 65 31 36 65 36  eb3c3910b0ee16e6
0da0: 31 30 36 64 62 35 35 39 33 35 64 36 63 30 65 62  106db55935d6c0eb
0db0: 38 32 30 31 33 32 61 32 30 37 38 65 63 65 31 30  820132a2078ece10
0dc0: 36 37 65 66 63 38 31 63 33 0a 0a 74 63 6c 74 65  67efc81c3..tclte
0dd0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0de0: 41 33 38 34 2d 32 2e 31 32 20 7b 53 48 41 33 38  A384-2.12 {SHA38
0df0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
0e00: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
0e10: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0e20: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0e30: 63 6f 64 65 20 68 65 78 20 39 36 37 66 61 33 34  code hex 967fa34
0e40: 63 30 37 65 34 39 34 35 61 37 37 30 35 31 61 5d  c07e4945a77051a]
0e50: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0e60: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0e70: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
0e80: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0e90: 61 63 74 20 2d 72 65 73 75 6c 74 20 66 38 66 32  act -result f8f2
0ea0: 34 64 38 31 63 34 66 38 66 32 33 65 63 62 34 32  4d81c4f8f23ecb42
0eb0: 64 37 36 65 64 35 64 32 62 33 34 63 39 63 62 63  d76ed5d2b34c9cbc
0ec0: 31 66 30 61 39 37 32 33 34 64 31 31 31 34 38 30  1f0a97234d111480
0ed0: 34 62 35 39 39 39 37 35 39 66 33 31 33 31 63 37  4b5999759f3131c7
0ee0: 34 31 64 35 37 36 38 63 63 39 32 38 31 36 33 35  41d5768cc9281635
0ef0: 30 33 63 35 66 35 35 66 35 39 34 62 0a 0a 74 63  03c5f55f594b..tc
0f00: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0f10: 5f 53 48 41 33 38 34 2d 32 2e 31 33 20 7b 53 48  _SHA384-2.13 {SH
0f20: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
0f30: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0f40: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
0f50: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0f60: 20 64 65 63 6f 64 65 20 68 65 78 20 32 32 30 39   decode hex 2209
0f70: 31 31 32 65 65 37 37 39 62 66 36 64 39 35 37 31  112ee779bf6d9571
0f80: 31 31 30 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1105]} \..-body 
0f90: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0fa0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
0fb0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0fc0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0fd0: 20 30 39 63 35 34 62 66 35 33 33 61 32 36 63 37   09c54bf533a26c7
0fe0: 34 34 37 63 61 61 35 37 38 33 64 62 32 65 63 37  447caa5783db2ec7
0ff0: 65 66 35 65 35 35 37 35 32 64 61 37 66 32 61 32  ef5e55752da7f2a2
1000: 63 34 65 33 36 30 39 38 32 61 39 34 65 63 31 63  c4e360982a94ec1c
1010: 61 32 63 62 36 61 31 35 37 64 33 34 65 65 64 32  a2cb6a157d34eed2
1020: 38 64 65 39 37 38 62 34 31 34 35 65 31 37 65 62  8de978b4145e17eb
1030: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
1040: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
1050: 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  4 {SHA384ShortMs
1060: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1070: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
1080: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1090: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
10a0: 20 32 30 34 34 32 65 31 63 33 66 33 63 38 38 39   20442e1c3f3c889
10b0: 31 39 63 33 39 39 37 38 62 37 38 5d 7d 20 5c 0a  19c39978b78]} \.
10c0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
10d0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
10e0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
10f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
1100: 2d 72 65 73 75 6c 74 20 35 30 62 63 39 35 62 30  -result 50bc95b0
1110: 33 36 65 30 66 35 34 64 38 33 33 30 33 32 61 38  36e0f54d833032a8
1120: 30 64 34 35 63 32 61 63 33 38 62 33 64 32 39 65  0d45c2ac38b3d29e
1130: 39 63 37 66 37 32 61 32 65 62 31 34 37 38 31 65  9c7f72a2eb14781e
1140: 39 32 34 31 64 32 61 34 62 38 65 38 64 62 61 36  9241d2a4b8e8dba6
1150: 65 65 36 66 34 63 39 65 34 36 61 37 35 38 64 35  ee6f4c9e46a758d5
1160: 37 31 32 64 62 64 33 39 0a 0a 74 63 6c 74 65 73  712dbd39..tcltes
1170: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1180: 33 38 34 2d 32 2e 31 35 20 7b 53 48 41 33 38 34  384-2.15 {SHA384
1190: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
11a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
11b0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
11c0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
11d0: 6f 64 65 20 68 65 78 20 34 64 34 33 37 30 32 62  ode hex 4d43702b
11e0: 65 34 66 30 35 33 30 33 31 39 35 35 35 64 37 66  e4f0530319555d7f
11f0: 31 61 33 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1a33]} \..-body 
1200: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1210: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
1220: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1230: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1240: 20 38 33 63 38 66 30 62 62 37 36 32 38 30 31 65   83c8f0bb762801e
1250: 62 32 36 63 63 35 31 31 35 61 62 65 62 62 36 35  b26cc5115abebb65
1260: 37 63 31 38 66 66 38 31 31 64 65 35 30 30 62 33  7c18ff811de500b3
1270: 32 62 37 61 35 36 38 61 32 32 30 61 32 38 37 65  2b7a568a220a287e
1280: 39 30 30 62 36 63 37 35 32 32 34 66 65 37 34 32  900b6c75224fe742
1290: 39 31 36 39 66 62 64 35 33 34 63 62 35 38 38 65  9169fbd534cb588e
12a0: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
12b0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
12c0: 36 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  6 {SHA384ShortMs
12d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
12e0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
12f0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1300: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1310: 20 35 65 32 61 37 39 61 35 34 34 61 66 38 35 66   5e2a79a544af85f
1320: 31 35 30 66 37 61 39 64 32 30 39 66 64 34 34 5d  150f7a9d209fd44]
1330: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1340: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1350: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
1360: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1370: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 30 35 31  act -result 8051
1380: 65 62 63 39 63 61 62 62 30 35 32 63 61 62 65 30  ebc9cabb052cabe0
1390: 37 65 34 30 32 33 65 32 31 34 30 38 30 38 62 37  7e4023e2140808b7
13a0: 37 64 32 35 62 30 37 62 39 36 64 32 65 33 63 32  7d25b07b96d2e3c2
13b0: 32 33 39 33 66 37 31 62 31 31 36 63 31 61 31 65  2393f71b116c1a1e
13c0: 34 31 62 66 36 32 65 35 37 66 37 33 66 66 36 37  41bf62e57f73ff67
13d0: 38 37 31 64 61 37 63 39 33 63 66 39 0a 0a 74 63  871da7c93cf9..tc
13e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
13f0: 5f 53 48 41 33 38 34 2d 32 2e 31 37 20 7b 53 48  _SHA384-2.17 {SH
1400: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
1410: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1420: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
1430: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1440: 20 64 65 63 6f 64 65 20 68 65 78 20 65 31 62 62   decode hex e1bb
1450: 39 36 37 62 35 64 33 37 39 61 34 61 61 33 39 30  967b5d379a4aa390
1460: 35 30 32 37 34 64 30 39 62 64 39 33 5d 7d 20 5c  50274d09bd93]} \
1470: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1480: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1490: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
14a0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
14b0: 20 2d 72 65 73 75 6c 74 20 33 62 30 34 66 39 36   -result 3b04f96
14c0: 39 36 35 61 64 32 66 62 61 62 64 34 64 66 32 35  965ad2fbabd4df25
14d0: 64 35 64 38 63 39 35 35 38 39 64 30 36 39 63 33  d5d8c95589d069c3
14e0: 31 32 65 65 34 38 35 33 39 30 39 30 62 32 64 37  12ee48539090b2d7
14f0: 62 34 39 35 64 32 34 34 36 63 33 31 65 62 32 62  b495d2446c31eb2b
1500: 38 66 38 66 66 62 33 30 31 32 62 64 63 65 30 36  8f8ffb3012bdce06
1510: 35 33 32 33 64 39 66 34 38 0a 0a 74 63 6c 74 65  5323d9f48..tclte
1520: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
1530: 41 33 38 34 2d 32 2e 31 38 20 7b 53 48 41 33 38  A384-2.18 {SHA38
1540: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
1550: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
1560: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1570: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1580: 63 6f 64 65 20 68 65 78 20 62 62 38 34 61 30 31  code hex bb84a01
1590: 34 63 64 31 37 63 63 32 33 32 63 39 38 61 65 38  4cd17cc232c98ae8
15a0: 62 30 37 30 39 39 31 37 65 39 64 5d 7d 20 5c 0a  b0709917e9d]} \.
15b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
15c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
15d0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
15e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
15f0: 2d 72 65 73 75 6c 74 20 38 35 32 32 37 61 65 30  -result 85227ae0
1600: 35 37 66 32 30 38 32 61 64 66 31 37 38 63 61 65  57f2082adf178cae
1610: 39 39 36 34 34 39 31 30 30 62 36 61 33 31 31 39  996449100b6a3119
1620: 65 34 63 34 31 35 61 39 39 65 32 35 62 65 36 65  e4c415a99e25be6e
1630: 66 32 30 62 61 38 63 30 65 61 65 38 31 38 64 36  f20ba8c0eae818d6
1640: 30 66 37 31 63 35 63 38 33 66 66 32 64 34 63 35  0f71c5c83ff2d4c5
1650: 39 61 61 37 35 32 36 33 0a 0a 74 63 6c 74 65 73  9aa75263..tcltes
1660: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1670: 33 38 34 2d 32 2e 31 39 20 7b 53 48 41 33 38 34  384-2.19 {SHA384
1680: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1690: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
16a0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
16b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
16c0: 6f 64 65 20 68 65 78 20 63 33 34 31 31 61 30 35  ode hex c3411a05
16d0: 39 32 66 31 66 34 66 61 36 39 38 38 31 35 32 33  92f1f4fa69881523
16e0: 38 39 39 37 64 62 33 35 36 34 31 38 5d 7d 20 5c  8997db356418]} \
16f0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1700: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1710: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
1720: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1730: 20 2d 72 65 73 75 6c 74 20 32 33 33 61 63 34 34   -result 233ac44
1740: 31 37 30 64 39 66 34 35 32 61 31 61 30 32 33 31  170d9f452a1a0231
1750: 36 32 32 30 33 30 62 31 35 63 31 30 34 66 66 38  622030b15c104ff8
1760: 65 63 61 61 33 66 63 63 64 62 39 65 39 65 35 30  ecaa3fccdb9e9e50
1770: 33 31 66 64 35 62 34 32 32 30 31 38 36 61 38 65  31fd5b4220186a8e
1780: 64 64 30 33 32 38 34 39 63 38 62 39 33 64 63 31  dd032849c8b93dc1
1790: 38 33 61 35 63 38 36 32 37 0a 0a 74 63 6c 74 65  83a5c8627..tclte
17a0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
17b0: 41 33 38 34 2d 32 2e 32 30 20 7b 53 48 41 33 38  A384-2.20 {SHA38
17c0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
17d0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
17e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
17f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1800: 63 6f 64 65 20 68 65 78 20 65 38 33 31 62 37 33  code hex e831b73
1810: 39 65 38 65 62 39 66 37 38 37 66 36 33 63 30 62  9e8eb9f787f63c0b
1820: 62 30 37 31 64 64 63 63 39 66 34 34 63 61 62 5d  b071ddcc9f44cab]
1830: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1840: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1850: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
1860: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1870: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 31 37 32  act -result 9172
1880: 32 64 34 62 37 61 65 63 63 32 31 31 62 62 38 61  2d4b7aecc211bb8a
1890: 35 34 38 30 63 36 38 35 35 66 33 62 37 31 62 65  5480c6855f3b71be
18a0: 34 36 34 37 65 31 64 64 65 30 33 38 30 63 32 33  4647e1dde0380c23
18b0: 61 66 61 61 30 33 66 34 35 63 36 34 32 36 30 36  afaa03f45c642606
18c0: 61 32 34 35 30 36 65 30 33 31 37 62 66 35 31 35  a24506e0317bf515
18d0: 30 36 61 34 38 33 64 65 32 38 61 63 0a 0a 74 63  06a483de28ac..tc
18e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
18f0: 5f 53 48 41 33 38 34 2d 32 2e 32 31 20 7b 53 48  _SHA384-2.21 {SH
1900: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
1910: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1920: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
1930: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1940: 20 64 65 63 6f 64 65 20 68 65 78 20 62 38 61 37   decode hex b8a7
1950: 62 62 63 63 64 65 34 36 65 38 35 66 31 32 32 33  bbccde46e85f1223
1960: 32 33 37 64 39 33 35 33 62 37 38 63 33 62 31 39  237d9353b78c3b19
1970: 37 32 37 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  727b]} \..-body 
1980: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1990: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
19a0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
19b0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
19c0: 20 32 38 62 61 36 39 64 63 30 35 65 36 65 32 39   28ba69dc05e6e29
19d0: 64 65 39 31 39 32 34 31 31 34 64 36 63 39 66 63  de91924114d6c9fc
19e0: 37 36 31 32 66 36 64 32 61 36 38 62 30 37 66 61  7612f6d2a68b07fa
19f0: 30 30 31 64 66 30 35 39 62 63 66 39 38 66 37 61  001df059bcf98f7a
1a00: 61 38 35 33 38 39 63 61 65 62 39 36 36 65 61 61  a85389caeb966eaa
1a10: 32 39 39 63 37 39 66 65 31 66 64 31 65 34 30 65  299c79fe1fd1e40e
1a20: 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  3..tcltest::test
1a30: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 32   Hash_SHA384-2.2
1a40: 32 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  2 {SHA384ShortMs
1a50: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1a60: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
1a70: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1a80: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1a90: 20 63 66 33 39 31 62 38 61 61 62 65 63 36 66 38   cf391b8aabec6f8
1aa0: 31 32 38 38 63 38 62 37 62 39 32 38 34 33 62 65  1288c8b7b92843be
1ab0: 32 33 64 32 65 38 34 37 35 37 34 5d 7d 20 5c 0a  23d2e847574]} \.
1ac0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
1ad0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
1ae0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
1af0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
1b00: 2d 72 65 73 75 6c 74 20 31 32 31 65 35 65 66 36  -result 121e5ef6
1b10: 39 37 64 66 34 39 31 61 35 33 64 37 62 61 65 31  97df491a53d7bae1
1b20: 32 31 34 31 36 61 61 36 35 33 64 37 35 39 61 33  21416aa653d759a3
1b30: 37 64 62 39 64 30 62 39 39 33 30 33 31 62 31 38  7db9d0b993031b18
1b40: 61 30 65 66 31 36 30 65 64 39 38 38 34 32 61 32  a0ef160ed98842a2
1b50: 39 31 65 31 62 61 32 63 65 61 38 62 39 39 38 62  91e1ba2cea8b998b
1b60: 63 35 65 65 65 30 62 31 0a 0a 74 63 6c 74 65 73  c5eee0b1..tcltes
1b70: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1b80: 33 38 34 2d 32 2e 32 33 20 7b 53 48 41 33 38 34  384-2.23 {SHA384
1b90: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1ba0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
1bb0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
1bc0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
1bd0: 6f 64 65 20 68 65 78 20 39 64 36 35 64 38 38 62  ode hex 9d65d88b
1be0: 66 66 65 64 37 36 34 63 32 38 36 66 33 34 38 39  ffed764c286f3489
1bf0: 34 66 39 39 31 36 30 30 64 31 61 36 37 64 36 32  4f991600d1a67d62
1c00: 32 33 38 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  2382]} \..-body 
1c10: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1c20: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
1c30: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1c40: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1c50: 20 38 34 62 36 65 30 64 36 61 34 35 33 32 39 64   84b6e0d6a45329d
1c60: 61 66 34 37 61 37 39 33 34 31 38 65 64 35 64 62  af47a793418ed5db
1c70: 64 65 30 31 33 33 36 62 34 62 39 34 36 38 62 62  de01336b4b9468bb
1c80: 36 39 65 35 64 61 36 31 63 34 32 62 36 39 31 65  69e5da61c42b691e
1c90: 36 37 39 34 65 36 65 64 30 65 38 66 62 31 62 38  6794e6ed0e8fb1b8
1ca0: 65 37 64 34 63 64 33 63 62 61 61 64 63 35 32 30  e7d4cd3cbaadc520
1cb0: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
1cc0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 32   Hash_SHA384-2.2
1cd0: 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  4 {SHA384ShortMs
1ce0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1cf0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
1d00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1d10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1d20: 20 62 61 62 36 65 61 34 36 66 62 37 31 37 66 37   bab6ea46fb717f7
1d30: 33 66 30 36 32 38 31 33 32 61 32 62 39 36 62 65  3f0628132a2b96be
1d40: 33 38 33 37 37 34 66 31 65 35 64 38 62 36 64 5d  383774f1e5d8b6d]
1d50: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1d60: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1d70: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
1d80: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1d90: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 39 36 39  act -result e969
1da0: 61 63 61 31 62 35 30 65 39 32 38 63 61 64 32 39  aca1b50e928cad29
1db0: 61 30 64 37 35 36 34 35 37 66 36 64 65 38 64 37  a0d756457f6de8d7
1dc0: 61 34 65 35 38 39 66 64 34 31 65 35 33 61 31 65  a4e589fd41e53a1e
1dd0: 37 35 38 63 33 62 32 30 66 39 62 38 31 62 33 36  758c3b20f9b81b36
1de0: 62 66 30 39 38 61 34 39 31 30 32 66 62 66 38 36  bf098a49102fbf86
1df0: 39 36 35 31 63 61 39 61 39 38 62 35 0a 0a 74 63  9651ca9a98b5..tc
1e00: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1e10: 5f 53 48 41 33 38 34 2d 32 2e 32 35 20 7b 53 48  _SHA384-2.25 {SH
1e20: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
1e30: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1e40: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
1e50: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1e60: 20 64 65 63 6f 64 65 20 68 65 78 20 38 38 35 33   decode hex 8853
1e70: 62 30 30 65 38 36 39 37 36 34 61 64 62 35 32 37  b00e869764adb527
1e80: 61 30 37 62 30 37 33 63 38 35 61 32 34 65 36 63  a07b073c85a24e6c
1e90: 32 30 38 62 61 34 37 65 65 66 34 65 5d 7d 20 5c  208ba47eef4e]} \
1ea0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1eb0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1ec0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
1ed0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1ee0: 20 2d 72 65 73 75 6c 74 20 30 39 61 64 34 34 65   -result 09ad44e
1ef0: 38 35 61 63 31 39 30 65 32 64 31 63 33 63 65 62  85ac190e2d1c3ceb
1f00: 34 65 66 62 65 61 31 30 64 65 64 33 34 64 30 64  4efbea10ded34d0d
1f10: 65 39 36 31 66 65 34 65 65 32 36 38 31 33 32 63  e961fe4ee268132c
1f20: 34 38 65 33 38 36 36 30 65 36 63 66 35 38 35 62  48e38660e6cf585b
1f30: 66 66 66 62 38 66 37 62 30 30 62 30 66 61 64 31  fffb8f7b00b0fad1
1f40: 35 31 34 33 31 32 62 36 33 0a 0a 74 63 6c 74 65  514312b63..tclte
1f50: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
1f60: 41 33 38 34 2d 32 2e 32 36 20 7b 53 48 41 33 38  A384-2.26 {SHA38
1f70: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
1f80: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
1f90: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1fa0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1fb0: 63 6f 64 65 20 68 65 78 20 37 31 66 65 31 62 61  code hex 71fe1ba
1fc0: 35 64 32 39 39 34 39 35 64 32 61 35 36 30 33 39  5d299495d2a56039
1fd0: 63 36 34 30 33 32 65 63 36 32 36 33 64 34 33 37  c64032ec6263d437
1fe0: 66 35 35 65 33 66 35 62 65 64 62 5d 7d 20 5c 0a  f55e3f5bedb]} \.
1ff0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
2000: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
2010: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
2020: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
2030: 2d 72 65 73 75 6c 74 20 62 34 31 61 35 64 33 62  -result b41a5d3b
2040: 34 61 66 36 64 34 62 39 63 33 34 39 65 30 37 38  4af6d4b9c349e078
2050: 38 35 33 38 65 39 61 30 33 31 31 30 38 36 38 39  8538e9a031108689
2060: 34 64 66 37 62 37 32 63 66 35 61 61 66 34 30 39  4df7b72cf5aaf409
2070: 31 61 37 65 30 33 39 65 34 65 38 39 63 63 37 37  1a7e039e4e89cc77
2080: 61 31 32 33 34 37 34 65 36 64 31 62 61 63 34 33  a123474e6d1bac43
2090: 38 65 35 65 39 66 38 38 0a 0a 74 63 6c 74 65 73  8e5e9f88..tcltes
20a0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
20b0: 33 38 34 2d 32 2e 32 37 20 7b 53 48 41 33 38 34  384-2.27 {SHA384
20c0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
20d0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
20e0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
20f0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2100: 6f 64 65 20 68 65 78 20 34 65 62 65 30 37 64 30  ode hex 4ebe07d0
2110: 33 63 39 33 65 38 34 39 62 34 62 62 66 65 39 66  3c93e849b4bbfe9f
2120: 32 64 32 32 39 34 62 66 36 63 63 61 62 34 35 37  2d2294bf6ccab457
2130: 66 37 36 64 33 66 39 39 63 62 36 34 5d 7d 20 5c  f76d3f99cb64]} \
2140: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2150: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2160: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
2170: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2180: 20 2d 72 65 73 75 6c 74 20 62 65 62 61 34 36 34   -result beba464
2190: 64 37 30 36 35 31 38 35 35 38 37 66 61 64 38 39  d7065185587fad89
21a0: 62 66 63 65 61 39 36 33 35 62 66 30 61 62 37 37  bfcea9635bf0ab77
21b0: 35 63 33 65 62 38 63 31 34 37 62 35 62 32 62 64  5c3eb8c147b5b2bd
21c0: 38 36 30 31 64 62 36 64 62 61 30 35 39 30 62 35  8601db6dba0590b5
21d0: 30 64 64 31 30 36 38 37 33 33 66 32 30 64 63 36  0dd1068733f20dc6
21e0: 38 65 30 30 34 61 30 39 30 0a 0a 74 63 6c 74 65  8e004a090..tclte
21f0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2200: 41 33 38 34 2d 32 2e 32 38 20 7b 53 48 41 33 38  A384-2.28 {SHA38
2210: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
2220: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
2230: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2240: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2250: 63 6f 64 65 20 68 65 78 20 39 31 38 61 63 30 61  code hex 918ac0a
2260: 39 37 65 63 31 36 33 32 39 30 38 34 38 39 65 35  97ec1632908489e5
2270: 32 34 32 62 61 32 38 34 62 63 38 31 31 61 61 37  242ba284bc811aa7
2280: 31 39 37 32 34 32 63 66 37 32 32 36 66 63 64 5d  197242cf7226fcd]
2290: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
22a0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
22b0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
22c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
22d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 63 34 62 61  act -result c4ba
22e0: 66 36 33 39 37 61 34 63 36 65 32 36 34 39 32 62  f6397a4c6e26492b
22f0: 36 33 61 34 61 61 62 37 64 66 66 64 64 30 30 35  63a4aab7dffdd005
2300: 31 64 38 66 35 31 39 33 38 61 63 32 34 63 66 64  1d8f51938ac24cfd
2310: 38 64 61 65 32 66 37 61 66 65 64 31 61 34 61 61  8dae2f7afed1a4aa
2320: 32 34 33 30 64 37 61 65 62 30 62 65 32 61 37 32  2430d7aeb0be2a72
2330: 62 32 31 61 36 63 35 30 31 39 38 63 0a 0a 74 63  b21a6c50198c..tc
2340: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2350: 5f 53 48 41 33 38 34 2d 32 2e 32 39 20 7b 53 48  _SHA384-2.29 {SH
2360: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
2370: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2380: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
2390: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
23a0: 20 64 65 63 6f 64 65 20 68 65 78 20 39 37 34 37   decode hex 9747
23b0: 37 66 37 32 37 32 64 38 61 38 39 65 33 38 65 37  7f7272d8a89e38e7
23c0: 39 36 63 35 33 33 65 39 66 38 61 38 61 65 34 63  96c533e9f8a8ae4c
23d0: 39 32 63 63 61 61 35 64 39 30 37 65 64 32 36 61  92ccaa5d907ed26a
23e0: 31 61 31 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1a15]} \..-body 
23f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2400: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
2410: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2420: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2430: 20 64 31 61 64 35 32 34 65 62 65 39 30 38 64 37   d1ad524ebe908d7
2440: 63 35 61 66 66 35 30 65 36 63 62 37 38 30 66 64  c5aff50e6cb780fd
2450: 33 61 37 30 65 38 37 63 39 31 34 61 33 36 62 39  3a70e87c914a36b9
2460: 33 63 34 65 33 35 66 35 62 32 63 62 30 33 38 35  3c4e35f5b2cb0385
2470: 30 62 31 32 32 62 34 38 30 65 66 38 35 38 37 64  0b122b480ef8587d
2480: 34 61 34 34 66 32 32 34 36 37 66 34 63 34 38 30  4a44f22467f4c480
2490: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
24a0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 33   Hash_SHA384-2.3
24b0: 30 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  0 {SHA384ShortMs
24c0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
24d0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
24e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
24f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2500: 20 37 31 38 65 30 63 66 65 31 33 38 36 63 62 31   718e0cfe1386cb1
2510: 34 32 31 62 34 37 39 39 62 31 35 37 38 38 62 38  421b4799b15788b8
2520: 36 32 62 66 30 33 61 38 30 37 32 62 62 33 30 64  62bf03a8072bb30d
2530: 30 32 33 30 33 38 38 38 30 33 32 5d 7d 20 5c 0a  02303888032]} \.
2540: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
2550: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
2560: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
2570: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
2580: 2d 72 65 73 75 6c 74 20 36 64 38 62 38 61 35 62  -result 6d8b8a5b
2590: 63 37 65 61 33 36 35 65 61 30 37 66 31 31 64 33  c7ea365ea07f11d3
25a0: 62 31 32 65 39 35 38 37 32 61 39 36 33 33 36 38  b12e95872a963368
25b0: 34 37 35 32 34 39 35 63 63 34 33 31 36 33 36 63  4752495cc431636c
25c0: 61 66 31 62 32 37 33 61 33 35 33 32 31 30 34 34  af1b273a35321044
25d0: 61 66 33 31 63 39 37 34 64 38 35 37 35 64 33 38  af31c974d8575d38
25e0: 37 31 31 66 35 36 63 36 0a 0a 74 63 6c 74 65 73  711f56c6..tcltes
25f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2600: 33 38 34 2d 32 2e 33 31 20 7b 53 48 41 33 38 34  384-2.31 {SHA384
2610: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2620: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
2630: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2640: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2650: 6f 64 65 20 68 65 78 20 64 33 62 30 37 66 30 66  ode hex d3b07f0f
2660: 64 35 64 34 63 64 33 31 38 38 61 65 61 64 38 64  d5d4cd3188aead8d
2670: 63 38 33 33 38 64 65 34 32 30 35 36 65 32 65 38  c8338de42056e2e8
2680: 34 38 37 65 63 61 35 31 65 63 33 37 65 66 32 64  487eca51ec37ef2d
2690: 61 66 32 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  af27]} \..-body 
26a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
26b0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
26c0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
26d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
26e0: 20 61 64 63 63 32 65 39 35 34 63 39 31 64 62 33   adcc2e954c91db3
26f0: 64 62 32 64 37 31 64 30 64 65 65 31 66 30 33 30  db2d71d0dee1f030
2700: 65 37 32 33 62 65 65 31 61 32 33 38 31 36 66 65  e723bee1a23816fe
2710: 30 30 33 61 63 35 64 63 38 36 32 61 30 38 37 32  003ac5dc862a0872
2720: 65 66 35 31 66 66 33 38 36 63 31 38 62 65 36 65  ef51ff386c18be6e
2730: 62 63 61 61 34 39 33 66 33 32 64 31 31 39 35 62  bcaa493f32d1195b
2740: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  9..tcltest::test
2750: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 33   Hash_SHA384-2.3
2760: 32 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  2 {SHA384ShortMs
2770: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2780: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
2790: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
27a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
27b0: 20 36 39 35 62 39 65 66 65 31 38 30 39 61 62 64   695b9efe1809abd
27c0: 35 64 34 34 65 61 65 39 35 37 64 64 66 39 63 32  5d44eae957ddf9c2
27d0: 63 64 33 63 37 35 66 61 65 32 66 35 32 32 38 35  cd3c75fae2f52285
27e0: 35 37 31 32 61 30 37 63 36 33 39 63 30 62 39 5d  5712a07c639c0b9]
27f0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2800: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2810: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
2820: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2830: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 62 62 39  act -result 3bb9
2840: 35 64 31 36 34 64 39 34 35 39 35 61 31 31 38 37  5d164d94595a1187
2850: 66 37 37 66 63 32 36 63 32 38 30 66 66 62 62 30  f77fc26c280ffbb0
2860: 38 65 37 34 65 63 37 39 34 37 61 61 33 65 35 62  8e74ec7947aa3e5b
2870: 33 38 62 65 63 37 63 36 66 38 31 31 35 63 34 64  38bec7c6f8115c4d
2880: 38 38 30 37 38 38 63 32 34 30 32 64 62 62 33 65  880788c2402dbb3e
2890: 35 62 39 34 61 66 64 31 33 30 65 65 0a 0a 74 63  5b94afd130ee..tc
28a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
28b0: 5f 53 48 41 33 38 34 2d 32 2e 33 33 20 7b 53 48  _SHA384-2.33 {SH
28c0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
28d0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
28e0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
28f0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
2900: 20 64 65 63 6f 64 65 20 68 65 78 20 62 65 30 31   decode hex be01
2910: 65 35 32 30 65 36 39 66 30 34 31 37 34 63 63 66  e520e69f04174ccf
2920: 39 35 34 35 35 62 31 63 38 31 34 34 35 32 39 38  95455b1c81445298
2930: 32 36 34 64 39 61 64 63 34 39 35 38 35 37 34 61  264d9adc4958574a
2940: 35 32 38 34 33 64 39 35 62 38 62 61 5d 7d 20 5c  52843d95b8ba]} \
2950: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2960: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2970: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
2980: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2990: 20 2d 72 65 73 75 6c 74 20 63 35 63 66 35 34 62   -result c5cf54b
29a0: 38 65 33 31 30 35 62 31 63 37 62 66 37 61 34 33  8e3105b1c7bf7a43
29b0: 37 35 34 64 39 31 35 62 30 39 34 37 66 32 38 62  754d915b0947f28b
29c0: 36 64 63 39 34 61 30 31 39 31 38 32 39 32 39 62  6dc94a019182929b
29d0: 35 63 38 34 38 65 31 31 34 34 31 63 39 65 34 65  5c848e11441c9e4e
29e0: 39 30 63 37 34 34 39 66 34 63 33 63 64 31 32 39  90c7449f4c3cd129
29f0: 35 34 66 30 66 35 64 39 39 0a 0a 74 63 6c 74 65  54f0f5d99..tclte
2a00: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2a10: 41 33 38 34 2d 32 2e 33 34 20 7b 53 48 41 33 38  A384-2.34 {SHA38
2a20: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
2a30: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
2a40: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2a50: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2a60: 63 6f 64 65 20 68 65 78 20 39 38 65 66 37 33 30  code hex 98ef730
2a70: 31 66 39 35 37 64 37 33 64 34 65 38 32 31 64 35  1f957d73d4e821d5
2a80: 38 37 33 65 38 61 39 62 35 39 37 30 66 62 64 32  873e8a9b5970fbd2
2a90: 31 39 64 35 63 66 37 34 65 63 32 32 39 31 62 38  19d5cf74ec2291b8
2aa0: 33 38 31 31 38 31 33 39 31 62 34 5d 7d 20 5c 0a  381181391b4]} \.
2ab0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
2ac0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
2ad0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
2ae0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
2af0: 2d 72 65 73 75 6c 74 20 62 32 35 36 34 62 62 62  -result b2564bbb
2b00: 31 35 39 63 33 61 65 61 64 62 61 65 30 65 34 61  159c3aeadbae0e4a
2b10: 34 34 33 37 66 37 63 35 31 31 31 30 32 30 65 39  4437f7c5111020e9
2b20: 61 64 30 66 34 65 62 35 30 38 31 34 37 61 39 36  ad0f4eb508147a96
2b30: 31 61 63 32 32 61 30 31 65 31 61 32 36 64 66 30  1ac22a01e1a26df0
2b40: 34 36 62 31 34 65 65 35 65 38 61 34 39 64 39 65  46b14ee5e8a49d9e
2b50: 64 32 32 62 38 63 64 31 0a 0a 74 63 6c 74 65 73  d22b8cd1..tcltes
2b60: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2b70: 33 38 34 2d 32 2e 33 35 20 7b 53 48 41 33 38 34  384-2.35 {SHA384
2b80: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2b90: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
2ba0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2bb0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2bc0: 6f 64 65 20 68 65 78 20 38 37 33 62 61 37 66 38  ode hex 873ba7f8
2bd0: 62 37 31 35 31 37 65 63 35 30 32 39 37 62 32 31  b71517ec50297b21
2be0: 63 66 39 34 63 64 62 37 61 35 38 61 62 62 62 38  cf94cdb7a58abbb8
2bf0: 38 32 39 32 30 36 66 30 64 33 66 33 32 38 66 66  829206f0d3f328ff
2c00: 38 61 36 39 33 39 61 63 31 64 31 64 5d 7d 20 5c  8a6939ac1d1d]} \
2c10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2c20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2c30: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
2c40: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2c50: 20 2d 72 65 73 75 6c 74 20 37 34 30 35 66 64 64   -result 7405fdd
2c60: 35 35 37 64 32 62 35 64 34 66 36 35 65 39 65 38  557d2b5d4f65e9e8
2c70: 35 66 35 30 38 64 33 37 39 31 34 39 35 66 31 38  5f508d3791495f18
2c80: 32 30 64 33 37 63 61 62 66 63 38 64 62 62 37 34  20d37cabfc8dbb74
2c90: 64 37 62 34 31 64 66 38 36 31 33 64 39 39 35 63  d7b41df8613d995c
2ca0: 36 31 32 64 33 37 38 64 64 38 38 33 33 37 65 30  612d378dd88337e0
2cb0: 30 39 35 31 64 30 32 38 30 0a 0a 74 63 6c 74 65  0951d0280..tclte
2cc0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2cd0: 41 33 38 34 2d 32 2e 33 36 20 7b 53 48 41 33 38  A384-2.36 {SHA38
2ce0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
2cf0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
2d00: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2d10: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2d20: 63 6f 64 65 20 68 65 78 20 65 33 62 64 34 62 63  code hex e3bd4bc
2d30: 33 61 36 30 63 64 64 64 32 36 63 32 30 61 61 38  3a60cddd26c20aa8
2d40: 36 33 36 34 62 64 34 34 66 34 61 30 37 66 33 33  6364bd44f4a07f33
2d50: 30 32 38 32 35 61 64 30 61 63 31 32 37 38 38 31  02825ad0ac127881
2d60: 64 65 34 65 61 66 62 63 63 66 39 38 38 63 62 5d  de4eafbccf988cb]
2d70: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2d80: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2d90: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
2da0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2db0: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 39 39 64  act -result 199d
2dc0: 35 34 32 33 61 30 65 32 36 34 33 38 66 34 63 65  5423a0e26438f4ce
2dd0: 61 30 30 38 31 61 38 39 65 30 62 36 63 38 34 63  a0081a89e0b6c84c
2de0: 61 39 33 66 37 63 33 31 32 30 63 38 31 30 34 62  a93f7c3120c8104b
2df0: 35 31 63 36 65 64 63 30 34 65 30 66 36 61 32 30  51c6edc04e0f6a20
2e00: 33 62 62 37 37 64 35 39 39 37 33 61 37 34 31 31  3bb77d59973a7411
2e10: 61 30 65 66 62 65 39 33 61 30 39 64 0a 0a 74 63  a0efbe93a09d..tc
2e20: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2e30: 5f 53 48 41 33 38 34 2d 32 2e 33 37 20 7b 53 48  _SHA384-2.37 {SH
2e40: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
2e50: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2e60: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
2e70: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
2e80: 20 64 65 63 6f 64 65 20 68 65 78 20 38 37 31 36   decode hex 8716
2e90: 65 34 62 38 36 64 65 66 66 39 64 61 32 61 38 65  e4b86deff9da2a8e
2ea0: 64 35 35 62 61 61 34 33 35 38 32 61 37 35 38 36  d55baa43582a7586
2eb0: 65 63 39 63 64 33 38 61 63 33 61 39 33 33 31 35  ec9cd38ac3a93315
2ec0: 36 31 35 38 63 64 38 65 35 62 37 38 38 37 35 38  6158cd8e5b788758
2ed0: 35 65 39 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5e91]} \..-body 
2ee0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2ef0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
2f00: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2f10: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2f20: 20 30 64 32 33 30 36 64 39 63 30 61 38 63 65 35   0d2306d9c0a8ce5
2f30: 37 62 63 37 38 36 39 62 34 33 39 33 37 36 63 30  7bc7869b439376c0
2f40: 37 63 65 33 35 32 61 34 31 64 38 36 61 62 36 63  7ce352a41d86ab6c
2f50: 66 34 61 35 36 35 34 63 63 63 64 35 63 37 32 34  f4a5654cccd5c724
2f60: 66 65 31 62 36 32 62 32 63 31 31 30 31 63 39 38  fe1b62b2c1101c98
2f70: 36 32 32 32 66 35 32 36 34 61 62 33 66 64 64 36  6222f5264ab3fdd6
2f80: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
2f90: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 33   Hash_SHA384-2.3
2fa0: 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  8 {SHA384ShortMs
2fb0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2fc0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
2fd0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2fe0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2ff0: 20 66 38 61 35 30 33 61 61 61 32 35 65 66 32 63   f8a503aaa25ef2c
3000: 65 61 32 35 65 33 31 39 33 30 63 33 61 39 30 64  ea25e31930c3a90d
3010: 62 34 36 38 63 64 33 61 38 36 32 66 34 61 39 33  b468cd3a862f4a93
3020: 61 61 62 35 64 65 32 37 37 37 65 38 32 64 63 39  aab5de2777e82dc9
3030: 30 35 63 62 30 33 65 65 32 33 63 5d 7d 20 5c 0a  05cb03ee23c]} \.
3040: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
3050: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
3060: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
3070: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
3080: 2d 72 65 73 75 6c 74 20 37 37 33 65 65 39 35 38  -result 773ee958
3090: 66 65 39 33 64 66 64 31 62 37 33 61 66 32 34 64  fe93dfd1b73af24d
30a0: 32 37 64 64 63 65 33 33 31 34 34 61 39 32 34 39  27ddce33144a9249
30b0: 64 35 61 36 37 31 36 38 32 61 35 36 64 66 33 30  d5a671682a56df30
30c0: 64 30 62 62 66 39 32 62 39 33 32 37 31 33 30 30  d0bbf92b93271300
30d0: 32 32 30 37 35 31 38 35 64 33 39 36 64 65 37 35  22075185d396de75
30e0: 32 39 35 39 33 30 34 66 0a 0a 74 63 6c 74 65 73  2959304f..tcltes
30f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3100: 33 38 34 2d 32 2e 33 39 20 7b 53 48 41 33 38 34  384-2.39 {SHA384
3110: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3120: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
3130: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3140: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3150: 6f 64 65 20 68 65 78 20 36 36 39 30 32 35 31 37  ode hex 66902517
3160: 35 65 61 39 31 37 63 64 64 37 61 37 31 66 66 34  5ea917cdd7a71ff4
3170: 65 63 30 63 34 35 62 66 31 32 34 36 64 32 61 36  ec0c45bf1246d2a6
3180: 66 30 33 31 63 30 30 62 37 31 64 65 37 30 31 65  f031c00b71de701e
3190: 31 37 39 33 39 62 66 65 39 32 31 32 38 62 32 31  17939bfe92128b21
31a0: 39 31 31 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  911e]} \..-body 
31b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
31c0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
31d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
31e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
31f0: 20 39 66 66 36 62 65 33 66 30 32 63 37 63 35 64   9ff6be3f02c7c5d
3200: 30 32 30 36 66 34 62 39 34 34 63 30 38 34 33 63  0206f4b944c0843c
3210: 62 36 38 62 65 61 38 66 39 62 37 63 38 63 63 30  b68bea8f9b7c8cc0
3220: 62 37 32 39 35 30 33 64 62 35 30 30 35 63 37 63  b729503db5005c7c
3230: 64 35 63 62 31 34 65 33 34 35 37 64 38 66 35 65  d5cb14e3457d8f5e
3240: 61 62 66 37 33 33 66 63 61 39 30 38 34 66 31 36  abf733fca9084f16
3250: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
3260: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34   Hash_SHA384-2.4
3270: 30 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  0 {SHA384ShortMs
3280: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3290: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
32a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
32b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
32c0: 20 62 33 35 66 62 32 32 36 32 65 64 66 61 31 34   b35fb2262edfa14
32d0: 39 33 38 61 30 66 62 61 30 33 65 62 32 61 32 35  938a0fba03eb2a25
32e0: 64 33 37 37 39 37 34 62 31 31 66 35 35 36 34 39  d377974b11f55649
32f0: 31 61 37 38 31 64 30 62 61 32 62 33 63 30 66 66  1a781d0ba2b3c0ff
3300: 33 65 34 32 37 34 39 39 32 35 66 65 66 38 62 5d  3e42749925fef8b]
3310: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3320: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3330: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
3340: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3350: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 33 35 62  act -result 835b
3360: 30 35 61 34 62 66 30 30 63 32 35 39 34 63 33 63  05a4bf00c2594c3c
3370: 38 63 31 33 64 61 36 63 32 37 33 61 30 64 39 65  8c13da6c273a0d9e
3380: 66 64 65 61 30 64 61 37 32 62 37 31 62 31 39 64  fdea0da72b71b19d
3390: 33 32 36 62 66 35 63 65 39 36 38 63 32 65 35 37  326bf5ce968c2e57
33a0: 37 61 37 64 39 39 66 63 30 66 39 38 35 61 66 64  7a7d99fc0f985afd
33b0: 32 33 62 34 36 34 32 33 31 32 39 64 0a 0a 74 63  23b46423129d..tc
33c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
33d0: 5f 53 48 41 33 38 34 2d 32 2e 34 31 20 7b 53 48  _SHA384-2.41 {SH
33e0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
33f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3400: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
3410: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3420: 20 64 65 63 6f 64 65 20 68 65 78 20 39 64 38 36   decode hex 9d86
3430: 62 34 35 64 66 38 64 37 64 61 65 30 63 66 36 62  b45df8d7dae0cf6b
3440: 30 62 63 32 30 38 36 36 36 65 65 31 31 36 33 61  0bc208666ee1163a
3450: 33 39 65 36 31 31 36 64 36 64 32 34 30 63 39 64  39e6116d6d240c9d
3460: 63 31 63 33 61 33 63 31 64 62 31 64 64 33 62 31  c1c3a3c1db1dd3b1
3470: 63 36 36 38 30 66 65 39 61 31 39 36 5d 7d 20 5c  c6680fe9a196]} \
3480: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3490: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
34a0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
34b0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
34c0: 20 2d 72 65 73 75 6c 74 20 61 38 34 63 34 36 39   -result a84c469
34d0: 63 32 34 36 39 36 66 38 31 64 37 64 66 34 65 65  c24696f81d7df4ee
34e0: 38 63 64 37 36 61 61 35 38 34 66 38 63 39 39 36  8cd76aa584f8c996
34f0: 30 65 61 61 39 39 30 38 64 33 65 33 65 62 63 35  0eaa9908d3e3ebc5
3500: 65 65 61 37 64 30 62 35 30 61 66 64 64 65 64 33  eea7d0b50afdded3
3510: 39 64 65 62 39 34 66 64 35 39 33 32 33 61 32 31  9deb94fd59323a21
3520: 61 36 35 33 39 65 39 33 66 0a 0a 74 63 6c 74 65  a6539e93f..tclte
3530: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
3540: 41 33 38 34 2d 32 2e 34 32 20 7b 53 48 41 33 38  A384-2.42 {SHA38
3550: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
3560: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
3570: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3580: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3590: 63 6f 64 65 20 68 65 78 20 34 31 34 66 35 36 31  code hex 414f561
35a0: 39 66 36 64 66 64 34 35 38 35 33 62 62 61 62 64  9f6dfd45853bbabd
35b0: 32 32 34 63 63 33 30 35 64 37 37 33 35 30 61 64  224cc305d77350ad
35c0: 32 35 33 33 35 38 39 31 30 61 37 34 66 33 61 34  253358910a74f3a4
35d0: 33 38 31 61 39 62 38 36 36 38 30 62 33 63 34 30  381a9b86680b3c40
35e0: 36 38 63 30 38 39 38 34 39 63 34 5d 7d 20 5c 0a  68c089849c4]} \.
35f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
3600: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
3610: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
3620: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
3630: 2d 72 65 73 75 6c 74 20 38 34 38 64 34 38 31 65  -result 848d481e
3640: 33 62 62 66 35 64 64 37 32 36 66 36 32 35 63 66  3bbf5dd726f625cf
3650: 36 61 34 34 34 64 39 39 35 62 33 36 32 36 32 63  6a444d995b36262c
3660: 39 66 38 30 64 35 38 33 62 37 37 61 63 63 66 31  9f80d583b77accf1
3670: 37 30 37 65 33 66 34 39 62 62 33 64 63 34 38 30  707e3f49bb3dc480
3680: 61 35 36 30 36 39 34 64 37 36 39 61 61 31 63 65  a560694d769aa1ce
3690: 36 35 64 36 39 34 32 38 0a 0a 74 63 6c 74 65 73  65d69428..tcltes
36a0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
36b0: 33 38 34 2d 32 2e 34 33 20 7b 53 48 41 33 38 34  384-2.43 {SHA384
36c0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
36d0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
36e0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
36f0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3700: 6f 64 65 20 68 65 78 20 65 32 36 35 38 33 32 34  ode hex e2658324
3710: 38 32 31 61 65 37 62 30 66 61 61 30 63 64 64 36  821ae7b0faa0cdd6
3720: 33 65 65 39 65 66 62 39 66 63 62 65 38 32 30 39  3ee9efb9fcbe8209
3730: 32 64 30 34 36 39 36 66 65 62 33 64 61 39 32 63  2d04696feb3da92c
3740: 38 32 35 32 31 64 66 64 63 39 38 66 36 62 34 31  82521dfdc98f6b41
3750: 62 33 65 66 33 36 35 64 32 31 39 61 5d 7d 20 5c  b3ef365d219a]} \
3760: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3770: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3780: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
3790: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
37a0: 20 2d 72 65 73 75 6c 74 20 33 65 61 35 64 30 37   -result 3ea5d07
37b0: 39 39 66 31 61 34 64 63 61 62 39 31 34 39 61 34  99f1a4dcab9149a4
37c0: 30 61 62 37 34 62 65 63 39 63 38 64 37 36 64 38  0ab74bec9c8d76d8
37d0: 65 33 39 32 63 31 65 36 33 65 30 38 30 64 64 65  e392c1e63e080dde
37e0: 63 32 65 63 35 33 35 66 38 30 62 65 39 66 30 30  c2ec535f80be9f00
37f0: 39 32 37 62 65 32 38 31 65 63 39 37 61 63 30 63  927be281ec97ac0c
3800: 38 38 32 62 62 30 62 62 66 0a 0a 74 63 6c 74 65  882bb0bbf..tclte
3810: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
3820: 41 33 38 34 2d 32 2e 34 34 20 7b 53 48 41 33 38  A384-2.44 {SHA38
3830: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
3840: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
3850: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3860: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3870: 63 6f 64 65 20 68 65 78 20 37 65 38 30 32 37 31  code hex 7e80271
3880: 62 62 35 66 32 63 63 37 64 64 61 65 34 31 35 38  bb5f2cc7ddae4158
3890: 36 35 38 65 34 65 38 64 30 36 65 30 34 61 33 39  658e4e8d06e04a39
38a0: 33 38 35 64 61 30 65 63 61 63 31 63 62 38 65 39  385da0ecac1cb8e9
38b0: 31 64 36 38 61 39 62 64 32 31 64 64 62 37 33 32  1d68a9bd21ddb732
38c0: 30 65 37 39 64 31 30 65 33 31 31 30 37 35 38 5d  0e79d10e3110758]
38d0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
38e0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
38f0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
3900: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3910: 61 63 74 20 2d 72 65 73 75 6c 74 20 66 61 30 30  act -result fa00
3920: 62 63 30 33 35 39 61 36 34 32 64 63 62 33 35 35  bc0359a642dcb355
3930: 39 36 35 36 30 39 34 65 62 32 66 64 34 66 36 33  9656094eb2fd4f63
3940: 62 63 35 37 66 30 64 33 34 61 62 66 66 32 36 64  bc57f0d34abff26d
3950: 66 35 63 35 34 63 63 36 33 64 62 65 62 34 65 61  f5c54cc63dbeb4ea
3960: 63 37 35 39 30 35 32 39 36 65 37 66 62 36 39 66  c75905296e7fb69f
3970: 38 37 31 65 31 33 34 30 38 33 66 36 0a 0a 74 63  871e134083f6..tc
3980: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
3990: 5f 53 48 41 33 38 34 2d 32 2e 34 35 20 7b 53 48  _SHA384-2.45 {SH
39a0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
39b0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
39c0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
39d0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
39e0: 20 64 65 63 6f 64 65 20 68 65 78 20 34 33 64 32   decode hex 43d2
39f0: 38 32 38 65 38 36 66 37 38 35 36 62 37 38 63 36  828e86f7856b78c6
3a00: 36 63 66 61 33 64 36 30 32 33 38 37 63 32 39 30  6cfa3d602387c290
3a10: 39 37 35 61 66 64 30 32 31 61 38 62 37 36 61 66  975afd021a8b76af
3a20: 30 39 31 38 30 36 39 63 61 63 33 35 64 65 63 34  0918069cac35dec4
3a30: 35 64 65 33 63 63 35 32 65 64 63 34 62 61 31 34  5de3cc52edc4ba14
3a40: 34 33 32 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  432e]} \..-body 
3a50: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3a60: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
3a70: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3a80: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3a90: 20 36 63 39 65 33 36 37 65 30 36 36 30 33 32 63   6c9e367e066032c
3aa0: 65 34 37 62 61 32 35 37 35 35 36 35 39 33 32 30  e47ba25755659320
3ab0: 30 32 63 63 37 38 36 66 35 33 33 63 35 35 35 31  02cc786f533c5551
3ac0: 36 35 36 61 62 66 65 37 33 39 31 65 37 64 63 62  656abfe7391e7dcb
3ad0: 35 66 39 64 39 65 30 34 37 61 64 61 63 65 32 33  5f9d9e047adace23
3ae0: 64 33 32 66 38 61 63 65 64 66 64 30 63 61 66 63  d32f8acedfd0cafc
3af0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
3b00: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34   Hash_SHA384-2.4
3b10: 36 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  6 {SHA384ShortMs
3b20: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3b30: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
3b40: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3b50: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3b60: 20 33 66 34 39 62 62 36 34 35 63 63 65 64 37 35   3f49bb645cced75
3b70: 33 30 62 38 62 38 32 65 36 63 66 30 37 66 62 66  30b8b82e6cf07fbf
3b80: 36 37 30 66 37 65 66 30 62 61 30 35 38 33 64 31  670f7ef0ba0583d1
3b90: 36 64 65 62 61 66 63 36 33 39 62 64 66 62 66 63  6debafc639bdfbfc
3ba0: 39 39 62 38 34 31 37 32 34 39 66 37 66 35 61 30  99b8417249f7f5a0
3bb0: 35 34 31 30 61 61 33 61 37 31 66 5d 7d 20 5c 0a  5410aa3a71f]} \.
3bc0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
3bd0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
3be0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
3bf0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
3c00: 2d 72 65 73 75 6c 74 20 32 62 33 30 31 61 31 34  -result 2b301a14
3c10: 36 34 37 61 36 37 34 32 39 63 63 33 65 37 64 61  647a67429cc3e7da
3c20: 30 32 63 34 30 39 33 61 37 33 39 36 34 30 66 37  02c4093a739640f7
3c30: 62 34 37 61 33 30 35 32 35 31 64 32 38 35 35 65  b47a305251d2855e
3c40: 37 35 65 30 39 65 36 30 65 32 36 32 62 32 37 39  75e09e60e262b279
3c50: 61 30 37 33 30 37 37 64 31 66 62 36 64 30 66 30  a073077d1fb6d0f0
3c60: 34 37 38 38 66 32 62 38 0a 0a 74 63 6c 74 65 73  4788f2b8..tcltes
3c70: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3c80: 33 38 34 2d 32 2e 34 37 20 7b 53 48 41 33 38 34  384-2.47 {SHA384
3c90: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3ca0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
3cb0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3cc0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3cd0: 6f 64 65 20 68 65 78 20 33 31 61 61 63 30 36 61  ode hex 31aac06a
3ce0: 35 39 62 37 34 62 66 34 37 38 36 31 37 63 31 36  59b74bf478617c16
3cf0: 33 37 66 61 36 63 35 35 39 33 64 66 31 36 38 62  37fa6c5593df168b
3d00: 38 64 35 38 62 31 65 39 32 33 62 66 33 65 33 64  8d58b1e923bf3e3d
3d10: 38 30 65 35 35 64 37 31 37 30 62 31 36 34 35 34  80e55d7170b16454
3d20: 31 36 30 61 62 32 39 65 65 31 66 37 34 31 32 65  160ab29ee1f7412e
3d30: 62 63 30 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  bc05]} \..-body 
3d40: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3d50: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
3d60: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3d70: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3d80: 20 64 64 64 32 34 35 63 39 62 32 39 63 65 61 63   ddd245c9b29ceac
3d90: 36 30 35 30 36 66 62 36 62 64 36 65 38 30 33 37  60506fb6bd6e8037
3da0: 38 38 39 63 62 37 33 64 36 65 63 63 36 36 39 66  889cb73d6ecc669f
3db0: 64 31 32 39 30 36 30 61 38 61 38 66 35 38 39 37  d129060a8a8f5897
3dc0: 31 61 63 35 37 32 64 33 65 63 39 62 34 34 34 30  1ac572d3ec9b4440
3dd0: 34 66 38 31 33 38 31 64 30 66 64 33 35 61 36 34  4f81381d0fd35a64
3de0: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  9..tcltest::test
3df0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 34   Hash_SHA384-2.4
3e00: 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  8 {SHA384ShortMs
3e10: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3e20: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
3e30: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3e40: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3e50: 20 63 31 30 62 32 38 35 32 30 35 34 64 38 30 33   c10b2852054d803
3e60: 34 65 30 37 39 30 36 63 37 66 63 65 33 63 65 39  4e07906c7fce3ce9
3e70: 39 34 30 32 33 32 31 61 36 34 38 62 62 38 38 31  9402321a648bb881
3e80: 66 31 33 66 62 32 37 36 61 66 63 32 32 34 63 36  f13fb276afc224c6
3e90: 61 65 63 63 36 34 38 30 30 63 64 37 36 37 65 64  aecc64800cd767ed
3ea0: 32 34 32 39 64 62 39 34 62 39 35 61 39 63 33 5d  2429db94b95a9c3]
3eb0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3ec0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3ed0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
3ee0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3ef0: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 34 34 36  act -result a446
3f00: 34 30 66 62 34 63 65 36 64 66 64 34 61 31 30 32  40fb4ce6dfd4a102
3f10: 39 30 61 30 61 65 63 64 62 34 35 33 30 35 34 61  90a0aecdb453054a
3f20: 39 62 35 34 66 32 35 38 33 65 39 37 62 62 37 64  9b54f2583e97bb7d
3f30: 63 32 62 30 30 35 65 35 66 61 32 62 34 66 64 61  c2b005e5fa2b4fda
3f40: 31 37 62 31 66 37 35 39 30 32 66 35 31 63 31 38  17b1f75902f51c18
3f50: 63 30 63 61 61 64 33 35 38 33 33 63 0a 0a 74 63  c0caad35833c..tc
3f60: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
3f70: 5f 53 48 41 33 38 34 2d 32 2e 34 39 20 7b 53 48  _SHA384-2.49 {SH
3f80: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
3f90: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3fa0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
3fb0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3fc0: 20 64 65 63 6f 64 65 20 68 65 78 20 62 31 65 65   decode hex b1ee
3fd0: 65 66 33 32 34 62 34 39 39 66 31 39 65 62 61 33  ef324b499f19eba3
3fe0: 32 32 32 31 35 66 65 33 63 65 31 39 63 39 66 30  22215fe3ce19c9f0
3ff0: 30 30 62 36 39 38 64 32 62 32 64 61 62 37 31 34  00b698d2b2dab714
4000: 35 30 31 35 30 34 36 63 63 38 36 64 30 34 39 65  5015046cc86d049e
4010: 65 31 35 61 64 35 39 64 63 64 31 35 36 34 66 33  e15ad59dcd1564f3
4020: 30 31 31 32 65 30 36 34 34 34 63 62 5d 7d 20 5c  0112e06444cb]} \
4030: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4040: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4050: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
4060: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4070: 20 2d 72 65 73 75 6c 74 20 33 38 37 34 32 64 31   -result 38742d1
4080: 38 62 66 61 36 65 39 31 38 62 38 38 38 64 36 38  8bfa6e918b888d68
4090: 64 31 30 33 34 65 36 31 66 36 35 64 65 63 30 37  d1034e61f65dec07
40a0: 35 39 31 37 32 63 32 64 62 66 30 38 63 66 31 65  59172c2dbf08cf1e
40b0: 31 33 32 62 32 31 37 65 61 66 34 65 63 32 39 65  132b217eaf4ec29e
40c0: 31 35 64 62 37 66 34 62 30 37 65 30 38 61 37 30  15db7f4b07e08a70
40d0: 63 63 35 36 36 32 30 31 32 0a 0a 74 63 6c 74 65  cc5662012..tclte
40e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
40f0: 41 33 38 34 2d 32 2e 35 30 20 7b 53 48 41 33 38  A384-2.50 {SHA38
4100: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
4110: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
4120: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4130: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4140: 63 6f 64 65 20 68 65 78 20 37 39 30 64 62 62 61  code hex 790dbba
4150: 30 39 39 36 35 63 39 37 37 34 64 64 36 30 61 33  09965c9774dd60a3
4160: 32 65 30 31 30 63 35 30 64 36 64 35 31 38 39 36  2e010c50d6d51896
4170: 38 61 32 32 30 31 34 31 64 63 33 33 65 37 34 31  8a220141dc33e741
4180: 30 66 32 64 61 36 63 30 38 61 64 30 34 31 39 62  0f2da6c08ad0419b
4190: 64 39 38 36 34 64 35 33 32 37 64 32 63 35 63 34  d9864d5327d2c5c4
41a0: 34 39 31 34 62 32 65 38 33 66 39 5d 7d 20 5c 0a  4914b2e83f9]} \.
41b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
41c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
41d0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
41e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
41f0: 2d 72 65 73 75 6c 74 20 39 31 37 34 39 35 38 62  -result 9174958b
4200: 63 38 66 34 65 64 34 37 33 31 65 63 65 64 39 39  c8f4ed4731eced99
4210: 39 62 65 61 32 66 36 33 30 33 32 66 35 32 62 63  9bea2f63032f52bc
4220: 38 63 34 36 62 63 64 39 30 33 32 33 32 66 33 66  8c46bcd903232f3f
4230: 62 63 35 30 34 36 66 30 64 36 63 32 30 33 64 34  bc5046f0d6c203d4
4240: 33 61 30 37 38 62 38 32 32 66 63 30 35 31 30 31  3a078b822fc05101
4250: 34 30 34 66 32 36 33 35 0a 0a 74 63 6c 74 65 73  404f2635..tcltes
4260: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4270: 33 38 34 2d 32 2e 35 31 20 7b 53 48 41 33 38 34  384-2.51 {SHA384
4280: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4290: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
42a0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
42b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
42c0: 6f 64 65 20 68 65 78 20 66 37 62 35 37 37 66 31  ode hex f7b577f1
42d0: 33 39 36 62 32 33 63 32 37 65 62 36 33 37 65 35  396b23c27eb637e5
42e0: 33 64 33 64 39 32 34 36 30 32 37 30 62 30 30 31  3d3d92460270b001
42f0: 63 63 36 31 32 66 64 33 62 34 64 36 38 62 63 64  cc612fd3b4d68bcd
4300: 64 30 39 63 32 64 35 30 35 37 31 65 61 34 33 35  d09c2d50571ea435
4310: 30 36 33 36 33 32 34 63 63 32 34 32 38 61 30 38  0636324cc2428a08
4320: 37 65 37 62 64 38 37 38 35 66 38 32 5d 7d 20 5c  7e7bd8785f82]} \
4330: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4340: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4350: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
4360: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4370: 20 2d 72 65 73 75 6c 74 20 38 30 61 66 65 31 31   -result 80afe11
4380: 31 65 34 34 61 64 39 61 66 66 39 65 33 39 63 34  1e44ad9aff9e39c4
4390: 63 66 39 65 36 62 34 63 35 32 30 30 37 32 62 34  cf9e6b4c520072b4
43a0: 35 35 30 65 36 32 62 31 37 34 30 31 36 30 61 30  550e62b1740160a0
43b0: 34 66 38 64 35 33 30 36 31 32 64 63 30 39 38 39  4f8d530612dc0989
43c0: 31 37 61 35 35 36 62 34 34 39 37 37 64 30 65 37  17a556b44977d0e7
43d0: 33 64 66 35 31 38 62 65 65 0a 0a 74 63 6c 74 65  3df518bee..tclte
43e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
43f0: 41 33 38 34 2d 32 2e 35 32 20 7b 53 48 41 33 38  A384-2.52 {SHA38
4400: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
4410: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
4420: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4430: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4440: 63 6f 64 65 20 68 65 78 20 37 33 37 30 64 39 62  code hex 7370d9b
4450: 34 35 33 39 33 36 39 35 35 62 39 63 39 64 33 33  453936955b9c9d33
4460: 36 66 34 62 32 38 33 32 33 37 39 38 36 32 33 32  6f4b283237986232
4470: 64 65 30 30 37 62 66 34 31 32 66 62 34 32 36 66  de007bf412fb426f
4480: 66 35 62 34 30 39 33 63 38 30 63 34 32 38 63 31  f5b4093c80c428c1
4490: 39 61 31 32 65 30 62 31 38 37 34 38 34 64 63 36  9a12e0b187484dc6
44a0: 64 35 66 34 37 34 36 35 33 37 66 62 31 65 64 5d  d5f4746537fb1ed]
44b0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
44c0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
44d0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
44e0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
44f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 36 63 64 32  act -result 6cd2
4500: 39 31 35 39 38 32 30 64 33 34 65 35 37 30 36 64  9159820d34e5706d
4510: 64 38 36 37 65 36 33 36 33 37 35 38 64 33 31 32  d867e6363758d312
4520: 36 36 30 64 34 64 61 63 61 38 64 32 61 62 66 36  660d4daca8d2abf6
4530: 37 37 66 32 33 34 37 34 36 65 39 37 61 30 61 36  77f234746e97a0a6
4540: 32 32 34 65 62 30 35 34 30 36 36 61 30 62 37 34  224eb054066a0b74
4550: 65 31 38 63 37 30 39 36 35 33 36 38 0a 0a 74 63  e18c70965368..tc
4560: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4570: 5f 53 48 41 33 38 34 2d 32 2e 35 33 20 7b 53 48  _SHA384-2.53 {SH
4580: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
4590: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
45a0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
45b0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
45c0: 20 64 65 63 6f 64 65 20 68 65 78 20 65 38 36 32   decode hex e862
45d0: 30 31 37 30 66 30 66 33 39 33 32 38 62 64 66 38  0170f0f39328bdf8
45e0: 38 38 38 31 34 38 63 66 64 31 37 37 33 30 66 33  888148cfd17730f3
45f0: 31 34 65 61 36 38 64 38 66 65 61 30 32 64 31 36  14ea68d8fea02d16
4600: 64 39 38 61 33 63 63 61 36 31 34 38 34 31 33 39  d98a3cca61484139
4610: 64 33 65 65 39 32 62 37 34 38 30 39 31 64 63 38  d3ee92b748091dc8
4620: 34 31 64 64 61 30 38 34 38 33 66 31 31 38 34 30  41dda08483f11840
4630: 32 35 63 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  25ce]} \..-body 
4640: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4650: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
4660: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4670: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4680: 20 32 39 63 34 30 38 61 36 61 35 30 34 35 66 33   29c408a6a5045f3
4690: 39 37 62 35 36 64 66 62 35 32 39 32 63 37 63 31  97b56dfb5292c7c1
46a0: 36 30 32 38 63 36 33 66 30 36 38 65 36 39 39 62  6028c63f068e699b
46b0: 38 36 61 38 39 31 66 66 38 35 30 31 32 30 38 65  86a891ff8501208e
46c0: 63 39 33 39 38 64 62 61 66 34 36 33 63 30 30 66  c9398dbaf463c00f
46d0: 33 39 61 66 37 62 32 63 62 65 34 35 62 61 63 31  39af7b2cbe45bac1
46e0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
46f0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 35   Hash_SHA384-2.5
4700: 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  4 {SHA384ShortMs
4710: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4720: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
4730: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4740: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4750: 20 37 35 64 34 32 31 36 62 61 64 37 37 39 34 33   75d4216bad77943
4760: 62 66 65 38 32 62 65 32 31 36 31 35 37 38 34 33  bfe82be216157843
4770: 62 30 64 61 30 66 64 31 36 65 65 65 65 38 34 37  b0da0fd16eeee847
4780: 31 35 33 61 30 30 62 34 33 65 37 30 37 62 32 66  153a00b43e707b2f
4790: 66 65 32 63 38 39 38 31 36 38 30 38 31 66 30 62  fe2c898168081f0b
47a0: 64 62 33 61 66 35 38 66 32 31 34 63 66 36 37 62  db3af58f214cf67b
47b0: 39 32 30 63 33 38 35 61 63 61 31 5d 7d 20 5c 0a  920c385aca1]} \.
47c0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
47d0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
47e0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
47f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
4800: 2d 72 65 73 75 6c 74 20 30 31 37 30 33 35 37 33  -result 01703573
4810: 38 35 61 32 30 38 36 35 61 38 64 33 30 63 32 64  85a20865a8d30c2d
4820: 66 33 39 34 30 36 39 30 33 66 66 38 38 63 37 66  f39406903ff88c7f
4830: 37 30 66 61 31 61 37 61 35 61 61 61 38 36 37 31  70fa1a7a5aaa8671
4840: 31 64 36 34 30 34 36 63 34 33 32 61 31 62 31 33  1d64046c432a1b13
4850: 39 36 36 38 61 65 35 61 62 65 64 36 33 37 64 31  9668ae5abed637d1
4860: 64 63 34 31 30 37 62 37 0a 0a 74 63 6c 74 65 73  dc4107b7..tcltes
4870: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4880: 33 38 34 2d 32 2e 35 35 20 7b 53 48 41 33 38 34  384-2.55 {SHA384
4890: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
48a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
48b0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
48c0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
48d0: 6f 64 65 20 68 65 78 20 32 66 61 39 30 63 32 32  ode hex 2fa90c22
48e0: 31 30 65 33 30 39 36 63 61 65 64 31 32 32 62 37  10e3096caed122b7
48f0: 34 65 62 39 35 35 39 39 37 37 31 32 30 65 35 64  4eb9559977120e5d
4900: 39 61 39 37 65 65 62 33 66 39 39 62 63 62 61 36  9a97eeb3f99bcba6
4910: 63 31 39 63 66 38 63 66 37 39 31 61 63 36 63 38  c19cf8cf791ac6c8
4920: 61 30 61 39 34 61 65 34 39 32 34 36 36 31 31 64  a0a94ae49246611d
4930: 61 63 65 37 66 32 34 65 62 30 35 36 37 33 61 33  ace7f24eb05673a3
4940: 36 62 33 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  6b3e]} \..-body 
4950: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4960: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
4970: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4980: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4990: 20 36 63 32 63 65 64 33 66 61 65 39 34 64 62 64   6c2ced3fae94dbd
49a0: 39 32 66 34 31 37 30 62 36 33 66 31 66 66 36 66  92f4170b63f1ff6f
49b0: 63 64 38 31 39 34 66 36 30 39 33 37 62 32 32 62  cd8194f60937b22b
49c0: 34 66 33 63 39 35 66 63 39 65 31 30 34 62 37 37  4f3c95fc9e104b77
49d0: 31 34 38 66 39 62 63 36 63 31 36 61 38 39 30 64  148f9bc6c16a890d
49e0: 65 38 36 64 39 65 66 31 35 35 34 63 39 36 66 61  e86d9ef1554c96fa
49f0: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  0..tcltest::test
4a00: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 35   Hash_SHA384-2.5
4a10: 36 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  6 {SHA384ShortMs
4a20: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4a30: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
4a40: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4a50: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4a60: 20 61 38 64 65 35 35 31 37 30 63 36 64 63 30 64   a8de55170c6dc0d
4a70: 38 30 64 65 33 32 66 35 30 38 62 66 34 39 62 37  80de32f508bf49b7
4a80: 30 34 36 61 65 65 61 34 62 39 37 35 61 35 31 31  046aeea4b975a511
4a90: 62 35 65 61 33 64 63 38 35 33 62 66 61 34 62 31  b5ea3dc853bfa4b1
4aa0: 65 30 31 33 38 32 30 32 64 36 37 38 35 66 36 62  e0138202d6785f6b
4ab0: 33 30 31 37 39 31 34 61 38 36 66 38 32 34 32 38  3017914a86f82428
4ac0: 38 64 35 38 36 64 63 30 65 38 62 63 39 32 34 5d  8d586dc0e8bc924]
4ad0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4ae0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4af0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
4b00: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4b10: 61 63 74 20 2d 72 65 73 75 6c 74 20 32 62 63 33  act -result 2bc3
4b20: 62 31 30 63 31 34 38 32 30 30 66 37 39 31 39 62  b10c148200f7919b
4b30: 35 37 61 66 65 31 64 37 64 62 37 37 33 66 66 64  57afe1d7db773ffd
4b40: 32 33 35 65 30 34 66 65 63 36 38 39 37 64 64 39  235e04fec6897dd9
4b50: 34 66 31 33 61 64 39 63 34 33 37 65 66 35 30 39  4f13ad9c437ef509
4b60: 30 30 61 34 30 39 33 37 66 38 32 61 33 39 64 61  00a40937f82a39da
4b70: 66 32 61 61 32 62 33 64 66 64 36 38 0a 0a 74 63  f2aa2b3dfd68..tc
4b80: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4b90: 5f 53 48 41 33 38 34 2d 32 2e 35 37 20 7b 53 48  _SHA384-2.57 {SH
4ba0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
4bb0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
4bc0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
4bd0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
4be0: 20 64 65 63 6f 64 65 20 68 65 78 20 61 63 63 64   decode hex accd
4bf0: 39 64 30 35 66 62 37 65 66 33 30 34 33 34 37 30  9d05fb7ef3043470
4c00: 38 33 36 31 33 37 35 35 34 61 66 31 31 37 34 34  836137554af11744
4c10: 30 62 33 63 63 63 61 37 61 32 38 30 32 38 35 34  0b3ccca7a2802854
4c20: 39 34 66 39 30 64 66 61 65 61 36 30 64 63 62 66  94f90dfaea60dcbf
4c30: 34 30 62 32 33 30 32 37 31 39 33 32 63 64 33 38  40b230271932cd38
4c40: 37 35 62 31 64 33 64 63 61 36 30 64 33 38 38 36  75b1d3dca60d3886
4c50: 35 66 66 38 37 34 31 38 30 65 66 61 5d 7d 20 5c  5ff874180efa]} \
4c60: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4c70: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4c80: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
4c90: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4ca0: 20 2d 72 65 73 75 6c 74 20 62 39 65 30 32 64 66   -result b9e02df
4cb0: 39 33 65 39 32 35 34 31 38 30 64 36 61 31 35 32  93e9254180d6a152
4cc0: 38 38 64 37 37 30 38 38 62 35 61 35 63 65 35 31  88d77088b5a5ce51
4cd0: 37 36 34 34 31 30 39 62 34 65 32 35 33 32 62 65  7644109b4e2532be
4ce0: 33 31 35 66 30 38 64 65 65 34 33 34 39 31 36 30  315f08dee4349160
4cf0: 38 61 31 31 32 37 64 63 64 66 36 39 33 39 37 34  8a1127dcdf693974
4d00: 30 36 65 32 33 64 32 33 31 0a 0a 74 63 6c 74 65  06e23d231..tclte
4d10: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
4d20: 41 33 38 34 2d 32 2e 35 38 20 7b 53 48 41 33 38  A384-2.58 {SHA38
4d30: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
4d40: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
4d50: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4d60: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4d70: 63 6f 64 65 20 68 65 78 20 33 32 62 38 33 35 63  code hex 32b835c
4d80: 31 38 30 63 63 34 30 30 36 63 31 31 61 36 31 63  180cc4006c11a61c
4d90: 36 35 62 30 33 63 30 39 39 35 31 30 65 31 64 34  65b03c099510e1d4
4da0: 66 30 61 39 34 62 36 33 64 35 34 62 64 36 62 64  f0a94b63d54bd6bd
4db0: 35 61 38 61 62 32 30 37 61 62 30 66 34 36 33 39  5a8ab207ab0f4639
4dc0: 32 30 36 35 36 34 65 64 63 33 66 61 36 61 66 30  206564edc3fa6af0
4dd0: 33 32 38 30 61 36 37 37 34 34 66 36 38 31 30 36  3280a67744f68106
4de0: 64 63 35 31 65 65 33 35 37 32 33 5d 7d 20 5c 0a  dc51ee35723]} \.
4df0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
4e00: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
4e10: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
4e20: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
4e30: 2d 72 65 73 75 6c 74 20 64 66 39 37 61 31 63 35  -result df97a1c5
4e40: 64 64 61 36 66 39 64 64 65 37 34 39 66 32 31 33  dda6f9dde749f213
4e50: 65 34 32 39 64 62 38 34 66 30 64 63 64 34 38 31  e429db84f0dcd481
4e60: 64 34 33 62 66 35 38 65 36 31 34 32 39 36 38 64  d43bf58e6142968d
4e70: 36 32 39 65 63 66 30 35 62 32 36 32 38 33 30 61  629ecf05b262830a
4e80: 37 64 61 63 38 37 66 36 37 66 34 33 38 33 39 37  7dac87f67f438397
4e90: 35 66 33 65 38 32 31 64 0a 0a 74 63 6c 74 65 73  5f3e821d..tcltes
4ea0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4eb0: 33 38 34 2d 32 2e 35 39 20 7b 53 48 41 33 38 34  384-2.59 {SHA384
4ec0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4ed0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
4ee0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
4ef0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
4f00: 6f 64 65 20 68 65 78 20 39 34 30 39 66 39 65 66  ode hex 9409f9ef
4f10: 61 64 62 66 31 39 30 62 32 35 33 33 36 37 36 32  adbf190b25336762
4f20: 39 66 38 66 33 36 38 63 39 64 35 61 63 32 36 32  9f8f368c9d5ac262
4f30: 65 39 34 61 62 38 36 66 33 35 35 39 66 39 61 31  e94ab86f3559f9a1
4f40: 66 65 31 61 39 62 34 34 62 36 34 65 33 31 33 31  fe1a9b44b64e3131
4f50: 32 31 62 33 34 64 34 33 30 30 31 63 34 33 30 62  21b34d43001c430b
4f60: 65 64 63 36 32 66 63 35 38 36 65 61 33 39 38 61  edc62fc586ea398a
4f70: 63 64 38 66 31 37 63 37 63 66 61 32 5d 7d 20 5c  cd8f17c7cfa2]} \
4f80: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4f90: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4fa0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
4fb0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4fc0: 20 2d 72 65 73 75 6c 74 20 65 31 61 36 39 33 38   -result e1a6938
4fd0: 38 65 65 36 62 36 64 32 33 34 31 30 38 65 63 32  8ee6b6d234108ec2
4fe0: 39 34 30 32 63 64 30 61 66 64 37 34 39 35 37 64  9402cd0afd74957d
4ff0: 39 39 30 63 37 62 64 62 35 34 34 63 66 31 31 65  990c7bdb544cf11e
5000: 38 65 62 32 63 63 64 31 37 30 62 36 62 35 61 37  8eb2ccd170b6b5a7
5010: 34 34 33 31 62 65 37 30 33 36 34 64 37 61 33 31  4431be70364d7a31
5020: 62 39 32 36 66 66 35 33 63 0a 0a 74 63 6c 74 65  b926ff53c..tclte
5030: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
5040: 41 33 38 34 2d 32 2e 36 30 20 7b 53 48 41 33 38  A384-2.60 {SHA38
5050: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
5060: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
5070: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5080: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5090: 63 6f 64 65 20 68 65 78 20 32 38 39 35 38 36 62  code hex 289586b
50a0: 61 66 38 64 61 63 65 64 35 30 64 62 31 34 63 39  af8daced50db14c9
50b0: 33 36 35 32 39 61 30 61 36 34 33 38 65 62 35 64  36529a0a6438eb5d
50c0: 61 38 64 33 64 34 36 39 31 37 32 62 36 61 30 36  a8d3d469172b6a06
50d0: 66 34 66 66 33 61 39 35 36 64 34 66 39 32 31 39  f4ff3a956d4f9219
50e0: 35 36 33 61 63 32 38 35 63 62 38 65 37 30 30 37  563ac285cb8e7007
50f0: 34 63 66 63 63 31 35 32 63 30 32 35 39 33 61 39  4cfcc152c02593a9
5100: 37 37 33 33 63 33 36 66 34 61 39 65 39 37 66 5d  7733c36f4a9e97f]
5110: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
5120: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
5130: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
5140: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5150: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 30 39 65  act -result 509e
5160: 39 39 36 63 31 65 31 31 36 31 31 63 32 34 33 30  996c1e11611c2430
5170: 32 31 62 38 62 37 38 66 32 61 64 39 30 63 35 61  21b8b78f2ad90c5a
5180: 39 32 36 33 62 62 66 33 35 39 31 30 64 62 37 63  9263bbf35910db7c
5190: 38 65 63 31 30 32 61 61 37 63 35 31 38 30 36 36  8ec102aa7c518066
51a0: 66 66 66 38 63 65 38 38 35 36 32 66 65 63 32 63  fff8ce88562fec2c
51b0: 64 36 64 66 65 30 34 30 35 36 61 65 0a 0a 74 63  d6dfe04056ae..tc
51c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
51d0: 5f 53 48 41 33 38 34 2d 32 2e 36 31 20 7b 53 48  _SHA384-2.61 {SH
51e0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
51f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
5200: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
5210: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
5220: 20 64 65 63 6f 64 65 20 68 65 78 20 31 35 36 35   decode hex 1565
5230: 33 30 63 64 36 65 64 33 62 61 66 31 66 64 37 32  30cd6ed3baf1fd72
5240: 33 32 63 37 66 66 32 30 34 66 33 63 37 64 34 64  32c7ff204f3c7d4d
5250: 31 30 36 30 31 36 61 66 61 33 62 64 66 66 33 37  106016afa3bdff37
5260: 38 36 65 38 34 38 34 33 65 63 35 35 36 31 31 35  86e84843ec556115
5270: 36 32 36 66 64 63 38 34 62 32 65 38 37 34 66 31  626fdc84b2e874f1
5280: 30 37 34 65 34 66 37 64 35 33 65 30 38 30 37 39  074e4f7d53e08079
5290: 65 65 39 66 64 30 31 66 38 30 61 38 62 65 37 66  ee9fd01f80a8be7f
52a0: 32 30 63 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  20c0]} \..-body 
52b0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
52c0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
52d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
52e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
52f0: 20 37 62 38 61 35 39 38 30 32 39 63 61 30 65 64   7b8a598029ca0ed
5300: 34 37 35 61 37 32 63 30 36 34 34 61 63 38 31 63  475a72c0644ac81c
5310: 36 33 64 37 32 66 64 35 31 33 30 35 64 61 64 61  63d72fd51305dada
5320: 30 37 62 30 61 62 34 61 32 39 65 34 37 34 32 32  07b0ab4a29e47422
5330: 66 35 39 65 31 32 36 34 33 31 37 39 32 36 39 63  f59e12643179269c
5340: 61 33 64 37 64 31 30 34 34 36 62 33 37 32 62 32  a3d7d10446b372b2
5350: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
5360: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 36   Hash_SHA384-2.6
5370: 32 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  2 {SHA384ShortMs
5380: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
5390: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
53a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
53b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
53c0: 20 33 30 36 35 35 61 36 62 35 61 35 39 36 35 64   30655a6b5a5965d
53d0: 62 39 39 32 65 37 32 34 38 64 32 34 31 34 31 30  b992e7248d241410
53e0: 35 35 65 39 38 38 64 37 32 36 61 62 62 38 65 37  55e988d726abb8e7
53f0: 32 39 64 63 35 63 32 31 66 66 63 62 61 65 64 62  29dc5c21ffcbaedb
5400: 63 30 62 31 62 35 66 65 61 33 35 62 38 37 35 31  c0b1b5fea35b8751
5410: 66 36 65 63 36 36 32 35 35 31 37 33 31 32 66 66  f6ec6625517312ff
5420: 66 32 32 33 34 30 31 34 31 37 36 32 36 39 62 36  f2234014176269b6
5430: 30 39 35 39 37 32 33 37 38 37 63 5d 7d 20 5c 0a  0959723787c]} \.
5440: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
5450: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
5460: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
5470: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
5480: 2d 72 65 73 75 6c 74 20 63 66 61 66 34 34 33 65  -result cfaf443e
5490: 39 35 64 65 65 62 33 63 63 31 39 31 30 37 37 31  95deeb3cc1910771
54a0: 61 32 63 30 36 39 32 61 35 34 62 31 38 62 33 36  a2c0692a54b18b36
54b0: 33 33 64 63 35 34 31 34 65 37 31 61 65 30 38 38  33dc5414e71ae088
54c0: 37 37 66 30 38 30 34 38 31 38 66 36 37 66 37 31  77f0804818f67f71
54d0: 39 36 63 35 32 65 32 36 62 37 36 32 64 64 31 32  96c52e26b762dd12
54e0: 62 62 37 61 38 36 63 61 0a 0a 74 63 6c 74 65 73  bb7a86ca..tcltes
54f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
5500: 33 38 34 2d 32 2e 36 33 20 7b 53 48 41 33 38 34  384-2.63 {SHA384
5510: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
5520: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
5530: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
5540: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
5550: 6f 64 65 20 68 65 78 20 33 34 35 63 33 63 30 32  ode hex 345c3c02
5560: 32 65 32 30 31 34 34 65 31 33 35 36 30 34 30 37  2e20144e13560407
5570: 38 37 36 32 65 66 35 63 38 61 38 66 30 33 38 63  8762ef5c8a8f038c
5580: 66 31 62 31 64 36 61 39 31 37 30 39 62 35 39 64  f1b1d6a91709b59d
5590: 64 30 36 38 33 39 36 61 39 65 39 37 31 61 62 36  d068396a9e971ab6
55a0: 32 38 66 37 34 38 38 36 65 37 36 35 33 38 34 61  28f74886e765384a
55b0: 32 33 36 30 37 63 31 61 31 65 36 65 39 37 33 66  23607c1a1e6e973f
55c0: 38 66 62 62 30 66 66 35 35 31 30 34 63 34 36 66  8fbb0ff55104c46f
55d0: 35 64 62 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5db3]} \..-body 
55e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
55f0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
5600: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5610: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5620: 20 62 66 62 31 64 35 65 65 33 61 30 62 36 32 39   bfb1d5ee3a0b629
5630: 30 35 38 65 63 63 35 32 31 63 37 30 36 63 32 66  058ecc521c706c2f
5640: 39 32 34 31 63 34 38 63 64 61 33 64 63 66 64 62  9241c48cda3dcfdb
5650: 61 36 36 30 61 32 36 30 31 64 38 33 32 61 37 61  a660a2601d832a7a
5660: 38 37 32 61 32 62 62 38 34 30 66 33 62 39 38 64  872a2bb840f3b98d
5670: 32 31 63 33 37 65 32 38 66 39 30 34 31 61 35 62  21c37e28f9041a5b
5680: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
5690: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 36   Hash_SHA384-2.6
56a0: 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  4 {SHA384ShortMs
56b0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
56c0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
56d0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
56e0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
56f0: 20 30 62 39 34 61 30 66 34 33 61 39 32 34 30 38   0b94a0f43a92408
5700: 39 36 33 61 35 39 64 65 64 30 31 61 39 33 33 38  963a59ded01a9338
5710: 32 38 33 61 36 66 66 31 62 66 62 61 63 64 39 30  283a6ff1bfbacd90
5720: 35 31 61 30 31 30 34 34 34 35 63 37 66 30 34 31  51a0104445c7f041
5730: 65 38 30 33 37 61 66 64 65 33 62 35 61 38 37 64  e8037afde3b5a87d
5740: 32 32 64 35 61 34 37 39 36 31 34 34 63 62 63 39  22d5a4796144cbc9
5750: 34 34 30 39 31 64 36 63 63 34 37 62 35 66 66 64  44091d6cc47b5ffd
5760: 31 66 39 39 37 61 62 31 34 39 36 63 61 33 31 5d  1f997ab1496ca31]
5770: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
5780: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
5790: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
57a0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
57b0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 37 61 30  act -result 07a0
57c0: 34 35 63 39 35 39 30 65 39 39 30 31 64 30 35 39  45c9590e9901d059
57d0: 38 65 36 30 34 63 34 36 34 39 35 35 34 61 38 32  8e604c4649554a82
57e0: 33 64 65 39 39 36 66 61 34 33 38 63 63 38 31 61  3de996fa438cc81a
57f0: 36 33 34 33 34 34 65 65 62 39 38 65 35 66 33 63  634344eeb98e5f3c
5800: 30 63 32 33 34 62 61 33 30 65 32 32 38 35 61 34  0c234ba30e2285a4
5810: 64 37 61 62 35 36 38 66 32 36 31 30 0a 0a 74 63  d7ab568f2610..tc
5820: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5830: 5f 53 48 41 33 38 34 2d 32 2e 36 35 20 7b 53 48  _SHA384-2.65 {SH
5840: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
5850: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
5860: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
5870: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
5880: 20 64 65 63 6f 64 65 20 68 65 78 20 39 33 30 33   decode hex 9303
5890: 35 64 33 61 31 33 61 65 31 62 30 36 64 64 30 33  5d3a13ae1b06dd03
58a0: 33 65 37 36 34 61 63 61 30 31 32 34 39 36 31 64  3e764aca0124961d
58b0: 61 37 39 63 33 36 36 63 36 63 37 35 36 62 63 34  a79c366c6c756bc4
58c0: 62 63 63 31 31 38 35 30 61 33 61 38 64 31 32 30  bcc11850a3a8d120
58d0: 38 35 34 66 33 34 32 39 30 66 66 66 37 63 38 64  854f34290fff7c8d
58e0: 36 64 38 33 35 33 31 64 62 64 64 31 65 38 31 63  6d83531dbdd1e81c
58f0: 63 34 65 64 34 32 34 36 65 30 30 62 64 34 31 31  c4ed4246e00bd411
5900: 33 65 66 34 35 31 33 33 34 64 61 61 5d 7d 20 5c  3ef451334daa]} \
5910: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5920: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5930: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
5940: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
5950: 20 2d 72 65 73 75 6c 74 20 38 64 34 36 63 63 38   -result 8d46cc8
5960: 34 62 36 63 32 64 65 62 32 30 36 61 61 35 63 38  4b6c2deb206aa5c8
5970: 36 31 37 39 38 37 39 38 37 35 31 61 32 36 65 65  61798798751a26ee
5980: 37 34 62 31 64 61 66 33 61 35 35 37 63 34 31 61  74b1daf3a557c41a
5990: 65 62 64 36 35 61 64 63 30 32 37 35 35 39 66 37  ebd65adc027559f7
59a0: 63 64 39 32 62 32 35 35 62 33 37 34 63 38 33 62  cd92b255b374c83b
59b0: 64 35 35 35 36 38 62 34 35 0a 0a 74 63 6c 74 65  d55568b45..tclte
59c0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
59d0: 41 33 38 34 2d 32 2e 36 36 20 7b 53 48 41 33 38  A384-2.66 {SHA38
59e0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
59f0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
5a00: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5a10: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5a20: 63 6f 64 65 20 68 65 78 20 62 66 62 39 34 64 66  code hex bfb94df
5a30: 62 65 30 64 39 61 35 30 39 62 37 38 64 31 36 34  be0d9a509b78d164
5a40: 61 37 32 32 30 35 30 30 35 34 64 61 64 39 31 63  a722050054dad91c
5a50: 39 61 38 65 32 36 30 35 34 35 64 30 33 37 65 62  9a8e260545d037eb
5a60: 34 35 30 33 32 31 61 61 63 34 38 65 64 34 34 35  450321aac48ed445
5a70: 39 66 64 64 38 61 34 31 35 37 32 62 64 36 63 39  9fdd8a41572bd6c9
5a80: 63 38 34 64 31 38 62 36 65 63 33 33 39 32 34 37  c84d18b6ec339247
5a90: 34 38 32 63 63 33 65 65 35 32 61 31 62 62 64 36  482cc3ee52a1bbd6
5aa0: 62 64 34 61 65 39 31 38 32 31 36 5d 7d 20 5c 0a  bd4ae918216]} \.
5ab0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
5ac0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
5ad0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
5ae0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
5af0: 2d 72 65 73 75 6c 74 20 31 33 61 66 30 62 65 30  -result 13af0be0
5b00: 32 39 38 36 65 61 33 31 37 36 65 38 63 36 35 35  2986ea3176e8c655
5b10: 33 34 65 63 39 66 33 32 63 32 33 62 35 33 63 39  34ec9f32c23b53c9
5b20: 33 61 37 33 62 31 35 63 32 36 62 39 65 63 62 64  3a73b15c26b9ecbd
5b30: 38 61 31 31 38 31 61 65 31 38 34 61 33 37 32 65  8a1181ae184a372e
5b40: 39 66 35 65 30 35 39 36 63 64 36 36 30 36 38 34  9f5e0596cd660684
5b50: 39 61 65 61 65 38 65 30 0a 0a 74 63 6c 74 65 73  9aeae8e0..tcltes
5b60: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
5b70: 33 38 34 2d 32 2e 36 37 20 7b 53 48 41 33 38 34  384-2.67 {SHA384
5b80: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
5b90: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
5ba0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
5bb0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
5bc0: 6f 64 65 20 68 65 78 20 31 63 38 39 32 34 61 31  ode hex 1c8924a1
5bd0: 36 66 61 37 63 36 30 32 61 66 66 35 65 65 39 36  6fa7c602aff5ee96
5be0: 31 37 39 38 62 64 34 34 66 65 35 33 37 39 38 62  1798bd44fe53798b
5bf0: 66 34 34 63 33 64 36 62 30 64 31 33 65 66 38 33  f44c3d6b0d13ef83
5c00: 37 64 65 30 37 33 37 37 36 35 31 63 31 65 39 34  7de07377651c1e94
5c10: 65 64 32 33 36 65 62 37 39 33 34 39 66 38 36 61  ed236eb79349f86a
5c20: 63 33 31 62 61 31 35 31 61 37 65 37 31 31 63 35  c31ba151a7e711c5
5c30: 34 30 37 65 36 35 62 65 62 36 33 38 32 34 66 36  407e65beb63824f6
5c40: 65 63 33 39 37 35 34 62 35 38 66 33 5d 7d 20 5c  ec39754b58f3]} \
5c50: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5c60: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5c70: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
5c80: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
5c90: 20 2d 72 65 73 75 6c 74 20 35 62 65 36 34 38 32   -result 5be6482
5ca0: 38 35 31 64 64 61 66 64 65 35 38 32 66 32 38 30  851ddafde582f280
5cb0: 34 30 37 31 61 37 30 32 61 65 33 39 62 61 63 62  4071a702ae39bacb
5cc0: 36 38 38 37 34 31 62 37 63 33 37 62 62 61 65 39  688741b7c37bbae9
5cd0: 39 38 32 31 63 65 34 64 33 66 34 37 64 35 62 30  9821ce4d3f47d5b0
5ce0: 39 37 66 64 38 65 65 66 61 30 65 66 39 32 34 38  97fd8eefa0ef9248
5cf0: 61 33 34 66 35 64 33 63 65 0a 0a 74 63 6c 74 65  a34f5d3ce..tclte
5d00: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
5d10: 41 33 38 34 2d 32 2e 36 38 20 7b 53 48 41 33 38  A384-2.68 {SHA38
5d20: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
5d30: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
5d40: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5d50: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5d60: 63 6f 64 65 20 68 65 78 20 31 38 34 32 31 35 31  code hex 1842151
5d70: 34 35 64 61 34 39 64 62 34 31 37 65 38 62 64 64  45da49db417e8bdd
5d80: 35 37 33 64 36 32 38 32 64 65 30 37 33 65 36 37  573d6282de073e67
5d90: 34 63 33 64 65 61 38 36 62 36 63 37 38 35 39 31  4c3dea86b6c78591
5da0: 64 34 39 34 37 66 35 36 35 35 61 39 64 39 65 62  d4947f5655a9d9eb
5db0: 30 65 35 66 34 65 64 30 34 36 62 31 64 38 36 34  0e5f4ed046b1d864
5dc0: 32 64 61 39 61 65 66 61 38 30 34 34 38 61 32 39  2da9aefa80448a29
5dd0: 39 35 30 34 31 36 30 61 31 62 30 30 30 63 39 62  9504160a1b000c9b
5de0: 34 64 33 63 36 32 61 62 36 39 62 33 64 39 36 5d  4d3c62ab69b3d96]
5df0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
5e00: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
5e10: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
5e20: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5e30: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 39 39 35  act -result 8995
5e40: 63 64 37 66 63 30 39 35 36 65 31 32 34 30 37 35  cd7fc0956e124075
5e50: 34 34 30 36 38 36 62 65 65 63 65 31 37 61 36 32  440686beece17a62
5e60: 35 36 62 32 38 32 65 37 39 38 38 61 30 63 39 39  56b282e7988a0c99
5e70: 38 66 37 39 30 65 33 39 39 35 63 39 37 34 33 38  8f790e3995c97438
5e80: 33 31 37 39 38 39 33 34 37 37 62 63 63 33 32 64  3179893477bcc32d
5e90: 31 66 31 31 34 31 32 39 62 34 39 36 0a 0a 74 63  1f114129b496..tc
5ea0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
5eb0: 5f 53 48 41 33 38 34 2d 32 2e 36 39 20 7b 53 48  _SHA384-2.69 {SH
5ec0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
5ed0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
5ee0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
5ef0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
5f00: 20 64 65 63 6f 64 65 20 68 65 78 20 63 61 37 61   decode hex ca7a
5f10: 36 33 61 64 66 34 31 66 34 64 61 33 33 31 34 32  63adf41f4da33142
5f20: 39 31 30 63 39 36 37 37 30 36 62 35 63 38 61 30  910c967706b5c8a0
5f30: 39 33 33 35 30 65 62 33 65 36 64 33 61 61 62 65  93350eb3e6d3aabe
5f40: 36 39 61 34 36 61 32 38 37 32 66 34 37 61 33 39  69a46a2872f47a39
5f50: 62 62 65 37 37 63 64 63 31 31 36 30 64 61 61 34  bbe77cdc1160daa4
5f60: 35 30 32 32 35 62 30 65 38 65 33 36 66 35 30 36  50225b0e8e36f506
5f70: 39 37 38 63 65 33 61 63 39 61 65 35 66 37 35 37  978ce3ac9ae5f757
5f80: 32 31 65 66 33 30 64 61 34 36 62 32 38 66 30 37  21ef30da46b28f07
5f90: 32 34 32 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  242c]} \..-body 
5fa0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5fb0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
5fc0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5fd0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5fe0: 20 62 38 39 63 63 31 32 62 31 31 65 33 61 66 61   b89cc12b11e3afa
5ff0: 35 38 39 30 38 35 38 30 63 34 37 62 32 35 34 30  58908580c47b2540
6000: 37 61 62 62 66 35 38 34 66 38 65 38 64 34 62 35  7abbf584f8e8d4b5
6010: 36 33 31 65 39 66 34 35 30 34 36 34 63 37 65 35  631e9f450464c7e5
6020: 33 63 66 64 37 65 39 66 39 64 33 63 66 33 35 65  3cfd7e9f9d3cf35e
6030: 35 38 37 61 36 66 30 32 39 35 37 63 65 34 63 32  587a6f02957ce4c2
6040: 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  8..tcltest::test
6050: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 37   Hash_SHA384-2.7
6060: 30 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  0 {SHA384ShortMs
6070: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
6080: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
6090: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
60a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
60b0: 20 31 64 61 34 31 61 30 61 66 32 30 32 62 30 37   1da41a0af202b07
60c0: 39 35 32 31 64 65 62 36 31 30 39 65 33 31 32 63  9521deb6109e312c
60d0: 32 61 64 65 34 38 35 34 34 64 32 62 34 39 38 63  2ade48544d2b498c
60e0: 30 37 65 39 31 61 31 30 32 64 64 34 36 35 30 63  07e91a102dd4650c
60f0: 65 33 35 34 66 33 66 32 30 31 62 33 65 63 61 62  e354f3f201b3ecab
6100: 38 65 38 35 65 32 31 64 36 36 37 39 35 39 62 34  8e85e21d667959b4
6110: 33 64 30 38 66 34 65 39 30 66 61 31 38 64 63 61  3d08f4e90fa18dca
6120: 32 63 63 63 61 38 66 36 66 66 35 65 39 61 39 30  2ccca8f6ff5e9a90
6130: 32 64 63 38 62 66 35 63 35 64 61 5d 7d 20 5c 0a  2dc8bf5c5da]} \.
6140: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
6150: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
6160: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
6170: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
6180: 2d 72 65 73 75 6c 74 20 35 63 32 39 37 65 32 30  -result 5c297e20
6190: 63 33 30 37 61 61 62 37 66 33 32 35 39 33 39 66  c307aab7f325939f
61a0: 64 34 65 32 38 38 33 62 30 33 34 66 64 35 34 37  d4e2883b034fd547
61b0: 66 31 64 64 31 37 66 62 36 62 39 37 61 64 65 38  f1dd17fb6b97ade8
61c0: 62 31 34 38 65 30 36 65 62 62 66 33 66 66 36 30  b148e06ebbf3ff60
61d0: 63 62 66 34 36 39 65 34 39 33 33 64 35 66 34 38  cbf469e4933d5f48
61e0: 66 30 31 36 36 63 62 37 0a 0a 74 63 6c 74 65 73  f0166cb7..tcltes
61f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
6200: 33 38 34 2d 32 2e 37 31 20 7b 53 48 41 33 38 34  384-2.71 {SHA384
6210: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6220: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
6230: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
6240: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
6250: 6f 64 65 20 68 65 78 20 64 65 63 65 34 32 63 38  ode hex dece42c8
6260: 38 34 39 62 65 34 30 63 37 38 62 38 64 65 36 64  849be40c78b8de6d
6270: 61 39 36 63 32 61 38 64 37 65 39 34 30 35 34 35  a96c2a8d7e940545
6280: 62 39 66 33 66 33 39 61 61 31 63 61 30 33 65 63  b9f3f39aa1ca03ec
6290: 36 30 61 38 35 34 37 31 61 61 38 34 64 38 65 32  60a85471aa84d8e2
62a0: 39 66 30 39 35 38 37 34 66 33 33 31 62 39 30 61  9f095874f331b90a
62b0: 34 63 31 35 37 64 61 39 65 62 30 34 38 64 32 63  4c157da9eb048d2c
62c0: 38 66 64 32 33 35 33 39 39 36 37 32 37 30 37 33  8fd2353996727073
62d0: 36 36 63 37 36 36 66 31 30 62 62 38 33 33 66 30  66c766f10bb833f0
62e0: 32 31 38 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  2183]} \..-body 
62f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6300: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
6310: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6320: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6330: 20 62 62 35 30 39 65 33 33 65 39 66 66 63 63 34   bb509e33e9ffcc4
6340: 63 30 31 32 33 33 31 34 36 32 32 36 65 65 39 33  c01233146226ee93
6350: 36 34 63 64 61 63 35 36 35 38 31 33 32 34 36 30  64cdac5658132460
6360: 61 37 36 65 64 66 36 31 37 61 30 33 35 62 31 39  a76edf617a035b19
6370: 37 63 38 36 34 33 34 65 65 38 38 39 34 33 38 35  7c86434ee8894385
6380: 38 31 34 35 38 31 30 32 36 31 38 37 36 39 33 38  8145810261876938
6390: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
63a0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 37   Hash_SHA384-2.7
63b0: 32 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  2 {SHA384ShortMs
63c0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
63d0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
63e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
63f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6400: 20 39 35 32 30 30 38 65 62 64 65 64 64 34 38 30   952008ebdedd480
6410: 34 34 39 62 62 39 36 61 30 32 35 35 37 36 63 35  449bb96a025576c5
6420: 66 36 31 37 62 62 62 38 33 30 37 39 35 38 61 30  f617bbb8307958a0
6430: 31 30 37 36 37 65 30 64 37 33 36 66 66 65 35 61  10767e0d736ffe5a
6440: 31 39 36 65 61 34 34 36 37 64 38 61 35 64 33 62  196ea4467d8a5d3b
6450: 61 31 66 35 34 37 36 66 66 30 37 62 36 34 31 30  a1f5476ff07b6410
6460: 61 65 36 35 39 64 63 65 66 35 32 30 61 32 63 31  ae659dcef520a2c1
6470: 34 65 33 39 30 32 66 38 62 33 39 39 61 32 38 39  4e3902f8b399a289
6480: 66 34 31 66 35 66 64 61 64 62 35 30 32 64 64 5d  f41f5fdadb502dd]
6490: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
64a0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
64b0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
64c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
64d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 62 36 33  act -result 9b63
64e0: 64 39 31 34 35 62 63 37 31 34 61 38 32 35 33 64  d9145bc714a8253d
64f0: 63 64 62 38 33 34 31 62 32 66 35 37 31 34 65 62  cdb8341b2f5714eb
6500: 35 38 62 39 64 34 62 32 32 63 65 34 35 61 61 65  58b9d4b22ce45aae
6510: 30 37 66 35 31 32 39 37 61 33 64 63 39 63 35 62  07f51297a3dc9c5b
6520: 36 39 31 61 38 61 33 63 64 34 33 38 64 63 35 62  691a8a3cd438dc5b
6530: 64 31 38 62 65 34 30 30 61 66 32 31 0a 0a 74 63  d18be400af21..tc
6540: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
6550: 5f 53 48 41 33 38 34 2d 32 2e 37 33 20 7b 53 48  _SHA384-2.73 {SH
6560: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
6570: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
6580: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
6590: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
65a0: 20 64 65 63 6f 64 65 20 68 65 78 20 31 30 30 31   decode hex 1001
65b0: 33 32 63 33 31 35 62 66 63 39 63 34 66 62 39 33  32c315bfc9c4fb93
65c0: 30 32 33 66 35 64 33 35 30 30 64 37 32 30 38 61  023f5d3500d7208a
65d0: 36 38 61 63 62 34 64 32 63 36 33 30 39 36 32 33  68acb4d2c6309623
65e0: 32 63 33 36 31 61 31 36 31 63 34 63 36 37 63 30  2c361a161c4c67c0
65f0: 61 37 34 62 63 33 65 34 64 37 32 63 31 31 36 36  a74bc3e4d72c1166
6600: 34 62 31 64 39 37 30 33 32 31 64 34 30 35 34 30  4b1d970321d40540
6610: 31 39 32 34 62 33 61 30 66 36 63 65 32 62 31 61  1924b3a0f6ce2b1a
6620: 32 38 39 39 65 37 63 61 61 39 61 35 35 63 65 37  2899e7caa9a55ce7
6630: 32 35 66 63 33 37 66 35 35 64 36 61 5d 7d 20 5c  25fc37f55d6a]} \
6640: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
6650: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
6660: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
6670: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
6680: 20 2d 72 65 73 75 6c 74 20 62 36 63 61 30 34 34   -result b6ca044
6690: 36 37 65 64 33 65 36 32 33 64 62 61 33 36 66 32  67ed3e623dba36f2
66a0: 65 30 32 34 38 63 65 66 62 65 31 33 34 63 66 35  e0248cefbe134cf5
66b0: 35 35 66 64 63 31 34 37 33 31 31 37 35 65 61 61  55fdc14731175eaa
66c0: 66 30 38 65 32 34 34 61 62 30 62 31 35 66 63 61  f08e244ab0b15fca
66d0: 32 66 31 37 33 61 30 65 63 39 38 66 65 61 66 33  2f173a0ec98feaf3
66e0: 35 39 66 62 38 34 61 31 31 0a 0a 74 63 6c 74 65  59fb84a11..tclte
66f0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
6700: 41 33 38 34 2d 32 2e 37 34 20 7b 53 48 41 33 38  A384-2.74 {SHA38
6710: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
6720: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
6730: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6740: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6750: 63 6f 64 65 20 68 65 78 20 39 39 63 62 61 34 30  code hex 99cba40
6760: 31 39 66 35 34 37 38 37 38 39 65 36 37 34 65 30  19f5478789e674e0
6770: 38 66 65 35 64 36 63 65 61 64 64 36 39 38 62 30  8fe5d6ceadd698b0
6780: 37 35 37 63 61 33 39 63 36 30 35 34 35 37 63 32  757ca39c605457c2
6790: 32 63 33 64 33 62 38 66 66 62 37 39 37 64 32 62  2c3d3b8ffb797d2b
67a0: 65 38 66 31 32 39 36 30 66 30 39 39 61 35 36 30  e8f12960f099a560
67b0: 36 62 39 30 38 64 34 37 32 30 37 62 32 36 33 36  6b908d47207b2636
67c0: 61 37 37 39 39 34 38 32 38 32 64 65 33 36 36 31  a779948282de3661
67d0: 62 62 30 38 62 31 62 33 37 65 65 35 37 36 35 39  bb08b1b37ee57659
67e0: 30 38 30 30 61 34 39 32 37 33 30 5d 7d 20 5c 0a  0800a492730]} \.
67f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
6800: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
6810: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
6820: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
6830: 2d 72 65 73 75 6c 74 20 65 35 33 37 38 63 37 63  -result e5378c7c
6840: 32 35 31 61 65 39 36 66 30 33 35 39 61 33 30 62  251ae96f0359a30b
6850: 33 31 33 34 66 64 37 37 64 36 31 64 30 64 62 36  3134fd77d61d0db6
6860: 38 63 34 32 61 31 61 32 61 61 63 32 39 33 31 39  8c42a1a2aac29319
6870: 35 61 35 39 36 64 66 34 32 66 36 37 37 65 36 63  5a596df42f677e6c
6880: 62 39 38 61 62 65 63 39 30 64 36 37 32 32 62 61  b98abec90d6722ba
6890: 61 63 36 33 66 63 38 36 0a 0a 74 63 6c 74 65 73  ac63fc86..tcltes
68a0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
68b0: 33 38 34 2d 32 2e 37 35 20 7b 53 48 41 33 38 34  384-2.75 {SHA384
68c0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
68d0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
68e0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
68f0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
6900: 6f 64 65 20 68 65 78 20 62 62 33 32 37 61 30 62  ode hex bb327a0b
6910: 63 62 32 35 37 34 64 66 34 37 30 38 30 65 38 63  cb2574df47080e8c
6920: 30 64 38 61 34 35 65 65 31 63 30 34 32 34 61 65  0d8a45ee1c0424ae
6930: 30 34 31 34 64 63 30 61 39 62 38 37 31 37 64 39  0414dc0a9b8717d9
6940: 66 32 37 64 38 61 63 39 38 37 63 37 63 39 65 63  f27d8ac987c7c9ec
6950: 62 63 39 34 36 30 37 33 38 38 34 64 31 66 62 39  bc946073884d1fb9
6960: 36 64 62 64 62 35 38 33 61 61 37 35 38 31 38 36  6dbdb583aa758186
6970: 62 31 36 66 61 34 32 39 64 62 66 31 35 62 38 64  b16fa429dbf15b8d
6980: 35 62 62 34 38 63 63 61 37 31 34 36 39 65 37 63  5bb48cca71469e7c
6990: 65 30 61 64 38 65 37 66 61 31 34 64 5d 7d 20 5c  e0ad8e7fa14d]} \
69a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
69b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
69c0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
69d0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
69e0: 20 2d 72 65 73 75 6c 74 20 30 66 37 35 65 36 35   -result 0f75e65
69f0: 66 66 38 34 39 34 61 65 32 38 64 39 61 30 61 32  ff8494ae28d9a0a2
6a00: 65 36 35 39 35 39 36 35 33 32 37 35 66 63 33 34  e65959653275fc34
6a10: 62 32 66 61 32 37 62 39 65 31 30 66 61 61 66 66  b2fa27b9e10faaff
6a20: 66 30 37 63 34 35 61 64 64 65 66 33 62 38 66 32  f07c45addef3b8f2
6a30: 35 39 35 33 64 35 61 32 65 35 34 65 33 31 65 62  5953d5a2e54e31eb
6a40: 65 36 64 34 32 39 64 32 36 0a 0a 74 63 6c 74 65  e6d429d26..tclte
6a50: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
6a60: 41 33 38 34 2d 32 2e 37 36 20 7b 53 48 41 33 38  A384-2.76 {SHA38
6a70: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
6a80: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
6a90: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6aa0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6ab0: 63 6f 64 65 20 68 65 78 20 37 66 64 39 65 65 62  code hex 7fd9eeb
6ac0: 35 66 66 33 36 38 30 34 30 64 32 39 39 66 64 31  5ff368040d299fd1
6ad0: 37 61 39 34 33 62 32 31 64 36 35 64 65 62 32 65  7a943b21d65deb2e
6ae0: 63 63 66 36 31 32 38 64 31 38 61 33 33 65 62 31  ccf6128d18a33eb1
6af0: 37 34 36 39 33 35 33 38 39 33 35 33 37 34 63 33  74693538935374c3
6b00: 32 63 33 33 33 61 38 36 37 38 32 31 64 62 61 30  2c333a867821dba0
6b10: 38 36 33 36 66 32 30 30 32 32 63 32 63 65 30 31  8636f20022c2ce01
6b20: 38 32 36 63 37 62 37 65 34 31 36 34 30 61 64 31  826c7b7e41640ad1
6b30: 38 36 66 39 30 65 64 30 61 63 36 34 37 64 34 37  86f90ed0ac647d47
6b40: 30 38 36 37 34 34 38 36 37 65 35 63 35 34 62 5d  086744867e5c54b]
6b50: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
6b60: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
6b70: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
6b80: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6b90: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 37 32  act -result 0072
6ba0: 35 31 61 32 61 35 37 37 61 64 64 30 34 38 62 31  51a2a577add048b1
6bb0: 65 64 63 37 39 64 39 36 63 37 64 66 38 66 64 35  edc79d96c7df8fd5
6bc0: 62 35 66 61 30 64 37 32 36 34 66 31 32 32 65 34  b5fa0d7264f122e4
6bd0: 63 62 35 34 63 35 30 62 63 33 31 36 61 38 62 63  cb54c50bc316a8bc
6be0: 35 66 34 66 39 64 66 64 34 34 36 39 65 32 39 65  5f4f9dfd4469e29e
6bf0: 39 62 30 33 30 66 35 36 33 61 36 64 0a 0a 74 63  9b030f563a6d..tc
6c00: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
6c10: 5f 53 48 41 33 38 34 2d 32 2e 37 37 20 7b 53 48  _SHA384-2.77 {SH
6c20: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
6c30: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
6c40: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
6c50: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
6c60: 20 64 65 63 6f 64 65 20 68 65 78 20 37 63 61 39   decode hex 7ca9
6c70: 65 33 36 39 65 38 32 31 38 36 39 38 34 64 35 66  e369e82186984d5f
6c80: 63 37 32 39 65 31 31 31 61 37 65 35 64 38 65 63  c729e111a7e5d8ec
6c90: 31 39 63 35 64 37 34 65 31 33 62 35 61 62 32 32  19c5d74e13b5ab22
6ca0: 65 34 39 39 33 62 30 35 63 38 38 65 62 62 61 36  e4993b05c88ebba6
6cb0: 62 61 37 32 32 33 37 33 38 39 61 36 65 30 37 32  ba72237389a6e072
6cc0: 32 65 31 32 63 39 36 63 35 64 36 61 35 34 35 31  2e12c96c5d6a5451
6cd0: 35 61 62 30 30 61 64 38 30 65 66 62 33 38 36 36  5ab00ad80efb3866
6ce0: 35 61 37 36 65 38 33 31 61 62 61 62 30 66 61 35  5a76e831abab0fa5
6cf0: 63 66 30 32 30 38 30 37 30 37 38 34 34 31 35 38  cf02080707844158
6d00: 35 64 65 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5de5]} \..-body 
6d10: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6d20: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
6d30: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6d40: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6d50: 20 33 65 65 38 63 34 31 38 34 64 65 39 63 65 61   3ee8c4184de9cea
6d60: 65 63 64 30 64 33 61 65 61 31 36 32 37 31 38 33  ecd0d3aea1627183
6d70: 35 66 33 64 34 35 63 38 37 33 33 35 38 63 39 33  5f3d45c873358c93
6d80: 61 35 31 35 35 33 39 63 33 38 65 38 31 39 34 31  a515539c38e81941
6d90: 34 65 61 36 33 62 30 38 64 30 61 31 30 39 33 34  4ea63b08d0a10934
6da0: 36 37 39 33 64 35 65 30 66 37 30 33 31 32 35 65  6793d5e0f703125e
6db0: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
6dc0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 37   Hash_SHA384-2.7
6dd0: 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  8 {SHA384ShortMs
6de0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
6df0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
6e00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
6e10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6e20: 20 35 62 34 64 39 34 35 64 35 35 64 65 61 32 32   5b4d945d55dea22
6e30: 65 33 37 38 32 31 65 63 33 39 36 34 37 36 61 34  e37821ec396476a4
6e40: 62 66 62 36 31 37 64 32 66 33 39 32 61 64 39 33  bfb617d2f392ad93
6e50: 61 66 65 36 37 62 63 66 64 61 39 63 64 39 62 37  afe67bcfda9cd9b7
6e60: 32 35 62 63 34 63 63 64 66 35 31 36 61 38 33 66  25bc4ccdf516a83f
6e70: 64 37 31 64 62 66 66 35 61 32 32 62 30 30 35 66  d71dbff5a22b005f
6e80: 63 36 31 63 35 38 65 34 37 31 32 34 30 62 64 32  c61c58e471240bd2
6e90: 31 39 33 63 65 31 33 35 33 39 37 33 30 65 36 33  193ce13539730e63
6ea0: 32 33 32 66 37 30 66 38 30 33 30 38 62 65 34 38  232f70f80308be48
6eb0: 64 61 62 37 32 36 36 61 31 64 64 5d 7d 20 5c 0a  dab7266a1dd]} \.
6ec0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
6ed0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
6ee0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
6ef0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
6f00: 2d 72 65 73 75 6c 74 20 64 66 38 32 64 32 34 32  -result df82d242
6f10: 65 34 63 64 63 32 65 62 34 30 62 66 33 64 62 36  e4cdc2eb40bf3db6
6f20: 61 35 36 65 31 61 61 30 61 36 36 65 35 35 33 66  a56e1aa0a66e553f
6f30: 31 39 31 34 62 65 64 63 36 35 63 38 63 63 36 61  1914bedc65c8cc6a
6f40: 64 39 35 36 34 62 36 65 38 35 64 66 35 39 66 34  d9564b6e85df59f4
6f50: 63 34 34 33 63 62 65 34 65 30 61 65 65 30 35 39  c443cbe4e0aee059
6f60: 38 36 66 37 64 36 39 30 0a 0a 74 63 6c 74 65 73  86f7d690..tcltes
6f70: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
6f80: 33 38 34 2d 32 2e 37 39 20 7b 53 48 41 33 38 34  384-2.79 {SHA384
6f90: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
6fa0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
6fb0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
6fc0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
6fd0: 6f 64 65 20 68 65 78 20 65 38 36 35 66 34 61 34  ode hex e865f4a4
6fe0: 32 62 62 62 64 30 62 37 33 66 65 32 37 35 62 38  2bbbd0b73fe275b8
6ff0: 61 62 39 30 64 33 61 39 66 62 37 34 65 63 35 30  ab90d3a9fb74ec50
7000: 37 30 31 39 32 64 33 38 66 36 30 65 66 65 66 39  70192d38f60efef9
7010: 35 36 34 34 39 38 62 39 61 64 62 37 31 36 66 33  564498b9adb716f3
7020: 31 64 35 30 63 66 37 37 63 32 30 61 65 34 62 32  1d50cf77c20ae4b2
7030: 65 38 35 35 31 35 33 30 37 62 62 38 64 39 35 66  e85515307bb8d95f
7040: 62 65 62 39 61 64 39 36 34 30 30 31 61 63 35 35  beb9ad964001ac55
7050: 30 64 62 63 36 30 63 66 32 31 33 66 64 38 61 35  0dbc60cf213fd8a5
7060: 32 32 65 64 66 61 66 35 34 65 35 62 31 62 39 33  22edfaf54e5b1b93
7070: 62 32 62 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  b2b2]} \..-body 
7080: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7090: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
70a0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
70b0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
70c0: 20 30 39 31 66 61 39 61 65 32 31 38 34 65 32 32   091fa9ae2184e22
70d0: 36 38 65 66 39 65 66 32 33 63 37 63 38 30 39 65  68ef9ef23c7c809e
70e0: 66 61 64 32 34 34 35 33 36 65 30 30 61 61 39 65  fad244536e00aa9e
70f0: 38 62 33 61 36 63 32 32 38 64 39 30 65 33 31 64  8b3a6c228d90e31d
7100: 61 30 35 31 62 34 30 66 32 36 38 61 31 33 62 64  a051b40f268a13bd
7110: 36 66 36 32 65 36 39 63 39 31 61 65 38 63 64 32  6f62e69c91ae8cd2
7120: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
7130: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 38   Hash_SHA384-2.8
7140: 30 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  0 {SHA384ShortMs
7150: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7160: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
7170: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7180: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7190: 20 31 64 34 30 38 63 37 62 36 38 65 31 36 38 66   1d408c7b68e168f
71a0: 34 31 62 62 34 36 66 39 62 32 65 39 63 38 62 30  41bb46f9b2e9c8b0
71b0: 34 66 39 36 38 65 34 30 38 30 32 35 32 35 34 36  4f968e4080252546
71c0: 38 31 34 63 63 31 63 62 32 39 31 37 64 64 35 36  814cc1cb2917dd56
71d0: 39 30 38 38 36 61 39 36 30 30 61 30 39 63 32 36  90886a9600a09c26
71e0: 37 33 61 65 63 30 33 32 39 61 34 64 61 66 36 35  73aec0329a4daf65
71f0: 35 35 30 38 62 30 36 66 63 31 36 34 36 65 66 33  5508b06fc1646ef3
7200: 62 62 33 61 34 37 32 31 39 31 64 39 36 34 64 62  bb3a472191d964db
7210: 32 31 34 61 39 36 61 39 36 66 61 38 39 35 37 36  214a96a96fa89576
7220: 63 65 34 63 34 66 36 64 62 66 31 64 31 37 36 5d  ce4c4f6dbf1d176]
7230: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7240: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7250: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
7260: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
7270: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 65 32 33  act -result 7e23
7280: 34 37 32 63 30 33 34 33 31 39 32 35 66 33 62 34  472c03431925f3b4
7290: 35 35 39 64 38 38 36 65 38 64 35 64 38 33 37 62  559d886e8d5d837b
72a0: 33 64 33 39 62 38 65 66 65 31 62 37 61 39 31 65  3d39b8efe1b7a91e
72b0: 36 31 61 31 33 38 31 30 63 34 64 62 63 32 34 33  61a13810c4dbc243
72c0: 39 36 33 34 64 37 63 36 61 62 61 62 66 63 36 36  9634d7c6ababfc66
72d0: 65 39 62 31 38 65 36 35 34 31 64 62 0a 0a 74 63  e9b18e6541db..tc
72e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
72f0: 5f 53 48 41 33 38 34 2d 32 2e 38 31 20 7b 53 48  _SHA384-2.81 {SH
7300: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
7310: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
7320: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
7330: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
7340: 20 64 65 63 6f 64 65 20 68 65 78 20 35 34 61 65   decode hex 54ae
7350: 30 33 30 61 34 65 32 37 61 30 35 63 31 65 61 34  030a4e27a05c1ea4
7360: 61 31 32 65 36 39 63 36 37 35 34 34 61 66 39 62  a12e69c67544af9b
7370: 34 30 34 34 63 66 31 35 37 64 63 38 63 65 62 62  4044cf157dc8cebb
7380: 65 38 62 32 64 34 39 66 39 62 63 30 37 37 39 30  e8b2d49f9bc07790
7390: 37 37 36 30 33 63 39 30 63 35 63 35 35 62 38 39  77603c90c5c55b89
73a0: 31 64 33 61 63 33 33 62 38 37 62 36 35 65 37 39  1d3ac33b87b65e79
73b0: 65 31 62 31 39 36 39 35 38 31 33 37 31 38 31 39  e1b1969581371819
73c0: 31 62 33 62 64 38 62 37 65 34 32 64 35 35 38 33  1b3bd8b7e42d5583
73d0: 66 37 63 66 31 65 36 30 66 38 34 34 39 35 62 38  f7cf1e60f84495b8
73e0: 66 38 36 39 66 33 37 31 39 39 36 39 5d 7d 20 5c  f869f3719969]} \
73f0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
7400: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
7410: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
7420: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
7430: 20 2d 72 65 73 75 6c 74 20 63 62 36 35 66 38 32   -result cb65f82
7440: 33 35 38 35 37 37 33 63 62 38 38 30 32 62 36 33  3585773cb8802b63
7450: 33 39 31 38 32 66 31 33 37 35 32 61 38 32 38 36  39182f13752a8286
7460: 34 63 38 39 38 62 34 34 35 62 65 35 61 31 31 61  4c898b445be5a11a
7470: 39 36 39 36 35 37 61 63 32 64 63 34 61 33 62 62  969657ac2dc4a3bb
7480: 65 62 38 37 61 63 30 61 62 62 32 33 32 61 32 62  eb87ac0abb232a2b
7490: 31 32 34 31 37 31 30 39 36 0a 0a 74 63 6c 74 65  124171096..tclte
74a0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
74b0: 41 33 38 34 2d 32 2e 38 32 20 7b 53 48 41 33 38  A384-2.82 {SHA38
74c0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
74d0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
74e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
74f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7500: 63 6f 64 65 20 68 65 78 20 66 37 33 63 64 33 38  code hex f73cd38
7510: 36 66 37 33 64 30 63 36 61 64 65 30 35 37 37 31  6f73d0c6ade05771
7520: 62 33 33 31 31 37 31 31 37 63 36 30 32 65 35 32  b33117117c602e52
7530: 36 39 33 66 30 35 62 34 37 65 39 30 30 33 32 65  693f05b47e90032e
7540: 61 63 63 33 39 32 39 35 66 39 37 39 33 32 35 38  acc39295f9793258
7550: 66 65 36 35 31 32 65 65 61 62 32 39 31 62 61 61  fe6512eeab291baa
7560: 30 62 65 32 32 32 65 31 34 33 32 39 35 61 32 38  0be222e143295a28
7570: 65 38 36 39 37 65 34 32 66 61 32 37 65 63 30 32  e8697e42fa27ec02
7580: 62 34 34 32 31 37 66 33 32 61 31 65 64 61 65 32  b44217f32a1edae2
7590: 66 34 66 33 35 32 31 33 35 36 32 63 61 33 37 62  f4f35213562ca37b
75a0: 36 64 36 63 63 35 65 66 37 32 64 5d 7d 20 5c 0a  6d6cc5ef72d]} \.
75b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
75c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
75d0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
75e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
75f0: 2d 72 65 73 75 6c 74 20 66 36 36 35 63 34 64 31  -result f665c4d1
7600: 37 61 38 33 64 36 35 61 37 66 66 31 36 62 66 63  7a83d65a7ff16bfc
7610: 65 32 37 39 62 35 38 35 35 38 32 35 30 64 37 36  e279b58558250d76
7620: 61 66 36 38 62 38 65 62 39 34 33 37 35 33 65 34  af68b8eb943753e4
7630: 31 31 61 35 37 63 65 62 33 31 63 31 61 31 33 31  11a57ceb31c1a131
7640: 65 35 34 62 63 62 37 36 37 32 35 38 34 34 31 36  e54bcb7672584416
7650: 65 33 64 35 37 31 39 65 0a 0a 74 63 6c 74 65 73  e3d5719e..tcltes
7660: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
7670: 33 38 34 2d 32 2e 38 33 20 7b 53 48 41 33 38 34  384-2.83 {SHA384
7680: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
7690: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
76a0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
76b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
76c0: 6f 64 65 20 68 65 78 20 31 64 32 35 39 36 31 32  ode hex 1d259612
76d0: 65 36 38 36 37 65 37 64 37 38 38 63 37 31 64 30  e6867e7d788c71d0
76e0: 33 63 35 31 33 36 38 36 34 61 64 36 64 38 34 66  3c5136864ad6d84f
76f0: 32 34 65 61 66 39 31 33 61 33 34 65 36 39 33 33  24eaf913a34e6933
7700: 33 31 31 36 66 38 31 32 33 39 35 32 38 38 64 34  3116f812395288d4
7710: 64 63 65 65 36 36 36 35 65 36 64 37 64 61 62 64  dcee6665e6d7dabd
7720: 30 30 35 66 66 63 36 33 32 37 65 33 63 61 33 30  005ffc6327e3ca30
7730: 35 63 61 62 37 38 35 36 39 64 31 31 30 37 61 31  5cab78569d1107a1
7740: 31 35 65 36 31 39 66 63 39 30 31 31 30 34 33 36  15e619fc90110436
7750: 33 31 37 39 32 35 30 36 36 37 32 36 37 37 34 64  317925066726774d
7760: 31 64 61 33 36 33 39 63 33 31 61 36 5d 7d 20 5c  1da3639c31a6]} \
7770: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
7780: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
7790: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
77a0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
77b0: 20 2d 72 65 73 75 6c 74 20 35 64 63 66 35 31 32   -result 5dcf512
77c0: 65 32 62 39 33 64 36 65 63 64 66 37 63 33 33 30  e2b93d6ecdf7c330
77d0: 34 35 33 34 35 35 34 65 61 37 39 64 32 32 33 39  4534554ea79d2239
77e0: 32 65 35 39 62 62 65 39 30 64 66 32 31 65 39 37  2e59bbe90df21e97
77f0: 38 63 39 66 61 33 62 33 34 66 66 38 32 65 36 64  8c9fa3b34ff82e6d
7800: 63 66 65 38 66 65 32 32 33 36 61 61 34 61 66 34  cfe8fe2236aa4af4
7810: 65 36 36 32 65 32 61 39 64 0a 0a 74 63 6c 74 65  e662e2a9d..tclte
7820: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
7830: 41 33 38 34 2d 32 2e 38 34 20 7b 53 48 41 33 38  A384-2.84 {SHA38
7840: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
7850: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
7860: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7870: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7880: 63 6f 64 65 20 68 65 78 20 64 61 38 37 33 34 34  code hex da87344
7890: 31 34 63 34 35 66 63 31 64 35 61 37 35 61 33 63  14c45fc1d5a75a3c
78a0: 62 61 63 61 64 62 31 62 66 62 35 32 33 64 36 66  bacadb1bfb523d6f
78b0: 63 33 39 31 66 38 38 32 64 30 64 62 30 65 65 66  c391f882d0db0eef
78c0: 32 31 66 39 66 66 64 37 38 62 36 61 31 65 31 34  21f9ffd78b6a1e14
78d0: 63 66 61 64 30 39 65 37 31 62 36 35 63 66 37 62  cfad09e71b65cf7b
78e0: 30 35 64 37 65 38 66 32 66 34 62 61 65 34 65 34  05d7e8f2f4bae4e4
78f0: 35 34 65 31 36 30 36 38 64 36 35 34 36 35 36 33  54e16068d6546563
7900: 39 63 37 32 39 63 66 61 39 32 37 33 38 35 36 33  9c729cfa92738563
7910: 64 33 37 65 64 63 39 36 37 36 62 37 62 65 36 30  d37edc9676b7be60
7920: 34 66 66 62 63 36 38 65 63 33 62 36 62 37 32 5d  4ffbc68ec3b6b72]
7930: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7940: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7950: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
7960: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
7970: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 62 33 32  act -result 8b32
7980: 38 61 33 31 61 64 66 36 37 64 63 37 61 65 62 38  8a31adf67dc7aeb8
7990: 36 34 61 33 35 39 36 32 38 34 31 30 64 35 38 31  64a359628410d581
79a0: 34 61 32 66 30 63 63 36 38 33 33 30 33 66 36 31  4a2f0cc683303f61
79b0: 34 33 32 63 65 33 32 31 37 37 65 31 66 35 33 38  432ce32177e1f538
79c0: 66 65 65 61 64 37 65 35 30 30 30 33 34 33 39 31  feead7e500034391
79d0: 36 63 37 30 34 32 66 38 62 33 63 64 0a 0a 74 63  6c7042f8b3cd..tc
79e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
79f0: 5f 53 48 41 33 38 34 2d 32 2e 38 35 20 7b 53 48  _SHA384-2.85 {SH
7a00: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
7a10: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
7a20: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
7a30: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
7a40: 20 64 65 63 6f 64 65 20 68 65 78 20 62 32 32 38   decode hex b228
7a50: 63 37 35 39 30 33 64 38 30 66 62 63 36 64 31 63  c75903d80fbc6d1c
7a60: 66 36 32 39 66 66 31 64 31 34 61 39 32 65 63 34  f629ff1d14a92ec4
7a70: 62 66 30 65 31 32 31 66 64 39 37 62 64 33 30 36  bf0e121fd97bd306
7a80: 65 64 32 36 35 65 66 65 37 61 35 64 35 63 35 64  ed265efe7a5d5c5d
7a90: 38 66 63 37 36 34 61 66 39 38 65 64 36 66 35 39  8fc764af98ed6f59
7aa0: 37 38 66 38 38 64 37 63 64 38 62 63 64 37 31 63  78f88d7cd8bcd71c
7ab0: 62 65 66 36 61 35 38 32 36 31 64 32 30 31 64 65  bef6a58261d201de
7ac0: 33 63 62 31 35 62 33 31 36 31 32 38 37 65 36 61  3cb15b3161287e6a
7ad0: 31 30 34 63 63 32 63 66 38 38 32 64 38 33 39 66  104cc2cf882d839f
7ae0: 31 64 61 30 64 33 66 36 38 62 34 32 36 63 66 30  1da0d3f68b426cf0
7af0: 38 61 62 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8ab9]} \..-body 
7b00: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7b10: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
7b20: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
7b30: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
7b40: 20 66 63 39 32 62 61 34 65 61 63 39 61 31 62 66   fc92ba4eac9a1bf
7b50: 31 32 30 61 37 62 36 63 32 63 63 33 30 33 33 35  120a7b6c2cc30335
7b60: 62 39 36 31 35 62 31 61 39 38 65 35 35 64 31 34  b9615b1a98e55d14
7b70: 38 35 34 66 66 38 37 32 39 36 36 65 37 31 30 34  854ff872966e7104
7b80: 30 37 33 37 34 30 31 63 36 62 63 30 38 64 62 35  0737401c6bc08db5
7b90: 38 34 32 63 65 61 63 65 31 34 63 62 37 65 37 65  842ceace14cb7e7e
7ba0: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
7bb0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 38   Hash_SHA384-2.8
7bc0: 36 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  6 {SHA384ShortMs
7bd0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7be0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
7bf0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7c00: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7c10: 20 63 39 30 64 34 37 33 61 36 66 64 33 30 62 65   c90d473a6fd30be
7c20: 39 61 39 38 62 66 34 34 32 61 39 61 64 36 35 61  9a98bf442a9ad65a
7c30: 36 39 37 64 34 36 32 39 63 33 33 63 64 35 31 37  697d4629c33cd517
7c40: 64 62 62 65 64 30 32 37 31 30 66 61 38 65 65 39  dbbed02710fa8ee9
7c50: 39 31 33 36 30 62 63 38 65 35 35 37 62 30 61 30  91360bc8e557b0a0
7c60: 62 66 30 62 38 36 39 65 36 62 30 63 33 61 39 34  bf0b869e6b0c3a94
7c70: 35 37 36 30 37 35 38 30 65 64 65 63 33 38 35 39  57607580edec3859
7c80: 66 32 30 36 30 63 39 63 30 33 34 30 32 38 39 64  f2060c9c0340289d
7c90: 35 33 61 35 64 37 35 35 39 31 38 63 61 35 34 38  53a5d755918ca548
7ca0: 37 36 35 39 39 30 34 35 61 38 36 61 39 62 63 62  76599045a86a9bcb
7cb0: 38 31 36 33 37 39 35 65 61 38 63 5d 7d 20 5c 0a  8163795ea8c]} \.
7cc0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
7cd0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
7ce0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
7cf0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
7d00: 2d 72 65 73 75 6c 74 20 38 30 37 35 38 32 62 32  -result 807582b2
7d10: 35 32 30 65 39 39 30 63 66 62 37 34 33 36 37 33  520e990cfb743673
7d20: 34 33 32 36 38 62 39 31 34 38 62 32 35 31 39 62  43268b9148b2519b
7d30: 39 65 37 63 64 39 31 38 32 65 64 62 33 64 62 39  9e7cd9182edb3db9
7d40: 61 65 37 61 66 65 62 65 64 66 65 38 63 61 31 31  ae7afebedfe8ca11
7d50: 38 31 33 30 65 32 65 66 39 64 33 31 61 66 39 30  8130e2ef9d31af90
7d60: 38 31 64 61 38 32 32 32 0a 0a 74 63 6c 74 65 73  81da8222..tcltes
7d70: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
7d80: 33 38 34 2d 32 2e 38 37 20 7b 53 48 41 33 38 34  384-2.87 {SHA384
7d90: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
7da0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
7db0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
7dc0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
7dd0: 6f 64 65 20 68 65 78 20 36 64 66 38 63 35 63 32  ode hex 6df8c5c2
7de0: 38 64 31 37 32 38 39 37 35 61 30 62 37 36 36 63  8d1728975a0b766c
7df0: 64 37 64 65 36 33 62 62 65 37 66 34 38 63 33 64  d7de63bbe7f48c3d
7e00: 62 33 65 36 66 64 35 61 34 62 38 64 66 36 65 33  b3e6fd5a4b8df6e3
7e10: 39 30 35 63 65 66 30 33 35 31 66 33 64 39 37 33  905cef0351f3d973
7e20: 62 34 66 32 61 37 65 65 64 38 30 62 30 64 65 35  b4f2a7eed80b0de5
7e30: 62 38 35 63 38 37 37 33 35 33 66 62 39 65 39 33  b85c877353fb9e93
7e40: 30 61 64 32 36 37 39 31 34 39 61 64 34 63 62 65  0ad2679149ad4cbe
7e50: 36 39 39 31 30 65 36 38 64 35 35 30 30 62 30 39  69910e68d5500b09
7e60: 36 63 35 61 62 64 62 66 32 37 64 36 38 34 66 63  6c5abdbf27d684fc
7e70: 66 63 66 31 61 35 37 66 30 32 37 36 39 32 38 33  fcf1a57f02769283
7e80: 64 35 61 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d5a0]} \..-body 
7e90: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7ea0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
7eb0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
7ec0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
7ed0: 20 37 62 64 61 35 37 64 32 31 61 34 34 33 34 61   7bda57d21a4434a
7ee0: 61 64 61 36 37 35 38 65 32 38 32 65 36 31 32 61  ada6758e282e612a
7ef0: 34 63 30 66 34 31 62 32 34 32 66 39 63 37 39 30  4c0f41b242f9c790
7f00: 38 30 34 64 35 62 65 65 32 35 62 38 31 61 38 32  804d5bee25b81a82
7f10: 31 64 63 36 66 32 61 30 62 61 35 36 66 31 62 33  1dc6f2a0ba56f1b3
7f20: 37 30 34 38 30 32 63 39 61 36 65 31 35 33 64 38  704802c9a6e153d8
7f30: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
7f40: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 38   Hash_SHA384-2.8
7f50: 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  8 {SHA384ShortMs
7f60: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7f70: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
7f80: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7f90: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7fa0: 20 32 63 66 63 37 36 66 38 38 63 62 36 66 62 39   2cfc76f88cb6fb9
7fb0: 30 39 32 37 62 36 39 35 32 36 61 64 35 66 30 33  0927b69526ad5f03
7fc0: 64 36 62 64 33 33 35 66 34 66 37 35 62 35 32 62  d6bd335f4f75b52b
7fd0: 36 61 33 63 32 31 65 38 66 39 38 39 61 62 30 64  6a3c21e8f989ab0d
7fe0: 30 33 61 63 62 31 65 62 65 30 37 65 36 38 61 38  03acb1ebe07e68a8
7ff0: 37 63 31 62 35 36 30 37 61 63 66 31 37 64 39 37  7c1b5607acf17d97
8000: 36 65 31 30 61 63 34 61 33 64 33 30 61 38 35 36  6e10ac4a3d30a856
8010: 31 64 34 39 61 35 65 37 65 63 37 32 30 65 64 61  1d49a5e7ec720eda
8020: 63 65 39 66 35 66 36 33 32 62 34 62 64 36 33 65  ce9f5f632b4bd63e
8030: 31 30 34 66 34 38 39 34 61 37 39 63 61 61 64 32  104f4894a79caad2
8040: 65 31 63 33 31 63 37 33 36 34 35 33 34 38 35 5d  e1c31c736453485]
8050: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
8060: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
8070: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
8080: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
8090: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 31 36 36  act -result e166
80a0: 37 30 65 61 38 33 37 63 32 35 39 65 34 31 38 64  70ea837c259e418d
80b0: 33 63 30 65 31 65 61 61 64 34 39 34 38 63 33 34  3c0e1eaad4948c34
80c0: 35 37 65 31 35 62 31 35 37 33 30 35 36 65 32 34  57e15b1573056e24
80d0: 64 61 32 35 62 66 66 35 63 36 36 62 37 65 39 35  da25bff5c66b7e95
80e0: 64 32 34 63 36 62 63 31 62 38 64 36 63 32 62 38  d24c6bc1b8d6c2b8
80f0: 31 32 66 36 34 61 64 63 39 35 35 33 0a 0a 74 63  12f64adc9553..tc
8100: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
8110: 5f 53 48 41 33 38 34 2d 32 2e 38 39 20 7b 53 48  _SHA384-2.89 {SH
8120: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
8130: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
8140: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
8150: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
8160: 20 64 65 63 6f 64 65 20 68 65 78 20 33 66 30 35   decode hex 3f05
8170: 31 30 38 63 32 66 33 33 64 33 39 62 33 61 61 39  108c2f33d39b3aa9
8180: 65 37 33 65 66 62 61 64 34 62 30 31 31 62 34 65  e73efbad4b011b4e
8190: 39 65 39 66 62 61 34 30 39 62 37 36 31 31 65 37  9e9fba409b7611e7
81a0: 65 30 33 39 35 36 62 32 66 33 65 35 65 30 61 61  e03956b2f3e5e0aa
81b0: 38 36 66 36 38 63 34 62 66 61 64 61 35 66 39 32  86f68c4bfada5f92
81c0: 32 33 61 36 36 64 35 37 34 62 30 38 66 39 64 64  23a66d574b08f9dd
81d0: 37 39 37 63 64 64 61 38 66 33 63 33 32 64 38 65  797cdda8f3c32d8e
81e0: 30 31 39 32 31 37 31 31 66 34 38 37 30 64 65 63  01921711f4870dec
81f0: 36 37 36 30 32 37 65 63 63 35 36 66 63 32 30 31  676027ecc56fc201
8200: 30 62 34 39 36 65 39 35 63 66 62 66 30 37 31 63  0b496e95cfbf071c
8210: 38 32 30 66 32 31 65 64 66 32 35 62 5d 7d 20 5c  820f21edf25b]} \
8220: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
8230: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
8240: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
8250: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
8260: 20 2d 72 65 73 75 6c 74 20 62 32 37 32 62 61 62   -result b272bab
8270: 36 38 30 66 33 61 62 32 37 64 65 37 32 64 39 34  680f3ab27de72d94
8280: 64 66 33 38 34 33 32 33 66 38 35 35 35 66 31 64  df384323f8555f1d
8290: 31 37 66 61 63 64 32 35 38 38 61 63 38 36 34 38  17facd2588ac8648
82a0: 64 65 66 32 34 35 31 66 38 32 66 39 62 39 39 63  def2451f82f9b99c
82b0: 30 35 65 61 64 38 33 31 36 66 64 31 38 31 61 32  05ead8316fd181a2
82c0: 63 66 62 39 37 34 38 33 61 0a 0a 74 63 6c 74 65  cfb97483a..tclte
82d0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
82e0: 41 33 38 34 2d 32 2e 39 30 20 7b 53 48 41 33 38  A384-2.90 {SHA38
82f0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
8300: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
8310: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
8320: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8330: 63 6f 64 65 20 68 65 78 20 31 66 66 62 65 31 61  code hex 1ffbe1a
8340: 66 66 30 61 31 65 37 66 61 33 65 36 38 62 65 33  ff0a1e7fa3e68be3
8350: 31 61 37 34 36 31 32 61 31 35 31 39 62 35 39 33  1a74612a1519b593
8360: 39 37 65 37 30 30 37 65 66 36 31 66 63 30 31 35  97e7007ef61fc015
8370: 66 33 31 36 64 35 35 62 35 37 62 65 35 32 38 63  f316d55b57be528c
8380: 65 62 63 63 32 66 30 39 61 32 66 32 32 65 33 63  ebcc2f09a2f22e3c
8390: 35 65 34 61 36 61 65 39 36 31 32 37 37 36 62 31  5e4a6ae9612776b1
83a0: 37 61 65 38 37 63 64 37 36 33 63 31 61 39 65 61  7ae87cd763c1a9ea
83b0: 62 65 36 38 34 36 63 35 62 63 62 33 34 37 66 66  be6846c5bcb347ff
83c0: 63 39 39 66 31 30 65 33 62 35 65 36 34 62 32 39  c99f10e3b5e64b29
83d0: 61 39 62 64 37 31 61 35 65 39 62 33 63 30 31 61  a9bd71a5e9b3c01a
83e0: 38 30 32 37 31 35 64 65 32 61 39 5d 7d 20 5c 0a  802715de2a9]} \.
83f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
8400: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
8410: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
8420: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
8430: 2d 72 65 73 75 6c 74 20 66 30 38 62 64 61 39 64  -result f08bda9d
8440: 36 37 36 32 36 30 37 35 31 39 64 35 33 66 65 63  6762607519d53fec
8450: 62 30 62 66 66 62 66 64 33 66 66 32 39 32 34 38  b0bffbfd3ff29248
8460: 35 34 38 33 33 61 37 35 39 64 36 33 31 65 39 31  54833a759d631e91
8470: 30 63 34 32 63 61 38 36 37 34 31 66 63 32 65 32  0c42ca86741fc2e2
8480: 39 30 61 66 34 32 65 39 34 62 39 34 38 39 38 36  90af42e94b948986
8490: 30 39 62 39 31 33 39 30 0a 0a 74 63 6c 74 65 73  09b91390..tcltes
84a0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
84b0: 33 38 34 2d 32 2e 39 31 20 7b 53 48 41 33 38 34  384-2.91 {SHA384
84c0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
84d0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
84e0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
84f0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
8500: 6f 64 65 20 68 65 78 20 66 37 35 35 64 36 62 35  ode hex f755d6b5
8510: 36 34 32 33 37 38 66 32 38 34 37 38 39 33 39 30  642378f284789390
8520: 31 64 39 61 61 39 31 63 35 34 61 34 62 37 61 62  1d9aa91c54a4b7ab
8530: 62 39 37 63 35 63 37 31 38 34 30 36 33 65 38 66  b97c5c7184063e8f
8540: 31 65 39 37 61 61 32 64 65 34 61 64 37 61 63 39  1e97aa2de4ad7ac9
8550: 32 37 64 64 33 63 63 65 37 37 30 63 39 30 36 39  27dd3cce770c9069
8560: 32 31 65 32 64 32 39 38 66 36 37 63 66 39 38 34  21e2d298f67cf984
8570: 34 65 36 31 62 66 31 30 34 64 62 38 30 33 62 32  4e61bf104db803b2
8580: 36 35 62 38 36 62 38 32 31 63 35 66 34 64 39 30  65b86b821c5f4d90
8590: 31 30 36 37 64 30 37 62 33 38 37 36 34 65 33 66  1067d07b38764e3f
85a0: 36 63 39 35 66 64 34 66 32 38 65 33 63 66 65 34  6c95fd4f28e3cfe4
85b0: 38 64 38 61 39 36 39 34 61 38 66 33 5d 7d 20 5c  8d8a9694a8f3]} \
85c0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
85d0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
85e0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
85f0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
8600: 20 2d 72 65 73 75 6c 74 20 66 38 35 65 39 38 65   -result f85e98e
8610: 61 30 35 34 34 35 35 32 34 32 32 38 30 38 35 34  a054455242280854
8620: 65 39 37 63 34 65 64 33 39 39 62 38 35 65 65 37  e97c4ed399b85ee7
8630: 62 63 35 63 35 66 63 33 64 36 32 39 31 30 61 37  bc5c5fc3d62910a7
8640: 36 66 33 61 39 36 30 30 63 33 64 39 30 34 63 38  6f3a9600c3d904c8
8650: 33 32 62 37 30 62 35 38 64 37 64 39 39 38 64 62  32b70b58d7d998db
8660: 38 64 63 39 37 38 31 33 35 0a 0a 74 63 6c 74 65  8dc978135..tclte
8670: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
8680: 41 33 38 34 2d 32 2e 39 32 20 7b 53 48 41 33 38  A384-2.92 {SHA38
8690: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
86a0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
86b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
86c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
86d0: 63 6f 64 65 20 68 65 78 20 37 37 33 35 37 37 66  code hex 773577f
86e0: 33 61 36 34 32 63 34 66 31 33 62 31 63 62 31 66  3a642c4f13b1cb1f
86f0: 34 31 30 33 65 39 66 36 62 32 64 61 38 36 32 36  4103e9f6b2da8626
8700: 38 61 35 32 66 34 34 39 63 62 62 31 37 34 63 38  8a52f449cbb174c8
8710: 33 34 39 65 33 63 30 64 63 36 33 36 63 65 38 35  349e3c0dc636ce85
8720: 63 33 37 33 31 31 35 61 33 33 37 65 65 65 32 36  c373115a337eee26
8730: 66 37 62 37 30 62 61 31 30 36 30 61 37 39 61 31  f7b70ba1060a79a1
8740: 63 37 36 66 64 31 38 36 33 39 39 65 36 61 35 32  c76fd186399e6a52
8750: 35 35 64 62 38 30 66 38 33 62 30 62 65 34 61 33  55db80f83b0be4a3
8760: 34 62 61 38 37 36 66 37 39 30 38 38 34 30 35 35  4ba876f790884055
8770: 33 65 61 64 33 38 30 66 33 31 39 35 35 30 37 37  3ead380f31955077
8780: 32 39 64 30 36 37 61 63 32 65 65 38 65 62 34 5d  29d067ac2ee8eb4]
8790: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
87a0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
87b0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
87c0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
87d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 63 63 32 37  act -result cc27
87e0: 38 36 39 63 64 37 65 36 33 36 39 35 64 31 39 30  869cd7e63695d190
87f0: 38 32 34 34 36 62 30 36 38 62 37 37 64 64 65 34  82446b068b77dde4
8800: 65 38 36 30 34 66 38 63 30 65 39 63 65 32 30 61  e8604f8c0e9ce20a
8810: 31 62 37 31 61 61 39 65 66 66 31 34 36 30 66 33  1b71aa9eff1460f3
8820: 32 64 35 61 35 34 34 37 36 32 37 35 62 64 65 65  2d5a54476275bdee
8830: 38 65 37 36 32 31 34 39 31 66 34 36 0a 0a 74 63  8e7621491f46..tc
8840: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
8850: 5f 53 48 41 33 38 34 2d 32 2e 39 33 20 7b 53 48  _SHA384-2.93 {SH
8860: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
8870: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
8880: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
8890: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
88a0: 20 64 65 63 6f 64 65 20 68 65 78 20 36 35 31 35   decode hex 6515
88b0: 38 39 39 32 37 65 31 37 65 31 61 65 66 37 38 30  89927e17e1aef780
88c0: 36 39 30 66 33 31 30 30 61 33 37 37 66 30 31 37  690f3100a377f017
88d0: 39 62 31 38 62 33 31 66 64 35 62 34 34 31 38 63  9b18b31fd5b4418c
88e0: 38 34 30 33 38 35 37 33 66 63 35 35 39 62 34 39  84038573fc559b49
88f0: 36 61 37 38 32 62 65 65 63 33 64 63 66 36 65 39  6a782beec3dcf6e9
8900: 66 61 66 35 61 65 66 36 37 36 65 31 30 62 62 65  faf5aef676e10bbe
8910: 63 33 34 62 31 62 65 35 38 38 38 66 64 61 34 39  c34b1be5888fda49
8920: 62 39 31 65 30 32 38 39 30 64 32 35 32 34 63 35  b91e02890d2524c5
8930: 62 33 36 39 66 38 61 35 34 31 37 35 66 32 39 64  b369f8a54175f29d
8940: 65 64 66 38 31 35 36 66 66 66 36 39 30 63 66 31  edf8156fff690cf1
8950: 38 36 65 63 37 37 31 30 34 61 37 39 38 33 31 35  86ec77104a798315
8960: 30 33 33 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  033b]} \..-body 
8970: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8980: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
8990: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
89a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
89b0: 20 64 61 38 34 36 30 34 32 66 62 39 30 38 65 65   da846042fb908ee
89c0: 65 35 66 35 64 65 66 64 31 30 35 35 66 66 33 65  e5f5defd1055ff3e
89d0: 35 37 31 30 33 37 30 38 32 37 38 64 33 37 39 61  57103708278d379a
89e0: 38 36 38 31 66 35 38 62 65 64 63 36 65 66 38 39  8681f58bedc6ef89
89f0: 36 37 30 62 39 66 39 35 37 63 34 65 30 65 64 63  670b9f957c4e0edc
8a00: 61 61 34 32 64 66 64 38 63 64 34 39 64 66 36 65  aa42dfd8cd49df6e
8a10: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
8a20: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 39   Hash_SHA384-2.9
8a30: 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  4 {SHA384ShortMs
8a40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
8a50: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
8a60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8a70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8a80: 20 36 37 38 36 35 32 36 30 30 65 65 65 34 32 35   678652600eee425
8a90: 38 30 66 37 33 36 32 33 34 31 32 65 39 63 30 31  80f73623412e9c01
8aa0: 31 63 63 30 32 64 65 63 34 64 34 63 63 31 62 37  1cc02dec4d4cc1b7
8ab0: 39 62 32 37 62 36 66 39 39 33 39 36 39 35 62 66  9b27b6f9939695bf
8ac0: 32 31 38 35 62 32 30 31 32 61 62 30 36 33 30 66  2185b2012ab0630f
8ad0: 33 31 37 64 32 65 32 64 65 39 35 64 64 36 39 38  317d2e2de95dd698
8ae0: 39 30 65 34 33 30 37 38 33 65 39 39 64 37 65 64  90e430783e99d7ed
8af0: 31 32 31 63 37 63 38 64 61 39 61 65 37 30 37 38  121c7c8da9ae7078
8b00: 30 62 35 61 61 62 66 39 30 32 32 64 31 34 33 35  0b5aabf9022d1435
8b10: 63 66 35 65 64 36 64 61 36 66 63 36 36 39 32 63  cf5ed6da6fc6692c
8b20: 30 35 30 63 32 62 35 66 32 32 62 32 34 66 62 31  050c2b5f22b24fb1
8b30: 63 66 39 31 33 35 66 39 63 62 32 5d 7d 20 5c 0a  cf9135f9cb2]} \.
8b40: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
8b50: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
8b60: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
8b70: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
8b80: 2d 72 65 73 75 6c 74 20 38 61 36 61 65 34 31 63  -result 8a6ae41c
8b90: 39 62 63 63 63 31 36 65 61 63 34 38 36 30 62 64  9bccc16eac4860bd
8ba0: 35 66 61 39 31 32 30 35 61 38 36 66 62 66 64 30  5fa91205a86fbfd0
8bb0: 39 36 39 32 35 37 38 66 37 66 33 36 62 33 63 31  9692578f7f36b3c1
8bc0: 33 35 64 39 36 66 39 65 39 30 30 31 63 31 39 32  35d96f9e9001c192
8bd0: 64 62 65 64 61 39 37 35 66 37 33 37 35 62 64 34  dbeda975f7375bd4
8be0: 33 61 32 33 62 61 36 38 0a 0a 74 63 6c 74 65 73  3a23ba68..tcltes
8bf0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
8c00: 33 38 34 2d 32 2e 39 35 20 7b 53 48 41 33 38 34  384-2.95 {SHA384
8c10: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
8c20: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
8c30: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
8c40: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
8c50: 6f 64 65 20 68 65 78 20 34 31 36 64 33 66 62 37  ode hex 416d3fb7
8c60: 62 34 30 31 66 61 35 65 37 38 63 64 39 36 64 34  b401fa5e78cd96d4
8c70: 37 39 64 38 38 36 30 64 66 31 34 37 65 65 66 30  79d8860df147eef0
8c80: 33 61 64 66 31 33 66 63 65 31 63 36 31 31 33 31  3adf13fce1c61131
8c90: 66 62 38 39 63 63 32 65 62 63 36 33 32 38 39 37  fb89cc2ebc632897
8ca0: 34 35 62 64 37 64 62 39 62 65 66 31 34 35 37 31  45bd7db9bef14571
8cb0: 61 35 35 33 31 38 34 39 36 35 37 32 64 62 65 35  a55318496572dbe5
8cc0: 32 62 39 62 33 34 39 65 66 35 39 66 34 30 36 63  2b9b349ef59f406c
8cd0: 65 63 64 36 38 39 30 39 66 33 36 34 33 32 35 33  ecd68909f3643253
8ce0: 38 30 62 62 37 35 66 33 61 61 36 32 35 30 33 63  80bb75f3aa62503c
8cf0: 38 34 66 34 37 61 35 35 61 61 36 62 39 63 39 62  84f47a55aa6b9c9b
8d00: 31 39 39 65 62 65 34 31 34 34 30 39 66 66 33 39  199ebe414409ff39
8d10: 36 34 63 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  64cd]} \..-body 
8d20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8d30: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
8d40: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8d50: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8d60: 20 63 35 66 32 30 35 34 32 65 30 63 30 61 63 31   c5f20542e0c0ac1
8d70: 65 62 34 33 33 64 65 36 32 32 39 66 65 35 62 61  eb433de6229fe5ba
8d80: 63 63 66 64 34 35 30 32 65 32 63 32 32 37 35 34  ccfd4502e2c22754
8d90: 33 39 33 38 35 65 66 64 61 36 33 37 34 61 31 64  39385efda6374a1d
8da0: 30 66 63 35 30 63 64 39 62 62 61 34 32 33 33 64  0fc50cd9bba4233d
8db0: 34 37 30 61 64 39 31 61 33 33 35 36 65 61 33 31  470ad91a3356ea31
8dc0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
8dd0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 39   Hash_SHA384-2.9
8de0: 36 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73  6 {SHA384ShortMs
8df0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
8e00: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65  ts SHA384 \..-se
8e10: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8e20: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8e30: 20 36 66 30 39 65 38 37 36 63 30 62 38 33 63 39   6f09e876c0b83c9
8e40: 39 33 34 66 66 62 37 37 37 66 30 30 36 33 33 38  934ffb777f006338
8e50: 63 35 31 34 32 61 33 31 33 37 35 65 39 62 32 31  c5142a31375e9b21
8e60: 63 66 65 61 39 61 37 64 65 31 32 39 39 38 63 34  cfea9a7de12998c4
8e70: 65 61 36 37 30 38 66 66 31 66 64 66 35 61 38 65  ea6708ff1fdf5a8e
8e80: 65 36 62 62 36 37 63 36 37 35 66 66 64 38 32 30  e6bb67c675ffd820
8e90: 39 61 31 30 30 36 34 65 32 64 37 35 38 61 38 37  9a10064e2d758a87
8ea0: 33 34 65 62 34 38 66 30 37 66 37 63 66 33 64 34  34eb48f07f7cf3d4
8eb0: 33 62 30 39 66 31 62 66 64 63 35 64 30 37 61 35  3b09f1bfdc5d07a5
8ec0: 32 62 37 37 30 37 39 66 32 33 63 65 63 32 38 62  2b77079f23cec28b
8ed0: 66 38 36 33 62 65 64 39 37 63 38 35 39 32 37 36  f863bed97c859276
8ee0: 64 66 37 66 37 31 32 39 66 63 65 37 31 65 62 5d  df7f7129fce71eb]
8ef0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
8f00: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
8f10: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61  SHA384 -data $da
8f20: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
8f30: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 33 63 39  act -result b3c9
8f40: 36 38 66 33 30 32 35 66 38 37 64 62 64 35 63 64  68f3025f87dbd5cd
8f50: 33 64 33 36 34 62 66 36 37 33 65 36 32 38 32 37  3d364bf673e62827
8f60: 63 33 35 38 38 39 35 33 32 34 33 31 62 65 63 64  c35889532431becd
8f70: 38 37 63 66 62 65 32 63 63 37 35 62 37 65 66 34  87cfbe2cc75b7ef4
8f80: 35 36 39 36 64 31 39 63 64 33 34 35 32 64 30 65  5696d19cd3452d0e
8f90: 37 63 32 62 36 39 64 30 39 35 34 34 0a 0a 74 63  7c2b69d09544..tc
8fa0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
8fb0: 5f 53 48 41 33 38 34 2d 32 2e 39 37 20 7b 53 48  _SHA384-2.97 {SH
8fc0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
8fd0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
8fe0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
8ff0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
9000: 20 64 65 63 6f 64 65 20 68 65 78 20 30 64 63 32   decode hex 0dc2
9010: 62 32 32 36 62 33 34 33 31 63 36 39 61 37 36 61  b226b3431c69a76a
9020: 64 64 63 30 31 38 66 63 62 64 61 32 32 62 64 37  ddc018fcbda22bd7
9030: 32 63 38 66 66 30 31 65 64 36 35 34 39 35 39 36  2c8ff01ed6549596
9040: 37 39 38 62 64 39 35 30 66 33 36 31 63 34 38 39  798bd950f361c489
9050: 61 30 39 63 39 35 63 65 65 32 64 63 66 64 36 34  a09c95cee2dcfd64
9060: 30 31 32 30 38 61 65 36 33 36 38 64 36 36 33 30  01208ae6368d6630
9070: 30 32 36 62 34 31 37 63 63 34 37 31 38 63 63 62  026b417cc4718ccb
9080: 38 62 34 32 65 38 38 37 32 39 33 37 64 65 36 36  8b42e8872937de66
9090: 38 39 35 66 64 30 39 31 34 32 63 34 32 66 30 36  895fd09142c42f06
90a0: 36 62 66 30 65 66 33 61 62 32 62 30 33 38 30 33  6bf0ef3ab2b03803
90b0: 61 38 31 38 35 66 62 36 35 66 63 37 31 34 38 63  a8185fb65fc7148c
90c0: 33 37 36 64 64 64 34 62 66 35 38 61 5d 7d 20 5c  376ddd4bf58a]} \
90d0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
90e0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
90f0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
9100: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
9110: 20 2d 72 65 73 75 6c 74 20 61 61 36 34 35 61 34   -result aa645a4
9120: 66 38 66 36 30 32 34 31 31 32 36 30 61 63 65 32  f8f602411260ace2
9130: 34 64 33 38 31 66 33 66 35 64 66 66 30 30 30 30  4d381f3f5dff0000
9140: 63 32 34 36 33 34 33 65 62 35 32 38 65 33 64 64  c246343eb528e3dd
9150: 30 32 37 63 64 37 34 33 38 31 35 37 33 37 39 30  027cd74381573790
9160: 36 61 63 35 63 37 34 65 61 38 33 63 32 37 35 35  6ac5c74ea83c2755
9170: 65 35 36 62 39 39 35 30 39 0a 0a 74 63 6c 74 65  e56b99509..tclte
9180: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
9190: 41 33 38 34 2d 32 2e 39 38 20 7b 53 48 41 33 38  A384-2.98 {SHA38
91a0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
91b0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38  onstraints SHA38
91c0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
91d0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
91e0: 63 6f 64 65 20 68 65 78 20 38 64 63 37 31 63 38  code hex 8dc71c8
91f0: 34 63 38 37 37 32 37 35 33 63 38 36 61 62 36 61  4c8772753c86ab6a
9200: 66 64 38 30 65 38 64 31 64 66 39 62 30 64 37 65  fd80e8d1df9b0d7e
9210: 38 64 36 39 65 62 65 36 37 66 61 38 38 33 61 38  8d69ebe67fa883a8
9220: 32 34 31 32 63 32 36 37 33 38 63 33 33 39 39 63  2412c26738c3399c
9230: 61 62 39 35 35 37 33 62 34 64 33 63 34 33 36 37  ab95573b4d3c4367
9240: 63 38 35 63 38 31 38 35 32 64 35 61 36 35 36 34  c85c81852d5a6564
9250: 63 30 66 63 37 63 61 61 61 66 65 31 36 63 30 35  c0fc7caaafe16c05
9260: 65 36 32 61 61 30 36 63 63 39 66 61 35 34 32 63  e62aa06cc9fa542c
9270: 65 62 33 35 63 38 38 66 62 36 61 62 38 32 63 32  eb35c88fb6ab82c2
9280: 39 64 35 64 63 64 35 33 30 66 38 30 37 64 33 66  9d5dcd530f807d3f
9290: 31 63 33 62 63 62 33 39 37 34 34 32 31 31 30 31  1c3bcb3974421101
92a0: 64 31 61 61 36 61 63 31 31 32 64 5d 7d 20 5c 0a  d1aa6ac112d]} \.
92b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
92c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33  est -digest SHA3
92d0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  84 -data $data} 
92e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
92f0: 2d 72 65 73 75 6c 74 20 31 32 32 33 39 38 31 33  -result 12239813
9300: 30 39 37 31 32 34 65 36 32 34 38 65 37 64 62 65  097124e6248e7dbe
9310: 63 39 38 35 61 36 61 32 35 66 36 32 32 62 31 64  c985a6a25f622b1d
9320: 30 37 32 39 35 63 66 63 66 62 61 66 66 33 33 62  07295cfcfbaff33b
9330: 38 34 37 64 66 37 66 64 39 34 32 36 35 65 34 33  847df7fd94265e43
9340: 39 66 61 35 33 35 66 33 62 65 63 62 64 62 35 37  9fa535f3becbdb57
9350: 36 39 32 32 61 63 34 31 0a 0a 74 63 6c 74 65 73  6922ac41..tcltes
9360: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
9370: 33 38 34 2d 32 2e 39 39 20 7b 53 48 41 33 38 34  384-2.99 {SHA384
9380: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
9390: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
93a0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
93b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
93c0: 6f 64 65 20 68 65 78 20 33 64 66 33 65 64 64 39  ode hex 3df3edd9
93d0: 66 63 39 33 62 65 39 39 36 30 62 35 61 36 33 32  fc93be9960b5a632
93e0: 65 32 38 34 37 62 33 30 62 31 30 31 38 37 63 38  e2847b30b10187c8
93f0: 66 38 33 64 65 35 62 34 35 66 63 62 32 65 33 65  f83de5b45fcb2e3e
9400: 64 34 37 35 35 36 39 61 38 62 32 65 64 30 37 38  d475569a8b2ed078
9410: 34 33 34 38 66 39 64 61 63 63 65 37 62 33 32 33  4348f9dacce7b323
9420: 63 36 62 36 35 30 37 31 61 62 64 38 62 33 32 64  c6b65071abd8b32d
9430: 31 30 32 32 62 31 65 31 32 37 38 37 62 64 34 39  1022b1e12787bd49
9440: 38 39 64 33 63 35 61 63 33 32 39 64 35 37 36 63  89d3c5ac329d576c
9450: 63 64 37 36 30 38 64 64 33 33 36 37 31 36 35 33  cd7608dd33671653
9460: 32 65 39 62 34 63 37 66 38 32 35 38 32 36 66 62  2e9b4c7f825826fb
9470: 32 65 33 34 33 36 32 33 65 66 38 35 63 36 32 37  2e343623ef85c627
9480: 30 36 31 39 62 66 35 65 33 62 32 37 5d 7d 20 5c  0619bf5e3b27]} \
9490: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
94a0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
94b0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
94c0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
94d0: 20 2d 72 65 73 75 6c 74 20 66 33 36 35 39 30 66   -result f36590f
94e0: 35 32 31 31 61 39 63 66 38 34 65 65 62 30 61 33  5211a9cf84eeb0a3
94f0: 62 32 65 35 64 63 31 31 36 34 65 38 31 33 31 39  b2e5dc1164e81319
9500: 31 63 64 61 37 63 62 38 38 33 66 33 66 34 61 30  1cda7cb883f3f4a0
9510: 37 34 36 30 35 63 65 36 37 38 30 63 66 32 66 31  74605ce6780cf2f1
9520: 61 31 30 35 36 35 38 37 30 36 66 62 64 32 38 32  a105658706fbd282
9530: 39 64 62 38 61 32 61 35 38 0a 0a 74 63 6c 74 65  9db8a2a58..tclte
9540: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
9550: 41 33 38 34 2d 32 2e 31 30 30 20 7b 53 48 41 33  A384-2.100 {SHA3
9560: 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  84ShortMsg} \..-
9570: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33  constraints SHA3
9580: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
9590: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
95a0: 65 63 6f 64 65 20 68 65 78 20 63 65 64 30 65 63  ecode hex ced0ec
95b0: 36 35 30 30 63 62 38 39 31 65 36 34 33 33 64 31  6500cb891e6433d1
95c0: 30 34 62 61 35 62 31 63 31 65 62 63 61 33 39 37  04ba5b1c1ebca397
95d0: 66 33 61 35 65 65 65 61 61 30 66 30 35 36 31 37  f3a5eeeaa0f05617
95e0: 32 39 36 32 31 65 61 35 30 64 34 61 65 37 66 66  29621ea50d4ae7ff
95f0: 31 64 30 38 32 37 31 37 38 64 63 63 64 38 34 65  1d0827178dccd84e
9600: 34 63 61 30 36 64 39 38 39 31 61 39 30 61 64 62  4ca06d9891a90adb
9610: 62 37 61 39 66 34 39 39 34 61 63 39 34 37 63 66  b7a9f4994ac947cf
9620: 36 32 39 36 65 37 31 64 32 66 34 39 62 38 32 36  6296e71d2f49b826
9630: 64 36 34 62 31 32 33 61 37 62 66 38 36 66 33 33  d64b123a7bf86f33
9640: 39 66 61 34 36 37 39 63 61 64 64 62 64 66 31 39  9fa4679caddbdf19
9650: 63 66 65 64 37 64 30 32 30 36 61 61 35 66 35 32  cfed7d0206aa5f52
9660: 37 61 36 62 30 63 63 30 30 66 35 32 61 61 32 62  7a6b0cc00f52aa2b
9670: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
9680: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
9690: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
96a0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
96b0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 32 63  xact -result c2c
96c0: 32 64 37 64 36 35 64 30 62 39 31 30 38 36 34 38  2d7d65d0b9108648
96d0: 65 33 32 33 33 64 31 35 66 63 34 65 34 63 62 36  e3233d15fc4e4cb6
96e0: 32 65 64 38 66 65 65 39 63 64 64 31 38 61 62 34  2ed8fee9cdd18ab4
96f0: 34 62 38 34 38 36 65 32 31 30 30 66 62 65 34 35  4b8486e2100fbe45
9700: 64 64 63 66 37 34 66 34 36 63 31 35 65 62 37 37  ddcf74f46c15eb77
9710: 66 62 31 63 38 39 33 63 31 32 32 30 32 0a 0a 74  fb1c893c12202..t
9720: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
9730: 68 5f 53 48 41 33 38 34 2d 32 2e 31 30 31 20 7b  h_SHA384-2.101 {
9740: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
9750: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
9760: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
9770: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
9780: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 66  ry decode hex af
9790: 61 34 61 32 63 34 66 62 61 66 66 65 38 33 38 64  a4a2c4fbaffe838d
97a0: 64 31 34 39 63 37 38 65 61 37 38 35 31 65 61 39  d149c78ea7851ea9
97b0: 33 39 36 33 30 34 62 34 31 38 30 36 61 30 39 33  396304b41806a093
97c0: 61 39 30 61 61 65 35 39 63 30 63 35 62 64 62 31  a90aae59c0c5bdb1
97d0: 37 30 63 63 39 61 37 64 32 32 62 39 30 63 62 63  70cc9a7d22b90cbc
97e0: 65 35 32 63 63 31 62 31 30 35 31 30 38 39 34 32  e52cc1b105108942
97f0: 64 66 32 30 63 32 39 65 66 33 61 39 31 33 32 32  df20c29ef3a91322
9800: 33 62 39 31 35 65 37 65 62 63 39 38 65 66 31 33  3b915e7ebc98ef13
9810: 35 61 64 65 66 61 61 30 66 30 61 36 34 34 31 65  5adefaa0f0a6441e
9820: 61 30 35 39 32 30 65 38 36 38 63 65 39 64 31 66  a05920e868ce9d1f
9830: 66 36 63 38 66 65 34 64 62 65 63 30 36 61 34 38  f6c8fe4dbec06a48
9840: 34 39 65 35 65 35 35 61 64 30 36 32 37 66 39 65  49e5e55ad0627f9e
9850: 30 39 64 66 63 62 5d 7d 20 5c 0a 09 2d 62 6f 64  09dfcb]} \..-bod
9860: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
9870: 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64  digest SHA384 -d
9880: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
9890: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
98a0: 6c 74 20 63 66 36 65 66 39 31 64 38 35 36 37 34  lt cf6ef91d85674
98b0: 31 34 66 35 63 37 66 30 62 31 66 34 61 64 30 39  14f5c7f0b1f4ad09
98c0: 61 39 37 36 61 66 63 37 63 38 33 32 37 61 33 38  a976afc7c8327a38
98d0: 32 66 63 61 39 30 66 35 61 31 33 36 62 31 39 62  2fca90f5a136b19b
98e0: 65 33 33 31 30 30 61 36 36 34 33 39 30 61 33 37  e33100a664390a37
98f0: 37 66 38 64 38 61 33 30 31 35 66 62 38 38 32 31  7f8d8a3015fb8821
9900: 32 35 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  25b..tcltest::te
9910: 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32  st Hash_SHA384-2
9920: 2e 31 30 32 20 7b 53 48 41 33 38 34 53 68 6f 72  .102 {SHA384Shor
9930: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
9940: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09  aints SHA384 \..
9950: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
9960: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
9970: 68 65 78 20 30 30 66 36 35 61 34 38 35 62 66 64  hex 00f65a485bfd
9980: 33 38 31 31 31 33 64 36 65 37 39 62 66 39 65 30  381113d6e79bf9e0
9990: 64 35 65 35 31 38 63 38 39 31 39 38 38 63 30 37  d5e518c891988c07
99a0: 33 62 61 31 39 38 61 63 33 61 32 30 66 32 35 63  3ba198ac3a20f25c
99b0: 32 63 38 31 36 31 39 37 32 33 65 38 38 61 33 63  2c81619723e88a3c
99c0: 30 65 64 33 30 37 35 30 37 35 66 62 62 61 66 62  0ed3075075fbbafb
99d0: 36 61 37 62 36 31 64 33 62 63 33 33 36 61 35 65  6a7b61d3bc336a5e
99e0: 36 64 36 66 30 38 64 31 36 36 63 34 38 36 31 65  6d6f08d166c4861e
99f0: 36 61 33 62 64 63 32 65 34 39 62 32 38 30 36 62  6a3bdc2e49b2806b
9a00: 35 36 37 65 37 65 38 32 31 61 35 35 63 62 36 37  567e7e821a55cb67
9a10: 34 61 36 63 64 36 39 39 66 37 64 63 36 31 61 37  4a6cd699f7dc61a7
9a20: 30 35 34 61 38 66 66 33 64 65 63 37 33 65 62 36  054a8ff3dec73eb6
9a30: 36 37 66 35 39 36 34 34 33 34 36 62 65 32 5d 7d  67f59644346be2]}
9a40: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
9a50: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
9a60: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74  HA384 -data $dat
9a70: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
9a80: 63 74 20 2d 72 65 73 75 6c 74 20 38 30 39 63 36  ct -result 809c6
9a90: 62 35 64 34 31 64 61 37 63 64 31 30 64 66 39 30  b5d41da7cd10df90
9aa0: 62 30 32 62 31 39 33 61 63 37 64 34 30 63 66 32  b02b193ac7d40cf2
9ab0: 65 34 36 63 31 33 39 65 39 64 62 64 32 30 38 61  e46c139e9dbd208a
9ac0: 39 38 38 64 61 32 62 32 35 30 30 32 63 64 62 61  988da2b25002cdba
9ad0: 64 31 64 62 32 65 63 63 31 33 32 32 64 61 32 30  d1db2ecc1322da20
9ae0: 62 37 64 30 35 34 65 35 66 65 36 0a 0a 74 63 6c  b7d054e5fe6..tcl
9af0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
9b00: 53 48 41 33 38 34 2d 32 2e 31 30 33 20 7b 53 48  SHA384-2.103 {SH
9b10: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
9b20: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
9b30: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
9b40: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
9b50: 20 64 65 63 6f 64 65 20 68 65 78 20 62 39 63 65   decode hex b9ce
9b60: 33 38 32 65 31 65 38 32 61 38 37 33 63 63 34 34  382e1e82a873cc44
9b70: 34 32 34 38 61 33 30 30 38 63 32 63 66 36 34 64  4248a3008c2cf64d
9b80: 31 38 37 35 39 30 35 37 61 62 65 38 66 39 31 63  18759057abe8f91c
9b90: 39 64 38 37 66 35 64 63 38 33 61 61 34 65 63 61  9d87f5dc83aa4eca
9ba0: 30 63 35 31 64 33 30 38 32 39 62 39 61 31 64 32  0c51d30829b9a1d2
9bb0: 37 31 32 64 61 31 66 61 63 33 31 66 35 32 39 34  712da1fac31f5294
9bc0: 32 64 37 37 63 39 66 32 30 63 32 62 66 36 64 33  2d77c9f20c2bf6d3
9bd0: 37 35 31 30 32 38 64 37 64 34 66 30 64 33 33 36  751028d7d4f0d336
9be0: 64 33 64 63 39 32 62 32 37 65 63 33 36 38 63 61  d3dc92b27ec368ca
9bf0: 61 34 34 34 34 62 33 31 38 30 63 31 65 33 37 65  a4444b3180c1e37e
9c00: 39 38 62 35 38 66 32 35 65 36 34 37 61 39 61 36  98b58f25e647a9a6
9c10: 33 36 31 66 30 62 30 34 63 66 37 38 64 31 37 39  361f0b04cf78d179
9c20: 35 35 37 36 36 31 36 38 5d 7d 20 5c 0a 09 2d 62  55766168]} \..-b
9c30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
9c40: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20   -digest SHA384 
9c50: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
9c60: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
9c70: 73 75 6c 74 20 31 38 63 64 31 30 62 33 65 61 39  sult 18cd10b3ea9
9c80: 30 37 62 33 37 37 30 65 38 65 62 39 31 63 39 37  07b3770e8eb91c97
9c90: 34 36 36 36 65 32 64 61 32 35 32 35 61 66 65 37  4666e2da2525afe7
9ca0: 30 32 30 62 38 37 32 62 33 65 63 36 36 38 39 65  020b872b3ec6689e
9cb0: 35 65 31 63 64 30 30 35 39 64 64 34 66 64 34 39  5e1cd0059dd4fd49
9cc0: 63 65 34 34 64 37 35 64 63 34 63 38 34 33 30 63  ce44d75dc4c8430c
9cd0: 33 32 32 64 36 0a 0a 74 63 6c 74 65 73 74 3a 3a  322d6..tcltest::
9ce0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34  test Hash_SHA384
9cf0: 2d 32 2e 31 30 34 20 7b 53 48 41 33 38 34 53 68  -2.104 {SHA384Sh
9d00: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
9d10: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
9d20: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
9d30: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
9d40: 65 20 68 65 78 20 36 37 37 38 64 38 32 66 33 61  e hex 6778d82f3a
9d50: 39 38 65 65 63 64 66 61 63 35 35 64 64 65 65 62  98eecdfac55ddeeb
9d60: 63 35 32 34 37 36 61 30 37 30 30 39 34 66 62 64  c52476a070094fbd
9d70: 36 35 38 33 31 38 30 31 66 64 64 36 30 66 38 33  65831801fdd60f83
9d80: 37 64 38 30 64 32 33 62 39 30 64 34 37 32 63 35  7d80d23b90d472c5
9d90: 66 34 65 35 63 61 36 32 37 33 61 35 30 66 34 30  f4e5ca6273a50f40
9da0: 31 35 34 65 61 38 66 62 39 34 30 31 33 66 36 33  154ea8fb94013f63
9db0: 31 30 61 64 31 38 38 30 30 34 33 33 61 31 64 33  10ad18800433a1d3
9dc0: 37 39 63 38 34 62 64 66 37 39 39 61 39 39 65 38  79c84bdf799a99e8
9dd0: 63 37 62 36 37 36 66 62 63 64 32 39 63 63 32 65  c7b676fbcd29cc2e
9de0: 64 36 36 35 35 32 32 39 37 64 65 37 61 36 65 35  d66552297de7a6e5
9df0: 36 35 31 37 39 62 62 34 32 62 37 30 64 34 38 32  65179bb42b70d482
9e00: 39 39 65 30 39 32 35 61 31 64 37 32 63 61 32 63  99e0925a1d72ca2c
9e10: 37 39 32 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  792a]} \..-body 
9e20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
9e30: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
9e40: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
9e50: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
9e60: 20 37 31 66 30 38 64 39 33 33 33 64 66 35 63 62   71f08d9333df5cb
9e70: 38 38 35 66 64 32 33 64 36 63 62 62 31 64 62 38  885fd23d6cbb1db8
9e80: 34 66 39 62 35 35 39 30 38 64 30 36 39 64 66 35  4f9b55908d069df5
9e90: 30 66 61 34 37 39 35 63 63 37 31 33 61 31 38 34  0fa4795cc713a184
9ea0: 33 39 62 63 61 62 38 64 61 63 61 30 37 38 33 35  39bcab8daca07835
9eb0: 36 66 35 63 37 35 61 36 31 39 66 32 66 38 37 38  6f5c75a619f2f878
9ec0: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
9ed0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
9ee0: 30 35 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d  05 {SHA384ShortM
9ef0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
9f00: 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73  nts SHA384 \..-s
9f10: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
9f20: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
9f30: 78 20 62 61 33 61 35 34 61 37 37 64 37 63 32 62  x ba3a54a77d7c2b
9f40: 38 63 63 65 63 36 64 35 33 31 33 36 63 64 34 38  8ccec6d53136cd48
9f50: 38 32 37 63 38 37 61 63 64 64 31 63 64 38 36 61  827c87acdd1cd86a
9f60: 64 31 66 35 36 65 38 36 32 36 34 32 65 61 32 65  d1f56e862642ea2e
9f70: 31 64 63 62 34 30 39 33 66 38 35 64 36 30 66 37  1dcb4093f85d60f7
9f80: 62 64 37 37 31 36 30 37 33 38 34 36 32 65 36 63  bd77160738462e6c
9f90: 33 66 64 33 64 64 39 64 33 61 37 63 35 63 66 37  3fd3dd9d3a7c5cf7
9fa0: 65 32 61 31 64 36 30 66 34 38 39 66 38 34 34 37  e2a1d60f489f8447
9fb0: 31 39 30 32 31 37 39 66 32 31 66 36 35 36 63 65  1902179f21f656ce
9fc0: 30 66 66 66 30 38 39 32 37 38 65 61 31 34 34 34  0fff089278ea1444
9fd0: 31 65 30 34 65 37 61 66 37 31 38 39 31 36 32 32  1e04e7af71891622
9fe0: 35 36 35 66 34 34 63 34 32 38 30 34 34 37 32 38  565f44c428044728
9ff0: 66 63 63 36 38 36 32 31 32 61 33 32 61 35 64 38  fcc686212a32a5d8
a000: 30 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  09]} \..-body {t
a010: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
a020: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20  st SHA384 -data 
a030: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
a040: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33   exact -result 3
a050: 63 63 31 35 34 66 30 35 34 32 64 38 65 33 63 61  cc154f0542d8e3ca
a060: 63 66 39 64 37 39 66 32 33 31 34 31 36 38 31 36  cf9d79f231416816
a070: 31 37 38 61 37 65 66 32 32 37 35 66 62 32 35 37  178a7ef2275fb257
a080: 61 34 38 61 32 66 37 36 33 66 66 61 32 65 31 35  a48a2f763ffa2e15
a090: 61 33 33 63 32 37 62 39 37 30 61 34 31 36 61 30  a33c27b970a416a0
a0a0: 35 37 39 32 35 61 61 30 34 31 32 64 32 36 38 0a  57925aa0412d268.
a0b0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
a0c0: 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 30 36  ash_SHA384-2.106
a0d0: 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67   {SHA384ShortMsg
a0e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
a0f0: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74  s SHA384 \..-set
a100: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
a110: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
a120: 37 65 65 63 34 66 34 66 34 39 31 62 34 65 65 61  7eec4f4f491b4eea
a130: 65 62 31 63 64 62 64 62 39 35 65 39 35 31 31 63  eb1cdbdb95e9511c
a140: 32 38 37 32 33 37 32 62 66 36 34 61 31 66 36 31  2872372bf64a1f61
a150: 63 64 61 31 63 64 38 30 33 32 37 32 39 63 38 62  cda1cd8032729c8b
a160: 65 61 66 64 31 65 64 61 62 66 37 38 30 33 36 64  eafd1edabf78036d
a170: 38 30 30 32 33 63 38 31 34 61 64 38 36 30 36 31  80023c814ad86061
a180: 30 36 63 62 34 65 37 66 33 33 66 32 31 34 63 33  06cb4e7f33f214c3
a190: 65 36 39 63 30 66 32 33 30 65 38 38 35 34 37 34  e69c0f230e885474
a1a0: 66 64 35 39 34 66 37 66 32 34 34 34 61 61 35 38  fd594f7f2444aa58
a1b0: 31 65 30 63 37 30 65 62 66 31 33 30 37 33 64 38  1e0c70ebf13073d8
a1c0: 39 30 36 33 65 62 38 31 61 34 33 63 35 66 36 30  9063eb81a43c5f60
a1d0: 38 62 32 66 63 39 39 66 61 31 62 63 66 35 65 32  8b2fc99fa1bcf5e2
a1e0: 62 66 65 36 32 61 36 38 30 32 65 37 30 63 35 32  bfe62a6802e70c52
a1f0: 63 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  ce]} \..-body {t
a200: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
a210: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20  st SHA384 -data 
a220: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
a230: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32   exact -result 2
a240: 66 38 63 35 36 38 32 61 30 37 34 33 38 30 34 33  f8c5682a07438043
a250: 65 35 35 66 30 62 37 37 35 39 66 65 37 65 65 61  e55f0b7759fe7eea
a260: 35 64 39 62 64 66 63 38 62 30 66 38 39 38 30 30  5d9bdfc8b0f89800
a270: 65 62 63 66 37 37 37 62 63 30 35 61 39 34 31 65  ebcf777bc05a941e
a280: 61 37 66 33 63 61 63 34 35 64 34 36 35 39 64 65  a7f3cac45d4659de
a290: 30 66 35 30 35 64 38 31 34 35 39 30 62 36 62 0a  0f505d814590b6b.
a2a0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
a2b0: 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 30 37  ash_SHA384-2.107
a2c0: 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67   {SHA384ShortMsg
a2d0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
a2e0: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74  s SHA384 \..-set
a2f0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
a300: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
a310: 66 33 37 31 35 62 39 65 33 64 64 64 37 38 36 32  f3715b9e3ddd7862
a320: 65 31 35 65 65 38 37 61 61 32 33 66 31 61 61 61  e15ee87aa23f1aaa
a330: 30 35 38 30 35 39 31 65 35 35 63 66 66 33 66 65  0580591e55cff3fe
a340: 65 39 62 34 39 62 34 32 61 61 30 63 30 63 63 38  e9b49b42aa0c0cc8
a350: 63 66 62 38 65 66 61 33 65 62 39 36 66 66 62 37  cfb8efa3eb96ffb7
a360: 32 61 62 30 36 62 38 33 64 37 62 34 37 62 33 64  2ab06b83d7b47b3d
a370: 32 32 61 35 37 37 32 34 32 31 63 66 63 35 31 32  22a5772421cfc512
a380: 31 34 30 30 35 31 35 30 65 64 66 35 33 32 61 66  14005150edf532af
a390: 31 30 31 33 38 61 64 34 35 37 35 38 61 64 64 34  10138ad45758add4
a3a0: 35 39 39 30 38 36 30 31 65 63 63 63 33 37 30 33  59908601eccc3703
a3b0: 65 38 31 30 30 30 32 61 32 65 34 63 36 32 30 32  e810002a2e4c6202
a3c0: 65 39 38 64 38 34 32 38 31 34 37 35 64 35 35 64  e98d84281475d55d
a3d0: 33 64 65 39 66 33 64 39 38 38 30 39 63 63 65 31  3de9f3d98809cce1
a3e0: 66 36 36 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f665]} \..-body 
a3f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
a400: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
a410: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
a420: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
a430: 20 30 34 65 37 64 35 35 62 30 65 62 34 62 63 33   04e7d55b0eb4bc3
a440: 64 33 61 32 31 63 66 64 32 39 34 31 64 62 62 34  d3a21cfd2941dbb4
a450: 64 63 34 34 37 30 36 35 38 38 39 36 37 31 38 36  dc44706588967186
a460: 62 34 30 64 61 35 34 39 30 32 61 65 65 61 39 37  b40da54902aeea97
a470: 62 32 36 32 63 39 37 66 37 35 65 33 37 65 62 65  b262c97f75e37ebe
a480: 33 63 64 36 30 61 38 30 34 65 37 62 39 66 65 63  3cd60a804e7b9fec
a490: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
a4a0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
a4b0: 30 38 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d  08 {SHA384ShortM
a4c0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
a4d0: 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73  nts SHA384 \..-s
a4e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
a4f0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
a500: 78 20 64 66 64 37 64 37 39 32 65 31 36 32 62 66  x dfd7d792e162bf
a510: 37 61 38 38 39 31 30 39 35 35 30 61 30 66 63 34  7a889109550a0fc4
a520: 63 34 31 35 32 33 32 61 66 30 63 30 64 37 32 64  c415232af0c0d72d
a530: 63 62 63 32 35 39 35 32 39 39 65 31 61 31 63 32  cbc2595299e1a1c2
a540: 61 65 61 65 35 34 39 66 37 39 37 30 65 39 39 34  aeae549f7970e994
a550: 63 31 35 65 30 61 62 30 32 66 31 31 33 64 37 34  c15e0ab02f113d74
a560: 30 64 33 38 63 33 32 61 34 64 38 65 63 30 37 39  0d38c32a4d8ec079
a570: 63 64 30 39 39 64 33 37 64 39 35 34 61 62 37 65  cd099d37d954ab7e
a580: 66 32 38 30 30 39 30 32 63 64 66 37 63 37 61 31  f2800902cdf7c7a1
a590: 39 66 62 31 34 62 33 63 39 38 61 61 66 34 63 36  9fb14b3c98aaf4c6
a5a0: 61 64 39 33 66 65 39 61 39 62 63 37 61 36 31 32  ad93fe9a9bc7a612
a5b0: 32 39 38 32 38 65 35 35 61 64 34 64 36 32 37 30  29828e55ad4d6270
a5c0: 64 31 62 64 62 63 61 39 39 37 35 64 34 35 30 66  d1bdbca9975d450f
a5d0: 39 62 65 39 31 65 35 36 5d 7d 20 5c 0a 09 2d 62  9be91e56]} \..-b
a5e0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
a5f0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20   -digest SHA384 
a600: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
a610: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
a620: 73 75 6c 74 20 30 38 65 35 65 66 35 37 64 30 63  sult 08e5ef57d0c
a630: 32 61 61 32 33 65 64 66 63 37 35 63 66 61 65 33  2aa23edfc75cfae3
a640: 39 65 36 62 63 31 61 34 33 62 35 64 62 30 38 62  9e6bc1a43b5db08b
a650: 32 65 32 37 62 63 39 38 32 33 31 31 34 65 64 66  2e27bc9823114edf
a660: 37 36 30 33 36 37 64 62 39 63 66 33 63 64 39 63  760367db9cf3cd9c
a670: 33 37 37 39 37 35 35 66 36 64 33 39 65 32 31 39  3779755f6d39e219
a680: 62 37 30 37 39 0a 0a 74 63 6c 74 65 73 74 3a 3a  b7079..tcltest::
a690: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34  test Hash_SHA384
a6a0: 2d 32 2e 31 30 39 20 7b 53 48 41 33 38 34 53 68  -2.109 {SHA384Sh
a6b0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
a6c0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
a6d0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
a6e0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
a6f0: 65 20 68 65 78 20 66 66 62 63 37 63 34 37 66 35  e hex ffbc7c47f5
a700: 32 65 36 39 66 35 63 36 36 37 66 34 65 64 35 37  2e69f5c667f4ed57
a710: 38 62 34 36 66 66 34 35 39 32 30 34 38 66 37 38  8b46ff4592048f78
a720: 39 30 38 31 66 33 66 62 33 39 33 32 31 64 30 61  9081f3fb39321d0a
a730: 61 34 36 32 37 61 36 64 34 66 32 36 31 39 30 35  a4627a6d4f261905
a740: 36 34 39 34 31 30 61 35 33 61 33 30 31 63 32 33  649410a53a301c23
a750: 31 66 61 37 38 37 61 65 35 35 63 30 34 66 36 31  1fa787ae55c04f61
a760: 35 61 38 66 38 34 31 39 36 63 65 63 66 32 38 34  5a8f84196cecf284
a770: 34 64 32 33 30 30 37 62 34 34 65 64 64 38 39 32  4d23007b44edd892
a780: 36 34 39 66 63 38 65 64 31 30 61 32 65 38 35 35  649fc8ed10a2e855
a790: 62 66 32 33 66 65 38 61 66 64 30 62 39 65 64 62  bf23fe8afd0b9edb
a7a0: 62 33 33 32 39 36 66 35 61 37 63 66 38 39 66 39  b33296f5a7cf89f9
a7b0: 34 36 33 34 64 39 64 31 61 32 62 38 63 61 63 33  4634d9d1a2b8cac3
a7c0: 62 37 66 34 65 35 34 36 66 32 33 32 39 62 5d 7d  b7f4e546f2329b]}
a7d0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
a7e0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
a7f0: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74  HA384 -data $dat
a800: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
a810: 63 74 20 2d 72 65 73 75 6c 74 20 62 65 31 30 63  ct -result be10c
a820: 37 62 61 66 39 34 36 30 38 34 30 38 61 30 61 63  7baf94608408a0ac
a830: 63 66 62 63 38 63 65 39 35 65 31 35 39 64 30 38  cfbc8ce95e159d08
a840: 64 38 63 61 37 35 64 64 36 63 32 37 33 66 39 33  d8ca75dd6c273f93
a850: 35 39 34 37 61 37 65 63 33 34 36 33 65 31 30 61  5947a7ec3463e10a
a860: 35 38 64 33 63 65 61 61 30 62 32 31 39 38 62 30  58d3ceaa0b2198b0
a870: 38 38 37 61 33 61 32 34 61 32 39 0a 0a 74 63 6c  887a3a24a29..tcl
a880: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
a890: 53 48 41 33 38 34 2d 32 2e 31 31 30 20 7b 53 48  SHA384-2.110 {SH
a8a0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
a8b0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
a8c0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
a8d0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
a8e0: 20 64 65 63 6f 64 65 20 68 65 78 20 61 33 39 66   decode hex a39f
a8f0: 32 30 32 64 38 36 36 65 38 65 39 36 37 36 35 66  202d866e8e96765f
a900: 62 62 35 33 62 36 37 37 32 35 33 37 64 65 63 30  bb53b6772537dec0
a910: 34 33 33 32 32 66 34 61 37 34 37 35 32 34 37 30  43322f4a74752470
a920: 33 36 64 37 34 39 35 63 39 38 37 38 35 30 63 65  36d7495c987850ce
a930: 66 32 61 34 36 32 31 38 64 33 66 61 62 33 36 65  f2a46218d3fab36e
a940: 33 62 63 64 35 39 35 63 30 61 63 61 35 65 39 38  3bcd595c0aca5e98
a950: 62 39 64 62 31 34 66 61 34 38 34 63 61 38 63 39  b9db14fa484ca8c9
a960: 37 37 32 64 66 61 33 38 33 39 66 37 61 63 33 30  772dfa3839f7ac30
a970: 36 36 37 32 37 61 35 30 62 30 64 35 63 39 33 33  66727a50b0d5c933
a980: 64 38 32 66 38 32 66 31 32 32 30 37 32 30 65 38  d82f82f1220720e8
a990: 30 36 33 66 30 38 62 63 32 38 33 66 31 39 39 63  063f08bc283f199c
a9a0: 38 61 34 66 38 35 63 37 30 30 34 33 64 66 34 66  8a4f85c70043df4f
a9b0: 65 35 35 65 37 35 31 64 30 64 37 31 64 66 33 36  e55e751d0d71df36
a9c0: 66 61 34 33 64 38 5d 7d 20 5c 0a 09 2d 62 6f 64  fa43d8]} \..-bod
a9d0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
a9e0: 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64  digest SHA384 -d
a9f0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
aa00: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
aa10: 6c 74 20 33 62 32 36 36 34 63 63 62 35 35 35 61  lt 3b2664ccb555a
aa20: 31 62 31 66 33 65 63 39 39 36 38 36 30 31 34 36  1b1f3ec996860146
aa30: 65 61 37 35 65 66 37 66 33 62 64 36 32 30 32 38  ea75ef7f3bd62028
aa40: 61 31 39 63 32 36 66 36 33 33 33 39 33 39 39 66  a19c26f63339399f
aa50: 34 32 37 35 61 30 37 66 33 63 30 36 34 64 33 34  4275a07f3c064d34
aa60: 37 36 36 65 62 65 38 65 34 64 64 35 33 32 66 36  766ebe8e4dd532f6
aa70: 36 32 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  629..tcltest::te
aa80: 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32  st Hash_SHA384-2
aa90: 2e 31 31 31 20 7b 53 48 41 33 38 34 53 68 6f 72  .111 {SHA384Shor
aaa0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
aab0: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09  aints SHA384 \..
aac0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
aad0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
aae0: 68 65 78 20 62 32 63 38 32 36 31 38 35 33 65 32  hex b2c8261853e2
aaf0: 32 31 38 64 66 61 31 33 35 63 62 35 33 38 37 38  218dfa135cb53878
ab00: 31 30 33 35 32 62 38 39 36 32 65 39 34 65 39 66  10352b8962e94e9f
ab10: 64 63 38 36 39 35 62 34 31 65 37 64 62 61 36 61  dc8695b41e7dba6a
ab20: 64 31 32 32 64 31 34 66 64 64 30 64 32 33 36 30  d122d14fdd0d2360
ab30: 64 63 63 30 33 39 63 63 63 65 38 62 33 37 66 61  dcc039ccce8b37fa
ab40: 30 65 61 64 36 63 63 63 38 35 62 63 32 36 32 36  0ead6ccc85bc2626
ab50: 31 64 34 37 63 62 61 61 37 38 62 39 32 35 63 36  1d47cbaa78b925c6
ab60: 65 33 38 30 66 65 66 31 38 35 36 66 65 64 33 31  e380fef1856fed31
ab70: 64 63 36 31 36 66 65 31 36 62 32 30 33 39 62 31  dc616fe16b2039b1
ab80: 61 63 38 35 63 64 65 65 34 63 65 30 34 63 30 34  ac85cdee4ce04c04
ab90: 39 37 39 39 38 62 34 31 33 32 31 38 36 38 64 62  97998b41321868db
aba0: 30 38 65 33 35 66 33 35 38 36 30 36 35 38 35 65  08e35f358606585e
abb0: 30 62 62 38 63 33 64 61 39 61 33 62 65 37 61 36  0bb8c3da9a3be7a6
abc0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
abd0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
abe0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
abf0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
ac00: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 35 62  xact -result 45b
ac10: 32 38 36 66 34 39 66 64 30 35 63 34 35 63 39 32  286f49fd05c45c92
ac20: 31 62 37 62 66 64 62 65 32 63 62 30 32 34 34 34  1b7bfdbe2cb02444
ac30: 31 63 33 37 32 65 30 37 33 39 34 64 63 63 63 61  1c372e07394dccca
ac40: 65 30 64 65 38 33 34 63 64 35 34 31 66 31 33 61  e0de834cd541f13a
ac50: 37 39 64 62 62 33 65 35 30 37 38 38 39 36 65 38  79dbb3e5078896e8
ac60: 38 34 33 38 35 34 32 62 64 32 66 31 32 0a 0a 74  8438542bd2f12..t
ac70: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
ac80: 68 5f 53 48 41 33 38 34 2d 32 2e 31 31 32 20 7b  h_SHA384-2.112 {
ac90: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
aca0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
acb0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
acc0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
acd0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 30  ry decode hex a0
ace0: 34 66 33 39 30 61 39 63 63 32 65 66 66 61 64 30  4f390a9cc2effad0
acf0: 35 64 62 38 30 64 39 30 37 36 61 38 64 34 62 36  5db80d9076a8d4b6
ad00: 63 63 38 62 62 61 39 37 62 32 37 62 34 32 33 36  cc8bba97b27b4236
ad10: 37 30 62 32 39 30 62 38 65 36 39 63 32 62 31 38  70b290b8e69c2b18
ad20: 37 32 33 30 30 31 31 63 31 34 38 31 61 63 38 38  7230011c1481ac88
ad30: 64 30 39 30 66 33 39 31 35 34 36 35 39 34 39 34  d090f39154659494
ad40: 64 62 35 65 34 31 30 38 35 31 63 36 65 38 62 32  db5e410851c6e8b2
ad50: 62 38 61 39 33 37 31 37 63 61 65 37 36 30 33 37  b8a93717cae76037
ad60: 65 30 38 38 31 39 37 38 31 32 34 66 65 37 65 31  e0881978124fe7e1
ad70: 61 30 39 32 39 64 38 38 39 31 34 39 31 66 34 65  a0929d8891491f4e
ad80: 39 39 36 34 36 63 63 39 34 30 36 32 64 63 38 32  99646cc94062dc82
ad90: 34 31 31 66 61 36 36 31 33 30 65 64 61 34 36 35  411fa66130eda465
ada0: 36 30 65 37 35 62 39 38 30 34 38 32 33 36 34 33  60e75b9804823643
adb0: 39 34 36 35 31 32 35 65 37 33 37 62 5d 7d 20 5c  9465125e737b]} \
adc0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
add0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
ade0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
adf0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
ae00: 20 2d 72 65 73 75 6c 74 20 65 37 30 38 39 64 37   -result e7089d7
ae10: 32 39 34 35 63 65 66 38 35 31 65 36 38 39 62 34  2945cef851e689b4
ae20: 34 30 39 63 66 62 36 33 64 31 33 35 66 30 62 35  409cfb63d135f0b5
ae30: 63 64 66 62 30 64 61 63 36 63 33 61 32 39 32 64  cdfb0dac6c3a292d
ae40: 64 37 30 33 37 31 61 62 34 62 37 39 64 61 31 39  d70371ab4b79da19
ae50: 39 37 64 37 39 39 32 39 30 36 61 63 37 32 31 33  97d7992906ac7213
ae60: 35 30 32 36 36 32 39 32 30 0a 0a 74 63 6c 74 65  502662920..tclte
ae70: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
ae80: 41 33 38 34 2d 32 2e 31 31 33 20 7b 53 48 41 33  A384-2.113 {SHA3
ae90: 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  84ShortMsg} \..-
aea0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33  constraints SHA3
aeb0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
aec0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
aed0: 65 63 6f 64 65 20 68 65 78 20 66 34 31 39 34 39  ecode hex f41949
aee0: 34 63 33 63 36 64 30 37 32 37 62 33 33 39 35 61  4c3c6d0727b3395a
aef0: 34 38 33 61 32 31 36 37 31 38 32 61 37 32 35 32  483a2167182a7252
af00: 66 34 66 64 30 39 39 63 32 64 34 62 37 31 62 30  f4fd099c2d4b71b0
af10: 35 33 66 39 34 62 62 38 62 33 61 64 66 33 62 35  53f94bb8b3adf3b5
af20: 31 65 38 34 36 30 63 66 65 63 30 38 34 63 65 39  1e8460cfec084ce9
af30: 34 31 35 63 39 35 37 39 38 66 62 61 65 34 39 37  415c95798fbae497
af40: 35 63 32 30 38 63 35 34 34 36 34 35 62 35 34 63  5c208c544645b54c
af50: 34 34 64 32 62 39 37 66 32 65 63 66 63 65 35 63  44d2b97f2ecfce5c
af60: 38 30 35 62 65 36 31 66 35 62 61 31 64 33 35 64  805be61f5ba1d35d
af70: 63 63 30 37 61 66 64 64 35 31 61 38 37 62 61 61  cc07afdd51a87baa
af80: 39 39 30 35 30 36 36 36 38 63 66 37 31 30 65 31  990506668cf710e1
af90: 38 62 65 39 62 30 65 62 66 39 34 33 66 33 36 36  8be9b0ebf943f366
afa0: 66 61 32 39 63 36 39 66 37 61 36 36 31 36 64 65  fa29c69f7a6616de
afb0: 37 32 61 33 33 35 33 62 36 36 5d 7d 20 5c 0a 09  72a3353b66]} \..
afc0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
afd0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38  st -digest SHA38
afe0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
aff0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
b000: 72 65 73 75 6c 74 20 61 65 61 64 38 36 38 38 63  result aead8688c
b010: 35 38 63 36 62 61 34 65 39 63 61 64 62 34 37 35  58c6ba4e9cadb475
b020: 36 62 34 36 35 64 63 65 30 66 62 30 36 66 31 63  6b465dce0fb06f1c
b030: 66 61 61 34 37 38 31 39 37 66 32 65 61 38 39 34  faa478197f2ea894
b040: 31 34 65 34 37 65 39 35 37 32 30 33 34 61 64 66  14e47e9572034adf
b050: 65 64 31 36 30 37 30 33 63 37 39 62 38 32 62 33  ed160703c79b82b3
b060: 66 64 37 61 62 37 38 0a 0a 74 63 6c 74 65 73 74  fd7ab78..tcltest
b070: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
b080: 38 34 2d 32 2e 31 31 34 20 7b 53 48 41 33 38 34  84-2.114 {SHA384
b090: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
b0a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
b0b0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
b0c0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
b0d0: 6f 64 65 20 68 65 78 20 61 61 66 37 35 38 34 64  ode hex aaf7584d
b0e0: 35 33 30 30 36 63 62 66 32 64 32 30 34 30 65 35  53006cbf2d2040e5
b0f0: 31 62 37 66 65 65 62 64 32 62 62 66 31 65 39 66  1b7feebd2bbf1e9f
b100: 36 64 38 31 37 63 64 38 30 36 32 61 36 61 39 36  6d817cd8062a6a96
b110: 38 30 65 37 66 31 30 34 36 34 65 65 66 65 62 35  80e7f10464eefeb5
b120: 30 62 30 37 63 62 34 36 62 31 34 62 39 62 33 66  0b07cb46b14b9b3f
b130: 63 62 32 63 61 61 33 62 39 61 62 36 36 34 34 39  cb2caa3b9ab66449
b140: 30 31 31 35 64 35 39 31 39 34 35 36 36 31 33 62  0115d5919456613b
b150: 66 31 37 32 62 35 38 63 35 33 38 38 66 64 35 32  f172b58c5388fd52
b160: 36 34 36 61 35 37 38 33 35 33 35 62 38 38 32 31  646a5783535b8821
b170: 32 37 31 37 65 66 36 30 35 33 31 34 62 37 30 62  2717ef605314b70b
b180: 38 61 30 38 35 30 32 34 64 34 61 62 31 66 63 62  8a085024d4ab1fcb
b190: 65 32 62 65 37 34 36 30 39 65 34 63 62 64 65 63  e2be74609e4cbdec
b1a0: 30 37 33 30 66 61 62 64 33 63 64 37 37 31 35 31  0730fabd3cd77151
b1b0: 64 36 34 37 61 33 37 36 37 62 5d 7d 20 5c 0a 09  d647a3767b]} \..
b1c0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
b1d0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38  st -digest SHA38
b1e0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
b1f0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
b200: 72 65 73 75 6c 74 20 65 36 65 37 39 64 38 63 36  result e6e79d8c6
b210: 31 64 30 65 61 39 66 63 37 30 64 64 34 64 65 63  1d0ea9fc70dd4dec
b220: 31 66 61 34 33 32 38 34 39 63 33 33 39 36 65 37  1fa432849c3396e7
b230: 31 37 62 31 37 30 62 61 64 62 64 38 37 61 34 63  17b170badbd87a4c
b240: 37 39 37 34 65 66 63 35 39 30 61 62 38 63 31 31  7974efc590ab8c11
b250: 38 33 61 36 32 33 32 62 65 66 66 31 34 35 33 34  83a6232beff14534
b260: 66 30 30 34 62 30 32 0a 0a 74 63 6c 74 65 73 74  f004b02..tcltest
b270: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33  ::test Hash_SHA3
b280: 38 34 2d 32 2e 31 31 35 20 7b 53 48 41 33 38 34  84-2.115 {SHA384
b290: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
b2a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34  nstraints SHA384
b2b0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
b2c0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
b2d0: 6f 64 65 20 68 65 78 20 61 34 36 37 66 37 37 33  ode hex a467f773
b2e0: 36 39 37 33 30 32 30 31 66 32 38 31 32 32 30 34  69730201f2812204
b2f0: 66 64 36 33 61 64 30 64 32 37 35 37 62 65 35 38  fd63ad0d2757be58
b300: 30 64 39 33 37 64 66 65 62 32 32 31 61 30 36 62  0d937dfeb221a06b
b310: 32 31 65 64 33 32 31 33 35 33 31 64 39 33 36 31  21ed3213531d9361
b320: 35 32 61 30 63 31 66 30 39 66 30 61 64 35 66 65  52a0c1f09f0ad5fe
b330: 64 31 39 66 64 31 31 65 38 30 61 64 39 38 32 63  d19fd11e80ad982c
b340: 36 31 32 30 33 65 38 36 62 32 35 30 38 32 37 39  61203e86b2508279
b350: 64 39 31 64 39 39 66 61 34 38 33 65 32 65 39 37  d91d99fa483e2e97
b360: 61 33 64 36 61 36 61 64 32 35 34 38 61 38 64 61  a3d6a6ad2548a8da
b370: 34 30 34 64 64 64 62 35 38 33 34 34 66 34 62 64  404dddb58344f4bd
b380: 63 31 63 39 65 61 39 30 37 30 38 38 38 38 35 65  c1c9ea907088885e
b390: 34 66 35 33 32 64 39 63 34 63 37 33 63 64 66 64  4f532d9c4c73cdfd
b3a0: 61 34 33 63 33 61 39 65 34 63 65 35 61 32 38 30  a43c3a9e4ce5a280
b3b0: 39 30 39 36 35 39 33 63 66 61 63 31 5d 7d 20 5c  9096593cfac1]} \
b3c0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
b3d0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
b3e0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
b3f0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
b400: 20 2d 72 65 73 75 6c 74 20 35 61 37 35 30 38 63   -result 5a7508c
b410: 32 63 63 30 39 36 62 66 36 35 61 34 64 34 64 33  2cc096bf65a4d4d3
b420: 33 37 61 65 61 32 32 30 30 38 65 64 62 39 61 33  37aea22008edb9a3
b430: 62 61 65 38 36 39 66 39 34 65 30 39 66 62 35 32  bae869f94e09fb52
b440: 36 61 35 32 63 33 33 36 38 65 39 62 32 38 35 37  6a52c3368e9b2857
b450: 36 66 62 39 35 30 66 30 37 38 62 37 65 34 33 62  6fb950f078b7e43b
b460: 35 35 36 32 31 32 30 65 36 0a 0a 74 63 6c 74 65  5562120e6..tclte
b470: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
b480: 41 33 38 34 2d 32 2e 31 31 36 20 7b 53 48 41 33  A384-2.116 {SHA3
b490: 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  84ShortMsg} \..-
b4a0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33  constraints SHA3
b4b0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
b4c0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
b4d0: 65 63 6f 64 65 20 68 65 78 20 30 31 61 62 63 39  ecode hex 01abc9
b4e0: 30 65 39 31 38 30 66 63 39 62 62 38 65 61 36 37  0e9180fc9bb8ea67
b4f0: 61 34 30 35 30 37 33 65 64 36 38 34 38 62 66 33  a405073ed6848bf3
b500: 33 30 34 38 30 37 36 35 36 36 34 37 36 63 35 35  3048076566476c55
b510: 38 33 36 62 63 62 31 39 64 33 65 35 35 65 39 34  836bcb19d3e55e94
b520: 30 30 63 35 63 63 36 35 37 62 63 37 61 39 35 66  00c5cc657bc7a95f
b530: 31 64 37 30 33 63 33 39 30 66 35 61 38 36 38 37  1d703c390f5a8687
b540: 65 37 63 64 37 66 65 39 31 33 38 65 61 33 38 33  e7cd7fe9138ea383
b550: 37 62 66 63 61 64 61 64 36 32 35 38 61 33 65 62  7bfcadad6258a3eb
b560: 38 64 36 35 31 32 31 66 61 38 33 31 39 62 66 64  8d65121fa8319bfd
b570: 65 35 33 32 61 65 63 30 65 36 39 34 39 36 31 62  e532aec0e694961b
b580: 64 64 64 32 62 36 37 33 66 32 38 34 31 32 34 62  ddd2b673f284124b
b590: 65 35 37 38 31 31 30 30 66 34 30 33 38 31 62 36  e5781100f40381b6
b5a0: 66 66 39 39 64 62 39 32 65 61 39 63 63 38 32 61  ff99db92ea9cc82a
b5b0: 34 33 37 32 65 35 33 39 32 34 64 61 63 33 39 38  4372e53924dac398
b5c0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
b5d0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
b5e0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
b5f0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
b600: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 36 62  xact -result 96b
b610: 32 30 39 64 37 63 62 32 63 32 30 33 33 62 33 38  209d7cb2c2033b38
b620: 33 35 30 37 34 34 37 36 37 66 61 35 63 32 35 33  350744767fa5c253
b630: 65 31 62 66 64 62 39 39 66 65 38 34 31 38 62 66  e1bfdb99fe8418bf
b640: 66 38 33 38 30 34 64 66 30 32 32 34 38 31 34 30  f83804df02248140
b650: 66 65 33 62 37 37 62 30 62 66 64 34 61 37 39 62  fe3b77b0bfd4a79b
b660: 35 31 66 37 30 34 30 35 61 34 33 34 62 0a 0a 74  51f70405a434b..t
b670: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
b680: 68 5f 53 48 41 33 38 34 2d 32 2e 31 31 37 20 7b  h_SHA384-2.117 {
b690: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
b6a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
b6b0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
b6c0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
b6d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 35  ry decode hex b5
b6e0: 35 35 64 39 39 30 35 36 33 36 32 62 66 63 32 62  55d99056362bfc2b
b6f0: 61 63 32 61 31 62 62 62 37 31 62 61 31 31 32 64  ac2a1bbb71ba112d
b700: 36 34 34 65 35 30 62 38 32 62 30 31 35 65 35 61  644e50b82b015e5a
b710: 31 63 65 33 64 39 63 64 35 65 39 30 62 38 62 37  1ce3d9cd5e90b8b7
b720: 34 62 30 38 64 33 32 31 31 39 62 61 61 36 32 61  4b08d32119baa62a
b730: 62 61 65 32 35 31 66 63 30 30 31 35 65 34 30 30  bae251fc0015e400
b740: 30 35 31 61 64 61 34 65 63 61 66 63 65 33 36 38  051ada4ecafce368
b750: 31 65 35 64 65 37 32 37 63 32 30 64 34 37 66 35  1e5de727c20d47f5
b760: 63 61 64 63 36 36 33 64 34 36 61 63 36 38 32 30  cadc663d46ac6820
b770: 32 32 63 61 33 39 36 61 34 62 37 65 64 31 63 34  22ca396a4b7ed1c4
b780: 31 33 65 30 62 37 32 62 64 37 65 65 63 34 61 30  13e0b72bd7eec4a0
b790: 64 66 64 63 32 61 32 31 38 35 61 62 62 35 64 39  dfdc2a2185abb5d9
b7a0: 39 61 66 64 35 30 39 34 30 35 32 38 63 61 37 35  9afd50940528ca75
b7b0: 61 64 38 39 64 61 65 62 39 61 31 62 36 31 65 31  ad89daeb9a1b61e1
b7c0: 35 37 34 37 66 30 5d 7d 20 5c 0a 09 2d 62 6f 64  5747f0]} \..-bod
b7d0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
b7e0: 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64  digest SHA384 -d
b7f0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
b800: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
b810: 6c 74 20 61 62 64 33 39 66 37 39 64 37 32 63 36  lt abd39f79d72c6
b820: 63 64 32 65 38 65 31 33 30 66 33 36 30 33 30 33  cd2e8e130f360303
b830: 32 66 65 33 63 65 66 34 31 37 37 63 33 35 36 33  2fe3cef4177c3563
b840: 39 33 30 30 39 36 64 66 31 66 31 30 62 38 37 65  930096df1f10b87e
b850: 37 39 63 64 34 65 32 30 35 39 63 66 31 62 39 66  79cd4e2059cf1b9f
b860: 38 32 35 32 31 38 34 62 62 32 36 66 36 35 39 61  8252184bb26f659a
b870: 35 64 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  5da..tcltest::te
b880: 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32  st Hash_SHA384-2
b890: 2e 31 31 38 20 7b 53 48 41 33 38 34 53 68 6f 72  .118 {SHA384Shor
b8a0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
b8b0: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09  aints SHA384 \..
b8c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
b8d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
b8e0: 68 65 78 20 31 34 66 62 30 31 61 65 39 64 36 30  hex 14fb01ae9d60
b8f0: 31 35 65 63 62 33 65 35 36 64 36 65 63 64 66 61  15ecb3e56d6ecdfa
b900: 34 62 63 30 35 33 33 31 38 36 61 64 66 38 34 35  4bc0533186adf845
b910: 37 66 35 65 34 61 35 63 35 37 63 36 38 37 38 39  7f5e4a5c57c68789
b920: 35 66 33 64 62 33 39 35 64 30 36 61 65 37 66 66  5f3db395d06ae7ff
b930: 62 64 36 37 65 63 34 31 34 35 32 30 30 39 35 35  bd67ec4145200955
b940: 30 64 66 63 31 38 37 38 65 65 63 30 64 66 32 65  0dfc1878eec0df2e
b950: 65 61 62 30 39 65 38 36 36 35 66 37 65 35 39 66  eab09e8665f7e59f
b960: 39 31 34 38 61 38 36 62 32 62 63 36 39 35 62 33  9148a86b2bc695b3
b970: 36 35 32 31 61 35 35 62 32 33 30 32 66 32 65 38  6521a55b2302f2e8
b980: 36 39 61 61 63 38 33 66 31 34 64 36 66 65 61 66  69aac83f14d6feaf
b990: 63 39 65 35 38 37 33 32 32 63 33 63 34 34 66 30  c9e587322c3c44f0
b9a0: 35 32 65 61 31 63 30 35 37 38 38 38 34 66 38 34  52ea1c0578884f84
b9b0: 66 35 36 33 30 37 62 63 36 64 64 65 33 31 62 61  f56307bc6dde31ba
b9c0: 34 38 31 31 38 61 30 66 36 32 62 36 66 64 5d 7d  48118a0f62b6fd]}
b9d0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
b9e0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
b9f0: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74  HA384 -data $dat
ba00: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
ba10: 63 74 20 2d 72 65 73 75 6c 74 20 66 63 39 62 39  ct -result fc9b9
ba20: 61 39 35 61 38 63 65 31 63 31 35 37 37 32 30 63  a95a8ce1c157720c
ba30: 62 36 33 31 30 31 61 37 35 39 34 64 66 32 34 66  b63101a7594df24f
ba40: 34 63 63 37 34 62 61 66 37 33 35 62 30 63 63 66  4cc74baf735b0ccf
ba50: 36 61 62 62 39 32 35 34 37 38 61 64 35 30 37 63  6abb925478ad507c
ba60: 64 30 34 38 64 33 30 63 64 65 31 63 37 38 38 38  d048d30cde1c7888
ba70: 30 36 66 34 33 65 64 33 61 38 31 0a 0a 74 63 6c  06f43ed3a81..tcl
ba80: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
ba90: 53 48 41 33 38 34 2d 32 2e 31 31 39 20 7b 53 48  SHA384-2.119 {SH
baa0: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
bab0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
bac0: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
bad0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
bae0: 20 64 65 63 6f 64 65 20 68 65 78 20 31 31 61 65   decode hex 11ae
baf0: 30 63 62 66 65 65 37 62 62 33 64 66 39 30 63 65  0cbfee7bb3df90ce
bb00: 35 38 35 66 30 39 62 39 63 66 38 66 66 35 62 65  585f09b9cf8ff5be
bb10: 61 36 39 61 36 38 65 65 62 36 63 32 32 35 35 33  a69a68eeb6c22553
bb20: 66 38 65 64 31 31 38 63 39 61 36 31 65 37 62 37  f8ed118c9a61e7b7
bb30: 35 32 63 63 32 63 39 34 66 33 38 37 36 36 65 36  52cc2c94f38766e6
bb40: 33 65 31 62 38 39 31 64 66 61 30 35 62 32 33 33  3e1b891dfa05b233
bb50: 34 37 62 36 31 37 64 34 32 66 64 65 33 65 63 31  47b617d42fde3ec1
bb60: 37 65 65 61 36 65 37 36 64 33 63 62 36 34 30 62  7eea6e76d3cb640b
bb70: 66 38 66 61 34 36 35 38 36 66 62 39 64 64 35 63  f8fa46586fb9dd5c
bb80: 34 64 39 62 66 65 65 30 34 63 34 36 34 39 35 37  4d9bfee04c464957
bb90: 31 62 37 38 31 37 30 39 66 38 34 38 61 64 37 30  1b781709f848ad70
bba0: 38 31 61 66 62 36 65 32 63 37 34 36 66 30 37 31  81afb6e2c746f071
bbb0: 61 35 35 31 32 35 31 30 35 30 66 64 35 64 66 37  a551251050fd5df7
bbc0: 32 65 65 36 35 32 34 38 65 63 64 63 32 34 66 32  2ee65248ecdc24f2
bbd0: 63 62 65 37 34 65 64 35 5d 7d 20 5c 0a 09 2d 62  cbe74ed5]} \..-b
bbe0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
bbf0: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20   -digest SHA384 
bc00: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
bc10: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
bc20: 73 75 6c 74 20 33 32 31 34 62 35 66 65 65 63 39  sult 3214b5feec9
bc30: 32 35 30 35 39 31 34 39 66 61 38 35 32 65 33 61  25059149fa852e3a
bc40: 65 32 38 35 61 36 65 62 33 37 37 64 66 39 32 36  e285a6eb377df926
bc50: 35 30 34 65 32 66 38 32 34 35 37 32 61 33 61 65  504e2f824572a3ae
bc60: 62 64 32 30 35 30 61 32 30 31 34 34 65 37 62 65  bd2050a20144e7be
bc70: 64 65 37 65 37 66 65 32 33 38 65 65 38 33 65 36  de7e7fe238ee83e6
bc80: 39 66 37 32 63 0a 0a 74 63 6c 74 65 73 74 3a 3a  9f72c..tcltest::
bc90: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34  test Hash_SHA384
bca0: 2d 32 2e 31 32 30 20 7b 53 48 41 33 38 34 53 68  -2.120 {SHA384Sh
bcb0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
bcc0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
bcd0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
bce0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
bcf0: 65 20 68 65 78 20 61 35 63 34 61 34 37 61 30 34  e hex a5c4a47a04
bd00: 66 34 37 31 34 32 36 39 64 35 64 39 32 32 62 61  f4714269d5d922ba
bd10: 34 36 39 34 30 36 30 61 61 32 64 66 34 39 31 39  4694060aa2df4919
bd20: 33 37 32 30 63 38 31 39 66 61 63 39 33 62 62 38  3720c819fac93bb8
bd30: 37 38 37 65 63 35 35 61 31 30 37 61 63 39 61 36  787ec55a107ac9a6
bd40: 36 30 32 66 30 30 34 35 66 64 32 63 63 38 65 36  602f0045fd2cc8e6
bd50: 36 37 34 34 62 66 38 36 33 63 65 64 39 31 65 65  6744bf863ced91ee
bd60: 61 62 65 36 30 65 37 64 32 63 31 64 38 30 32 37  abe60e7d2c1d8027
bd70: 36 65 63 66 33 62 62 65 39 31 66 31 37 35 37 30  6ecf3bbe91f17570
bd80: 39 36 63 66 35 38 39 32 31 34 66 33 35 36 39 63  96cf589214f3569c
bd90: 32 63 34 38 62 64 37 34 62 65 37 66 38 62 65 66  2c48bd74be7f8bef
bda0: 64 64 62 32 38 33 39 35 38 31 34 37 38 30 61 34  ddb28395814780a4
bdb0: 37 63 31 38 30 61 35 38 62 30 64 30 32 37 36 61  7c180a58b0d0276a
bdc0: 37 65 39 38 37 33 64 36 38 32 66 34 37 33 65 32  7e9873d682f473e2
bdd0: 37 64 65 37 32 37 35 63 39 32 35 65 64 65 32 33  7de7275c925ede23
bde0: 62 36 63 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  b6cc]} \..-body 
bdf0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
be00: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
be10: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
be20: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
be30: 20 36 62 64 39 65 31 33 30 33 35 37 39 64 38 31   6bd9e1303579d81
be40: 35 66 35 38 65 38 63 36 63 39 38 35 35 38 35 30  5f58e8c6c9855850
be50: 31 33 33 32 35 31 37 37 38 61 36 33 32 66 37 62  133251778a632f7b
be60: 33 31 32 63 34 62 33 31 36 33 62 32 39 62 35 65  312c4b3163b29b5e
be70: 66 36 63 62 39 35 31 31 61 30 38 61 33 31 61 32  f6cb9511a08a31a2
be80: 33 37 64 39 61 37 36 30 34 61 66 62 66 61 30 35  37d9a7604afbfa05
be90: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
bea0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
beb0: 32 31 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d  21 {SHA384ShortM
bec0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
bed0: 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73  nts SHA384 \..-s
bee0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
bef0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
bf00: 78 20 37 35 32 36 34 37 37 34 61 66 36 39 65 63  x 75264774af69ec
bf10: 37 65 65 33 31 32 35 65 32 30 35 62 64 36 64 31  7ee3125e205bd6d1
bf20: 63 62 38 66 64 62 32 32 66 37 65 61 36 64 62 65  cb8fdb22f7ea6dbe
bf30: 37 32 64 31 66 32 63 30 66 37 65 32 32 30 35 39  72d1f2c0f7e22059
bf40: 30 32 37 39 36 64 37 35 65 33 37 39 63 37 39 62  02796d75e379c79b
bf50: 31 31 34 39 38 36 31 35 63 32 31 63 39 66 35 32  11498615c21c9f52
bf60: 62 38 37 36 31 61 38 38 35 65 65 63 63 36 39 64  b8761a885eecc69d
bf70: 31 33 32 62 32 62 34 38 63 36 33 62 63 30 37 34  132b2b48c63bc074
bf80: 63 33 30 35 35 65 65 35 63 63 31 33 66 35 31 64  c3055ee5cc13f51d
bf90: 36 63 39 38 37 65 38 31 38 38 62 30 33 30 62 38  6c987e8188b030b8
bfa0: 33 37 65 38 66 37 35 34 64 34 30 31 32 32 62 34  37e8f754d40122b4
bfb0: 35 31 66 31 35 62 32 38 63 64 32 62 64 64 35 37  51f15b28cd2bdd57
bfc0: 36 39 32 30 65 31 64 65 35 38 30 36 35 39 33 61  6920e1de5806593a
bfd0: 33 36 64 38 65 31 65 38 39 62 39 65 66 33 63 61  36d8e1e89b9ef3ca
bfe0: 65 66 65 65 35 61 63 64 38 30 62 33 65 39 63 39  efee5acd80b3e9c9
bff0: 64 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  d1]} \..-body {t
c000: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
c010: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20  st SHA384 -data 
c020: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
c030: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66   exact -result f
c040: 66 61 39 65 34 65 38 35 36 64 30 36 32 32 37 63  fa9e4e856d06227c
c050: 31 63 63 62 39 35 39 62 65 35 35 38 33 30 39 63  1ccb959be558309c
c060: 63 31 30 36 33 33 31 37 33 66 34 62 36 36 63 65  c10633173f4b66ce
c070: 62 33 38 32 39 32 33 62 35 32 62 39 31 35 30 61  b382923b52b9150a
c080: 63 66 62 30 38 61 37 33 39 33 35 30 30 34 37 37  cfb08a7393500477
c090: 61 36 65 65 34 34 32 35 61 38 32 37 65 37 36 0a  a6ee4425a827e76.
c0a0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
c0b0: 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 32 32  ash_SHA384-2.122
c0c0: 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67   {SHA384ShortMsg
c0d0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
c0e0: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74  s SHA384 \..-set
c0f0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
c100: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
c110: 37 39 31 61 33 36 64 37 34 38 36 39 35 65 36 32  791a36d748695e62
c120: 64 62 35 30 30 33 61 38 61 64 33 36 37 64 66 31  db5003a8ad367df1
c130: 66 30 35 31 63 31 61 63 36 61 32 31 64 37 31 31  f051c1ac6a21d711
c140: 38 32 33 65 38 65 30 36 39 62 35 34 36 65 33 66  823e8e069b546e3f
c150: 61 30 36 63 65 65 61 61 65 30 36 64 65 37 30 61  a06ceeaae06de70a
c160: 31 64 65 32 34 39 65 31 64 66 66 64 30 64 39 34  1de249e1dffd0d94
c170: 30 65 64 63 36 61 63 61 63 30 30 63 34 63 31 35  0edc6acac00c4c15
c180: 35 30 34 63 30 32 64 34 62 30 39 33 33 36 35 38  504c02d4b0933658
c190: 30 30 35 34 32 33 34 35 35 66 30 30 30 32 33 62  005423455f00023b
c1a0: 30 31 63 64 63 35 62 36 38 31 62 36 30 38 33 33  01cdc5b681b60833
c1b0: 37 39 63 32 34 35 39 35 35 31 38 61 34 37 63 36  79c24595518a47c6
c1c0: 35 34 66 35 65 31 61 31 30 39 34 37 64 66 31 30  54f5e1a10947df10
c1d0: 63 30 35 61 33 64 37 31 36 62 32 61 39 37 33 66  c05a3d716b2a973f
c1e0: 61 66 39 38 65 31 65 65 33 62 36 37 35 38 31 36  af98e1ee3b675816
c1f0: 35 39 38 62 62 38 64 34 63 32 61 33 62 30 36 65  598bb8d4c2a3b06e
c200: 62 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  b7]} \..-body {t
c210: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
c220: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20  st SHA384 -data 
c230: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
c240: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66   exact -result f
c250: 38 64 33 33 33 36 39 36 38 30 35 32 34 65 64 36  8d33369680524ed6
c260: 63 36 61 37 31 36 64 34 63 35 30 32 64 65 33 65  c6a716d4c502de3e
c270: 61 63 38 39 31 66 33 34 30 66 34 30 65 38 32 65  ac891f340f40e82e
c280: 33 37 35 30 31 62 65 31 61 39 30 66 62 36 31 64  37501be1a90fb61d
c290: 32 36 65 35 64 61 61 66 65 39 32 62 63 36 65 66  26e5daafe92bc6ef
c2a0: 35 65 63 30 61 65 34 33 31 31 36 38 38 34 32 0a  5ec0ae431168842.
c2b0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
c2c0: 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31 32 33  ash_SHA384-2.123
c2d0: 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67   {SHA384ShortMsg
c2e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
c2f0: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74  s SHA384 \..-set
c300: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
c310: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
c320: 37 34 63 64 38 36 62 62 65 64 31 34 64 38 39 35  74cd86bbed14d895
c330: 33 30 31 64 38 61 35 34 62 32 39 35 36 62 31 63  301d8a54b2956b1c
c340: 35 63 64 31 34 35 31 65 65 62 61 62 36 32 30 62  5cd1451eebab620b
c350: 39 37 38 64 34 65 63 65 66 32 63 62 64 66 37 61  978d4ecef2cbdf7a
c360: 31 34 33 36 37 33 38 31 66 35 65 65 37 39 32 38  14367381f5ee7928
c370: 31 61 37 37 33 33 33 37 37 34 30 66 62 39 66 35  1a773337740fb9f5
c380: 38 35 33 66 34 32 35 33 63 34 62 31 39 66 36 38  853f4253c4b19f68
c390: 34 33 34 31 30 38 31 64 38 66 35 36 31 62 32 61  4341081d8f561b2a
c3a0: 64 37 37 33 32 32 34 31 35 31 30 39 39 35 38 38  d773224151099588
c3b0: 64 61 39 30 65 30 34 64 64 64 64 35 36 35 66 36  da90e04dddd565f6
c3c0: 37 35 39 36 63 35 33 36 64 36 34 63 35 62 38 37  7596c536d64c5b87
c3d0: 65 39 34 38 30 61 64 34 33 36 30 31 33 39 37 35  e9480ad436013975
c3e0: 30 37 61 64 31 62 36 31 63 61 30 65 33 34 39 66  07ad1b61ca0e349f
c3f0: 62 38 38 66 31 39 66 65 62 34 38 66 37 37 30 36  b88f19feb48f7706
c400: 37 36 66 64 35 36 32 65 65 38 32 35 39 66 35 30  76fd562ee8259f50
c410: 64 30 63 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d0c9]} \..-body 
c420: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
c430: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74  gest SHA384 -dat
c440: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
c450: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
c460: 20 37 33 65 65 38 64 32 39 63 33 30 38 32 31 64   73ee8d29c30821d
c470: 63 64 66 61 34 34 34 31 36 33 39 66 30 33 37 66  cdfa4441639f037f
c480: 62 36 62 61 33 61 39 63 61 35 39 36 64 63 34 33  b6ba3a9ca596dc43
c490: 34 32 38 30 34 33 37 38 35 37 35 36 36 30 38 66  428043785756608f
c4a0: 36 32 30 37 64 38 30 62 37 66 37 38 65 35 37 33  6207d80b7f78e573
c4b0: 31 37 34 66 62 39 64 66 64 34 32 66 30 62 38 63  174fb9dfd42f0b8c
c4c0: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
c4d0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32 2e 31   Hash_SHA384-2.1
c4e0: 32 34 20 7b 53 48 41 33 38 34 53 68 6f 72 74 4d  24 {SHA384ShortM
c4f0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
c500: 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73  nts SHA384 \..-s
c510: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
c520: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
c530: 78 20 34 36 36 31 32 65 31 61 34 64 30 31 36 63  x 46612e1a4d016c
c540: 34 31 37 30 30 61 33 62 35 63 63 62 33 38 33 32  41700a3b5ccb3832
c550: 33 33 35 33 62 64 38 64 61 35 62 39 39 34 32 63  3353bd8da5b9942c
c560: 39 63 39 32 31 32 64 66 34 30 62 34 62 65 65 30  9c9212df40b4bee0
c570: 36 62 65 33 36 32 61 31 35 64 61 64 36 32 63 38  6be362a15dad62c8
c580: 62 32 39 32 34 64 37 38 39 31 36 38 62 32 64 33  b2924d789168b2d3
c590: 32 35 66 65 33 35 62 64 35 31 30 30 65 31 65 32  25fe35bd5100e1e2
c5a0: 39 66 31 61 63 30 66 61 37 61 36 30 61 39 34 63  9f1ac0fa7a60a94c
c5b0: 39 65 65 65 35 61 37 30 63 63 63 62 63 37 35 61  9eee5a70cccbc75a
c5c0: 63 32 31 34 62 31 39 34 36 61 35 36 37 39 63 62  c214b1946a5679cb
c5d0: 35 32 33 62 33 37 38 64 35 63 36 39 30 37 35 31  523b378d5c690751
c5e0: 62 37 61 37 61 33 62 38 30 64 34 31 33 37 31 32  b7a7a3b80d413712
c5f0: 66 65 61 65 37 30 32 34 63 65 37 31 64 36 32 39  feae7024ce71d629
c600: 35 61 33 64 35 64 31 36 35 31 35 63 33 36 32 32  5a3d5d16515c3622
c610: 61 30 35 32 65 62 38 36 32 65 62 64 61 62 38 31  a052eb862ebdab81
c620: 63 61 37 66 65 33 61 30 5d 7d 20 5c 0a 09 2d 62  ca7fe3a0]} \..-b
c630: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
c640: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20   -digest SHA384 
c650: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
c660: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
c670: 73 75 6c 74 20 63 61 63 31 33 61 33 37 38 34 32  sult cac13a37842
c680: 32 35 62 65 30 33 64 35 32 36 66 39 61 62 63 31  25be03d526f9abc1
c690: 65 62 35 30 61 37 36 32 65 37 32 63 30 65 30 31  eb50a762e72c0e01
c6a0: 31 37 32 61 31 35 64 35 37 38 38 30 31 30 38 39  172a15d578801089
c6b0: 65 35 63 39 66 32 36 65 35 33 63 63 30 30 66 66  e5c9f26e53cc00ff
c6c0: 37 35 35 39 30 39 34 35 33 65 32 39 36 34 64 37  755909453e2964d7
c6d0: 64 66 38 33 38 0a 0a 74 63 6c 74 65 73 74 3a 3a  df838..tcltest::
c6e0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34  test Hash_SHA384
c6f0: 2d 32 2e 31 32 35 20 7b 53 48 41 33 38 34 53 68  -2.125 {SHA384Sh
c700: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
c710: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c  traints SHA384 \
c720: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
c730: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
c740: 65 20 68 65 78 20 31 61 38 35 37 63 31 66 31 30  e hex 1a857c1f10
c750: 35 64 30 36 38 63 65 61 62 30 62 31 65 31 32 34  5d068ceab0b1e124
c760: 39 34 38 39 30 65 63 31 39 36 33 36 32 61 34 38  94890ec196362a48
c770: 62 30 32 30 30 61 30 64 37 35 64 37 31 32 62 31  b0200a0d75d712b1
c780: 38 66 62 31 34 62 65 63 36 62 62 35 62 36 38 61  8fb14bec6bb5b68a
c790: 33 33 62 37 65 30 62 34 66 64 63 35 62 37 37 31  33b7e0b4fdc5b771
c7a0: 34 32 63 32 39 63 36 64 39 31 35 31 62 39 66 38  42c29c6d9151b9f8
c7b0: 38 34 66 35 39 35 35 31 66 34 37 36 65 35 32 35  84f59551f476e525
c7c0: 36 39 38 36 61 36 35 33 64 34 61 34 36 38 66 32  6986a653d4a468f2
c7d0: 38 31 34 31 65 64 39 35 34 37 32 31 66 32 63 64  8141ed954721f2cd
c7e0: 30 32 30 35 34 64 66 30 34 33 38 37 33 38 31 39  02054df043873819
c7f0: 34 35 34 35 65 64 37 30 32 33 34 31 37 33 61 63  4545ed70234173ac
c800: 34 39 38 38 62 37 64 36 32 38 31 32 64 65 34 66  4988b7d62812de4f
c810: 32 66 65 61 64 61 31 34 66 36 38 65 33 62 34 31  2feada14f68e3b41
c820: 62 63 39 39 34 38 64 34 31 33 39 66 34 66 62 34  bc9948d4139f4fb4
c830: 64 61 35 39 33 39 66 32 36 63 30 32 36 31 5d 7d  da5939f26c0261]}
c840: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
c850: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
c860: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74  HA384 -data $dat
c870: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
c880: 63 74 20 2d 72 65 73 75 6c 74 20 62 37 35 64 39  ct -result b75d9
c890: 32 62 35 63 64 33 37 37 32 38 34 36 66 37 62 36  2b5cd3772846f7b6
c8a0: 38 30 36 34 61 33 35 36 37 61 65 34 33 65 35 30  8064a3567ae43e50
c8b0: 31 30 30 39 39 66 32 62 36 34 39 66 33 35 30 38  10099f2b649f3508
c8c0: 37 65 37 35 39 32 61 65 65 63 31 37 36 36 34 36  7e7592aeec176646
c8d0: 66 63 38 63 32 36 32 39 32 38 38 39 34 34 32 36  fc8c262928894426
c8e0: 31 63 64 33 35 62 35 66 63 62 61 0a 0a 74 63 6c  1cd35b5fcba..tcl
c8f0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
c900: 53 48 41 33 38 34 2d 32 2e 31 32 36 20 7b 53 48  SHA384-2.126 {SH
c910: 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A384ShortMsg} \.
c920: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
c930: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A384 \..-setup {
c940: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
c950: 20 64 65 63 6f 64 65 20 68 65 78 20 39 64 33 36   decode hex 9d36
c960: 38 31 38 64 30 63 35 61 30 30 38 62 65 37 39 30  818d0c5a008be790
c970: 34 64 31 39 31 37 61 61 33 65 63 63 62 35 65 66  4d1917aa3eccb5ef
c980: 34 66 33 38 63 65 63 62 38 63 34 65 36 33 63 34  4f38cecb8c4e63c4
c990: 62 32 65 39 62 34 62 30 39 31 61 33 62 66 32 35  b2e9b4b091a3bf25
c9a0: 62 34 65 64 30 33 33 32 34 34 35 66 38 39 34 63  b4ed0332445f894c
c9b0: 32 61 34 63 32 35 38 62 37 34 39 61 66 61 31 37  2a4c258b749afa17
c9c0: 66 61 64 30 33 63 64 64 34 31 37 31 33 61 38 36  fad03cdd41713a86
c9d0: 39 66 38 39 39 62 61 39 61 30 38 35 65 37 33 66  9f899ba9a085e73f
c9e0: 61 39 34 37 34 61 35 38 64 62 37 61 39 35 30 64  a9474a58db7a950d
c9f0: 33 61 32 33 38 36 62 36 30 66 37 39 34 39 35 64  3a2386b60f79495d
ca00: 38 62 66 37 33 65 37 32 61 63 61 66 66 64 62 66  8bf73e72acaffdbf
ca10: 36 35 65 31 39 38 39 66 66 39 63 63 32 30 36 62  65e1989ff9cc206b
ca20: 61 38 63 34 36 61 33 36 38 64 38 35 31 32 62 61  a8c46a368d8512ba
ca30: 63 37 63 37 63 31 39 31 64 37 31 33 61 63 61 39  c7c7c191d713aca9
ca40: 34 39 64 34 35 64 66 32 39 37 62 31 62 36 35 39  49d45df297b1b659
ca50: 34 61 31 61 33 33 5d 7d 20 5c 0a 09 2d 62 6f 64  4a1a33]} \..-bod
ca60: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
ca70: 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64  digest SHA384 -d
ca80: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
ca90: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
caa0: 6c 74 20 61 38 38 64 61 38 34 34 35 37 39 66 33  lt a88da844579f3
cab0: 65 33 37 32 35 64 30 30 64 61 61 38 65 31 65 32  e3725d00daa8e1e2
cac0: 38 37 64 61 34 62 66 62 62 32 64 39 33 31 65 62  87da4bfbb2d931eb
cad0: 65 38 64 33 62 31 36 30 32 31 31 35 34 62 65 35  e8d3b16021154be5
cae0: 30 33 33 34 31 64 36 33 37 31 64 33 38 32 61 64  03341d6371d382ad
caf0: 61 37 34 34 66 38 36 66 35 62 62 62 35 36 63 64  a744f86f5bbb56cd
cb00: 63 66 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  cfa..tcltest::te
cb10: 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 32  st Hash_SHA384-2
cb20: 2e 31 32 37 20 7b 53 48 41 33 38 34 53 68 6f 72  .127 {SHA384Shor
cb30: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
cb40: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09  aints SHA384 \..
cb50: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
cb60: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
cb70: 68 65 78 20 34 61 65 35 30 65 64 36 32 36 65 65  hex 4ae50ed626ee
cb80: 36 30 64 63 35 65 61 35 35 36 65 33 63 65 30 64  60dc5ea556e3ce0d
cb90: 33 63 31 38 62 39 65 36 32 32 35 62 35 36 32 30  3c18b9e6225b5620
cba0: 38 31 34 65 38 62 39 36 32 31 61 63 66 38 66 39  814e8b9621acf8f9
cbb0: 33 39 64 64 33 37 30 61 64 39 63 37 36 32 30 64  39dd370ad9c7620d
cbc0: 38 35 65 36 64 36 37 61 32 32 39 66 33 37 66 35  85e6d67a229f37f5
cbd0: 31 37 64 31 62 35 38 30 61 63 61 65 38 64 66 30  17d1b580acae8df0
cbe0: 62 35 63 39 64 32 39 64 37 35 36 66 36 64 35 65  b5c9d29d756f6d5e
cbf0: 62 64 33 62 36 33 62 35 35 34 65 35 35 36 34 36  bd3b63b554e55646
cc00: 39 62 35 62 34 66 38 65 37 31 31 33 62 61 64 31  9b5b4f8e7113bad1
cc10: 35 35 39 66 62 32 35 34 63 61 38 32 37 66 63 64  559fb254ca827fcd
cc20: 30 30 34 32 35 64 31 38 62 30 62 65 37 66 32 62  00425d18b0be7f2b
cc30: 34 38 63 32 35 34 34 63 34 38 64 39 30 39 38 32  48c2544c48d90982
cc40: 65 63 36 32 34 66 34 39 30 62 65 36 35 65 38 39  ec624f490be65e89
cc50: 33 66 61 39 33 61 63 39 34 36 37 66 33 35 61 30  3fa93ac9467f35a0
cc60: 61 38 65 31 62 35 36 64 39 61 34 30 33 37 34 38  a8e1b56d9a403748
cc70: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
cc80: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
cc90: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64   SHA384 -data $d
cca0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
ccb0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 38 63  xact -result f8c
ccc0: 64 39 34 33 66 34 32 39 33 33 33 63 37 63 38 64  d943f429333c7c8d
ccd0: 33 30 61 38 35 37 36 38 32 37 66 39 32 63 39 32  30a8576827f92c92
cce0: 61 65 31 38 65 30 64 62 63 61 65 37 37 30 36 30  ae18e0dbcae77060
ccf0: 31 62 37 39 36 38 37 62 63 63 66 38 63 32 33 65  1b79687bccf8c23e
cd00: 39 65 35 38 39 64 66 65 62 34 35 63 33 62 39 62  9e589dfeb45c3b9b
cd10: 63 61 66 64 64 35 34 35 65 34 35 65 37 0a 0a 74  cafdd545e45e7..t
cd20: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
cd30: 68 5f 53 48 41 33 38 34 2d 32 2e 31 32 38 20 7b  h_SHA384-2.128 {
cd40: 53 48 41 33 38 34 53 68 6f 72 74 4d 73 67 7d 20  SHA384ShortMsg} 
cd50: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
cd60: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70  SHA384 \..-setup
cd70: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
cd80: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 62  ry decode hex db
cd90: 65 64 37 36 31 32 34 34 38 64 34 36 63 62 65 30  ed7612448d46cbe0
cda0: 61 33 38 34 64 31 63 39 33 32 33 33 66 30 32 66  a384d1c93233f02f
cdb0: 66 64 31 63 39 38 34 62 61 37 36 35 32 39 39 35  fd1c984ba7652995
cdc0: 31 38 36 35 36 64 33 37 32 33 62 37 36 36 63 31  18656d3723b766c1
cdd0: 36 35 38 64 34 62 31 65 37 30 34 37 63 64 63 37  658d4b1e7047cdc7
cde0: 32 39 34 35 39 65 33 36 36 65 66 39 33 34 39 65  29459e366ef9349e
cdf0: 66 63 34 30 63 62 64 39 39 30 66 32 61 39 61 32  fc40cbd990f2a9a2
ce00: 34 64 62 37 61 35 30 34 35 65 31 64 65 61 31 32  4db7a5045e1dea12
ce10: 64 63 65 38 66 39 64 39 66 32 61 61 65 64 39 33  dce8f9d9f2aaed93
ce20: 33 66 39 33 30 33 31 65 37 62 38 39 35 39 61 63  3f93031e7b8959ac
ce30: 35 65 37 62 66 36 62 62 62 64 66 33 30 62 34 38  5e7bf6bbbdf30b48
ce40: 66 37 65 62 37 38 33 66 38 66 65 32 39 32 33 37  f7eb783f8fe29237
ce50: 31 61 32 66 32 34 35 63 35 63 39 34 62 34 61 63  1a2f245c5c94b4ac
ce60: 61 65 31 36 30 37 36 37 61 32 30 63 65 37 63 30  ae160767a20ce7c0
ce70: 65 61 37 37 32 33 64 39 37 36 39 31 64 38 65 65  ea7723d97691d8ee
ce80: 64 64 61 39 65 66 64 31 66 65 32 64 5d 7d 20 5c  dda9efd1fe2d]} \
ce90: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
cea0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
ceb0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  384 -data $data}
cec0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
ced0: 20 2d 72 65 73 75 6c 74 20 66 62 35 33 31 61 31   -result fb531a1
cee0: 65 64 31 38 31 63 37 33 32 33 31 31 65 35 36 66  ed181c732311e56f
cef0: 34 62 35 36 65 64 39 31 64 63 61 63 63 30 64 64  4b56ed91dcacc0dd
cf00: 36 62 66 31 65 62 34 61 34 34 62 65 36 66 38 37  6bf1eb4a44be6f87
cf10: 64 64 37 63 62 31 65 66 39 64 66 62 30 33 31 30  dd7cb1ef9dfb0310
cf20: 66 34 61 37 39 65 61 61 61 33 66 33 32 62 66 33  f4a79eaaa3f32bf3
cf30: 39 31 34 64 38 36 32 34 65 0a 0a 74 63 6c 74 65  914d8624e..tclte
cf40: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
cf50: 41 33 38 34 2d 32 2e 31 32 39 20 7b 53 48 41 33  A384-2.129 {SHA3
cf60: 38 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  84ShortMsg} \..-
cf70: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33  constraints SHA3
cf80: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  84 \..-setup {se
cf90: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
cfa0: 65 63 6f 64 65 20 68 65 78 20 33 62 66 35 32 63  ecode hex 3bf52c
cfb0: 63 35 65 65 38 36 62 39 61 30 31 39 30 66 33 39  c5ee86b9a0190f39
cfc0: 30 61 35 63 30 33 36 36 61 35 36 30 62 35 35 37  0a5c0366a560b557
cfd0: 30 30 30 64 62 65 35 31 31 35 66 64 39 65 65 31  000dbe5115fd9ee1
cfe0: 31 36 33 30 61 36 32 37 36 39 30 31 31 35 37 35  1630a62769011575
cff0: 66 31 35 38 38 31 31 39 38 66 32 32 37 38 37 36  f15881198f227876
d000: 65 38 66 65 36 38 35 61 36 39 33 39 62 63 38 62  e8fe685a6939bc8b
d010: 38 39 66 64 34 38 61 33 34 65 63 35 65 37 31 65  89fd48a34ec5e71e
d020: 31 33 31 34 36 32 62 32 38 38 36 37 39 34 64 66  131462b2886794df
d030: 66 61 36 38 63 63 63 36 64 35 36 34 37 33 33 65  fa68ccc6d564733e
d040: 36 37 66 66 65 66 32 35 65 36 32 37 63 36 66 34  67ffef25e627c6f4
d050: 62 35 34 36 30 37 39 36 65 33 62 63 65 36 37 62  b5460796e3bce67b
d060: 66 35 38 63 61 36 65 38 65 35 35 35 62 63 39 31  f58ca6e8e555bc91
d070: 36 61 38 35 33 31 36 39 37 61 63 39 34 38 62 39  6a8531697ac948b9
d080: 30 64 63 38 36 31 36 66 32 35 31 30 31 64 62 39  0dc8616f25101db9
d090: 30 62 35 30 63 33 64 33 64 62 63 39 65 32 31 65  0b50c3d3dbc9e21e
d0a0: 34 32 66 66 33 38 37 31 38 37 5d 7d 20 5c 0a 09  42ff387187]} \..
d0b0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
d0c0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38  st -digest SHA38
d0d0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
d0e0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
d0f0: 72 65 73 75 6c 74 20 31 32 62 36 63 62 33 35 65  result 12b6cb35e
d100: 64 61 39 32 65 65 33 37 33 35 36 64 64 65 65 37  da92ee37356ddee7
d110: 37 37 38 31 61 31 37 62 33 64 39 30 65 35 36 33  7781a17b3d90e563
d120: 38 32 34 61 39 38 34 66 61 66 66 63 36 66 64 64  824a984faffc6fdd
d130: 31 36 39 33 62 64 37 36 32 36 30 33 39 36 33 35  1693bd7626039635
d140: 35 36 33 63 66 63 33 62 39 61 32 62 30 30 66 39  563cfc3b9a2b00f9
d150: 63 36 35 65 65 66 64 0a 0a 23 20 43 6c 65 61 6e  c65eefd..# Clean
d160: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c  up.::tcltest::cl
d170: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72  eanupTests.retur
d180: 6e 0a                                            n.
Powered by Fossil · RSS