Artifact e55e8f47d173995e9fe1ba74e304ed66028e3b7d272ae80aa579c1b153868ad1:

• File tests/test_vectors/Hash/SHA512_224ShortMsg.test — part of check-in [8440f589be] at 2024-02-11 21:24:47 on branch crypto — Updated test cases for OpenSSL 3.0. Added load legacy provider for obsolete algorithms. (user: bohagan, size: 50550) [annotate] [blame] [check-ins using]

0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64  # Auto generated
0010: 20 66 72 6f 6d 20 22 53 48 41 35 31 32 5f 32 32   from "SHA512_22
0020: 34 53 68 6f 72 74 4d 73 67 2e 72 73 70 22 0a 6c  4ShortMsg.rsp".l
0030: 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 74 68  append auto_path
0040: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b   [file dirname [
0050: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69  file dirname [fi
0060: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65  le dirname [file
0070: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 6a   dirname [file j
0080: 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f 20  oin [pwd] [info 
0090: 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 63  script]]]]]].pac
00a0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73  kage require tls
00b0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65  .package require
00c0: 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73   tcltest..tcltes
00d0: 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e  t::testConstrain
00e0: 74 20 53 48 41 35 31 32 5f 32 32 34 20 5b 65 78  t SHA512_224 [ex
00f0: 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f  pr {[lsearch -no
0100: 63 61 73 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73  case [tls::diges
0110: 74 73 5d 20 53 48 41 35 31 32 2d 32 32 34 5d 20  ts] SHA512-224] 
0120: 3e 20 2d 31 7d 5d 0a 63 61 74 63 68 20 7b 74 6c  > -1}].catch {tl
0130: 73 3a 3a 70 72 6f 76 69 64 65 72 20 6c 65 67 61  s::provider lega
0140: 63 79 7d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  cy}..tcltest::te
0150: 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32  st Hash_SHA512-2
0160: 32 34 2d 32 2e 31 20 7b 53 48 41 35 31 32 5f 32  24-2.1 {SHA512_2
0170: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
0180: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
0190: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12_224 \..-setup
01a0: 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 5c   {set data ""} \
01b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
01c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
01d0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
01e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
01f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 65 64  xact -result 6ed
0200: 30 64 64 30 32 38 30 36 66 61 38 39 65 32 35 64  0dd02806fa89e25d
0210: 65 30 36 30 63 31 39 64 33 61 63 38 36 63 61 62  e060c19d3ac86cab
0220: 62 38 37 64 36 61 30 64 64 64 30 35 63 33 33 33  b87d6a0ddd05c333
0230: 62 38 34 66 34 0a 0a 74 63 6c 74 65 73 74 3a 3a  b84f4..tcltest::
0240: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
0250: 2d 32 32 34 2d 32 2e 32 20 7b 53 48 41 35 31 32  -224-2.2 {SHA512
0260: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
0270: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0280: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-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 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  cf]} \..-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 35 31 32 2d 32 32 34 20 2d 64  st SHA512-224 -d
02e0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
02f0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0300: 6c 74 20 34 31 39 39 32 33 39 65 38 37 64 34 37  lt 4199239e87d47
0310: 62 36 66 65 64 61 30 31 36 38 30 32 62 66 33 36  b6feda016802bf36
0320: 37 66 62 36 65 38 62 35 36 35 35 65 66 66 36 32  7fb6e8b5655eff62
0330: 32 35 63 62 32 36 36 38 66 34 61 0a 0a 74 63 6c  25cb2668f4a..tcl
0340: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0350: 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 33 20 7b  SHA512-224-2.3 {
0360: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
0370: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0380: 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c  nts SHA512_224 \
0390: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
03a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
03b0: 65 20 68 65 78 20 63 61 32 64 5d 7d 20 5c 0a 09  e hex ca2d]} \..
03c0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
03d0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31  st -digest SHA51
03e0: 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  2-224 -data $dat
03f0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
0400: 63 74 20 2d 72 65 73 75 6c 74 20 33 39 32 62 39  ct -result 392b9
0410: 39 62 35 39 33 62 38 35 65 31 34 37 66 30 33 31  9b593b85e147f031
0420: 39 38 36 63 32 61 39 65 64 66 64 62 34 66 66 64  986c2a9edfdb4ffd
0430: 39 66 32 34 63 37 37 63 34 35 32 64 33 33 39 63  9f24c77c452d339c
0440: 39 66 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  9fc..tcltest::te
0450: 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32  st Hash_SHA512-2
0460: 32 34 2d 32 2e 34 20 7b 53 48 41 35 31 32 5f 32  24-2.4 {SHA512_2
0470: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
0480: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
0490: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12_224 \..-setup
04a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
04b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 39  ry decode hex 49
04c0: 37 36 30 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7604]} \..-body 
04d0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
04e0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
04f0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0500: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0510: 73 75 6c 74 20 61 39 63 33 34 35 64 35 38 61 39  sult a9c345d58a9
0520: 35 39 61 66 32 30 61 34 32 63 38 34 65 32 38 35  59af20a42c84e285
0530: 32 33 62 61 34 37 65 33 62 66 38 66 61 64 38 65  23ba47e3bf8fad8e
0540: 38 63 33 66 33 32 62 37 61 37 32 61 65 0a 0a 74  8c3f32b7a72ae..t
0550: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0560: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 35  h_SHA512-224-2.5
0570: 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72   {SHA512_224Shor
0580: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
0590: 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34  aints SHA512_224
05a0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
05b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
05c0: 6f 64 65 20 68 65 78 20 63 32 65 62 30 63 38 38  ode hex c2eb0c88
05d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
05e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
05f0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
0600: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0610: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0620: 20 63 35 62 39 37 66 31 65 34 36 64 39 31 63 33   c5b97f1e46d91c3
0630: 39 34 30 62 65 38 63 66 65 66 31 65 34 39 62 61  940be8cfef1e49ba
0640: 61 37 37 62 34 37 35 64 62 39 34 33 65 34 39 66  a77b475db943e49f
0650: 30 30 63 64 64 62 65 37 32 0a 0a 74 63 6c 74 65  00cddbe72..tclte
0660: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0670: 41 35 31 32 2d 32 32 34 2d 32 2e 36 20 7b 53 48  A512-224-2.6 {SH
0680: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
0690: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
06a0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
06b0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
06c0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
06d0: 68 65 78 20 64 32 38 62 63 32 61 61 33 66 5d 7d  hex d28bc2aa3f]}
06e0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
06f0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
0700: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20  HA512-224 -data 
0710: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0720: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65   exact -result e
0730: 37 39 64 65 35 35 32 31 32 30 61 38 37 35 38 35  79de552120a87585
0740: 65 37 33 31 33 65 32 34 65 63 64 37 34 31 33 39  e7313e24ecd74139
0750: 61 33 62 65 39 62 61 32 38 31 32 39 33 36 63 34  a3be9ba2812936c4
0760: 62 33 33 63 61 32 33 0a 0a 74 63 6c 74 65 73 74  b33ca23..tcltest
0770: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35  ::test Hash_SHA5
0780: 31 32 2d 32 32 34 2d 32 2e 37 20 7b 53 48 41 35  12-224-2.7 {SHA5
0790: 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  12_224ShortMsg} 
07a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
07b0: 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73  SHA512_224 \..-s
07c0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
07d0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
07e0: 78 20 62 34 31 34 32 63 61 37 39 66 36 64 5d 7d  x b4142ca79f6d]}
07f0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
0800: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
0810: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20  HA512-224 -data 
0820: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0830: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32   exact -result 2
0840: 61 30 65 64 38 65 62 30 65 31 38 62 63 31 38 39  a0ed8eb0e18bc189
0850: 66 35 63 38 33 36 64 63 36 61 35 38 32 35 62 61  f5c836dc6a5825ba
0860: 61 36 66 37 32 38 36 66 61 35 62 39 36 38 39 62  a6f7286fa5b9689b
0870: 36 34 31 62 62 33 62 0a 0a 74 63 6c 74 65 73 74  641bb3b..tcltest
0880: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35  ::test Hash_SHA5
0890: 31 32 2d 32 32 34 2d 32 2e 38 20 7b 53 48 41 35  12-224-2.8 {SHA5
08a0: 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  12_224ShortMsg} 
08b0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
08c0: 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73  SHA512_224 \..-s
08d0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
08e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
08f0: 78 20 38 64 61 65 64 66 33 63 34 32 30 63 38 63  x 8daedf3c420c8c
0900: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0910: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0920: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
0930: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0940: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0950: 20 34 65 64 61 63 39 31 61 38 65 62 61 33 35 61   4edac91a8eba35a
0960: 31 34 33 31 65 66 34 64 34 39 37 30 35 64 62 31  1431ef4d49705db1
0970: 32 64 61 33 38 32 61 37 38 36 64 31 35 36 33 36  2da382a786d15636
0980: 37 37 34 63 62 64 37 30 38 0a 0a 74 63 6c 74 65  774cbd708..tclte
0990: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
09a0: 41 35 31 32 2d 32 32 34 2d 32 2e 39 20 7b 53 48  A512-224-2.9 {SH
09b0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
09c0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
09d0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
09e0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
09f0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0a00: 68 65 78 20 36 39 36 33 34 34 36 39 31 33 37 37  hex 696344691377
0a10: 31 34 31 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1410]} \..-body 
0a20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0a30: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
0a40: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0a50: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0a60: 73 75 6c 74 20 32 31 66 36 63 33 37 33 36 33 37  sult 21f6c373637
0a70: 65 36 61 35 65 38 39 64 36 65 38 38 38 31 31 31  e6a5e89d6e888111
0a80: 31 30 63 35 63 33 66 61 31 32 65 34 39 37 31 34  10c5c3fa12e49714
0a90: 34 39 31 32 39 31 34 63 35 34 36 65 31 0a 0a 74  4912914c546e1..t
0aa0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0ab0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
0ac0: 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  0 {SHA512_224Sho
0ad0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0ae0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
0af0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0b00: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0b10: 63 6f 64 65 20 68 65 78 20 36 66 33 31 36 61 62  code hex 6f316ab
0b20: 32 62 34 30 66 30 39 36 38 31 39 5d 7d 20 5c 0a  2b40f096819]} \.
0b30: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
0b40: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
0b50: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
0b60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0b70: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 38 39 39  act -result 5899
0b80: 35 34 32 65 39 61 37 38 64 31 34 30 33 39 32 39  542e9a78d1403929
0b90: 63 34 33 34 36 39 39 33 65 32 31 33 62 38 33 63  c4346993e213b83c
0ba0: 33 32 66 39 31 32 37 34 62 64 64 62 63 36 33 65  32f91274bddbc63e
0bb0: 34 31 39 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  4192..tcltest::t
0bc0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
0bd0: 32 32 34 2d 32 2e 31 31 20 7b 53 48 41 35 31 32  224-2.11 {SHA512
0be0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
0bf0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0c00: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
0c10: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
0c20: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
0c30: 35 38 31 39 61 37 37 66 61 31 61 38 66 39 63 33  5819a77fa1a8f9c3
0c40: 35 64 31 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5d17]} \..-body 
0c50: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0c60: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
0c70: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0c80: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0c90: 73 75 6c 74 20 32 65 39 34 34 61 35 63 35 33 34  sult 2e944a5c534
0ca0: 62 38 30 39 32 32 66 36 63 32 31 65 39 37 32 37  b80922f6c21e9727
0cb0: 37 62 34 61 30 31 61 34 61 30 66 61 36 35 32 64  7b4a01a4a0fa652d
0cc0: 36 64 34 30 62 33 37 66 62 30 66 63 39 0a 0a 74  6d40b37fb0fc9..t
0cd0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0ce0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
0cf0: 32 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  2 {SHA512_224Sho
0d00: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0d10: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
0d20: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0d30: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0d40: 63 6f 64 65 20 68 65 78 20 33 63 37 65 30 33 38  code hex 3c7e038
0d50: 34 30 31 66 61 37 34 63 36 63 30 36 65 34 31 5d  401fa74c6c06e41]
0d60: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0d70: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0d80: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
0d90: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0da0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0db0: 61 37 34 61 66 36 38 38 31 39 61 66 65 38 31 62  a74af68819afe81b
0dc0: 63 64 61 63 65 62 61 36 34 32 30 31 63 30 64 34  cdaceba64201c0d4
0dd0: 31 66 38 34 33 65 34 62 30 38 65 34 30 30 32 61  1f843e4b08e4002a
0de0: 33 37 35 62 65 37 36 31 0a 0a 74 63 6c 74 65 73  375be761..tcltes
0df0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0e00: 35 31 32 2d 32 32 34 2d 32 2e 31 33 20 7b 53 48  512-224-2.13 {SH
0e10: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
0e20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0e30: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
0e40: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
0e50: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0e60: 68 65 78 20 65 32 34 33 62 39 66 39 30 31 38 35  hex e243b9f90185
0e70: 35 34 34 37 66 61 32 61 66 33 30 32 5d 7d 20 5c  5447fa2af302]} \
0e80: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0e90: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0ea0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
0eb0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
0ec0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 33 30  xact -result 330
0ed0: 63 37 37 65 64 32 30 64 63 39 33 63 61 62 66 30  c77ed20dc93cabf0
0ee0: 64 66 33 34 34 32 63 36 32 30 63 39 64 66 35 63  df3442c620c9df5c
0ef0: 37 61 30 32 64 37 63 37 39 66 63 31 64 32 66 66  7a02d7c79fc1d2ff
0f00: 37 66 66 39 34 0a 0a 74 63 6c 74 65 73 74 3a 3a  7ff94..tcltest::
0f10: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
0f20: 2d 32 32 34 2d 32 2e 31 34 20 7b 53 48 41 35 31  -224-2.14 {SHA51
0f30: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
0f40: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0f50: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
0f60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0f70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0f80: 20 63 35 66 39 34 32 65 64 63 34 36 34 30 37 63   c5f942edc46407c
0f90: 36 30 31 39 63 64 39 32 36 61 30 5d 7d 20 5c 0a  6019cd926a0]} \.
0fa0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
0fb0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
0fc0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
0fd0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0fe0: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 31 38 30  act -result e180
0ff0: 61 30 64 38 33 36 38 33 63 62 37 65 37 39 64 38  a0d83683cb7e79d8
1000: 31 32 61 62 35 64 34 32 38 38 33 39 39 63 37 38  12ab5d4288399c78
1010: 38 39 35 63 36 61 39 31 38 65 39 39 61 32 38 33  895c6a918e99a283
1020: 39 31 35 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  9155..tcltest::t
1030: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
1040: 32 32 34 2d 32 2e 31 35 20 7b 53 48 41 35 31 32  224-2.15 {SHA512
1050: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
1060: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1070: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
1080: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1090: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
10a0: 65 35 37 64 34 63 34 37 38 61 64 36 61 36 34 62  e57d4c478ad6a64b
10b0: 38 62 66 33 33 35 32 65 37 35 62 36 5d 7d 20 5c  8bf3352e75b6]} \
10c0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
10d0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
10e0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
10f0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1100: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 38 62  xact -result 18b
1110: 33 65 38 66 35 61 31 66 62 36 30 33 63 36 37 30  3e8f5a1fb603c670
1120: 36 30 63 31 32 61 37 33 36 65 35 37 63 35 63 63  60c12a736e57c5cc
1130: 63 30 62 38 39 66 63 36 32 63 39 30 62 30 32 64  c0b89fc62c90b02d
1140: 64 39 32 36 62 0a 0a 74 63 6c 74 65 73 74 3a 3a  d926b..tcltest::
1150: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
1160: 2d 32 32 34 2d 32 2e 31 36 20 7b 53 48 41 35 31  -224-2.16 {SHA51
1170: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
1180: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1190: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
11a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
11b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
11c0: 20 33 32 64 30 34 39 39 32 38 61 35 38 33 62 35   32d049928a583b5
11d0: 62 39 35 34 37 38 35 38 30 35 64 38 62 32 36 5d  b954785805d8b26]
11e0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
11f0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1200: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
1210: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1220: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1230: 31 38 66 38 37 65 38 65 36 62 35 34 65 63 34 33  18f87e8e6b54ec43
1240: 33 36 34 34 32 66 37 36 65 64 61 30 62 33 32 64  36442f76eda0b32d
1250: 63 62 36 34 64 34 36 33 63 30 62 65 36 39 65 33  cb64d463c0be69e3
1260: 34 38 66 38 36 63 33 34 0a 0a 74 63 6c 74 65 73  48f86c34..tcltes
1270: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1280: 35 31 32 2d 32 32 34 2d 32 2e 31 37 20 7b 53 48  512-224-2.17 {SH
1290: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
12a0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
12b0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
12c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
12d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
12e0: 68 65 78 20 33 62 32 35 34 32 63 62 33 66 61 35  hex 3b2542cb3fa5
12f0: 36 30 64 64 30 64 37 39 36 64 35 39 65 65 31 35  60dd0d796d59ee15
1300: 31 66 65 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1fee]} \..-body 
1310: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1320: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1330: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1340: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1350: 73 75 6c 74 20 64 63 34 61 62 33 34 64 62 32 34  sult dc4ab34db24
1360: 31 62 33 66 63 32 30 35 35 63 35 34 66 37 30 61  1b3fc2055c54f70a
1370: 38 66 64 33 30 34 35 32 33 64 38 63 34 32 30 32  8fd304523d8c4202
1380: 38 35 32 66 35 66 30 37 37 36 34 34 66 0a 0a 74  852f5f077644f..t
1390: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
13a0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
13b0: 38 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  8 {SHA512_224Sho
13c0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
13d0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
13e0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
13f0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1400: 63 6f 64 65 20 68 65 78 20 65 63 62 65 33 36 37  code hex ecbe367
1410: 39 35 39 61 39 31 62 31 35 65 62 30 38 30 34 38  959a91b15eb08048
1420: 62 33 33 37 35 32 65 66 37 36 64 5d 7d 20 5c 0a  b33752ef76d]} \.
1430: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
1440: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
1450: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
1460: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1470: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 37 36 65  act -result b76e
1480: 61 61 37 64 64 65 34 35 65 64 35 30 63 30 37 62  aa7dde45ed50c07b
1490: 35 62 61 66 61 66 62 66 64 63 63 30 39 35 39 63  5bafafbfdcc0959c
14a0: 31 61 36 34 65 63 61 37 61 64 63 33 39 31 61 62  1a64eca7adc391ab
14b0: 61 32 34 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  a245..tcltest::t
14c0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
14d0: 32 32 34 2d 32 2e 31 39 20 7b 53 48 41 35 31 32  224-2.19 {SHA512
14e0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
14f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1500: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
1510: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1520: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
1530: 34 30 62 64 37 64 34 37 62 36 33 36 63 32 61 37  40bd7d47b636c2a7
1540: 34 39 61 32 34 37 66 64 64 61 37 35 38 30 37 63  49a247fdda75807c
1550: 32 33 38 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  238b]} \..-body 
1560: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1570: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1580: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1590: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
15a0: 73 75 6c 74 20 30 38 37 65 64 36 38 66 31 64 62  sult 087ed68f1db
15b0: 39 30 66 66 62 32 66 62 34 66 66 37 64 63 34 62  90ffb2fb4ff7dc4b
15c0: 31 37 66 65 30 38 31 30 30 62 36 34 33 38 33 38  17fe08100b643838
15d0: 35 30 33 37 38 65 66 35 34 33 33 33 39 0a 0a 74  50378ef543339..t
15e0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
15f0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 32  h_SHA512-224-2.2
1600: 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  0 {SHA512_224Sho
1610: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
1620: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
1630: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1640: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1650: 63 6f 64 65 20 68 65 78 20 33 33 31 63 38 39 33  code hex 331c893
1660: 39 65 66 36 38 35 61 65 30 65 66 63 64 34 30 33  9ef685ae0efcd403
1670: 30 33 37 38 61 38 62 30 61 62 37 32 30 63 37 5d  0378a8b0ab720c7]
1680: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1690: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
16a0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
16b0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
16c0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
16d0: 39 37 38 37 34 64 35 36 32 39 36 61 32 38 66 38  97874d56296a28f8
16e0: 64 66 32 38 30 34 34 38 66 37 36 61 39 65 38 30  df280448f76a9e80
16f0: 36 36 30 35 64 61 32 35 37 61 36 30 38 33 35 39  6605da257a608359
1700: 38 66 32 33 32 65 34 64 0a 0a 74 63 6c 74 65 73  8f232e4d..tcltes
1710: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1720: 35 31 32 2d 32 32 34 2d 32 2e 32 31 20 7b 53 48  512-224-2.21 {SH
1730: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
1740: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1750: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
1760: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
1770: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
1780: 68 65 78 20 32 36 36 33 34 64 31 65 62 33 63 63  hex 26634d1eb3cc
1790: 32 37 39 33 38 33 30 63 39 37 66 34 39 36 37 34  2793830c97f49674
17a0: 62 64 61 37 34 37 34 33 65 62 38 66 5d 7d 20 5c  bda74743eb8f]} \
17b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
17c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
17d0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
17e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
17f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 32 39  xact -result 829
1800: 34 62 31 31 32 35 38 38 64 66 62 39 63 35 35 33  4b112588dfb9c553
1810: 61 63 38 38 66 62 64 38 34 34 31 37 32 32 63 65  ac88fbd8441722ce
1820: 63 36 61 31 64 34 33 35 33 31 31 66 65 37 32 65  c6a1d435311fe72e
1830: 30 31 31 30 63 0a 0a 74 63 6c 74 65 73 74 3a 3a  0110c..tcltest::
1840: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
1850: 2d 32 32 34 2d 32 2e 32 32 20 7b 53 48 41 35 31  -224-2.22 {SHA51
1860: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
1870: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1880: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
1890: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
18a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
18b0: 20 36 32 65 64 32 33 61 62 38 38 63 33 30 66 65   62ed23ab88c30fe
18c0: 31 33 35 30 66 37 30 32 66 33 62 36 64 34 35 32  1350f702f3b6d452
18d0: 35 33 61 30 66 63 36 61 65 63 31 5d 7d 20 5c 0a  53a0fc6aec1]} \.
18e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
18f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
1900: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
1910: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1920: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 30 39 64  act -result 309d
1930: 62 37 30 36 33 38 37 37 31 65 32 65 65 63 33 30  b70638771e2eec30
1940: 39 61 62 66 64 61 32 31 39 65 35 66 31 33 62 61  9abfda219e5f13ba
1950: 63 35 66 61 39 64 35 65 38 34 65 37 32 37 37 36  c5fa9d5e84e72776
1960: 34 62 63 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  4bca..tcltest::t
1970: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
1980: 32 32 34 2d 32 2e 32 33 20 7b 53 48 41 35 31 32  224-2.23 {SHA512
1990: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
19a0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
19b0: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
19c0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
19d0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
19e0: 38 32 37 64 62 62 65 33 36 66 62 32 36 36 33 63  827dbbe36fb2663c
19f0: 39 35 65 61 66 38 31 63 37 63 65 34 34 31 64 63  95eaf81c7ce441dc
1a00: 61 36 36 34 30 35 30 35 30 61 64 38 5d 7d 20 5c  a66405050ad8]} \
1a10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1a20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1a30: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
1a40: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1a50: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 39 65  xact -result 39e
1a60: 37 38 36 61 39 33 64 63 39 30 65 39 36 34 37 31  786a93dc90e96471
1a70: 65 34 36 36 39 35 30 61 35 61 30 66 37 66 31 34  e466950a5a0f7f14
1a80: 32 63 61 36 39 63 31 32 35 31 62 39 33 32 65 38  2ca69c1251b932e8
1a90: 62 62 66 34 35 0a 0a 74 63 6c 74 65 73 74 3a 3a  bbf45..tcltest::
1aa0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
1ab0: 2d 32 32 34 2d 32 2e 32 34 20 7b 53 48 41 35 31  -224-2.24 {SHA51
1ac0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
1ad0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1ae0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
1af0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1b00: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1b10: 20 61 32 61 64 61 36 31 61 39 35 63 66 38 66 62   a2ada61a95cf8fb
1b20: 36 66 39 33 63 62 64 30 61 61 36 37 62 37 30 65  6f93cbd0aa67b70e
1b30: 32 38 36 64 63 38 35 33 61 66 61 35 31 66 38 5d  286dc853afa51f8]
1b40: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1b50: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1b60: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
1b70: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1b80: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1b90: 65 38 32 31 32 34 37 63 37 62 63 37 61 63 38 65  e821247c7bc7ac8e
1ba0: 66 30 37 66 62 33 31 61 63 32 35 66 62 34 38 61  f07fb31ac25fb48a
1bb0: 33 66 62 63 35 30 66 64 65 33 39 39 61 33 63 62  3fbc50fde399a3cb
1bc0: 35 38 38 39 35 34 35 66 0a 0a 74 63 6c 74 65 73  5889545f..tcltes
1bd0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1be0: 35 31 32 2d 32 32 34 2d 32 2e 32 35 20 7b 53 48  512-224-2.25 {SH
1bf0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
1c00: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
1c10: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
1c20: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
1c30: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
1c40: 68 65 78 20 35 36 33 33 65 65 37 62 38 38 37 30  hex 5633ee7b8870
1c50: 30 30 32 63 30 31 61 33 63 36 66 36 38 66 37 38  002c01a3c6f68f78
1c60: 31 32 66 31 33 61 64 66 65 30 62 66 36 66 61 37  12f13adfe0bf6fa7
1c70: 39 34 62 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  94bf]} \..-body 
1c80: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1c90: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1ca0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1cb0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1cc0: 73 75 6c 74 20 63 33 34 62 34 36 37 38 35 38 62  sult c34b467858b
1cd0: 36 35 32 30 32 66 64 38 63 37 33 66 66 61 63 36  65202fd8c73ffac6
1ce0: 37 63 64 38 65 65 35 35 31 31 38 64 31 32 62 65  7cd8ee55118d12be
1cf0: 62 32 62 31 31 30 62 36 33 61 65 34 33 0a 0a 74  b2b110b63ae43..t
1d00: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1d10: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 32  h_SHA512-224-2.2
1d20: 36 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  6 {SHA512_224Sho
1d30: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
1d40: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
1d50: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1d60: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1d70: 63 6f 64 65 20 68 65 78 20 64 61 31 64 64 31 65  code hex da1dd1e
1d80: 62 65 61 33 63 63 39 34 37 34 63 66 32 35 35 64  bea3cc9474cf255d
1d90: 63 32 33 65 33 35 36 39 35 30 32 36 65 38 36 64  c23e35695026e86d
1da0: 36 30 39 33 61 62 61 62 32 35 31 5d 7d 20 5c 0a  6093abab251]} \.
1db0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
1dc0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
1dd0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
1de0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
1df0: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 36 35 30  act -result e650
1e00: 38 30 32 66 32 39 61 64 32 30 62 39 30 30 31 34  802f29ad20b90014
1e10: 38 63 66 33 65 39 33 36 31 33 39 39 65 36 32 30  8cf3e9361399e620
1e20: 37 64 34 35 35 32 35 37 66 62 61 65 33 65 66 65  7d455257fbae3efe
1e30: 65 35 30 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  e50c..tcltest::t
1e40: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
1e50: 32 32 34 2d 32 2e 32 37 20 7b 53 48 41 35 31 32  224-2.27 {SHA512
1e60: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
1e70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1e80: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
1e90: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1ea0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
1eb0: 38 66 37 31 63 39 33 34 34 63 65 36 61 35 33 35  8f71c9344ce6a535
1ec0: 64 31 30 34 38 30 33 64 32 32 31 31 39 66 35 37  d104803d22119f57
1ed0: 62 35 66 39 34 37 37 65 32 35 33 38 31 37 61 35  b5f9477e253817a5
1ee0: 32 61 66 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  2afa]} \..-body 
1ef0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1f00: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1f10: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1f20: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1f30: 73 75 6c 74 20 36 62 33 61 32 38 38 62 64 38 34  sult 6b3a288bd84
1f40: 31 33 37 63 64 37 36 30 30 63 63 66 32 64 32 61  137cd7600ccf2d2a
1f50: 62 39 62 37 39 37 64 30 65 38 37 61 31 38 63 63  b9b797d0e87a18cc
1f60: 62 34 36 38 31 38 33 33 39 36 32 33 35 0a 0a 74  b468183396235..t
1f70: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1f80: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 32  h_SHA512-224-2.2
1f90: 38 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  8 {SHA512_224Sho
1fa0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
1fb0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
1fc0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1fd0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1fe0: 63 6f 64 65 20 68 65 78 20 64 36 36 38 61 32 31  code hex d668a21
1ff0: 37 38 30 35 39 34 30 32 34 64 62 30 32 35 64 63  780594024db025dc
2000: 62 33 37 33 65 66 33 36 33 39 62 63 64 35 37 34  b373ef3639bcd574
2010: 33 31 34 35 35 32 37 65 32 34 64 61 36 37 64 5d  3145527e24da67d]
2020: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2030: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2040: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
2050: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2060: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2070: 32 62 39 33 34 34 36 64 33 61 61 32 66 31 66 39  2b93446d3aa2f1f9
2080: 65 61 38 35 38 65 34 37 38 30 36 63 63 34 37 32  ea858e47806cc472
2090: 66 34 30 65 33 33 30 38 35 62 37 63 37 61 36 35  f40e33085b7c7a65
20a0: 32 32 63 66 36 35 34 38 0a 0a 74 63 6c 74 65 73  22cf6548..tcltes
20b0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
20c0: 35 31 32 2d 32 32 34 2d 32 2e 32 39 20 7b 53 48  512-224-2.29 {SH
20d0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
20e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
20f0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
2100: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
2110: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
2120: 68 65 78 20 30 33 66 38 63 66 39 38 30 33 35 65  hex 03f8cf98035e
2130: 61 63 31 35 38 66 66 31 38 66 64 39 33 62 34 34  ac158ff18fd93b44
2140: 63 64 62 36 32 31 35 39 37 32 35 35 64 37 63 33  cdb621597255d7c3
2150: 64 39 37 61 39 65 30 38 37 39 38 39 5d 7d 20 5c  d97a9e087989]} \
2160: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2170: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2180: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
2190: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
21a0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 31 66  xact -result e1f
21b0: 63 35 66 35 30 38 64 65 65 64 38 62 66 37 34 38  c5f508deed8bf748
21c0: 38 33 62 36 66 64 65 66 38 63 33 65 30 63 38 36  83b6fdef8c3e0c86
21d0: 33 30 36 65 37 66 31 64 36 33 30 30 63 63 65 34  306e7f1d6300cce4
21e0: 64 33 36 64 63 0a 0a 74 63 6c 74 65 73 74 3a 3a  d36dc..tcltest::
21f0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
2200: 2d 32 32 34 2d 32 2e 33 30 20 7b 53 48 41 35 31  -224-2.30 {SHA51
2210: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
2220: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2230: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
2240: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2250: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2260: 20 32 61 31 66 35 37 39 39 38 33 36 30 65 39 32   2a1f57998360e92
2270: 31 36 66 35 30 34 30 65 38 66 37 35 66 35 62 66  16f5040e8f75f5bf
2280: 66 62 61 34 33 36 38 65 65 65 64 65 64 65 35 34  fba4368eeedede54
2290: 61 61 30 62 62 30 35 38 61 34 33 5d 7d 20 5c 0a  aa0bb058a43]} \.
22a0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
22b0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
22c0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
22d0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
22e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 64 63 39  act -result bdc9
22f0: 31 65 36 37 39 66 63 32 66 34 65 34 30 61 66 31  1e679fc2f4e40af1
2300: 33 66 30 33 65 63 61 33 66 36 31 61 37 62 61 33  3f03eca3f61a7ba3
2310: 33 61 63 32 63 36 31 33 64 39 34 38 65 64 37 66  3ac2c613d948ed7f
2320: 63 30 62 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  c0bc..tcltest::t
2330: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
2340: 32 32 34 2d 32 2e 33 31 20 7b 53 48 41 35 31 32  224-2.31 {SHA512
2350: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
2360: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2370: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
2380: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
2390: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
23a0: 63 64 35 66 65 65 35 66 64 65 35 65 39 61 61 32  cd5fee5fde5e9aa2
23b0: 38 38 34 62 34 66 34 38 38 32 63 66 61 37 64 35  884b4f4882cfa7d5
23c0: 35 37 31 66 38 66 64 35 37 32 63 35 66 39 62 66  571f8fd572c5f9bf
23d0: 37 37 61 33 64 32 31 66 64 61 33 35 5d 7d 20 5c  77a3d21fda35]} \
23e0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
23f0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2400: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
2410: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2420: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 32 62  xact -result 72b
2430: 34 33 34 31 37 62 30 37 31 66 34 38 31 31 38 33  43417b071f481183
2440: 33 30 32 37 37 33 31 62 30 63 61 32 38 35 34 39  3027731b0ca28549
2450: 63 30 33 35 37 35 33 30 66 65 32 35 38 63 61 30  c0357530fe258ca0
2460: 30 35 33 33 65 0a 0a 74 63 6c 74 65 73 74 3a 3a  0533e..tcltest::
2470: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
2480: 2d 32 32 34 2d 32 2e 33 32 20 7b 53 48 41 35 31  -224-2.32 {SHA51
2490: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
24a0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
24b0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
24c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
24d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
24e0: 20 61 39 61 37 33 30 33 38 61 32 38 65 34 30 66   a9a73038a28e40f
24f0: 65 62 33 37 34 38 31 39 64 66 33 61 32 36 64 62  eb374819df3a26db
2500: 38 34 36 66 64 61 32 38 34 64 65 37 65 38 38 64  846fda284de7e88d
2510: 62 30 31 65 32 33 34 38 63 30 63 61 33 38 63 5d  b01e2348c0ca38c]
2520: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2530: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2540: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
2550: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2560: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2570: 61 35 62 61 64 64 63 65 65 64 35 62 35 38 36 31  a5baddceed5b5861
2580: 34 63 39 35 62 38 61 36 32 31 64 35 38 63 64 34  4c95b8a621d58cd4
2590: 62 31 32 35 35 39 62 64 33 34 37 39 35 65 66 35  b12559bd34795ef5
25a0: 62 65 39 63 64 36 30 33 0a 0a 74 63 6c 74 65 73  be9cd603..tcltes
25b0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
25c0: 35 31 32 2d 32 32 34 2d 32 2e 33 33 20 7b 53 48  512-224-2.33 {SH
25d0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
25e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
25f0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
2600: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
2610: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
2620: 68 65 78 20 62 65 34 38 35 30 66 35 62 65 36 63  hex be4850f5be6c
2630: 62 36 38 63 64 62 61 35 39 34 38 65 33 62 39 34  b68cdba5948e3b94
2640: 64 62 62 63 65 38 32 39 38 39 61 61 37 35 62 39  dbbce82989aa75b9
2650: 37 30 37 33 65 35 35 31 33 39 61 61 63 38 34 39  7073e55139aac849
2660: 61 38 39 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  a894]} \..-body 
2670: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2680: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
2690: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
26a0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
26b0: 73 75 6c 74 20 63 31 31 65 65 64 61 61 64 63 35  sult c11eedaadc5
26c0: 32 34 39 63 65 66 61 66 63 35 61 39 66 61 64 66  249cefafc5a9fadf
26d0: 33 39 65 38 31 32 64 62 37 30 30 62 64 32 37 36  39e812db700bd276
26e0: 37 62 38 64 65 31 63 64 64 36 30 39 39 0a 0a 74  7b8de1cdd6099..t
26f0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2700: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 33  h_SHA512-224-2.3
2710: 34 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  4 {SHA512_224Sho
2720: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
2730: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
2740: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2750: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2760: 63 6f 64 65 20 68 65 78 20 63 65 64 37 38 62 66  code hex ced78bf
2770: 30 37 33 34 61 35 32 37 66 35 63 30 37 65 66 36  0734a527f5c07ef6
2780: 63 38 61 64 66 38 30 61 65 32 35 32 62 38 63 66  c8adf80ae252b8cf
2790: 66 31 30 30 64 33 39 33 65 63 31 66 38 63 30 31  f100d393ec1f8c01
27a0: 31 35 30 37 32 31 66 63 65 63 64 5d 7d 20 5c 0a  150721fcecd]} \.
27b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
27c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
27d0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
27e0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
27f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 64 34 32 33  act -result d423
2800: 37 61 61 31 39 35 36 64 33 37 61 36 64 63 61 62  7aa1956d37a6dcab
2810: 37 62 30 37 32 36 39 66 31 38 32 32 38 66 37 65  7b07269f18228f7e
2820: 33 31 35 36 63 33 35 35 35 63 66 34 64 33 64 36  3156c3555cf4d3d6
2830: 38 63 31 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  8c1a..tcltest::t
2840: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
2850: 32 32 34 2d 32 2e 33 35 20 7b 53 48 41 35 31 32  224-2.35 {SHA512
2860: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
2870: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2880: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
2890: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
28a0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
28b0: 65 34 30 30 62 63 38 39 39 34 63 66 66 32 33 65  e400bc8994cff23e
28c0: 61 65 31 38 39 64 66 33 62 31 65 37 65 34 34 30  ae189df3b1e7e440
28d0: 61 36 62 35 62 31 37 38 36 31 39 37 31 32 38 31  a6b5b17861971281
28e0: 30 35 62 35 64 66 65 32 63 36 66 65 39 64 31 65  05b5dfe2c6fe9d1e
28f0: 66 33 31 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f31a]} \..-body 
2900: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2910: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
2920: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
2930: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2940: 73 75 6c 74 20 34 35 33 35 31 61 64 66 66 65 66  sult 45351adffef
2950: 63 66 62 35 65 33 39 30 38 35 34 36 31 66 38 62  cfb5e39085461f8b
2960: 66 66 35 66 35 36 35 32 61 35 61 61 35 61 30 34  ff5f5652a5aa5a04
2970: 30 31 66 30 34 64 34 66 35 36 34 35 32 0a 0a 74  01f04d4f56452..t
2980: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2990: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 33  h_SHA512-224-2.3
29a0: 36 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  6 {SHA512_224Sho
29b0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
29c0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
29d0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
29e0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
29f0: 63 6f 64 65 20 68 65 78 20 66 31 35 32 38 34 61  code hex f15284a
2a00: 31 31 63 36 31 65 31 32 39 65 61 30 36 30 36 62  11c61e129ea0606b
2a10: 64 36 35 33 31 66 32 66 31 32 31 33 37 37 36 65  d6531f2f1213776e
2a20: 30 31 65 32 35 33 64 31 64 65 66 35 33 30 62 65  01e253d1def530be
2a30: 64 31 63 33 63 34 32 62 33 63 36 38 63 61 61 5d  d1c3c42b3c68caa]
2a40: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2a50: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2a60: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
2a70: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2a80: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2a90: 66 61 34 32 35 62 63 37 33 32 64 36 30 33 33 35  fa425bc732d60335
2aa0: 36 36 63 30 37 33 35 36 30 62 32 63 35 66 65 33  66c073560b2c5fe3
2ab0: 32 32 61 61 34 66 61 32 32 61 61 61 33 65 63 35  22aa4fa22aaa3ec5
2ac0: 31 31 35 34 66 66 64 38 0a 0a 74 63 6c 74 65 73  1154ffd8..tcltes
2ad0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2ae0: 35 31 32 2d 32 32 34 2d 32 2e 33 37 20 7b 53 48  512-224-2.37 {SH
2af0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
2b00: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
2b10: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
2b20: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
2b30: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
2b40: 68 65 78 20 64 38 35 38 65 65 64 39 34 32 66 65  hex d858eed942fe
2b50: 39 32 36 62 35 32 62 61 64 61 36 32 33 66 62 38  926b52bada623fb8
2b60: 64 30 66 31 38 34 35 38 65 34 31 36 33 33 33 32  d0f18458e4163332
2b70: 65 31 63 31 38 63 35 38 31 66 33 38 63 65 64 61  e1c18c581f38ceda
2b80: 66 62 62 61 34 64 39 30 38 34 36 32 5d 7d 20 5c  fbba4d908462]} \
2b90: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2ba0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2bb0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
2bc0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2bd0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 32 62  xact -result b2b
2be0: 33 30 38 64 62 39 34 38 64 37 31 36 39 63 38 65  308db948d7169c8e
2bf0: 65 62 62 34 64 37 61 31 39 62 65 39 36 64 35 63  ebb4d7a19be96d5c
2c00: 34 62 35 38 34 39 35 39 33 65 63 35 38 37 64 33  4b5849593ec587d3
2c10: 38 36 35 65 36 0a 0a 74 63 6c 74 65 73 74 3a 3a  865e6..tcltest::
2c20: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
2c30: 2d 32 32 34 2d 32 2e 33 38 20 7b 53 48 41 35 31  -224-2.38 {SHA51
2c40: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
2c50: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2c60: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
2c70: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2c80: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2c90: 20 37 38 62 38 61 64 32 33 37 32 36 33 32 33 39   78b8ad237263239
2ca0: 38 63 66 35 36 37 31 37 64 66 33 62 31 34 31 61  8cf56717df3b141a
2cb0: 34 66 33 38 64 35 64 38 33 30 32 39 62 63 31 66  4f38d5d83029bc1f
2cc0: 30 32 64 30 37 66 35 32 39 34 39 61 33 39 39 31  02d07f52949a3991
2cd0: 37 32 39 34 31 34 31 64 34 31 34 5d 7d 20 5c 0a  7294141d414]} \.
2ce0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
2cf0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
2d00: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
2d10: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
2d20: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 31 62 65  act -result 71be
2d30: 30 35 38 36 32 62 34 34 65 39 66 35 37 61 64 39  05862b44e9f57ad9
2d40: 62 65 31 37 66 31 64 65 31 38 35 34 37 31 65 61  be17f1de185471ea
2d50: 62 64 31 31 31 63 31 37 32 35 65 38 33 35 65 30  bd111c1725e835e0
2d60: 39 36 32 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  9625..tcltest::t
2d70: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
2d80: 32 32 34 2d 32 2e 33 39 20 7b 53 48 41 35 31 32  224-2.39 {SHA512
2d90: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
2da0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2db0: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
2dc0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
2dd0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
2de0: 66 61 66 66 38 39 34 63 34 61 32 65 64 37 30 63  faff894c4a2ed70c
2df0: 34 63 39 64 36 37 30 33 62 36 62 63 33 61 33 64  4c9d6703b6bc3a3d
2e00: 32 62 32 63 62 61 38 66 30 34 37 36 39 64 65 33  2b2cba8f04769de3
2e10: 35 30 66 63 30 63 64 30 31 39 33 30 30 35 36 65  50fc0cd01930056e
2e20: 65 61 30 33 66 65 36 38 38 64 61 31 5d 7d 20 5c  ea03fe688da1]} \
2e30: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2e40: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2e50: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
2e60: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2e70: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 39 66  xact -result 59f
2e80: 35 61 38 63 38 34 33 62 39 38 32 39 38 39 61 30  5a8c843b982989a0
2e90: 38 65 36 38 35 32 65 33 34 66 30 63 30 33 33 39  8e6852e34f0c0339
2ea0: 37 63 39 39 61 38 37 38 36 34 64 66 62 31 62 62  7c99a87864dfb1bb
2eb0: 61 66 65 31 63 0a 0a 74 63 6c 74 65 73 74 3a 3a  afe1c..tcltest::
2ec0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
2ed0: 2d 32 32 34 2d 32 2e 34 30 20 7b 53 48 41 35 31  -224-2.40 {SHA51
2ee0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
2ef0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2f00: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
2f10: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2f20: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2f30: 20 65 36 30 36 35 65 31 65 62 37 63 66 39 30 31   e6065e1eb7cf901
2f40: 63 33 62 30 38 64 62 61 34 61 65 63 61 37 64 34  c3b08dba4aeca7d4
2f50: 36 37 33 63 33 66 64 62 65 36 30 33 39 31 63 31  673c3fdbe60391c1
2f60: 62 35 64 34 64 30 39 32 30 32 64 37 64 64 34 65  b5d4d09202d7dd4e
2f70: 61 38 62 36 64 32 35 64 33 37 39 65 37 32 65 5d  a8b6d25d379e72e]
2f80: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2f90: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2fa0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
2fb0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2fc0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2fd0: 65 61 38 35 36 34 63 39 38 38 63 62 36 37 65 33  ea8564c988cb67e3
2fe0: 30 32 62 64 34 30 64 66 32 31 61 35 66 37 39 36  02bd40df21a5f796
2ff0: 61 30 61 31 31 36 38 34 36 34 39 33 63 38 36 63  a0a116846493c86c
3000: 33 61 31 64 30 38 30 65 0a 0a 74 63 6c 74 65 73  3a1d080e..tcltes
3010: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3020: 35 31 32 2d 32 32 34 2d 32 2e 34 31 20 7b 53 48  512-224-2.41 {SH
3030: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
3040: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
3050: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
3060: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
3070: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
3080: 68 65 78 20 30 32 39 64 31 34 63 35 61 34 61 35  hex 029d14c5a4a5
3090: 37 61 36 34 39 61 38 36 63 35 66 32 65 30 32 32  7a649a86c5f2e022
30a0: 65 36 65 65 30 39 38 66 32 39 63 39 64 34 36 30  e6ee098f29c9d460
30b0: 36 35 34 38 66 66 32 37 37 35 32 39 36 30 33 38  6548ff2775296038
30c0: 65 63 30 39 33 31 61 66 30 35 38 35 61 63 62 34  ec0931af0585acb4
30d0: 64 39 61 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d9a0]} \..-body 
30e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
30f0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
3100: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3110: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3120: 73 75 6c 74 20 37 31 36 36 36 38 63 62 61 37 62  sult 716668cba7b
3130: 31 63 30 64 64 63 31 63 34 62 33 65 36 66 65 33  1c0ddc1c4b3e6fe3
3140: 66 38 39 31 37 65 61 64 61 36 32 35 30 36 62 36  f8917eada62506b6
3150: 38 35 35 65 35 61 66 32 62 35 34 65 35 0a 0a 74  855e5af2b54e5..t
3160: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3170: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 34  h_SHA512-224-2.4
3180: 32 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  2 {SHA512_224Sho
3190: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
31a0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
31b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
31c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
31d0: 63 6f 64 65 20 68 65 78 20 65 33 30 38 39 63 30  code hex e3089c0
31e0: 35 63 65 31 35 34 39 63 34 37 61 39 37 37 38 35  5ce1549c47a97785
31f0: 64 38 32 34 37 34 63 37 33 63 62 30 39 36 61 32  d82474c73cb096a2
3200: 37 63 35 32 30 35 64 65 38 65 64 39 65 33 61 38  7c5205de8ed9e3a8
3210: 63 39 37 31 66 37 66 61 30 65 61 62 37 34 31 66  c971f7fa0eab741f
3220: 64 32 63 32 39 38 37 39 63 34 30 5d 7d 20 5c 0a  d2c29879c40]} \.
3230: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
3240: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
3250: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
3260: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3270: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 35 61 30  act -result 75a0
3280: 66 61 39 37 38 63 34 35 64 32 36 38 31 32 34 64  fa978c45d268124d
3290: 38 63 64 39 65 66 30 61 30 38 65 63 61 62 62 62  8cd9ef0a08ecabbb
32a0: 65 64 35 33 34 31 32 63 66 63 37 63 62 31 63 30  ed53412cfc7cb1c0
32b0: 30 33 39 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  0398..tcltest::t
32c0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
32d0: 32 32 34 2d 32 2e 34 33 20 7b 53 48 41 35 31 32  224-2.43 {SHA512
32e0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
32f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3300: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
3310: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
3320: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
3330: 39 30 31 64 62 30 66 37 30 66 32 64 31 30 36 32  901db0f70f2d1062
3340: 36 61 38 61 66 34 30 38 63 35 64 31 35 31 39 36  6a8af408c5d15196
3350: 36 39 33 64 34 39 33 38 32 31 37 38 61 64 30 64  693d49382178ad0d
3360: 65 33 62 31 63 31 64 38 62 33 65 66 33 66 66 38  e3b1c1d8b3ef3ff8
3370: 63 35 61 35 39 65 39 61 65 32 38 36 39 33 32 64  c5a59e9ae286932d
3380: 30 63 39 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  0c9a]} \..-body 
3390: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
33a0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
33b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
33c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
33d0: 73 75 6c 74 20 31 34 37 30 61 34 31 39 39 66 65  sult 1470a4199fe
33e0: 34 63 37 62 63 33 33 30 37 36 30 63 31 31 39 37  4c7bc330760c1197
33f0: 65 37 39 34 35 37 62 31 36 34 34 37 36 34 65 32  e79457b1644764e2
3400: 38 61 36 32 64 33 38 36 61 37 38 62 34 0a 0a 74  8a62d386a78b4..t
3410: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3420: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 34  h_SHA512-224-2.4
3430: 34 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  4 {SHA512_224Sho
3440: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
3450: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
3460: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3470: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3480: 63 6f 64 65 20 68 65 78 20 30 34 33 31 61 37 62  code hex 0431a7b
3490: 66 62 62 65 63 31 62 62 38 31 31 36 61 36 32 65  fbbec1bb8116a62e
34a0: 31 64 62 37 65 31 33 34 36 38 36 32 64 33 31 61  1db7e1346862d31a
34b0: 64 35 31 31 30 66 66 31 62 62 39 66 61 31 36 39  d5110ff1bb9fa169
34c0: 61 33 35 64 62 62 34 33 61 32 34 65 34 35 37 35  a35dbb43a24e4575
34d0: 36 30 34 65 63 38 62 31 38 65 34 31 33 30 30 5d  604ec8b18e41300]
34e0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
34f0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3500: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
3510: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
3520: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3530: 31 65 37 35 39 30 65 34 30 38 63 30 33 38 62 37  1e7590e408c038b7
3540: 39 34 65 39 38 32 30 62 32 35 64 30 31 31 63 32  94e9820b25d011c2
3550: 36 32 30 36 32 62 39 36 64 31 31 31 64 63 63 63  62062b96d111dccc
3560: 34 36 64 63 36 37 38 33 0a 0a 74 63 6c 74 65 73  46dc6783..tcltes
3570: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3580: 35 31 32 2d 32 32 34 2d 32 2e 34 35 20 7b 53 48  512-224-2.45 {SH
3590: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
35a0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
35b0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
35c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
35d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
35e0: 68 65 78 20 64 31 34 31 37 35 33 63 65 66 32 65  hex d141753cef2e
35f0: 31 62 34 34 32 65 62 30 31 37 30 38 66 34 36 37  1b442eb01708f467
3600: 31 39 63 64 38 36 35 33 62 32 32 65 31 64 39 37  19cd8653b22e1d97
3610: 30 39 30 37 33 64 37 63 63 66 39 32 34 32 62 38  09073d7ccf9242b8
3620: 37 35 64 30 33 63 66 31 39 63 32 62 66 63 37 64  75d03cf19c2bfc7d
3630: 63 64 35 39 36 66 36 63 36 61 38 33 5d 7d 20 5c  cd596f6c6a83]} \
3640: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3650: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3660: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
3670: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
3680: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 66 33  xact -result 0f3
3690: 35 37 62 38 63 61 36 37 36 61 38 36 63 61 36 33  57b8ca676a86ca63
36a0: 36 32 30 62 32 32 33 39 33 32 37 61 63 63 62 64  620b2239327accbd
36b0: 34 32 35 32 38 31 34 61 36 62 38 63 35 36 38 39  4252814a6b8c5689
36c0: 35 65 61 35 38 0a 0a 74 63 6c 74 65 73 74 3a 3a  5ea58..tcltest::
36d0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
36e0: 2d 32 32 34 2d 32 2e 34 36 20 7b 53 48 41 35 31  -224-2.46 {SHA51
36f0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
3700: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3710: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
3720: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3730: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3740: 20 63 65 39 34 65 30 31 32 36 62 30 32 30 64 36   ce94e0126b020d6
3750: 38 31 31 35 61 35 65 61 34 31 30 38 33 62 34 37  8115a5ea41083b47
3760: 31 37 61 31 33 64 39 63 35 37 61 35 62 36 64 30  17a13d9c57a5b6d0
3770: 61 65 37 61 33 32 33 37 63 31 39 62 36 32 64 64  ae7a3237c19b62dd
3780: 32 66 63 61 32 66 34 32 30 36 32 62 39 30 64 66  2fca2f42062b90df
3790: 63 39 65 64 62 36 38 65 30 34 65 5d 7d 20 5c 0a  c9edb68e04e]} \.
37a0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
37b0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
37c0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
37d0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
37e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 33 35 64  act -result 935d
37f0: 33 39 31 64 36 32 36 61 31 33 35 37 37 32 33 31  391d626a13577231
3800: 39 65 63 39 33 66 64 36 35 32 62 64 39 66 64 35  9ec93fd652bd9fd5
3810: 36 38 30 31 30 37 63 39 38 37 38 37 32 61 65 36  680107c987872ae6
3820: 37 32 31 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  7212..tcltest::t
3830: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
3840: 32 32 34 2d 32 2e 34 37 20 7b 53 48 41 35 31 32  224-2.47 {SHA512
3850: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
3860: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3870: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
3880: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
3890: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
38a0: 65 66 63 32 64 38 31 62 33 30 30 34 33 62 62 32  efc2d81b30043bb2
38b0: 36 63 38 64 32 63 37 61 37 64 35 62 66 65 38 65  6c8d2c7a7d5bfe8e
38c0: 65 35 37 39 65 34 36 33 31 32 32 64 35 36 61 30  e579e463122d56a0
38d0: 65 31 37 32 62 36 33 30 36 30 61 38 33 34 39 35  e172b63060a83495
38e0: 64 38 38 62 65 66 37 66 30 62 36 32 35 63 39 64  d88bef7f0b625c9d
38f0: 62 61 37 38 65 63 62 33 36 61 64 30 5d 7d 20 5c  ba78ecb36ad0]} \
3900: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3910: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3920: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
3930: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
3940: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 39 32  xact -result d92
3950: 31 34 37 38 39 62 37 62 37 33 36 61 37 62 32 38  14789b7b736a7b28
3960: 63 65 62 66 66 38 38 32 39 61 33 39 39 39 66 66  cebff8829a3999ff
3970: 30 63 37 34 39 36 30 39 35 62 31 33 30 63 31 65  0c7496095b130c1e
3980: 32 65 38 32 39 0a 0a 74 63 6c 74 65 73 74 3a 3a  2e829..tcltest::
3990: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
39a0: 2d 32 32 34 2d 32 2e 34 38 20 7b 53 48 41 35 31  -224-2.48 {SHA51
39b0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
39c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
39d0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
39e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
39f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3a00: 20 35 62 32 37 64 36 66 65 39 39 38 31 64 31 33   5b27d6fe9981d13
3a10: 36 62 35 32 31 35 37 62 38 33 39 62 62 35 62 37  6b52157b839bb5b7
3a20: 38 64 37 38 34 34 64 66 35 61 33 39 37 65 66 62  8d7844df5a397efb
3a30: 65 38 30 39 38 36 34 33 35 64 38 39 38 38 39 39  e80986435d898899
3a40: 33 39 31 33 39 38 39 32 63 33 63 31 33 61 63 66  39139892c3c13acf
3a50: 35 38 66 35 36 37 30 34 33 31 35 62 30 64 62 5d  58f56704315b0db]
3a60: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3a70: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3a80: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
3a90: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
3aa0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3ab0: 34 63 37 39 32 62 62 36 62 31 65 33 33 61 33 61  4c792bb6b1e33a3a
3ac0: 30 34 32 64 64 34 61 36 39 61 64 61 38 30 32 65  042dd4a69ada802e
3ad0: 33 65 63 30 62 64 38 33 39 64 61 61 38 38 36 33  3ec0bd839daa8863
3ae0: 35 62 32 32 35 65 66 62 0a 0a 74 63 6c 74 65 73  5b225efb..tcltes
3af0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3b00: 35 31 32 2d 32 32 34 2d 32 2e 34 39 20 7b 53 48  512-224-2.49 {SH
3b10: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
3b20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
3b30: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
3b40: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
3b50: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
3b60: 68 65 78 20 34 64 62 65 31 32 39 30 35 32 34 62  hex 4dbe1290524b
3b70: 64 37 33 64 39 64 62 35 66 32 31 66 39 64 30 33  d73d9db5f21f9d03
3b80: 35 65 31 38 33 64 63 32 38 35 62 38 35 62 61 37  5e183dc285b85ba7
3b90: 35 35 30 35 37 63 37 36 39 37 37 37 62 65 32 32  55057c769777be22
3ba0: 37 63 34 37 30 65 33 36 37 39 65 61 39 61 37 33  7c470e3679ea9a73
3bb0: 35 35 64 38 38 39 62 62 38 31 39 31 65 61 32 65  55d889bb8191ea2e
3bc0: 61 37 65 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  a7e2]} \..-body 
3bd0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3be0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
3bf0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3c00: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3c10: 73 75 6c 74 20 33 33 61 35 61 38 64 36 31 31 39  sult 33a5a8d6119
3c20: 62 62 36 64 64 37 62 32 65 37 32 65 63 65 38 65  bb6dd7b2e72ece8e
3c30: 34 64 35 64 30 32 61 61 39 39 30 34 38 63 30 34  4d5d02aa99048c04
3c40: 35 39 31 36 39 65 65 39 65 36 64 30 34 0a 0a 74  59169ee9e6d04..t
3c50: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3c60: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 35  h_SHA512-224-2.5
3c70: 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  0 {SHA512_224Sho
3c80: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
3c90: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
3ca0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3cb0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3cc0: 63 6f 64 65 20 68 65 78 20 62 64 66 61 31 37 33  code hex bdfa173
3cd0: 39 39 35 61 35 62 39 39 66 62 61 37 34 64 38 65  995a5b99fba74d8e
3ce0: 32 35 35 62 37 31 31 37 37 31 37 33 31 61 38 65  255b711771731a8e
3cf0: 31 38 35 31 64 37 64 64 36 39 33 37 33 33 62 39  1851d7dd693733b9
3d00: 64 37 35 36 37 64 33 62 61 62 32 33 32 32 39 63  d7567d3bab23229c
3d10: 64 37 61 31 36 30 63 62 38 33 39 39 63 36 63 30  d7a160cb8399c6c0
3d20: 30 36 63 32 31 63 37 37 36 62 34 5d 7d 20 5c 0a  06c21c776b4]} \.
3d30: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
3d40: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
3d50: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
3d60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
3d70: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 33 63 39  act -result 33c9
3d80: 33 34 62 35 31 30 32 30 36 33 32 31 33 65 37 62  34b5102063213e7b
3d90: 35 33 36 37 35 63 34 37 62 31 39 63 33 39 37 66  53675c47b19c397f
3da0: 63 33 61 35 31 66 62 33 37 61 62 34 36 65 31 37  c3a51fb37ab46e17
3db0: 39 62 31 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  9b10..tcltest::t
3dc0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
3dd0: 32 32 34 2d 32 2e 35 31 20 7b 53 48 41 35 31 32  224-2.51 {SHA512
3de0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
3df0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3e00: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
3e10: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
3e20: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
3e30: 39 34 36 33 63 35 36 33 61 61 31 66 64 61 38 39  9463c563aa1fda89
3e40: 34 37 35 37 33 39 38 65 31 31 62 30 34 61 34 62  4757398e11b04a4b
3e50: 34 63 65 65 30 64 63 65 39 64 61 62 30 31 61 64  4cee0dce9dab01ad
3e60: 31 33 34 66 34 34 39 61 36 37 33 63 66 62 33 38  134f449a673cfb38
3e70: 38 33 34 39 66 34 32 65 34 32 37 32 38 61 37 39  8349f42e42728a79
3e80: 37 37 63 65 63 39 30 36 33 30 63 31 64 33 38 30  77cec90630c1d380
3e90: 33 63 37 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  3c72]} \..-body 
3ea0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3eb0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
3ec0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3ed0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3ee0: 73 75 6c 74 20 34 63 61 65 31 38 61 33 39 61 35  sult 4cae18a39a5
3ef0: 63 61 34 35 31 32 62 39 35 39 64 61 30 36 62 63  ca4512b959da06bc
3f00: 39 64 36 33 64 30 37 31 36 38 30 38 34 65 33 35  9d63d07168084e35
3f10: 61 61 66 30 33 63 38 62 61 35 64 38 64 0a 0a 74  aaf03c8ba5d8d..t
3f20: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3f30: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 35  h_SHA512-224-2.5
3f40: 32 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  2 {SHA512_224Sho
3f50: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
3f60: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
3f70: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3f80: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3f90: 63 6f 64 65 20 68 65 78 20 32 65 65 36 65 38 31  code hex 2ee6e81
3fa0: 33 65 63 38 34 63 32 61 64 65 64 35 38 30 30 66  3ec84c2aded5800f
3fb0: 63 31 63 61 65 39 34 63 30 39 30 35 34 65 32 35  c1cae94c09054e25
3fc0: 64 36 62 66 30 63 34 64 31 30 32 39 36 64 31 65  d6bf0c4d10296d1e
3fd0: 38 33 65 39 61 64 66 62 33 34 32 61 33 63 36 33  83e9adfb342a3c63
3fe0: 36 34 64 30 31 36 37 36 31 65 32 34 31 65 64 34  64d016761e241ed4
3ff0: 32 32 37 66 65 35 33 37 38 38 63 66 61 32 37 5d  227fe53788cfa27]
4000: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4010: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4020: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
4030: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
4040: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
4050: 38 39 63 36 39 32 39 62 33 63 31 39 61 31 34 37  89c6929b3c19a147
4060: 32 61 34 35 32 34 65 31 34 32 37 38 32 33 37 36  2a4524e142782376
4070: 38 65 34 36 34 35 31 65 34 38 66 61 61 37 61 37  8e46451e48faa7a7
4080: 64 62 37 63 38 36 30 34 0a 0a 74 63 6c 74 65 73  db7c8604..tcltes
4090: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
40a0: 35 31 32 2d 32 32 34 2d 32 2e 35 33 20 7b 53 48  512-224-2.53 {SH
40b0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
40c0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
40d0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
40e0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
40f0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
4100: 68 65 78 20 38 36 34 38 33 33 63 62 32 39 31 32  hex 864833cb2912
4110: 66 61 34 34 39 32 39 32 38 37 62 64 30 64 62 37  fa44929287bd0db7
4120: 39 38 34 39 36 38 65 35 39 32 30 64 34 39 66 39  984968e5920d49f9
4130: 37 32 35 64 63 34 38 37 30 37 32 32 32 64 36 35  725dc48707222d65
4140: 35 66 37 66 32 62 36 65 37 66 62 34 30 65 38 30  5f7f2b6e7fb40e80
4150: 35 36 34 32 36 33 63 37 66 34 35 30 63 35 33 65  564263c7f450c53e
4160: 66 38 34 64 66 36 37 32 34 37 64 37 5d 7d 20 5c  f84df67247d7]} \
4170: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4180: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4190: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
41a0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
41b0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 63 31  xact -result 2c1
41c0: 30 32 61 38 33 34 39 63 34 65 33 36 32 61 62 64  02a8349c4e362abd
41d0: 36 61 32 35 38 32 31 37 37 36 33 32 32 39 38 39  6a25821776322989
41e0: 38 65 32 37 63 32 65 37 32 31 63 37 33 62 63 38  8e27c2e721c73bc8
41f0: 38 30 37 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a  80752..tcltest::
4200: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
4210: 2d 32 32 34 2d 32 2e 35 34 20 7b 53 48 41 35 31  -224-2.54 {SHA51
4220: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
4230: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4240: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
4250: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4260: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4270: 20 65 34 64 66 65 36 39 37 32 33 64 34 33 30 38   e4dfe69723d4308
4280: 33 34 62 64 63 64 61 37 66 61 31 33 38 66 31 66  34bdcda7fa138f1f
4290: 64 32 36 66 32 32 36 37 34 62 65 37 31 31 36 39  d26f22674be71169
42a0: 64 39 31 34 61 63 66 65 32 62 32 35 39 39 30 31  d914acfe2b259901
42b0: 34 66 66 31 31 64 31 35 63 34 38 31 30 38 33 37  4ff11d15c4810837
42c0: 34 62 33 66 36 39 39 31 36 35 65 37 38 63 37 62  4b3f699165e78c7b
42d0: 35 34 37 62 30 38 61 36 63 36 39 5d 7d 20 5c 0a  547b08a6c69]} \.
42e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
42f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
4300: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
4310: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4320: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 32 33 31  act -result 5231
4330: 30 62 61 63 66 37 38 64 64 64 34 30 64 37 65 39  0bacf78ddd40d7e9
4340: 33 65 62 33 32 31 64 61 34 64 65 35 34 31 61 37  3eb321da4de541a7
4350: 32 39 36 66 39 38 66 30 61 64 39 37 34 35 39 31  296f98f0ad974591
4360: 35 38 38 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  5887..tcltest::t
4370: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
4380: 32 32 34 2d 32 2e 35 35 20 7b 53 48 41 35 31 32  224-2.55 {SHA512
4390: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
43a0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
43b0: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
43c0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
43d0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
43e0: 36 61 33 30 30 30 31 37 36 64 30 62 30 32 39 39  6a3000176d0b0299
43f0: 39 32 64 39 32 31 65 31 30 32 65 65 65 65 39 34  92d921e102eeee94
4400: 64 66 62 39 62 30 32 39 64 34 30 31 39 65 34 61  dfb9b029d4019e4a
4410: 66 30 36 66 35 31 37 64 62 34 34 64 37 38 30 33  f06f517db44d7803
4420: 36 61 38 64 63 65 30 30 62 39 30 64 34 39 64 64  6a8dce00b90d49dd
4430: 37 37 31 39 39 34 65 62 62 65 33 32 63 30 34 39  771994ebbe32c049
4440: 34 32 30 64 33 37 30 37 65 31 64 66 5d 7d 20 5c  420d3707e1df]} \
4450: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4460: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4470: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
4480: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4490: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 37 64  xact -result 07d
44a0: 65 31 65 64 33 66 38 65 61 37 37 34 61 38 65 35  e1ed3f8ea774a8e5
44b0: 65 30 38 30 36 36 39 32 30 36 63 38 35 37 32 65  e080669206c8572e
44c0: 64 62 63 33 66 31 36 35 38 37 30 39 31 33 61 62  dbc3f165870913ab
44d0: 31 65 34 66 36 0a 0a 74 63 6c 74 65 73 74 3a 3a  1e4f6..tcltest::
44e0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
44f0: 2d 32 32 34 2d 32 2e 35 36 20 7b 53 48 41 35 31  -224-2.56 {SHA51
4500: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
4510: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4520: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
4530: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4540: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4550: 20 35 35 63 61 62 38 37 36 35 35 36 30 37 39 65   55cab876556079e
4560: 66 66 39 38 62 66 37 62 39 30 65 33 31 38 66 38  ff98bf7b90e318f8
4570: 66 66 35 38 33 63 32 62 65 35 35 64 65 38 38 32  ff583c2be55de882
4580: 63 30 64 65 66 65 36 39 39 36 64 31 62 63 32 32  c0defe6996d1bc22
4590: 35 61 35 31 65 66 37 31 32 37 64 66 32 61 35 63  5a51ef7127df2a5c
45a0: 63 34 37 66 32 63 61 32 36 31 32 33 66 31 37 65  c47f2ca26123f17e
45b0: 37 32 31 36 33 66 63 38 35 39 63 33 34 30 36 5d  72163fc859c3406]
45c0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
45d0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
45e0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
45f0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
4600: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
4610: 38 31 31 66 64 39 30 37 66 33 66 37 34 62 39 66  811fd907f3f74b9f
4620: 32 31 34 31 39 33 30 34 38 64 37 30 65 64 61 34  214193048d70eda4
4630: 34 66 33 61 37 34 36 35 63 64 62 38 38 32 31 37  4f3a7465cdb88217
4640: 33 62 66 37 39 61 30 61 0a 0a 74 63 6c 74 65 73  3bf79a0a..tcltes
4650: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4660: 35 31 32 2d 32 32 34 2d 32 2e 35 37 20 7b 53 48  512-224-2.57 {SH
4670: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
4680: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4690: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
46a0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
46b0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
46c0: 68 65 78 20 35 64 61 62 30 31 36 64 34 66 65 62  hex 5dab016d4feb
46d0: 34 32 65 61 36 30 36 31 32 33 63 30 61 63 34 63  42ea606123c0ac4c
46e0: 33 32 35 39 63 63 37 31 37 37 61 66 39 63 63 39  3259cc7177af9cc9
46f0: 35 35 61 36 34 31 37 37 62 32 39 66 36 62 66 63  55a64177b29f6bfc
4700: 35 38 34 61 64 38 61 65 39 61 62 62 31 61 36 37  584ad8ae9abb1a67
4710: 33 61 63 31 39 39 37 61 38 61 37 33 64 62 65 62  3ac1997a8a73dbeb
4720: 64 32 30 62 30 33 64 66 66 32 66 38 39 38 35 31  d20b03dff2f89851
4730: 34 38 32 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  482e]} \..-body 
4740: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4750: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
4760: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
4770: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
4780: 73 75 6c 74 20 33 34 30 62 35 61 37 31 65 64 36  sult 340b5a71ed6
4790: 35 34 30 37 61 36 38 36 37 30 36 62 30 36 38 65  5407a686706b068e
47a0: 64 62 39 32 64 30 61 64 32 61 30 37 39 63 31 63  db92d0ad2a079c1c
47b0: 38 38 62 66 37 38 61 64 38 61 33 61 30 0a 0a 74  88bf78ad8a3a0..t
47c0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
47d0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 35  h_SHA512-224-2.5
47e0: 38 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  8 {SHA512_224Sho
47f0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
4800: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
4810: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4820: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4830: 63 6f 64 65 20 68 65 78 20 30 39 32 31 61 66 62  code hex 0921afb
4840: 34 30 33 61 66 64 33 31 65 38 62 30 38 33 39 64  403afd31e8b0839d
4850: 63 63 31 35 62 61 32 63 30 66 63 33 32 62 63 63  cc15ba2c0fc32bcc
4860: 39 30 66 61 37 38 66 66 38 63 63 64 35 31 39 36  90fa78ff8ccd5196
4870: 30 63 37 38 65 33 35 37 64 35 64 34 63 63 32 63  0c78e357d5d4cc2c
4880: 36 66 34 36 39 30 30 38 35 38 33 39 32 33 64 65  6f469008583923de
4890: 37 35 36 37 39 62 32 34 66 30 62 63 61 61 38 66  75679b24f0bcaa8f
48a0: 30 65 31 36 31 64 66 39 62 33 32 5d 7d 20 5c 0a  0e161df9b32]} \.
48b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
48c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
48d0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
48e0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
48f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 64 64 33 30  act -result dd30
4900: 38 38 32 63 64 61 32 31 34 34 62 33 31 61 62 31  882cda2144b31ab1
4910: 37 39 65 38 66 39 30 35 34 36 30 31 36 38 62 38  79e8f905460168b8
4920: 37 35 38 64 38 62 65 38 64 38 30 37 38 64 64 36  758d8be8d8078dd6
4930: 31 30 61 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  10ab..tcltest::t
4940: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
4950: 32 32 34 2d 32 2e 35 39 20 7b 53 48 41 35 31 32  224-2.59 {SHA512
4960: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
4970: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
4980: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
4990: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
49a0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
49b0: 63 30 66 61 63 62 38 37 62 39 32 38 33 64 38 37  c0facb87b9283d87
49c0: 66 64 64 30 32 37 36 30 65 34 66 61 34 33 37 62  fdd02760e4fa437b
49d0: 38 39 36 62 31 33 64 65 32 38 37 38 36 62 61 30  896b13de28786ba0
49e0: 63 62 31 39 32 66 39 66 32 36 33 65 35 65 37 35  cb192f9f263e5e75
49f0: 62 66 36 36 34 66 61 37 35 32 36 64 33 62 32 30  bf664fa7526d3b20
4a00: 37 33 61 35 66 63 64 65 37 35 32 39 31 34 65 63  73a5fcde752914ec
4a10: 38 62 36 65 66 31 39 30 32 64 31 62 37 30 63 35  8b6ef1902d1b70c5
4a20: 62 64 31 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  bd1b]} \..-body 
4a30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4a40: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
4a50: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
4a60: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
4a70: 73 75 6c 74 20 31 65 37 61 64 66 30 37 33 37 35  sult 1e7adf07375
4a80: 37 32 64 31 61 61 61 35 64 34 63 39 31 37 63 39  72d1aaa5d4c917c9
4a90: 34 64 30 35 64 63 30 39 32 64 36 65 35 39 30 35  4d05dc092d6e5905
4aa0: 39 64 66 36 35 39 34 39 30 66 31 63 37 0a 0a 74  9df659490f1c7..t
4ab0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4ac0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 36  h_SHA512-224-2.6
4ad0: 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  0 {SHA512_224Sho
4ae0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
4af0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
4b00: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4b10: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4b20: 63 6f 64 65 20 68 65 78 20 65 30 65 61 66 65 31  code hex e0eafe1
4b30: 61 65 64 37 31 39 66 64 37 31 32 32 61 33 65 64  aed719fd7122a3ed
4b40: 63 39 64 66 37 63 34 62 65 64 66 62 63 31 62 30  c9df7c4bedfbc1b0
4b50: 63 33 62 31 62 65 36 33 31 37 63 38 32 36 66 39  c3b1be6317c826f9
4b60: 63 36 62 36 38 65 30 31 65 61 32 64 33 62 37 39  c6b68e01ea2d3b79
4b70: 33 39 62 31 65 37 34 63 34 30 63 66 39 39 34 38  39b1e74c40cf9948
4b80: 63 37 37 62 31 63 33 33 61 66 63 62 32 34 65 33  c77b1c33afcb24e3
4b90: 37 37 33 34 61 64 37 65 39 62 37 61 66 34 63 5d  7734ad7e9b7af4c]
4ba0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4bb0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4bc0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
4bd0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
4be0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
4bf0: 63 32 36 30 31 33 30 31 39 37 64 63 37 37 37 34  c260130197dc7774
4c00: 33 31 33 63 37 35 38 34 33 64 64 38 32 30 64 35  313c75843dd820d5
4c10: 38 39 61 36 38 64 66 35 39 65 31 61 65 66 37 63  89a68df59e1aef7c
4c20: 66 33 34 37 66 35 36 35 0a 0a 74 63 6c 74 65 73  f347f565..tcltes
4c30: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4c40: 35 31 32 2d 32 32 34 2d 32 2e 36 31 20 7b 53 48  512-224-2.61 {SH
4c50: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
4c60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
4c70: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
4c80: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
4c90: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
4ca0: 68 65 78 20 63 33 32 61 64 31 66 38 32 31 66 62  hex c32ad1f821fb
4cb0: 64 38 62 35 62 37 31 35 33 65 61 38 61 61 31 31  d8b5b7153ea8aa11
4cc0: 30 35 35 65 61 38 66 62 64 65 35 34 38 36 36 30  055ea8fbde548660
4cd0: 65 63 61 65 32 38 61 38 63 62 32 62 61 32 61 36  ecae28a8cb2ba2a6
4ce0: 64 31 35 39 39 63 36 65 39 33 30 35 66 62 36 37  d1599c6e9305fb67
4cf0: 61 62 66 36 62 65 61 31 62 39 64 62 32 35 36 38  abf6bea1b9db2568
4d00: 61 38 38 31 31 39 31 39 33 33 34 39 63 38 33 34  a88119193349c834
4d10: 61 37 64 61 39 30 62 33 65 61 31 33 5d 7d 20 5c  a7da90b3ea13]} \
4d20: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4d30: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4d40: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
4d50: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4d60: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 39 31  xact -result c91
4d70: 65 65 34 63 37 34 30 61 35 36 36 33 62 33 62 31  ee4c740a5663b3b1
4d80: 39 65 64 37 37 38 61 30 35 31 36 63 30 31 61 33  9ed778a0516c01a3
4d90: 63 30 63 62 64 33 64 66 64 36 63 30 39 65 66 31  c0cbd3dfd6c09ef1
4da0: 61 66 64 62 39 0a 0a 74 63 6c 74 65 73 74 3a 3a  afdb9..tcltest::
4db0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
4dc0: 2d 32 32 34 2d 32 2e 36 32 20 7b 53 48 41 35 31  -224-2.62 {SHA51
4dd0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
4de0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4df0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
4e00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4e10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4e20: 20 32 36 35 37 63 36 32 35 66 35 65 61 35 31 66   2657c625f5ea51f
4e30: 36 36 62 31 33 37 35 66 34 37 39 31 32 33 64 38  66b1375f479123d8
4e40: 36 33 62 61 30 35 31 34 64 32 30 38 34 33 30 35  63ba0514d2084305
4e50: 37 34 63 36 31 62 61 39 36 33 61 64 32 66 31 39  74c61ba963ad2f19
4e60: 31 61 36 62 38 30 30 35 61 61 61 64 33 37 64 63  1a6b8005aaad37dc
4e70: 30 32 37 39 30 65 62 63 35 36 36 32 32 38 33 35  02790ebc56622835
4e80: 33 66 66 64 34 33 34 32 61 66 61 39 65 65 38 31  3ffd4342afa9ee81
4e90: 64 33 35 66 36 30 39 37 65 30 35 5d 7d 20 5c 0a  d35f6097e05]} \.
4ea0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
4eb0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
4ec0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
4ed0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
4ee0: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 32 66 31  act -result 92f1
4ef0: 33 33 34 66 32 35 33 32 36 30 65 35 31 33 64 35  334f253260e513d5
4f00: 65 36 66 30 64 31 61 36 61 66 36 65 64 32 66 62  e6f0d1a6af6ed2fb
4f10: 62 63 64 62 37 66 61 63 38 35 63 33 39 64 36 64  bcdb7fac85c39d6d
4f20: 34 30 34 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  4040..tcltest::t
4f30: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
4f40: 32 32 34 2d 32 2e 36 33 20 7b 53 48 41 35 31 32  224-2.63 {SHA512
4f50: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
4f60: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
4f70: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
4f80: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
4f90: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
4fa0: 35 36 35 35 63 33 36 37 31 66 62 64 38 32 38 38  5655c3671fbd8288
4fb0: 65 61 31 34 39 34 34 61 66 39 32 35 65 61 65 63  ea14944af925eaec
4fc0: 36 35 33 34 30 38 66 35 36 32 33 33 36 35 30 66  653408f56233650f
4fd0: 63 34 33 39 31 30 31 38 63 32 32 66 39 39 37 37  c4391018c22f9977
4fe0: 66 61 63 64 32 66 61 63 62 36 63 35 30 36 32 62  facd2facb6c5062b
4ff0: 36 65 33 64 66 63 36 62 38 65 38 33 37 62 33 61  6e3dfc6b8e837b3a
5000: 37 38 66 63 61 31 35 33 63 64 35 65 39 65 33 32  78fca153cd5e9e32
5010: 65 39 31 66 35 65 32 37 61 63 32 65 5d 7d 20 5c  e91f5e27ac2e]} \
5020: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5030: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5040: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
5050: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
5060: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 38 64  xact -result 58d
5070: 36 65 38 33 62 61 30 32 38 33 33 62 61 30 65 32  6e83ba02833ba0e2
5080: 33 66 65 33 34 37 32 64 32 38 65 38 66 39 38 36  3fe3472d28e8f986
5090: 33 39 38 36 32 30 66 37 34 36 34 66 66 31 38 65  398620f7464ff18e
50a0: 39 66 36 65 61 0a 0a 74 63 6c 74 65 73 74 3a 3a  9f6ea..tcltest::
50b0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
50c0: 2d 32 32 34 2d 32 2e 36 34 20 7b 53 48 41 35 31  -224-2.64 {SHA51
50d0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
50e0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
50f0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
5100: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5110: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5120: 20 33 35 30 62 64 36 30 31 38 63 62 62 65 64 38   350bd6018cbbed8
5130: 36 65 30 35 30 62 33 65 37 65 36 30 36 38 33 65  6e050b3e7e60683e
5140: 31 66 36 31 39 62 37 33 62 34 63 32 65 37 36 34  1f619b73b4c2e764
5150: 62 37 34 65 65 63 64 62 62 30 30 66 34 30 31 38  b74eecdbb00f4018
5160: 64 37 63 65 39 32 34 35 64 61 34 65 64 65 37 65  d7ce9245da4ede7e
5170: 36 64 34 33 39 61 66 63 38 62 66 30 33 65 62 38  6d439afc8bf03eb8
5180: 39 36 34 61 32 61 34 64 39 33 65 66 33 35 35 31  964a2a4d93ef3551
5190: 61 62 62 66 62 66 65 31 66 66 30 63 65 37 34 5d  abbfbfe1ff0ce74]
51a0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
51b0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
51c0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
51d0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
51e0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
51f0: 63 38 65 63 38 35 34 65 36 33 32 62 32 63 31 33  c8ec854e632b2c13
5200: 32 64 35 30 35 61 66 66 65 31 62 63 30 30 64 64  2d505affe1bc00dd
5210: 62 65 39 39 34 35 32 65 35 62 35 39 62 61 37 36  be99452e5b59ba76
5220: 61 30 32 64 64 38 33 38 0a 0a 74 63 6c 74 65 73  a02dd838..tcltes
5230: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
5240: 35 31 32 2d 32 32 34 2d 32 2e 36 35 20 7b 53 48  512-224-2.65 {SH
5250: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
5260: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5270: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
5280: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
5290: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
52a0: 68 65 78 20 34 63 64 32 37 33 32 34 63 32 38 33  hex 4cd27324c283
52b0: 36 34 38 37 33 63 36 64 64 62 63 33 65 33 61 37  64873c6ddbc3e3a7
52c0: 65 32 63 64 61 39 65 38 61 37 32 61 64 32 66 37  e2cda9e8a72ad2f7
52d0: 32 32 30 31 62 32 36 32 66 38 37 34 62 38 37 33  2201b262f874b873
52e0: 39 66 33 30 61 62 36 30 63 33 34 33 33 34 63 32  9f30ab60c34334c2
52f0: 65 39 32 66 39 64 34 38 35 33 33 63 64 38 61 64  e92f9d48533cd8ad
5300: 32 33 31 32 63 33 65 37 63 33 38 36 61 61 61 32  2312c3e7c386aaa2
5310: 38 33 62 35 30 64 65 63 38 34 34 66 61 34 33 32  83b50dec844fa432
5320: 64 36 33 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d636]} \..-body 
5330: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5340: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
5350: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
5360: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
5370: 73 75 6c 74 20 63 65 64 36 30 38 31 37 36 31 66  sult ced6081761f
5380: 66 35 32 35 39 66 31 33 32 61 61 38 33 31 62 37  f5259f132aa831b7
5390: 61 31 62 34 33 32 64 30 39 33 66 63 38 35 37 64  a1b432d093fc857d
53a0: 61 30 65 65 65 62 38 32 62 65 37 31 66 0a 0a 74  a0eeeb82be71f..t
53b0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
53c0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 36  h_SHA512-224-2.6
53d0: 36 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  6 {SHA512_224Sho
53e0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
53f0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
5400: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5410: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5420: 63 6f 64 65 20 68 65 78 20 61 34 66 32 30 36 33  code hex a4f2063
5430: 66 65 36 65 63 31 37 35 35 30 64 37 61 61 38 33  fe6ec17550d7aa83
5440: 31 30 39 31 39 35 32 64 63 34 64 63 30 34 31 61  1091952dc4dc041a
5450: 32 38 33 63 34 38 38 31 38 37 65 66 39 62 37 35  283c488187ef9b75
5460: 65 37 30 31 61 62 30 61 32 35 64 36 61 62 36 65  e701ab0a25d6ab6e
5470: 35 63 66 39 63 63 37 30 32 63 63 66 30 32 63 65  5cf9cc702ccf02ce
5480: 63 30 35 61 30 34 65 33 37 35 30 37 61 63 62 64  c05a04e37507acbd
5490: 61 35 38 63 65 63 39 33 33 39 33 38 61 38 62 34  a58cec933938a8b4
54a0: 62 37 35 61 34 34 32 35 63 65 34 5d 7d 20 5c 0a  b75a4425ce4]} \.
54b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
54c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
54d0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
54e0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
54f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 66 36 62  act -result af6b
5500: 37 66 61 66 63 62 65 39 63 62 32 35 30 30 33 63  7fafcbe9cb25003c
5510: 35 37 30 32 39 39 35 66 64 36 35 36 33 36 35 61  5702995fd656365a
5520: 32 30 65 31 31 33 63 38 65 35 62 31 30 33 31 32  20e113c8e5b10312
5530: 63 64 66 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  cdf0..tcltest::t
5540: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
5550: 32 32 34 2d 32 2e 36 37 20 7b 53 48 41 35 31 32  224-2.67 {SHA512
5560: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
5570: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
5580: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
5590: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
55a0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
55b0: 63 31 64 33 30 66 33 33 61 62 34 62 34 31 30 64  c1d30f33ab4b410d
55c0: 30 66 38 61 38 30 39 65 62 35 63 62 36 38 31 65  0f8a809eb5cb681e
55d0: 63 39 31 35 33 62 64 65 32 36 36 39 33 62 32 30  c9153bde26693b20
55e0: 64 34 34 30 35 37 32 63 63 65 33 35 30 61 61 30  d440572cce350aa0
55f0: 30 39 66 65 38 31 30 38 62 33 61 30 66 63 61 65  09fe8108b3a0fcae
5600: 62 38 65 33 37 36 62 34 38 62 30 34 38 38 35 66  b8e376b48b04885f
5610: 32 33 61 62 38 62 62 36 34 34 31 63 66 64 34 63  23ab8bb6441cfd4c
5620: 66 66 62 31 32 35 35 61 37 63 38 38 66 61 31 30  ffb1255a7c88fa10
5630: 66 37 37 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f779]} \..-body 
5640: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5650: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
5660: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
5670: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
5680: 73 75 6c 74 20 34 30 38 66 34 66 61 65 37 30 64  sult 408f4fae70d
5690: 30 66 64 37 34 35 61 65 34 34 65 64 36 36 37 34  0fd745ae44ed6674
56a0: 30 62 64 66 31 66 65 63 30 64 64 34 65 32 33 64  0bdf1fec0dd4e23d
56b0: 62 30 36 39 32 30 63 36 66 38 65 63 35 0a 0a 74  b06920c6f8ec5..t
56c0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
56d0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 36  h_SHA512-224-2.6
56e0: 38 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  8 {SHA512_224Sho
56f0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
5700: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
5710: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5720: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5730: 63 6f 64 65 20 68 65 78 20 36 31 62 33 34 62 38  code hex 61b34b8
5740: 61 61 61 65 32 65 31 39 65 32 64 36 31 39 32 34  aaae2e19e2d61924
5750: 36 34 32 33 35 31 61 64 65 32 62 61 61 36 39 32  642351ade2baa692
5760: 35 66 37 61 33 61 37 33 35 61 37 32 65 37 36 62  5f7a3a735a72e76b
5770: 39 39 30 35 62 37 37 35 61 30 30 34 66 30 66 37  9905b775a004f0f7
5780: 61 32 34 39 34 36 62 32 35 32 39 62 33 63 31 34  a24946b2529b3c14
5790: 34 61 32 30 35 64 39 31 34 32 61 63 36 63 64 64  4a205d9142ac6cdd
57a0: 37 34 61 36 62 30 64 63 61 39 64 33 35 61 35 35  74a6b0dca9d35a55
57b0: 36 33 31 30 37 63 33 38 61 33 31 37 35 37 33 5d  63107c38a317573]
57c0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
57d0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
57e0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
57f0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
5800: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
5810: 31 39 36 35 38 62 32 38 35 64 62 36 63 62 39 64  19658b285db6cb9d
5820: 62 62 34 63 65 61 62 66 65 36 37 31 34 33 34 63  bb4ceabfe671434c
5830: 66 31 62 38 35 34 35 35 61 38 62 34 64 61 33 38  f1b85455a8b4da38
5840: 35 65 61 64 38 33 30 63 0a 0a 74 63 6c 74 65 73  5ead830c..tcltes
5850: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
5860: 35 31 32 2d 32 32 34 2d 32 2e 36 39 20 7b 53 48  512-224-2.69 {SH
5870: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
5880: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5890: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
58a0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
58b0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
58c0: 68 65 78 20 33 34 31 33 62 30 39 64 33 64 31 32  hex 3413b09d3d12
58d0: 61 33 33 33 36 38 30 66 37 39 38 63 30 65 34 38  a333680f798c0e48
58e0: 38 37 37 36 35 37 39 64 33 66 36 61 36 35 66 32  8776579d3f6a65f2
58f0: 30 34 31 32 63 65 64 35 33 63 30 38 35 30 36 30  0412ced53c085060
5900: 61 36 65 31 63 30 36 31 65 64 36 61 34 34 62 39  a6e1c061ed6a44b9
5910: 37 65 33 31 63 32 30 32 39 37 34 37 39 38 37 35  7e31c20297479875
5920: 61 31 34 35 38 65 30 61 63 30 38 64 30 38 65 30  a1458e0ac08d08e0
5930: 61 38 64 32 38 31 65 30 62 32 64 62 33 34 39 65  a8d281e0b2db349e
5940: 32 66 38 33 31 63 37 66 66 63 30 35 5d 7d 20 5c  2f831c7ffc05]} \
5950: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5960: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5970: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
5980: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
5990: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 38  xact -result 008
59a0: 61 33 63 36 63 61 35 37 38 35 33 61 64 62 31 61  a3c6ca57853adb1a
59b0: 66 35 64 34 34 35 39 35 65 36 32 30 31 36 62 37  f5d44595e62016b7
59c0: 61 66 34 37 32 32 36 34 39 32 62 39 66 33 63 31  af47226492b9f3c1
59d0: 61 39 37 31 33 0a 0a 74 63 6c 74 65 73 74 3a 3a  a9713..tcltest::
59e0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
59f0: 2d 32 32 34 2d 32 2e 37 30 20 7b 53 48 41 35 31  -224-2.70 {SHA51
5a00: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
5a10: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
5a20: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
5a30: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5a40: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5a50: 20 62 36 65 36 39 30 64 31 37 64 39 64 37 66 30   b6e690d17d9d7f0
5a60: 37 31 38 35 35 30 32 62 66 36 64 32 37 35 63 38  7185502bf6d275c8
5a70: 34 65 33 61 63 34 66 35 66 37 37 63 33 64 34 62  4e3ac4f5f77c3d4b
5a80: 33 30 64 38 65 31 30 36 36 30 33 62 65 38 34 34  30d8e106603be844
5a90: 31 30 63 31 31 38 34 39 61 33 63 31 38 65 61 33  10c11849a3c18ea3
5aa0: 30 35 66 33 65 30 62 35 36 38 66 30 36 65 61 35  05f3e0b568f06ea5
5ab0: 34 30 36 39 34 61 63 30 61 33 30 36 66 34 63 64  40694ac0a306f4cd
5ac0: 36 30 34 38 35 39 30 62 38 39 35 37 30 33 63 62  6048590b895703cb
5ad0: 34 65 34 66 37 38 35 37 38 66 39 5d 7d 20 5c 0a  4e4f78578f9]} \.
5ae0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
5af0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
5b00: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
5b10: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
5b20: 61 63 74 20 2d 72 65 73 75 6c 74 20 66 35 31 64  act -result f51d
5b30: 64 35 39 34 63 37 64 66 65 63 63 65 66 39 35 65  d594c7dfeccef95e
5b40: 33 64 34 30 32 34 62 62 30 30 66 39 33 31 61 39  3d4024bb00f931a9
5b50: 65 39 35 31 36 39 35 38 63 33 32 64 32 32 35 39  e9516958c32d2259
5b60: 66 35 63 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  f5ca..tcltest::t
5b70: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
5b80: 32 32 34 2d 32 2e 37 31 20 7b 53 48 41 35 31 32  224-2.71 {SHA512
5b90: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
5ba0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
5bb0: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
5bc0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
5bd0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
5be0: 31 33 65 36 62 31 62 34 66 30 32 31 64 36 31 30  13e6b1b4f021d610
5bf0: 63 38 31 63 39 37 66 30 66 39 35 32 64 61 62 61  c81c97f0f952daba
5c00: 32 37 36 36 30 33 34 64 38 31 35 62 35 64 64 61  2766034d815b5dda
5c10: 34 36 30 33 62 63 66 37 38 38 62 61 36 30 65 65  4603bcf788ba60ee
5c20: 33 31 35 34 31 64 35 62 34 33 35 33 62 39 66 36  31541d5b4353b9f6
5c30: 36 34 35 64 39 36 61 64 39 39 65 65 39 30 66 36  645d96ad99ee90f6
5c40: 35 32 34 62 32 39 36 33 61 37 62 37 65 34 37 36  524b2963a7b7e476
5c50: 65 31 65 38 65 65 62 38 33 63 62 63 30 33 30 35  e1e8eeb83cbc0305
5c60: 65 62 32 39 39 30 32 61 35 64 37 32 5d 7d 20 5c  eb29902a5d72]} \
5c70: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
5c80: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
5c90: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
5ca0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
5cb0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 39 39  xact -result 099
5cc0: 30 30 63 35 61 65 33 30 37 34 66 65 37 33 65 36  00c5ae3074fe73e6
5cd0: 63 34 65 65 66 35 31 66 37 38 35 65 35 37 39 34  c4eef51f785e5794
5ce0: 37 62 61 66 62 65 31 64 38 64 65 61 33 38 38 36  7bafbe1d8dea3886
5cf0: 38 65 33 64 31 0a 0a 74 63 6c 74 65 73 74 3a 3a  8e3d1..tcltest::
5d00: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
5d10: 2d 32 32 34 2d 32 2e 37 32 20 7b 53 48 41 35 31  -224-2.72 {SHA51
5d20: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
5d30: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
5d40: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
5d50: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5d60: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5d70: 20 33 61 33 30 30 66 39 63 32 64 63 33 35 33 31   3a300f9c2dc3531
5d80: 39 31 37 32 32 32 30 33 34 37 39 31 38 32 34 62  917222034791824b
5d90: 34 39 34 33 36 62 65 34 64 64 61 37 36 30 66 36  49436be4dda760f6
5da0: 37 61 32 31 65 35 34 32 31 31 66 65 37 37 33 39  7a21e54211fe7739
5db0: 34 39 33 35 66 64 33 35 63 63 30 38 63 37 31 35  4935fd35cc08c715
5dc0: 35 39 66 64 32 33 31 61 32 35 35 31 36 37 32 66  59fd231a2551672f
5dd0: 34 36 33 32 34 65 34 30 38 31 64 34 65 39 65 37  46324e4081d4e9e7
5de0: 32 35 64 35 36 36 62 39 61 37 38 38 66 36 35 30  25d566b9a788f650
5df0: 34 37 31 33 65 63 36 64 34 36 64 34 36 66 61 5d  4713ec6d46d46fa]
5e00: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
5e10: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
5e20: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
5e30: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
5e40: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
5e50: 64 37 31 63 31 38 61 66 64 34 34 38 31 31 33 61  d71c18afd448113a
5e60: 34 35 64 30 36 62 61 36 31 36 61 31 39 34 35 61  45d06ba616a1945a
5e70: 35 36 37 65 32 36 66 33 33 36 63 62 39 34 61 34  567e26f336cb94a4
5e80: 35 63 32 35 31 39 64 37 0a 0a 74 63 6c 74 65 73  5c2519d7..tcltes
5e90: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
5ea0: 35 31 32 2d 32 32 34 2d 32 2e 37 33 20 7b 53 48  512-224-2.73 {SH
5eb0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
5ec0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
5ed0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
5ee0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
5ef0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
5f00: 68 65 78 20 38 31 63 36 34 64 32 33 31 33 64 63  hex 81c64d2313dc
5f10: 65 33 31 32 36 62 61 31 36 64 33 32 31 36 63 30  e3126ba16d3216c0
5f20: 66 33 33 34 39 31 30 66 30 36 33 62 30 30 37 32  f334910f063b0072
5f30: 30 62 65 33 32 32 66 64 64 36 38 32 38 35 35 38  0be322fdd6828558
5f40: 37 62 61 65 66 36 36 38 36 30 66 66 33 63 32 62  7baef66860ff3c2b
5f50: 39 37 31 35 30 36 65 34 36 62 64 64 32 31 37 39  971506e46bdd2179
5f60: 33 39 31 31 65 65 31 39 38 32 66 65 31 34 32 31  3911ee1982fe1421
5f70: 33 64 38 61 37 32 34 31 37 32 37 35 35 38 64 62  3d8a7241727558db
5f80: 30 34 64 66 66 36 61 62 63 66 30 62 31 34 61 64  04dff6abcf0b14ad
5f90: 66 32 36 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f262]} \..-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 35 31 32 2d 32 32 34 20  gest SHA512-224 
5fc0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
5fd0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
5fe0: 73 75 6c 74 20 63 38 35 61 63 64 37 35 65 63 34  sult c85acd75ec4
5ff0: 64 64 65 66 31 66 31 37 39 66 39 38 66 64 63 66  ddef1f179f98fdcf
6000: 38 65 30 30 36 61 31 64 38 30 61 66 63 31 34 37  8e006a1d80afc147
6010: 34 39 33 31 30 61 61 39 37 35 39 39 64 0a 0a 74  49310aa97599d..t
6020: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6030: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 37  h_SHA512-224-2.7
6040: 34 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  4 {SHA512_224Sho
6050: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
6060: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
6070: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6080: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6090: 63 6f 64 65 20 68 65 78 20 30 39 36 34 35 62 39  code hex 09645b9
60a0: 32 30 62 66 38 31 37 33 35 64 36 62 35 63 61 61  20bf81735d6b5caa
60b0: 34 33 62 62 37 36 64 66 64 61 37 34 39 37 30 30  43bb76dfda749700
60c0: 33 61 36 35 39 35 63 32 63 61 36 32 61 62 37 66  3a6595c2ca62ab7f
60d0: 35 66 65 34 39 32 38 37 39 32 65 63 32 64 62 34  5fe4928792ec2db4
60e0: 32 36 38 39 33 32 37 35 66 35 30 36 31 36 65 62  26893275f50616eb
60f0: 36 30 31 36 61 34 35 39 63 35 30 62 62 64 35 61  6016a459c50bbd5a
6100: 33 35 34 61 33 38 31 62 33 32 36 36 37 63 61 35  354a381b32667ca5
6110: 64 65 35 33 37 36 66 36 62 66 64 36 31 64 38 62  de5376f6bfd61d8b
6120: 63 61 39 63 35 62 34 34 66 62 37 5d 7d 20 5c 0a  ca9c5b44fb7]} \.
6130: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
6140: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
6150: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
6160: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6170: 61 63 74 20 2d 72 65 73 75 6c 74 20 36 35 30 65  act -result 650e
6180: 33 31 61 38 31 64 63 63 37 66 33 34 39 38 39 30  31a81dcc7f349890
6190: 30 64 32 30 35 64 36 31 31 62 31 30 31 65 38 39  0d205d611b101e89
61a0: 64 37 32 34 33 65 31 64 64 37 37 35 35 31 62 36  d7243e1dd77551b6
61b0: 63 34 32 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  c422..tcltest::t
61c0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
61d0: 32 32 34 2d 32 2e 37 35 20 7b 53 48 41 35 31 32  224-2.75 {SHA512
61e0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
61f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
6200: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
6210: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
6220: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
6230: 33 66 64 31 64 38 66 62 39 65 37 66 61 66 31 38  3fd1d8fb9e7faf18
6240: 61 34 39 61 31 62 64 63 37 37 66 62 61 30 39 33  a49a1bdc77fba093
6250: 63 62 65 30 39 61 66 30 30 64 34 36 31 39 39 39  cbe09af00d461999
6260: 65 31 39 61 65 65 65 37 63 66 39 31 30 36 65 36  e19aeee7cf9106e6
6270: 33 39 35 35 66 37 61 34 39 31 65 31 64 39 61 38  3955f7a491e1d9a8
6280: 63 39 61 65 35 37 63 30 30 61 38 66 30 35 30 30  c9ae57c00a8f0500
6290: 61 38 64 39 66 35 30 37 35 36 63 38 38 35 38 34  a8d9f50756c88584
62a0: 39 36 31 65 37 61 66 39 37 34 30 64 35 33 62 66  961e7af9740d53bf
62b0: 37 34 35 37 64 37 34 62 63 39 62 34 66 31 61 66  7457d74bc9b4f1af
62c0: 63 37 37 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c774]} \..-body 
62d0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
62e0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
62f0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
6300: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
6310: 73 75 6c 74 20 66 62 32 35 38 39 65 39 34 32 38  sult fb2589e9428
6320: 39 30 66 65 64 38 66 39 39 65 63 66 65 30 32 64  90fed8f99ecfe02d
6330: 33 61 35 31 36 38 33 61 35 64 61 35 38 32 62 65  3a51683a5da582be
6340: 39 64 61 64 64 32 35 33 30 35 64 33 33 0a 0a 74  9dadd25305d33..t
6350: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6360: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 37  h_SHA512-224-2.7
6370: 36 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  6 {SHA512_224Sho
6380: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
6390: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
63a0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
63b0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
63c0: 63 6f 64 65 20 68 65 78 20 35 61 66 30 65 62 33  code hex 5af0eb3
63d0: 31 36 65 37 39 33 66 61 39 65 61 39 64 35 31 34  16e793fa9ea9d514
63e0: 31 66 61 32 36 63 64 63 33 63 66 63 66 39 38 35  1fa26cdc3cfcf985
63f0: 32 39 37 36 31 36 33 61 38 61 63 31 64 38 31 61  2976163a8ac1d81a
6400: 31 30 62 35 61 66 35 66 64 30 39 36 66 64 30 36  10b5af5fd096fd06
6410: 31 34 31 64 33 62 61 61 30 64 31 38 33 63 65 33  141d3baa0d183ce3
6420: 39 63 36 61 34 61 62 32 31 64 34 36 61 63 37 63  9c6a4ab21d46ac7c
6430: 32 34 62 33 38 30 37 34 33 34 36 30 39 38 64 30  24b38074346098d0
6440: 61 32 35 30 65 64 32 37 66 33 65 39 38 66 34 31  a250ed27f3e98f41
6450: 33 64 30 33 39 35 31 38 32 33 38 32 36 35 34 5d  3d0395182382654]
6460: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
6470: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
6480: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
6490: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
64a0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
64b0: 38 66 34 63 36 61 36 31 33 32 31 63 36 65 35 30  8f4c6a61321c6e50
64c0: 30 63 66 30 64 63 32 62 37 64 37 64 39 37 64 61  0cf0dc2b7d7d97da
64d0: 39 33 30 31 66 37 31 34 32 30 66 61 63 36 30 34  9301f71420fac604
64e0: 66 65 61 65 31 39 66 32 0a 0a 74 63 6c 74 65 73  feae19f2..tcltes
64f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
6500: 35 31 32 2d 32 32 34 2d 32 2e 37 37 20 7b 53 48  512-224-2.77 {SH
6510: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
6520: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
6530: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
6540: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
6550: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
6560: 68 65 78 20 62 32 36 64 33 32 33 33 62 35 35 31  hex b26d3233b551
6570: 30 32 39 30 37 37 62 65 65 61 39 32 38 35 39 38  029077beea928598
6580: 38 39 36 39 31 61 63 33 38 35 33 61 39 66 39 37  89691ac3853a9f97
6590: 32 62 32 61 36 65 38 65 35 35 62 38 64 62 34 30  2b2a6e8e55b8db40
65a0: 39 31 34 66 37 35 39 32 37 66 31 62 38 39 32 61  914f75927f1b892a
65b0: 37 62 31 64 65 38 32 36 37 63 37 61 65 61 30 64  7b1de8267c7aea0d
65c0: 33 63 31 39 62 33 30 35 39 61 36 63 62 35 34 37  3c19b3059a6cb547
65d0: 33 63 38 65 37 36 64 31 37 38 38 66 39 34 35 61  3c8e76d1788f945a
65e0: 37 35 30 63 30 36 38 62 38 64 30 32 61 34 36 63  750c068b8d02a46c
65f0: 66 36 65 33 65 61 31 64 61 32 65 61 5d 7d 20 5c  f6e3ea1da2ea]} \
6600: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
6610: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
6620: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
6630: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
6640: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 64 38  xact -result 4d8
6650: 33 36 30 66 33 36 39 32 64 65 66 61 31 31 65 64  360f3692defa11ed
6660: 61 30 32 37 66 39 34 30 39 39 62 33 30 35 34 62  a027f94099b3054b
6670: 38 34 31 66 38 30 39 64 32 61 65 65 66 63 38 38  841f809d2aeefc88
6680: 35 64 32 62 38 0a 0a 74 63 6c 74 65 73 74 3a 3a  5d2b8..tcltest::
6690: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
66a0: 2d 32 32 34 2d 32 2e 37 38 20 7b 53 48 41 35 31  -224-2.78 {SHA51
66b0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
66c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
66d0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
66e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
66f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6700: 20 36 66 62 30 66 33 38 35 36 64 63 63 39 61 64   6fb0f3856dcc9ad
6710: 64 62 64 31 35 35 39 31 36 66 30 32 32 37 36 33  dbd155916f022763
6720: 30 39 35 39 66 30 31 63 37 36 34 61 63 61 62 39  0959f01c764acab9
6730: 39 62 63 38 30 64 63 34 33 35 30 35 32 66 66 34  9bc80dc435052ff4
6740: 62 31 64 37 39 32 31 36 33 39 66 64 32 62 61 65  b1d7921639fd2bae
6750: 63 34 34 36 32 63 61 62 61 32 31 33 63 32 38 31  c4462caba213c281
6760: 37 65 33 61 35 31 37 30 61 30 39 37 37 31 62 64  7e3a5170a09771bd
6770: 39 35 31 63 33 30 62 63 63 37 30 62 61 36 36 33  951c30bcc70ba663
6780: 34 30 36 63 65 65 61 61 63 64 31 31 34 36 33 39  406ceeaacd114639
6790: 66 32 31 65 64 63 32 30 61 38 63 5d 7d 20 5c 0a  f21edc20a8c]} \.
67a0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
67b0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
67c0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
67d0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
67e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 31 66 38  act -result 71f8
67f0: 65 30 39 66 39 31 31 64 63 38 61 63 36 37 39 39  e09f911dc8ac6799
6800: 39 63 31 30 63 30 35 39 63 32 30 33 61 66 34 61  9c10c059c203af4a
6810: 66 35 65 34 33 36 65 65 64 38 66 38 61 39 37 61  f5e436eed8f8a97a
6820: 36 66 32 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  6f2d..tcltest::t
6830: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
6840: 32 32 34 2d 32 2e 37 39 20 7b 53 48 41 35 31 32  224-2.79 {SHA512
6850: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
6860: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
6870: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
6880: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
6890: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
68a0: 38 34 37 31 65 39 33 39 64 34 35 33 31 34 38 36  8471e939d4531486
68b0: 63 31 34 63 32 35 39 61 65 65 63 36 66 33 63 30  c14c259aeec6f3c0
68c0: 30 64 66 64 64 36 63 30 35 30 61 38 62 61 61 38  0dfdd6c050a8baa8
68d0: 32 30 64 62 37 31 63 63 31 32 32 63 34 65 30 63  20db71cc122c4e0c
68e0: 31 37 31 35 65 66 35 35 66 33 39 39 35 61 36 62  1715ef55f3995a6b
68f0: 66 30 32 61 34 63 65 35 64 33 63 62 63 64 37 39  f02a4ce5d3cbcd79
6900: 30 66 37 32 30 38 37 39 33 39 62 30 35 61 39 65  0f72087939b05a9e
6910: 62 63 39 33 61 39 30 35 63 65 63 63 66 37 37 37  bc93a905ceccf777
6920: 61 32 30 64 33 36 65 64 64 66 62 35 35 65 35 33  a20d36eddfb55e53
6930: 35 32 61 66 62 65 38 64 64 66 39 37 5d 7d 20 5c  52afbe8ddf97]} \
6940: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
6950: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
6960: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
6970: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
6980: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 36 35  xact -result 065
6990: 63 62 39 33 62 62 32 34 30 36 30 30 33 37 37 36  cb93bb2406003776
69a0: 34 34 30 64 39 61 30 32 61 66 31 65 34 31 37 30  440d9a02af1e4170
69b0: 65 37 37 37 63 37 64 32 63 31 33 61 31 31 33 32  e777c7d2c13a1132
69c0: 36 32 63 65 30 0a 0a 74 63 6c 74 65 73 74 3a 3a  62ce0..tcltest::
69d0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
69e0: 2d 32 32 34 2d 32 2e 38 30 20 7b 53 48 41 35 31  -224-2.80 {SHA51
69f0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
6a00: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
6a10: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
6a20: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
6a30: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6a40: 20 63 38 37 61 37 34 34 38 62 37 31 38 39 61 31   c87a7448b7189a1
6a50: 31 65 35 33 32 61 34 33 32 30 38 37 34 31 38 36  1e532a4320874186
6a60: 34 30 37 66 62 33 32 34 37 30 64 31 38 39 30 34  407fb32470d18904
6a70: 63 64 64 35 31 32 66 64 32 36 35 61 39 39 36 38  cdd512fd265a9968
6a80: 66 39 35 32 32 35 31 33 32 37 31 37 66 61 31 34  f95225132717fa14
6a90: 36 36 35 34 65 37 32 35 61 64 39 32 36 38 64 35  6654e725ad9268d5
6aa0: 66 30 36 32 65 30 66 35 31 30 38 64 65 31 61 31  f062e0f5108de1a1
6ab0: 61 33 34 30 61 63 61 62 33 61 62 31 63 36 62 38  a340acab3ab1c6b8
6ac0: 63 32 66 61 31 65 39 32 65 33 36 30 37 38 37 31  c2fa1e92e3607871
6ad0: 66 33 64 61 34 64 34 30 35 35 66 66 62 64 63 5d  f3da4d4055ffbdc]
6ae0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
6af0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
6b00: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
6b10: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
6b20: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
6b30: 61 33 39 63 37 63 35 65 61 63 64 62 32 32 36 36  a39c7c5eacdb2266
6b40: 39 35 38 37 61 31 38 34 36 63 32 39 37 35 62 34  9587a1846c2975b4
6b50: 31 66 39 62 37 34 38 33 33 64 39 39 37 39 64 65  1f9b74833d9979de
6b60: 32 64 37 66 31 31 63 32 0a 0a 74 63 6c 74 65 73  2d7f11c2..tcltes
6b70: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
6b80: 35 31 32 2d 32 32 34 2d 32 2e 38 31 20 7b 53 48  512-224-2.81 {SH
6b90: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
6ba0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
6bb0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
6bc0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
6bd0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
6be0: 68 65 78 20 32 36 34 36 35 65 61 30 36 64 62 62  hex 26465ea06dbb
6bf0: 36 31 62 34 31 39 33 61 39 38 32 63 39 38 34 61  61b4193a982c984a
6c00: 30 33 35 38 30 38 35 66 64 36 66 31 34 63 61 30  0358085fd6f14ca0
6c10: 32 37 66 66 36 30 65 64 65 39 66 61 65 39 32 31  27ff60ede9fae921
6c20: 31 64 33 30 31 31 39 34 34 37 36 36 39 31 65 35  1d301194476691e5
6c30: 31 66 63 32 30 66 66 36 38 61 65 39 61 62 33 37  1fc20ff68ae9ab37
6c40: 63 38 36 34 64 35 32 38 65 66 34 38 36 31 31 39  c864d528ef486119
6c50: 39 38 31 36 64 64 33 34 64 38 65 30 32 32 62 65  9816dd34d8e022be
6c60: 37 32 61 64 32 39 39 61 34 61 31 66 32 30 30 66  72ad299a4a1f200f
6c70: 31 64 35 33 62 64 63 62 37 30 30 39 64 33 32 37  1d53bdcb7009d327
6c80: 63 36 30 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c605]} \..-body 
6c90: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6ca0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
6cb0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
6cc0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
6cd0: 73 75 6c 74 20 32 31 61 66 64 35 66 39 32 33 62  sult 21afd5f923b
6ce0: 63 37 62 61 65 32 33 34 66 31 34 66 66 64 36 36  c7bae234f14ffd66
6cf0: 32 66 31 37 34 62 34 64 31 37 39 63 37 32 34 31  2f174b4d179c7241
6d00: 64 64 62 35 37 35 37 36 66 65 35 30 32 0a 0a 74  ddb57576fe502..t
6d10: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6d20: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 38  h_SHA512-224-2.8
6d30: 32 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  2 {SHA512_224Sho
6d40: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
6d50: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
6d60: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6d70: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6d80: 63 6f 64 65 20 68 65 78 20 35 64 62 66 35 63 32  code hex 5dbf5c2
6d90: 37 31 31 65 32 36 66 62 61 33 34 32 33 65 63 62  711e26fba3423ecb
6da0: 66 66 30 64 35 36 65 62 38 63 39 33 34 63 62 36  ff0d56eb8c934cb6
6db0: 66 37 38 65 65 38 65 39 36 66 36 65 32 61 38 61  f78ee8e96f6e2a8a
6dc0: 61 64 37 32 37 36 32 31 64 64 39 35 30 39 36 62  ad727621dd95096b
6dd0: 33 62 64 65 65 31 66 32 64 35 35 35 37 38 65 32  3bdee1f2d55578e2
6de0: 35 64 66 61 36 31 65 33 39 39 31 30 33 65 62 36  5dfa61e399103eb6
6df0: 62 37 35 32 35 35 65 63 38 37 37 31 34 65 63 34  b75255ec87714ec4
6e00: 38 62 64 33 34 30 30 66 36 33 36 37 66 33 35 35  8bd3400f6367f355
6e10: 30 37 36 31 32 63 39 66 31 63 31 65 62 34 66 36  07612c9f1c1eb4f6
6e20: 64 36 35 66 31 61 33 37 64 34 64 5d 7d 20 5c 0a  d65f1a37d4d]} \.
6e30: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
6e40: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
6e50: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
6e60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
6e70: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 63 35 61  act -result ec5a
6e80: 31 33 39 39 33 36 66 32 63 34 32 61 31 66 34 31  139936f2c42a1f41
6e90: 31 30 65 32 63 35 32 62 66 37 63 33 63 64 33 62  10e2c52bf7c3cd3b
6ea0: 61 65 34 39 39 35 35 63 36 30 38 66 61 64 66 61  ae49955c608fadfa
6eb0: 31 36 33 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  163d..tcltest::t
6ec0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
6ed0: 32 32 34 2d 32 2e 38 33 20 7b 53 48 41 35 31 32  224-2.83 {SHA512
6ee0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
6ef0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
6f00: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
6f10: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
6f20: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
6f30: 32 35 62 65 34 36 65 33 64 66 32 35 39 35 61 61  25be46e3df2595aa
6f40: 61 61 39 62 65 39 64 32 31 30 31 37 61 61 32 64  aa9be9d21017aa2d
6f50: 36 34 33 30 36 37 32 30 34 38 38 63 37 39 62 34  64306720488c79b4
6f60: 37 31 39 63 65 33 65 61 61 66 38 36 37 64 34 66  719ce3eaaf867d4f
6f70: 32 37 36 33 35 32 64 31 65 33 61 62 34 36 64 31  276352d1e3ab46d1
6f80: 38 65 65 64 66 63 37 39 37 38 63 34 66 36 35 30  8eedfc7978c4f650
6f90: 65 31 30 36 66 65 30 62 37 33 33 65 63 35 61 37  e106fe0b733ec5a7
6fa0: 31 30 35 64 63 62 62 34 63 65 61 63 37 65 66 34  105dcbb4ceac7ef4
6fb0: 34 30 30 35 61 36 32 34 66 38 34 33 30 30 31 61  4005a624f843001a
6fc0: 34 39 66 37 32 39 31 30 35 32 35 64 62 65 34 30  49f72910525dbe40
6fd0: 33 37 38 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  378e]} \..-body 
6fe0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6ff0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
7000: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
7010: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
7020: 73 75 6c 74 20 32 37 36 61 30 64 62 62 35 34 32  sult 276a0dbb542
7030: 66 62 36 39 65 64 34 30 39 61 39 31 39 39 34 36  fb69ed409a919946
7040: 32 35 66 38 34 36 39 62 30 35 31 62 65 32 35 62  25f8469b051be25b
7050: 35 39 36 38 62 33 61 36 66 62 30 65 33 0a 0a 74  5968b3a6fb0e3..t
7060: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7070: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 38  h_SHA512-224-2.8
7080: 34 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  4 {SHA512_224Sho
7090: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
70a0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
70b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
70c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
70d0: 63 6f 64 65 20 68 65 78 20 32 62 66 36 39 62 34  code hex 2bf69b4
70e0: 62 35 30 33 31 32 66 30 37 66 63 64 36 38 64 34  b50312f07fcd68d4
70f0: 36 36 65 33 32 39 63 65 61 35 31 35 61 66 32 62  66e329cea515af2b
7100: 63 39 62 37 38 64 66 35 65 62 36 36 34 61 65 38  c9b78df5eb664ae8
7110: 32 64 65 37 34 32 37 35 61 63 61 39 34 35 39 34  2de74275aca94594
7120: 66 38 65 39 39 39 36 66 36 63 30 64 32 62 65 34  f8e9996f6c0d2be4
7130: 30 64 39 65 30 63 31 66 31 64 66 63 38 35 66 35  0d9e0c1f1dfc85f5
7140: 33 34 31 34 37 33 32 32 62 30 33 36 36 65 66 65  34147322b0366efe
7150: 63 31 61 34 64 65 39 32 62 31 61 35 63 64 36 35  c1a4de92b1a5cd65
7160: 33 30 65 37 38 64 36 39 61 61 37 61 33 62 31 33  30e78d69aa7a3b13
7170: 33 39 61 64 30 36 30 63 35 34 33 66 35 64 30 5d  39ad060c543f5d0]
7180: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7190: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
71a0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
71b0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
71c0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
71d0: 34 35 61 36 36 31 31 30 66 39 33 61 64 37 38 37  45a66110f93ad787
71e0: 33 39 32 33 62 39 37 33 33 36 63 32 33 65 38 37  3923b97336c23e87
71f0: 36 34 32 65 37 39 63 37 38 39 37 64 39 30 31 31  642e79c7897d9011
7200: 64 64 65 63 66 30 33 61 0a 0a 74 63 6c 74 65 73  ddecf03a..tcltes
7210: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
7220: 35 31 32 2d 32 32 34 2d 32 2e 38 35 20 7b 53 48  512-224-2.85 {SH
7230: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
7240: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
7250: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
7260: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
7270: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
7280: 68 65 78 20 61 38 31 61 33 32 31 33 39 64 36 39  hex a81a32139d69
7290: 66 62 64 36 34 30 30 30 66 38 64 34 61 36 65 65  fbd64000f8d4a6ee
72a0: 31 30 32 39 30 63 63 63 38 33 65 38 63 39 65 37  10290ccc83e8c9e7
72b0: 37 62 36 30 38 31 61 32 65 35 39 65 39 63 31 35  7b6081a2e59e9c15
72c0: 37 65 33 33 66 36 66 61 33 31 33 37 64 38 63 61  7e33f6fa3137d8ca
72d0: 61 30 38 64 32 38 32 33 30 31 36 39 64 63 36 64  a08d28230169dc6d
72e0: 32 62 31 30 62 34 62 64 66 30 64 66 32 39 66 39  2b10b4bdf0df29f9
72f0: 61 65 38 66 61 31 33 65 32 31 62 37 65 34 37 65  ae8fa13e21b7e47e
7300: 37 62 39 32 64 33 36 65 62 37 30 33 35 38 39 66  7b92d36eb703589f
7310: 32 61 64 36 39 39 65 61 35 62 34 39 37 31 31 32  2ad699ea5b497112
7320: 31 34 63 62 32 30 61 35 62 39 30 33 5d 7d 20 5c  14cb20a5b903]} \
7330: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
7340: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
7350: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
7360: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
7370: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 31 34  xact -result 414
7380: 33 66 61 34 34 38 64 65 35 65 62 63 31 34 61 61  3fa448de5ebc14aa
7390: 32 30 34 64 39 33 34 65 65 33 39 37 31 30 35 31  204d934ee3971051
73a0: 63 34 65 33 30 37 34 64 34 63 61 61 66 30 63 63  c4e3074d4caaf0cc
73b0: 36 32 61 66 31 0a 0a 74 63 6c 74 65 73 74 3a 3a  62af1..tcltest::
73c0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
73d0: 2d 32 32 34 2d 32 2e 38 36 20 7b 53 48 41 35 31  -224-2.86 {SHA51
73e0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
73f0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
7400: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
7410: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7420: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7430: 20 34 37 31 65 34 33 34 62 37 65 66 33 39 61 30   471e434b7ef39a0
7440: 35 35 31 62 32 65 64 39 32 35 30 30 30 36 33 35  551b2ed925000635
7450: 33 65 63 64 39 31 35 63 38 32 62 37 37 36 34 39  3ecd915c82b77649
7460: 65 61 31 37 36 38 66 65 39 39 62 33 35 38 35 61  ea1768fe99b3585a
7470: 65 39 64 37 66 66 37 61 34 30 66 36 62 62 32 33  e9d7ff7a40f6bb23
7480: 62 33 33 38 30 32 63 64 65 35 61 31 64 35 63 37  b33802cde5a1d5c7
7490: 35 35 38 31 38 63 66 32 66 33 35 61 36 66 39 37  55818cf2f35a6f97
74a0: 65 32 35 37 62 63 39 36 33 62 61 33 32 38 30 65  e257bc963ba3280e
74b0: 62 35 39 65 65 63 32 66 61 65 62 34 32 65 64 34  b59eec2faeb42ed4
74c0: 37 64 34 34 65 61 62 61 38 32 39 32 62 63 33 39  7d44eaba8292bc39
74d0: 30 31 64 38 61 33 35 64 35 62 64 5d 7d 20 5c 0a  01d8a35d5bd]} \.
74e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
74f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
7500: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
7510: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
7520: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 31 32 61  act -result a12a
7530: 35 31 61 35 39 66 31 31 36 66 38 37 66 37 35 37  51a59f116f87f757
7540: 66 32 66 64 65 33 30 65 31 31 39 38 30 64 37 64  f2fde30e11980d7d
7550: 39 36 65 62 63 39 35 39 37 37 34 61 37 33 34 65  96ebc959774a734e
7560: 64 65 37 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  de74..tcltest::t
7570: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
7580: 32 32 34 2d 32 2e 38 37 20 7b 53 48 41 35 31 32  224-2.87 {SHA512
7590: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
75a0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
75b0: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
75c0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
75d0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
75e0: 33 65 33 34 36 63 36 61 61 66 38 66 39 37 37 36  3e346c6aaf8f9776
75f0: 32 30 63 33 61 63 36 38 66 62 36 30 38 61 65 66  20c3ac68fb608aef
7600: 34 33 32 64 36 63 61 62 32 39 36 64 31 61 39 33  432d6cab296d1a93
7610: 64 61 36 32 36 31 39 34 39 63 31 30 63 30 37 61  da6261949c10c07a
7620: 31 39 34 33 36 34 31 34 66 61 64 33 35 37 39 33  19436414fad35793
7630: 62 38 32 37 66 34 33 34 61 66 66 38 39 65 31 66  b827f434aff89e1f
7640: 37 35 35 37 62 31 38 65 36 39 66 32 62 39 33 31  7557b18e69f2b931
7650: 38 66 39 33 65 32 64 32 39 62 65 39 62 30 33 35  8f93e2d29be9b035
7660: 34 62 38 62 66 30 34 32 66 61 33 61 65 66 36 35  4b8bf042fa3aef65
7670: 37 33 36 36 65 39 33 36 30 33 66 34 63 34 35 35  7366e93603f4c455
7680: 64 32 33 66 66 65 39 38 37 32 35 64 5d 7d 20 5c  d23ffe98725d]} \
7690: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
76a0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
76b0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
76c0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
76d0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 30 37  xact -result 307
76e0: 34 36 37 33 39 36 64 35 39 31 30 33 61 38 39 37  467396d59103a897
76f0: 65 36 61 35 62 31 36 64 62 61 61 32 61 30 64 63  e6a5b16dbaa2a0dc
7700: 33 36 35 65 32 32 33 39 35 34 36 35 61 30 33 35  365e22395465a035
7710: 66 64 32 39 33 0a 0a 74 63 6c 74 65 73 74 3a 3a  fd293..tcltest::
7720: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
7730: 2d 32 32 34 2d 32 2e 38 38 20 7b 53 48 41 35 31  -224-2.88 {SHA51
7740: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
7750: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
7760: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
7770: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7780: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7790: 20 31 63 65 31 66 30 31 62 34 36 62 34 63 39 65   1ce1f01b46b4c9e
77a0: 30 34 63 65 34 62 35 65 32 32 66 62 62 65 64 34  04ce4b5e22fbbed4
77b0: 62 30 32 35 34 32 37 63 35 35 38 34 38 62 30 33  b025427c55848b03
77c0: 64 66 39 38 62 62 62 65 37 64 39 39 30 66 39 38  df98bbbe7d990f98
77d0: 33 34 61 62 34 36 39 64 65 37 30 64 39 37 32 39  34ab469de70d9729
77e0: 62 66 35 35 31 32 66 33 33 66 66 66 66 30 61 33  bf5512f33ffff0a3
77f0: 62 35 66 62 38 38 63 65 36 30 63 65 66 37 33 63  b5fb88ce60cef73c
7800: 61 63 66 39 32 30 35 65 37 33 66 32 66 61 35 65  acf9205e73f2fa5e
7810: 35 66 30 35 62 61 34 39 64 65 38 35 34 35 39 64  5f05ba49de85459d
7820: 62 35 32 65 35 37 34 36 32 37 37 38 61 38 66 33  b52e57462778a8f3
7830: 31 65 39 64 35 30 36 30 35 30 31 31 30 30 39 5d  1e9d50605011009]
7840: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7850: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7860: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
7870: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
7880: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
7890: 35 62 61 39 34 65 32 36 33 39 34 34 38 35 65 62  5ba94e26394485eb
78a0: 30 61 39 65 33 66 33 64 33 64 39 61 36 30 38 33  0a9e3f3d3d9a6083
78b0: 62 33 35 64 61 65 64 35 66 30 63 38 38 39 62 63  b35daed5f0c889bc
78c0: 37 38 39 32 34 63 33 35 0a 0a 74 63 6c 74 65 73  78924c35..tcltes
78d0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
78e0: 35 31 32 2d 32 32 34 2d 32 2e 38 39 20 7b 53 48  512-224-2.89 {SH
78f0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
7900: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
7910: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
7920: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
7930: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
7940: 68 65 78 20 64 36 32 34 66 36 33 66 35 33 62 65  hex d624f63f53be
7950: 33 64 36 63 30 61 32 30 63 31 32 32 36 33 65 34  3d6c0a20c12263e4
7960: 34 33 36 65 34 36 32 34 30 37 64 37 32 65 33 64  436e462407d72e3d
7970: 38 35 34 32 38 30 64 33 36 31 31 33 31 63 31 36  854280d361131c16
7980: 39 64 39 35 33 31 34 33 30 65 39 63 35 35 36 64  9d9531430e9c556d
7990: 30 63 36 39 64 35 37 64 36 65 63 64 34 39 37 38  0c69d57d6ecd4978
79a0: 62 36 39 32 36 63 30 30 38 38 31 36 32 62 31 65  b6926c0088162b1e
79b0: 36 31 33 39 66 63 33 65 38 35 37 39 37 31 37 62  6139fc3e8579717b
79c0: 33 39 35 63 30 64 31 64 33 33 30 66 35 36 36 30  395c0d1d330f5660
79d0: 34 66 34 63 32 62 37 38 38 33 38 30 35 38 64 31  4f4c2b78838058d1
79e0: 31 35 32 65 36 38 39 62 30 62 38 65 62 62 38 36  152e689b0b8ebb86
79f0: 65 34 37 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e47b]} \..-body 
7a00: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7a10: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
7a20: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
7a30: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
7a40: 73 75 6c 74 20 33 37 63 64 64 35 32 33 64 39 32  sult 37cdd523d92
7a50: 32 33 36 32 61 64 34 36 33 32 31 36 66 33 34 30  2362ad463216f340
7a60: 66 32 35 34 65 37 36 61 61 61 61 30 62 34 35 66  f254e76aaaa0b45f
7a70: 36 64 66 66 63 61 33 30 64 35 35 64 30 0a 0a 74  6dffca30d55d0..t
7a80: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7a90: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 39  h_SHA512-224-2.9
7aa0: 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  0 {SHA512_224Sho
7ab0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
7ac0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
7ad0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7ae0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7af0: 63 6f 64 65 20 68 65 78 20 37 66 36 30 31 31 33  code hex 7f60113
7b00: 32 61 33 38 33 33 61 33 65 32 61 33 33 61 30 66  2a3833a3e2a33a0f
7b10: 31 61 30 35 38 64 36 61 32 64 62 30 36 66 31 31  1a058d6a2db06f11
7b20: 65 33 39 61 66 65 63 38 38 32 39 39 37 34 62 36  e39afec8829974b6
7b30: 34 65 64 38 39 66 66 65 65 39 65 63 39 38 61 62  4ed89ffee9ec98ab
7b40: 30 37 30 34 39 36 33 35 33 33 37 31 66 39 63 62  070496353371f9cb
7b50: 36 32 61 33 37 63 32 33 64 65 37 34 35 30 35 36  62a37c23de745056
7b60: 63 62 38 66 65 39 38 62 34 31 35 38 38 35 62 38  cb8fe98b415885b8
7b70: 63 36 61 32 66 62 38 63 34 31 61 35 39 63 61 31  c6a2fb8c41a59ca1
7b80: 36 63 33 62 63 63 35 66 66 63 34 63 65 39 32 63  6c3bcc5ffc4ce92c
7b90: 64 66 63 37 64 62 39 66 38 64 35 32 31 38 34 62  dfc7db9f8d52184b
7ba0: 35 38 31 61 66 36 32 63 39 38 34 5d 7d 20 5c 0a  581af62c984]} \.
7bb0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
7bc0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
7bd0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
7be0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
7bf0: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 30 38 37  act -result 1087
7c00: 31 63 30 65 35 36 32 65 31 31 61 61 35 39 34 30  1c0e562e11aa5940
7c10: 36 65 62 34 62 63 63 38 33 32 65 66 65 34 39 34  6eb4bcc832efe494
7c20: 32 32 36 30 65 66 30 38 63 66 63 66 39 39 65 37  2260ef08cfcf99e7
7c30: 64 62 35 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  db58..tcltest::t
7c40: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
7c50: 32 32 34 2d 32 2e 39 31 20 7b 53 48 41 35 31 32  224-2.91 {SHA512
7c60: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
7c70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
7c80: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
7c90: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
7ca0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
7cb0: 31 32 62 66 33 61 33 33 33 37 64 33 62 36 64 35  12bf3a3337d3b6d5
7cc0: 35 33 62 62 38 63 65 61 39 32 63 33 36 39 62 39  53bb8cea92c369b9
7cd0: 33 30 30 34 38 65 64 32 39 30 32 63 38 31 66 30  30048ed2902c81f0
7ce0: 38 38 38 32 30 33 32 34 66 66 32 34 34 33 33 30  88820324ff244330
7cf0: 62 62 39 33 35 31 33 31 37 34 37 32 64 35 38 32  bb9351317472d582
7d00: 32 64 38 62 30 31 64 63 63 34 31 33 63 34 63 32  2d8b01dcc413c4c2
7d10: 63 37 32 66 34 31 31 63 38 39 62 37 37 66 32 32  c72f411c89b77f22
7d20: 37 35 33 39 36 32 37 62 61 33 34 31 64 61 61 36  7539627ba341daa6
7d30: 61 39 64 37 35 61 39 61 62 34 34 61 38 63 61 39  a9d75a9ab44a8ca9
7d40: 64 37 32 63 34 33 61 61 61 32 39 65 62 31 35 37  d72c43aaa29eb157
7d50: 66 37 63 65 64 61 66 34 31 39 62 64 34 38 33 32  f7cedaf419bd4832
7d60: 30 36 34 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  0646]} \..-body 
7d70: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7d80: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
7d90: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
7da0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
7db0: 73 75 6c 74 20 36 66 37 36 33 38 38 36 66 32 37  sult 6f763886f27
7dc0: 33 61 61 35 66 39 34 33 65 63 65 63 66 37 62 37  3aa5f943ececf7b7
7dd0: 36 35 64 38 33 65 64 31 61 37 38 62 34 33 61 62  65d83ed1a78b43ab
7de0: 65 66 32 35 39 30 37 32 32 36 62 35 32 0a 0a 74  ef25907226b52..t
7df0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7e00: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 39  h_SHA512-224-2.9
7e10: 32 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  2 {SHA512_224Sho
7e20: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
7e30: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
7e40: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7e50: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7e60: 63 6f 64 65 20 68 65 78 20 34 32 34 66 31 64 30  code hex 424f1d0
7e70: 37 62 37 30 38 65 36 30 63 63 34 64 30 30 33 39  7b708e60cc4d0039
7e80: 36 63 62 30 65 39 30 35 39 37 66 33 39 37 37 61  6cb0e90597f3977a
7e90: 65 61 37 39 30 34 62 65 36 31 66 30 62 37 34 64  ea7904be61f0b74d
7ea0: 65 31 66 39 31 38 64 64 33 62 66 36 62 30 61 37  e1f918dd3bf6b0a7
7eb0: 38 62 62 66 39 31 65 34 36 37 34 61 33 64 63 31  8bbf91e4674a3dc1
7ec0: 34 33 38 31 33 39 63 65 37 63 33 61 31 61 30 30  438139ce7c3a1a00
7ed0: 62 30 36 30 66 66 37 36 33 32 37 37 37 61 32 66  b060ff7632777a2f
7ee0: 64 63 38 38 31 66 36 65 39 38 63 64 39 34 31 34  dc881f6e98cd9414
7ef0: 63 64 37 65 31 62 30 62 30 64 36 61 33 37 30 39  cd7e1b0b0d6a3709
7f00: 65 63 30 30 39 31 34 36 66 35 62 35 30 33 37 35  ec009146f5b50375
7f10: 66 63 31 62 61 36 32 65 33 36 34 38 33 33 30 5d  fc1ba62e3648330]
7f20: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
7f30: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
7f40: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
7f50: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
7f60: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
7f70: 37 37 34 32 63 31 35 31 31 66 63 35 61 30 32 39  7742c1511fc5a029
7f80: 37 36 33 34 66 62 33 64 39 32 38 61 30 35 38 36  7634fb3d928a0586
7f90: 32 36 35 31 38 62 37 66 62 38 38 64 62 34 32 38  26518b7fb88db428
7fa0: 65 32 61 32 38 32 61 65 0a 0a 74 63 6c 74 65 73  e2a282ae..tcltes
7fb0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
7fc0: 35 31 32 2d 32 32 34 2d 32 2e 39 33 20 7b 53 48  512-224-2.93 {SH
7fd0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
7fe0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
7ff0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
8000: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
8010: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
8020: 68 65 78 20 38 37 65 31 62 39 65 64 63 37 63 36  hex 87e1b9edc7c6
8030: 35 37 36 39 39 38 63 61 32 37 61 34 31 65 63 66  576998ca27a41ecf
8040: 39 30 34 31 30 33 32 37 61 64 62 39 36 64 62 35  90410327adb96db5
8050: 65 38 61 31 32 64 34 65 63 61 32 63 33 61 36 35  e8a12d4eca2c3a65
8060: 31 31 66 30 35 64 65 38 30 33 65 64 32 64 36 35  11f05de803ed2d65
8070: 30 33 63 62 33 65 37 31 36 32 36 33 39 36 34 61  03cb3e716263964a
8080: 37 37 38 31 36 30 62 62 66 32 65 38 65 35 34 30  778160bbf2e8e540
8090: 36 64 39 37 62 37 36 62 34 34 34 62 32 66 38 36  6d97b76b444b2f86
80a0: 61 37 34 35 31 61 37 61 65 64 34 64 62 30 66 30  a7451a7aed4db0f0
80b0: 32 62 66 37 63 36 62 35 30 36 32 35 34 34 36 33  2bf7c6b506254463
80c0: 63 35 63 64 64 38 33 65 61 62 66 64 65 63 35 63  c5cdd83eabfdec5c
80d0: 38 33 31 63 64 36 30 39 37 63 37 32 5d 7d 20 5c  831cd6097c72]} \
80e0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
80f0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
8100: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
8110: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
8120: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 33 33  xact -result 433
8130: 31 66 62 65 34 38 64 38 61 37 66 64 32 65 36 39  1fbe48d8a7fd2e69
8140: 61 62 30 32 37 39 35 30 39 31 33 31 64 34 34 65  ab0279509131d44e
8150: 62 31 33 32 34 32 37 33 31 31 37 32 34 65 32 64  b132427311724e2d
8160: 63 31 39 63 63 0a 0a 74 63 6c 74 65 73 74 3a 3a  c19cc..tcltest::
8170: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
8180: 2d 32 32 34 2d 32 2e 39 34 20 7b 53 48 41 35 31  -224-2.94 {SHA51
8190: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
81a0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
81b0: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
81c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
81d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
81e0: 20 38 66 64 30 37 30 35 36 38 34 63 61 33 32 33   8fd0705684ca323
81f0: 63 38 61 63 65 32 65 37 37 39 31 64 34 30 37 36  c8ace2e7791d4076
8200: 39 37 64 30 35 64 35 32 32 33 35 37 64 64 32 33  97d05d522357dd23
8210: 62 66 36 34 66 35 35 30 31 65 65 63 39 30 35 64  bf64f5501eec905d
8220: 37 30 36 66 61 34 36 64 35 66 66 37 32 66 38 62  706fa46d5ff72f8b
8230: 35 63 30 34 39 36 31 66 30 65 65 36 33 36 37 32  5c04961f0ee63672
8240: 34 62 65 66 31 30 33 62 39 30 37 33 62 66 32 63  4bef103b9073bf2c
8250: 34 39 63 39 65 61 65 32 62 64 38 64 30 39 63 30  49c9eae2bd8d09c0
8260: 62 37 61 36 63 38 37 35 36 62 33 61 61 34 64 63  b7a6c8756b3aa4dc
8270: 31 37 65 36 64 64 38 64 64 33 30 38 34 35 30 38  17e6dd8dd3084508
8280: 33 35 30 32 39 38 66 37 36 61 38 63 65 64 36 34  350298f76a8ced64
8290: 34 39 63 31 61 62 65 36 64 62 62 5d 7d 20 5c 0a  49c1abe6dbb]} \.
82a0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
82b0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
82c0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
82d0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
82e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 34 33 65 65  act -result 43ee
82f0: 33 62 32 33 34 65 61 39 31 32 32 38 63 30 35 33  3b234ea91228c053
8300: 35 38 66 61 35 36 62 62 35 30 37 32 30 33 31 66  58fa56bb5072031f
8310: 61 34 31 33 62 65 33 37 31 34 31 33 61 32 35 37  a413be371413a257
8320: 61 30 64 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  a0da..tcltest::t
8330: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
8340: 32 32 34 2d 32 2e 39 35 20 7b 53 48 41 35 31 32  224-2.95 {SHA512
8350: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
8360: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
8370: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
8380: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
8390: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
83a0: 62 64 63 63 62 61 35 35 34 30 37 37 36 31 61 36  bdccba55407761a6
83b0: 62 39 30 61 65 38 38 65 63 65 61 38 62 39 35 63  b90ae88ecea8b95c
83c0: 65 31 33 61 65 36 36 61 33 34 30 36 36 64 35 30  e13ae66a34066d50
83d0: 35 31 38 34 62 62 35 38 61 39 36 63 36 65 33 32  5184bb58a96c6e32
83e0: 37 62 31 34 35 66 65 39 66 37 66 39 65 30 31 36  7b145fe9f7f9e016
83f0: 61 34 39 62 34 32 35 34 66 66 38 66 39 62 66 33  a49b4254ff8f9bf3
8400: 36 35 63 66 63 35 66 31 33 32 35 34 61 61 32 35  65cfc5f13254aa25
8410: 32 62 65 37 62 66 62 65 31 39 33 34 63 66 65 63  2be7bfbe1934cfec
8420: 62 37 32 30 66 61 64 64 63 65 35 63 66 64 65 62  b720faddce5cfdeb
8430: 39 66 33 61 62 34 31 34 38 31 63 30 64 64 61 61  9f3ab41481c0ddaa
8440: 63 62 66 63 31 65 34 62 66 34 39 36 34 61 31 34  cbfc1e4bf4964a14
8450: 66 39 61 63 65 30 31 32 66 66 64 39 5d 7d 20 5c  f9ace012ffd9]} \
8460: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
8470: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
8480: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
8490: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
84a0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 31 66  xact -result 21f
84b0: 61 38 36 36 64 38 36 39 35 30 30 38 30 39 39 65  a866d8695008099e
84c0: 34 30 30 32 31 30 64 30 34 61 32 30 31 33 37 30  400210d04a201370
84d0: 31 38 38 37 64 37 61 66 61 39 38 65 38 33 32 34  1887d7afa98e8324
84e0: 65 39 36 64 65 0a 0a 74 63 6c 74 65 73 74 3a 3a  e96de..tcltest::
84f0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
8500: 2d 32 32 34 2d 32 2e 39 36 20 7b 53 48 41 35 31  -224-2.96 {SHA51
8510: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
8520: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
8530: 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65  HA512_224 \..-se
8540: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8550: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8560: 20 61 38 61 61 32 33 36 63 64 65 35 35 37 64 38   a8aa236cde557d8
8570: 64 33 36 35 65 36 65 64 33 35 36 36 33 36 65 65  d365e6ed356636ee
8580: 39 31 31 37 66 37 61 65 39 65 36 62 66 62 37 37  9117f7ae9e6bfb77
8590: 32 63 39 64 61 35 39 66 62 32 37 31 63 63 33 36  2c9da59fb271cc36
85a0: 37 32 34 61 34 65 66 64 39 32 37 63 66 31 31 63  724a4efd927cf11c
85b0: 39 39 38 66 34 37 37 35 38 65 38 35 32 62 34 65  998f47758e852b4e
85c0: 30 64 32 34 36 66 64 64 30 65 31 63 32 64 33 62  0d246fdd0e1c2d3b
85d0: 37 33 33 66 61 65 33 39 65 37 63 36 30 32 61 39  733fae39e7c602a9
85e0: 62 34 64 64 33 35 63 61 33 39 37 31 33 38 37 61  b4dd35ca3971387a
85f0: 30 36 62 37 39 66 33 63 33 30 33 65 35 34 65 31  06b79f3c303e54e1
8600: 63 30 36 66 37 30 35 36 38 30 38 38 32 66 35 32  c06f705680882f52
8610: 61 35 30 33 64 34 33 66 64 64 66 62 63 38 38 5d  a503d43fddfbc88]
8620: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
8630: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
8640: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
8650: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
8660: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
8670: 31 30 32 66 62 33 36 33 32 63 36 37 35 32 32 34  102fb3632c675224
8680: 62 33 30 66 66 61 61 35 61 33 32 32 61 65 66 33  b30ffaa5a322aef3
8690: 33 35 34 65 31 66 66 30 31 38 33 63 64 62 66 64  354e1ff0183cdbfd
86a0: 30 36 65 35 61 31 37 66 0a 0a 74 63 6c 74 65 73  06e5a17f..tcltes
86b0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
86c0: 35 31 32 2d 32 32 34 2d 32 2e 39 37 20 7b 53 48  512-224-2.97 {SH
86d0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
86e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
86f0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
8700: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
8710: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
8720: 68 65 78 20 34 34 63 36 63 37 35 65 33 37 37 66  hex 44c6c75e377f
8730: 32 31 66 63 39 63 64 37 63 31 36 34 63 61 35 63  21fc9cd7c164ca5c
8740: 34 63 62 38 32 63 35 35 33 38 61 35 38 64 66 62  4cb82c5538a58dfb
8750: 33 32 33 39 39 32 65 36 62 63 66 35 38 38 63 36  323992e6bcf588c6
8760: 31 62 32 34 36 30 35 33 37 30 36 62 66 38 38 37  1b246053706bf887
8770: 32 35 61 30 39 64 30 61 38 61 64 66 63 64 65 65  25a09d0a8adfcdee
8780: 63 30 64 62 34 31 39 63 64 37 37 33 32 62 30 65  c0db419cd7732b0e
8790: 33 33 38 36 62 63 33 66 33 34 30 37 65 39 65 30  3386bc3f3407e9e0
87a0: 31 36 35 34 36 66 34 64 31 35 63 33 31 34 62 66  16546f4d15c314bf
87b0: 64 35 37 65 33 30 63 33 30 32 39 32 36 64 65 62  d57e30c302926deb
87c0: 33 33 34 32 63 62 63 33 31 35 61 31 65 37 30 36  3342cbc315a1e706
87d0: 63 35 36 30 37 63 31 32 37 64 65 34 32 61 39 61  c5607c127de42a9a
87e0: 37 33 39 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  739b]} \..-body 
87f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8800: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
8810: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
8820: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
8830: 73 75 6c 74 20 62 39 62 36 32 39 38 36 65 65 62  sult b9b62986eeb
8840: 64 62 33 35 63 38 38 62 31 32 65 30 32 35 37 35  db35c88b12e02575
8850: 33 37 61 30 35 33 39 34 65 66 35 61 31 36 66 61  37a05394ef5a16fa
8860: 64 30 31 63 32 66 65 63 35 37 64 36 66 0a 0a 74  d01c2fec57d6f..t
8870: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8880: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 39  h_SHA512-224-2.9
8890: 38 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  8 {SHA512_224Sho
88a0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
88b0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32  raints SHA512_22
88c0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
88d0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
88e0: 63 6f 64 65 20 68 65 78 20 64 33 63 34 61 30 62  code hex d3c4a0b
88f0: 31 37 66 34 36 63 63 35 36 35 33 62 62 64 38 33  17f46cc5653bbd83
8900: 30 30 64 66 62 30 64 66 36 64 30 61 66 33 66 62  00dfb0df6d0af3fb
8910: 37 63 37 36 33 39 61 38 33 30 62 64 63 39 66 36  7c7639a830bdc9f6
8920: 38 63 37 61 62 36 39 61 30 39 61 30 32 33 35 30  8c7ab69a09a02350
8930: 38 33 63 63 37 32 31 64 34 36 35 65 37 33 34 38  83cc721d465e7348
8940: 31 65 61 65 64 39 66 30 63 32 39 64 33 34 32 36  1eaed9f0c29d3426
8950: 32 61 38 31 37 37 32 31 37 66 39 31 32 66 61 35  2a8177217f912fa5
8960: 61 65 31 38 36 35 66 32 39 62 39 37 36 36 39 63  ae1865f29b97669c
8970: 31 31 33 33 61 64 65 35 39 61 31 64 32 39 31 30  1133ade59a1d2910
8980: 66 35 33 37 62 39 62 32 33 63 30 38 30 65 39 36  f537b9b23c080e96
8990: 33 63 37 35 33 66 37 65 36 37 36 64 63 64 61 66  3c753f7e676dcdaf
89a0: 64 32 61 31 31 38 34 36 37 66 38 5d 7d 20 5c 0a  d2a118467f8]} \.
89b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
89c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
89d0: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
89e0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
89f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 34 39 65 34  act -result 49e4
8a00: 35 35 33 61 36 63 32 36 65 37 61 38 32 63 66 37  553a6c26e7a82cf7
8a10: 30 62 31 35 35 32 38 30 33 37 63 64 64 36 35 38  0b15528037cdd658
8a20: 61 65 33 33 36 35 33 62 66 34 63 65 38 65 38 36  ae33653bf4ce8e86
8a30: 37 39 39 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  799b..tcltest::t
8a40: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
8a50: 32 32 34 2d 32 2e 39 39 20 7b 53 48 41 35 31 32  224-2.99 {SHA512
8a60: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
8a70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
8a80: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
8a90: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
8aa0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
8ab0: 66 36 65 33 64 66 39 35 61 34 35 32 36 61 61 66  f6e3df95a4526aaf
8ac0: 36 37 31 62 31 61 62 39 33 34 32 64 62 33 62 61  671b1ab9342db3ba
8ad0: 30 61 36 30 34 33 64 61 38 32 62 33 35 35 63 34  0a6043da82b355c4
8ae0: 61 38 64 37 36 36 34 65 30 39 66 32 39 64 35 63  a8d7664e09f29d5c
8af0: 30 64 39 64 62 36 30 31 38 37 32 65 34 30 65 38  0d9db601872e40e8
8b00: 38 62 33 64 30 38 66 33 38 30 36 31 64 35 32 31  8b3d08f38061d521
8b10: 37 35 33 62 35 35 62 35 62 39 62 36 35 38 39 35  753b55b5b9b65895
8b20: 61 35 38 63 33 63 66 30 62 64 30 64 61 38 32 33  a58c3cf0bd0da823
8b30: 66 38 31 63 37 65 64 65 35 62 37 61 30 61 38 32  f81c7ede5b7a0a82
8b40: 63 63 34 37 38 30 63 65 32 36 63 35 61 35 62 62  cc4780ce26c5a5bb
8b50: 38 39 36 30 63 63 61 34 66 34 65 62 30 34 61 61  8960cca4f4eb04aa
8b60: 31 35 32 64 39 30 35 37 35 66 39 63 39 37 38 32  152d90575f9c9782
8b70: 35 65 36 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5e68]} \..-body 
8b80: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8b90: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
8ba0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
8bb0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
8bc0: 73 75 6c 74 20 34 38 35 34 63 62 32 61 33 61 39  sult 4854cb2a3a9
8bd0: 63 39 65 33 65 63 39 31 62 34 65 37 64 37 39 61  c9e3ec91b4e7d79a
8be0: 37 35 33 66 36 65 32 32 34 30 66 34 62 36 65 32  753f6e2240f4b6e2
8bf0: 30 35 30 35 39 30 64 36 66 31 36 34 37 0a 0a 74  050590d6f1647..t
8c00: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8c10: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
8c20: 30 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68  00 {SHA512_224Sh
8c30: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
8c40: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32  traints SHA512_2
8c50: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
8c60: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
8c70: 65 63 6f 64 65 20 68 65 78 20 63 34 37 32 32 34  ecode hex c47224
8c80: 34 62 64 33 33 32 35 61 38 34 64 33 37 32 32 30  4bd3325a84d37220
8c90: 65 37 63 61 36 65 63 64 34 30 65 33 66 32 30 65  e7ca6ecd40e3f20e
8ca0: 35 32 36 37 37 61 38 31 31 63 65 38 39 38 37 66  52677a811ce8987f
8cb0: 35 62 63 30 39 36 33 39 35 30 62 61 35 63 30 36  5bc0963950ba5c06
8cc0: 63 33 30 65 39 35 66 62 34 38 39 33 30 65 62 64  c30e95fb48930ebd
8cd0: 63 31 33 30 35 65 39 33 32 34 39 33 63 63 62 66  c1305e932493ccbf
8ce0: 37 66 32 36 36 64 30 66 33 39 33 66 38 64 61 66  7f266d0f393f8daf
8cf0: 39 61 39 38 35 30 34 31 38 64 66 65 39 39 32 66  9a9850418dfe992f
8d00: 61 35 34 64 32 62 34 30 35 66 39 62 30 66 36 61  a54d2b405f9b0f6a
8d10: 61 37 62 34 33 35 65 38 39 64 63 37 35 65 38 63  a7b435e89dc75e8c
8d20: 39 38 35 65 33 38 35 35 36 62 39 33 63 62 34 34  985e38556b93cb44
8d30: 65 38 38 31 31 35 36 63 61 33 66 61 66 31 34 39  e881156ca3faf149
8d40: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8d50: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8d60: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
8d70: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8d80: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8d90: 20 64 34 35 39 34 30 30 39 30 35 66 34 63 31 65   d459400905f4c1e
8da0: 65 66 66 39 30 64 65 63 64 39 63 63 39 39 34 62  eff90decd9cc994b
8db0: 33 39 34 62 32 31 34 33 30 33 37 39 64 36 33 32  394b21430379d632
8dc0: 38 63 30 33 61 66 34 33 36 0a 0a 74 63 6c 74 65  8c03af436..tclte
8dd0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
8de0: 41 35 31 32 2d 32 32 34 2d 32 2e 31 30 31 20 7b  A512-224-2.101 {
8df0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
8e00: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
8e10: 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c  nts SHA512_224 \
8e20: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
8e30: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
8e40: 65 20 68 65 78 20 38 66 66 30 35 32 30 38 30 35  e hex 8ff0520805
8e50: 61 33 33 36 61 61 37 36 38 61 31 61 37 35 66 32  a336aa768a1a75f2
8e60: 62 65 63 33 65 61 38 37 36 61 63 32 32 34 36 66  bec3ea876ac2246f
8e70: 32 64 34 39 36 30 38 37 62 66 33 65 62 63 30 33  2d496087bf3ebc03
8e80: 64 38 38 65 33 66 36 30 34 64 63 34 31 61 39 62  d88e3f604dc41a9b
8e90: 37 63 64 61 32 64 61 31 65 62 34 65 63 64 30 36  7cda2da1eb4ecd06
8ea0: 32 63 37 39 63 35 66 39 30 34 31 64 39 61 37 38  2c79c5f9041d9a78
8eb0: 63 63 33 64 31 34 63 30 31 36 33 31 66 39 30 38  cc3d14c01631f908
8ec0: 39 34 66 39 31 63 36 65 33 36 64 32 39 36 33 32  94f91c6e36d29632
8ed0: 39 33 30 37 35 34 32 32 38 61 30 61 64 32 35 35  930754228a0ad255
8ee0: 32 39 63 33 32 35 31 63 63 64 32 38 33 66 33 36  29c3251ccd283f36
8ef0: 38 62 30 65 36 66 34 33 63 66 33 65 32 37 37 62  8b0e6f43cf3e277b
8f00: 34 33 63 63 30 32 61 30 66 33 61 34 30 35 5d 7d  43cc02a0f3a405]}
8f10: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
8f20: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
8f30: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20  HA512-224 -data 
8f40: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
8f50: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36   exact -result 6
8f60: 31 36 66 61 38 34 39 35 66 35 35 65 37 37 61 33  16fa8495f55e77a3
8f70: 30 38 63 32 32 33 61 66 65 34 37 30 62 34 32 63  08c223afe470b42c
8f80: 30 65 31 61 30 31 34 35 37 34 61 61 33 36 64 30  0e1a014574aa36d0
8f90: 31 66 34 38 34 62 62 0a 0a 74 63 6c 74 65 73 74  1f484bb..tcltest
8fa0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35  ::test Hash_SHA5
8fb0: 31 32 2d 32 32 34 2d 32 2e 31 30 32 20 7b 53 48  12-224-2.102 {SH
8fc0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
8fd0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
8fe0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
8ff0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
9000: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
9010: 68 65 78 20 36 61 34 63 65 66 39 62 38 64 63 61  hex 6a4cef9b8dca
9020: 30 61 64 37 37 36 37 35 31 35 63 38 61 36 31 61  0ad7767515c8a61a
9030: 63 33 32 63 37 33 30 62 32 38 39 34 62 36 30 61  c32c730b2894b60a
9040: 31 30 36 62 63 35 36 39 39 35 33 34 61 31 37 30  106bc5699534a170
9050: 66 31 31 33 37 30 66 66 39 30 38 66 32 64 37 34  f11370ff908f2d74
9060: 36 61 39 36 39 65 63 66 38 66 63 31 38 36 31 35  6a969ecf8fc18615
9070: 30 33 64 61 31 64 66 32 63 64 39 63 62 64 61 31  03da1df2cd9cbda1
9080: 34 62 62 39 64 65 31 31 63 38 32 32 34 34 34 30  4bb9de11c8224440
9090: 35 30 38 32 37 37 65 62 63 33 30 62 37 34 36 61  508277ebc30b746a
90a0: 32 39 37 36 61 32 64 36 34 35 34 35 30 37 36 63  2976a2d64545076c
90b0: 36 64 34 63 62 63 33 36 39 39 36 66 39 65 65 38  6d4cbc36996f9ee8
90c0: 62 39 61 64 34 37 30 38 34 63 35 65 33 64 35 31  b9ad47084c5e3d51
90d0: 32 65 62 38 36 38 35 61 62 31 39 38 63 61 5d 7d  2eb8685ab198ca]}
90e0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
90f0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
9100: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20  HA512-224 -data 
9110: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
9120: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64   exact -result d
9130: 32 30 34 39 30 65 62 39 36 33 33 61 33 32 31 61  20490eb9633a321a
9140: 36 39 65 62 32 37 64 34 32 64 64 36 31 39 61 63  69eb27d42dd619ac
9150: 65 65 65 35 33 33 65 38 35 30 30 37 35 66 64 31  eee533e850075fd1
9160: 36 35 38 39 62 65 66 0a 0a 74 63 6c 74 65 73 74  6589bef..tcltest
9170: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35  ::test Hash_SHA5
9180: 31 32 2d 32 32 34 2d 32 2e 31 30 33 20 7b 53 48  12-224-2.103 {SH
9190: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
91a0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
91b0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
91c0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
91d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
91e0: 68 65 78 20 39 61 34 66 64 34 34 61 30 38 64 39  hex 9a4fd44a08d9
91f0: 66 35 65 37 37 33 31 36 30 33 61 63 39 32 62 31  f5e7731603ac92b1
9200: 38 65 33 64 38 38 30 66 66 32 64 35 62 39 64 37  8e3d880ff2d5b9d7
9210: 63 65 65 36 64 62 62 32 62 37 66 66 35 30 34 66  cee6dbb2b7ff504f
9220: 32 64 66 33 62 33 61 62 63 64 33 38 62 31 38 66  2df3b3abcd38b18f
9230: 63 39 38 64 31 61 35 61 39 36 64 66 33 37 30 30  c98d1a5a96df3700
9240: 65 34 36 65 35 66 35 33 64 33 32 63 63 35 38 31  e46e5f53d32cc581
9250: 36 34 36 35 39 34 64 65 32 64 61 35 33 65 65 34  646594de2da53ee4
9260: 35 32 64 37 31 30 37 38 62 30 61 61 30 62 36 66  52d71078b0aa0b6f
9270: 35 62 33 39 65 66 35 31 34 62 65 61 39 38 35 64  5b39ef514bea985d
9280: 35 32 39 36 38 64 63 64 35 31 65 62 64 37 35 62  52968dcd51ebd75b
9290: 61 63 30 66 30 66 30 33 66 62 38 36 62 62 30 62  ac0f0f03fb86bb0b
92a0: 30 33 35 36 64 62 34 31 65 34 36 39 62 65 38 34  0356db41e469be84
92b0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
92c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
92d0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
92e0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
92f0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
9300: 20 62 66 33 61 39 30 65 31 65 30 65 38 62 31 61   bf3a90e1e0e8b1a
9310: 32 30 62 30 38 33 33 31 64 61 33 63 31 39 39 36  20b08331da3c1996
9320: 63 38 33 39 35 61 31 65 33 62 38 33 35 37 39 39  c8395a1e3b835799
9330: 66 38 37 39 63 63 37 64 66 0a 0a 74 63 6c 74 65  f879cc7df..tclte
9340: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
9350: 41 35 31 32 2d 32 32 34 2d 32 2e 31 30 34 20 7b  A512-224-2.104 {
9360: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
9370: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
9380: 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c  nts SHA512_224 \
9390: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
93a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
93b0: 65 20 68 65 78 20 61 66 63 65 31 37 33 62 30 35  e hex afce173b05
93c0: 37 62 34 38 34 30 36 65 31 36 33 35 38 34 63 38  7b48406e163584c8
93d0: 64 38 63 31 61 39 33 62 31 35 38 30 34 36 31 32  d8c1a93b15804612
93e0: 63 32 32 37 38 64 63 61 33 34 34 31 32 62 36 39  c2278dca34412b69
93f0: 32 61 32 34 37 30 31 32 30 65 32 34 62 30 64 35  2a2470120e24b0d5
9400: 37 38 30 36 65 39 63 62 66 34 62 38 61 35 36 33  7806e9cbf4b8a563
9410: 30 35 33 66 32 32 66 37 36 61 66 30 62 31 61 33  053f22f76af0b1a3
9420: 39 66 65 33 35 63 35 36 61 37 61 35 63 62 32 39  9fe35c56a7a5cb29
9430: 30 39 32 64 36 39 66 30 31 39 31 31 63 32 30 66  092d69f01911c20f
9440: 37 38 66 61 32 66 39 30 64 65 35 36 62 36 37 32  78fa2f90de56b672
9450: 31 37 34 63 32 63 34 33 34 63 66 35 39 63 66 31  174c2c434cf59cf1
9460: 38 34 63 39 65 64 64 64 36 61 35 37 62 65 33 31  84c9eddd6a57be31
9470: 35 31 33 61 39 35 37 34 37 35 34 38 33 39 35 62  513a95747548395b
9480: 38 34 30 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  840c]} \..-body 
9490: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
94a0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
94b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
94c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
94d0: 73 75 6c 74 20 33 37 33 64 30 38 31 33 39 31 33  sult 373d0813913
94e0: 39 61 66 39 36 66 32 32 38 31 30 63 38 65 38 34  9af96f22810c8e84
94f0: 34 33 61 37 38 31 63 38 38 33 34 34 62 37 33 62  43a781c88344b73b
9500: 39 62 37 31 37 61 39 37 66 34 61 30 34 0a 0a 74  9b717a97f4a04..t
9510: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
9520: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
9530: 30 35 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68  05 {SHA512_224Sh
9540: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
9550: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32  traints SHA512_2
9560: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
9570: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
9580: 65 63 6f 64 65 20 68 65 78 20 35 34 32 31 63 62  ecode hex 5421cb
9590: 63 65 33 30 37 64 32 63 38 39 61 32 37 61 37 62  ce307d2c89a27a7b
95a0: 30 61 31 64 35 31 35 65 36 39 32 37 30 30 32 62  0a1d515e6927002b
95b0: 62 36 35 64 33 66 30 39 39 30 62 38 62 34 35 32  b65d3f0990b8b452
95c0: 66 33 31 30 36 61 33 63 35 32 64 65 38 30 62 39  f3106a3c52de80b9
95d0: 65 36 34 36 31 65 39 62 34 35 35 35 61 64 66 63  e6461e9b4555adfc
95e0: 33 36 38 37 34 38 64 64 63 34 38 63 36 64 30 64  368748ddc48c6d0d
95f0: 39 31 34 62 66 39 34 64 36 64 32 38 35 33 62 31  914bf94d6d2853b1
9600: 32 37 38 32 65 37 34 39 61 33 38 30 64 36 30 31  2782e749a380d601
9610: 32 64 30 65 65 62 63 36 30 64 32 32 64 32 65 61  2d0eebc60d22d2ea
9620: 35 63 34 34 38 34 63 61 31 36 34 64 30 36 61 65  5c4484ca164d06ae
9630: 37 30 36 66 35 33 66 30 36 62 37 35 39 37 36 31  706f53f06b759761
9640: 61 39 34 63 39 64 65 38 37 66 63 33 38 62 36 63  a94c9de87fc38b6c
9650: 34 64 38 66 63 64 66 34 30 61 5d 7d 20 5c 0a 09  4d8fcdf40a]} \..
9660: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
9670: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31  st -digest SHA51
9680: 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  2-224 -data $dat
9690: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
96a0: 63 74 20 2d 72 65 73 75 6c 74 20 35 62 63 31 64  ct -result 5bc1d
96b0: 63 66 35 39 33 34 32 34 39 39 31 39 35 61 36 31  cf59342499195a61
96c0: 61 30 36 36 31 61 66 37 61 38 65 39 36 30 39 37  a0661af7a8e96097
96d0: 36 36 30 61 39 66 37 65 35 37 36 35 37 32 66 33  660a9f7e576572f3
96e0: 64 30 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  d0b..tcltest::te
96f0: 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32  st Hash_SHA512-2
9700: 32 34 2d 32 2e 31 30 36 20 7b 53 48 41 35 31 32  24-2.106 {SHA512
9710: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
9720: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
9730: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
9740: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
9750: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
9760: 35 61 64 64 39 30 37 31 64 31 64 35 64 31 37 39  5add9071d1d5d179
9770: 39 63 30 66 39 32 32 33 31 30 39 62 37 36 31 62  9c0f9223109b761b
9780: 37 62 39 65 65 31 63 33 30 61 61 32 30 30 32 35  7b9ee1c30aa20025
9790: 65 61 33 30 30 61 32 62 61 65 61 31 63 35 31 32  ea300a2baea1c512
97a0: 66 31 33 31 34 62 31 63 33 63 35 35 30 65 38 35  f1314b1c3c550e85
97b0: 32 61 34 66 31 61 62 39 63 39 66 66 39 61 63 34  2a4f1ab9c9ff9ac4
97c0: 34 34 66 63 39 65 30 61 62 66 65 33 31 62 33 38  44fc9e0abfe31b38
97d0: 38 33 65 66 33 33 37 61 35 62 63 61 62 37 65 66  83ef337a5bcab7ef
97e0: 33 64 61 33 65 62 35 61 32 64 38 31 38 39 31 61  3da3eb5a2d81891a
97f0: 35 66 64 37 30 38 35 63 39 63 35 38 31 64 38 66  5fd7085c9c581d8f
9800: 65 36 30 63 38 33 31 38 35 66 61 34 66 38 34 37  e60c83185fa4f847
9810: 36 37 30 62 38 38 38 61 30 35 33 64 30 64 65 31  670b888a053d0de1
9820: 38 38 35 63 66 37 39 32 36 65 30 31 34 39 31 65  885cf7926e01491e
9830: 38 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  84]} \..-body {t
9840: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
9850: 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64  st SHA512-224 -d
9860: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
9870: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
9880: 6c 74 20 30 63 33 37 30 34 31 30 64 63 38 65 32  lt 0c370410dc8e2
9890: 32 65 65 36 31 63 34 39 64 37 61 33 62 64 33 64  2ee61c49d7a3bd3d
98a0: 37 65 38 30 63 63 34 66 33 66 35 31 61 63 62 32  7e80cc4f3f51acb2
98b0: 36 61 65 34 65 63 35 61 33 61 31 0a 0a 74 63 6c  6ae4ec5a3a1..tcl
98c0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
98d0: 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 30 37  SHA512-224-2.107
98e0: 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72   {SHA512_224Shor
98f0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
9900: 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34  aints SHA512_224
9910: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
9920: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
9930: 6f 64 65 20 68 65 78 20 65 39 36 35 62 61 38 64  ode hex e965ba8d
9940: 31 32 33 36 61 31 30 62 33 36 32 63 64 37 35 63  1236a10b362cd75c
9950: 61 63 64 30 31 37 35 63 61 64 30 61 66 36 35 65  acd0175cad0af65e
9960: 31 33 64 39 63 35 37 61 36 30 34 37 62 37 32 39  13d9c57a6047b729
9970: 30 32 39 64 34 37 30 66 64 36 64 33 64 34 31 37  029d470fd6d3d417
9980: 65 61 34 61 38 65 63 35 38 37 62 65 39 36 63 38  ea4a8ec587be96c8
9990: 36 66 37 36 36 31 63 66 36 33 62 64 35 65 39 65  6f7661cf63bd5e9e
99a0: 65 38 39 36 64 38 36 31 34 62 61 63 31 64 34 30  e896d8614bac1d40
99b0: 65 33 38 38 65 30 33 33 39 36 30 36 64 63 31 38  e388e0339606dc18
99c0: 39 65 30 61 62 61 30 33 38 64 36 66 33 35 64 35  9e0aba038d6f35d5
99d0: 38 66 34 30 37 63 31 30 66 30 32 62 64 37 65 39  8f407c10f02bd7e9
99e0: 64 65 33 32 38 65 39 66 36 66 61 34 30 37 30 63  de328e9f6fa4070c
99f0: 65 36 34 63 32 65 37 61 33 32 65 38 31 39 62 37  e64c2e7a32e819b7
9a00: 62 37 64 64 65 64 36 63 35 31 32 38 5d 7d 20 5c  b7dded6c5128]} \
9a10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
9a20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
9a30: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
9a40: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
9a50: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 37 35  xact -result 175
9a60: 63 34 61 37 66 61 34 39 31 65 37 64 62 65 33 61  c4a7fa491e7dbe3a
9a70: 32 63 38 36 30 34 62 30 37 62 61 62 30 65 32 61  2c8604b07bab0e2a
9a80: 32 65 33 34 62 32 37 30 65 31 36 62 34 33 39 32  2e34b270e16b4392
9a90: 65 39 37 31 36 0a 0a 74 63 6c 74 65 73 74 3a 3a  e9716..tcltest::
9aa0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
9ab0: 2d 32 32 34 2d 32 2e 31 30 38 20 7b 53 48 41 35  -224-2.108 {SHA5
9ac0: 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  12_224ShortMsg} 
9ad0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
9ae0: 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73  SHA512_224 \..-s
9af0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
9b00: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
9b10: 78 20 33 31 34 31 35 38 33 33 36 66 62 66 37 38  x 314158336fbf78
9b20: 34 35 32 35 31 65 31 61 36 32 30 36 31 33 61 64  45251e1a620613ad
9b30: 38 63 31 61 35 39 39 36 65 35 31 32 61 65 32 35  8c1a5996e512ae25
9b40: 63 64 64 39 31 65 63 38 34 62 36 62 38 33 37 66  cdd91ec84b6b837f
9b50: 61 65 65 61 34 64 39 30 37 34 65 66 37 66 37 63  aeea4d9074ef7f7c
9b60: 36 61 31 65 66 61 33 31 31 35 66 64 66 65 38 31  6a1efa3115fdfe81
9b70: 35 31 30 36 65 65 64 33 33 38 66 61 35 33 31 39  5106eed338fa5319
9b80: 34 35 37 39 32 34 30 32 62 39 64 30 34 35 37 30  45792402b9d04570
9b90: 33 65 31 32 34 64 32 63 63 62 36 61 38 63 64 39  3e124d2ccb6a8cd9
9ba0: 63 37 61 66 34 64 32 36 37 31 33 39 35 38 34 38  c7af4d2671395848
9bb0: 37 66 66 33 62 62 61 38 30 35 62 32 63 61 64 38  7ff3bba805b2cad8
9bc0: 39 39 63 35 36 35 63 63 62 35 63 65 37 39 34 37  99c565ccb5ce7947
9bd0: 35 64 64 30 63 39 39 33 30 31 38 38 65 66 37 35  5dd0c9930188ef75
9be0: 61 34 30 31 39 64 36 30 5d 7d 20 5c 0a 09 2d 62  a4019d60]} \..-b
9bf0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
9c00: 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d   -digest SHA512-
9c10: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
9c20: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
9c30: 20 2d 72 65 73 75 6c 74 20 64 36 63 64 31 39 30   -result d6cd190
9c40: 31 62 62 65 61 66 34 62 36 39 61 37 63 32 31 31  1bbeaf4b69a7c211
9c50: 63 35 30 35 34 36 66 63 65 33 35 33 38 61 38 33  c50546fce3538a83
9c60: 38 38 34 36 30 65 63 32 39 66 66 38 31 36 36 64  88460ec29ff8166d
9c70: 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  f..tcltest::test
9c80: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34   Hash_SHA512-224
9c90: 2d 32 2e 31 30 39 20 7b 53 48 41 35 31 32 5f 32  -2.109 {SHA512_2
9ca0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
9cb0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
9cc0: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12_224 \..-setup
9cd0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
9ce0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 63  ry decode hex 2c
9cf0: 32 64 38 36 31 39 37 62 33 39 63 31 39 34 63 36  2d86197b39c194c6
9d00: 35 61 39 33 62 64 61 64 63 37 32 61 39 65 35 39  5a93bdadc72a9e59
9d10: 30 66 61 37 35 66 61 38 61 65 36 62 37 35 38 61  0fa75fa8ae6b758a
9d20: 64 66 39 31 31 36 61 62 62 32 62 62 66 30 35 32  df9116abb2bbf052
9d30: 35 65 31 32 31 61 38 39 64 38 38 38 34 62 37 65  5e121a89d8884b7e
9d40: 61 35 36 31 34 61 32 39 65 63 66 31 61 35 32 66  a5614a29ecf1a52f
9d50: 63 66 61 37 61 36 30 36 66 62 34 61 38 33 35 61  cfa7a606fb4a835a
9d60: 37 65 38 33 64 35 62 30 64 61 39 63 34 62 34 61  7e83d5b0da9c4b4a
9d70: 35 37 38 37 61 30 34 61 39 64 32 32 63 61 31 61  5787a04a9d22ca1a
9d80: 38 31 62 39 37 35 30 61 32 30 63 63 61 66 33 62  81b9750a20ccaf3b
9d90: 32 61 31 33 65 35 62 64 38 31 63 30 30 65 66 34  2a13e5bd81c00ef4
9da0: 30 33 30 34 32 36 34 30 61 33 64 34 64 65 64 63  03042640a3d4dedc
9db0: 62 66 65 64 39 32 30 37 61 65 31 36 37 62 36 32  bfed9207ae167b62
9dc0: 39 38 61 35 32 36 5d 7d 20 5c 0a 09 2d 62 6f 64  98a526]} \..-bod
9dd0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
9de0: 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32  digest SHA512-22
9df0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
9e00: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
9e10: 72 65 73 75 6c 74 20 34 39 64 61 65 32 31 65 37  result 49dae21e7
9e20: 37 33 33 63 65 30 39 65 33 39 32 64 64 39 38 30  733ce09e392dd980
9e30: 65 63 33 61 30 63 32 63 35 34 32 36 39 33 37 36  ec3a0c2c54269376
9e40: 65 32 33 31 63 31 39 64 63 66 35 61 37 37 34 0a  e231c19dcf5a774.
9e50: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
9e60: 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32  ash_SHA512-224-2
9e70: 2e 31 31 30 20 7b 53 48 41 35 31 32 5f 32 32 34  .110 {SHA512_224
9e80: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
9e90: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32  nstraints SHA512
9ea0: 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  _224 \..-setup {
9eb0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
9ec0: 20 64 65 63 6f 64 65 20 68 65 78 20 62 63 31 30   decode hex bc10
9ed0: 36 62 30 37 31 62 35 33 63 34 64 38 35 35 65 31  6b071b53c4d855e1
9ee0: 61 33 64 64 61 34 31 64 62 31 61 37 61 34 34 36  a3dda41db1a7a446
9ef0: 30 35 38 36 62 34 34 38 61 33 66 64 39 66 64 38  0586b448a3fd9fd8
9f00: 34 32 37 34 37 63 62 66 35 33 32 64 64 32 37 36  42747cbf532dd276
9f10: 33 65 37 39 30 30 66 34 65 66 32 63 64 63 63 34  3e7900f4ef2cdcc4
9f20: 39 31 34 65 39 62 35 61 39 39 31 33 66 31 61 37  914e9b5a9913f1a7
9f30: 30 37 30 64 37 38 65 62 65 38 61 31 35 36 63 62  070d78ebe8a156cb
9f40: 32 30 62 38 31 62 61 33 36 36 62 36 65 38 31 64  20b81ba366b6e81d
9f50: 39 30 62 30 64 36 30 33 31 31 64 61 39 35 35 31  90b0d60311da9551
9f60: 63 30 33 65 35 34 38 66 64 62 62 34 65 31 35 64  c03e548fdbb4e15d
9f70: 34 62 30 65 31 32 35 30 32 39 39 33 36 33 66 63  4b0e1250299363fc
9f80: 38 32 61 66 65 30 35 32 35 37 65 38 34 36 32 64  82afe05257e8462d
9f90: 65 38 31 34 36 35 32 37 33 33 63 39 63 38 62 31  e814652733c9c8b1
9fa0: 62 37 31 36 39 38 5d 7d 20 5c 0a 09 2d 62 6f 64  b71698]} \..-bod
9fb0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
9fc0: 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32  digest SHA512-22
9fd0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
9fe0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
9ff0: 72 65 73 75 6c 74 20 33 62 61 66 66 38 62 63 31  result 3baff8bc1
a000: 66 34 33 35 31 66 63 36 32 63 61 34 30 39 30 34  f4351fc62ca40904
a010: 61 30 30 32 31 39 38 62 35 65 66 36 39 32 34 61  a002198b5ef6924a
a020: 66 62 61 31 64 31 66 63 36 31 64 38 61 65 31 0a  fba1d1fc61d8ae1.
a030: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
a040: 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32  ash_SHA512-224-2
a050: 2e 31 31 31 20 7b 53 48 41 35 31 32 5f 32 32 34  .111 {SHA512_224
a060: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
a070: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32  nstraints SHA512
a080: 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  _224 \..-setup {
a090: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
a0a0: 20 64 65 63 6f 64 65 20 68 65 78 20 66 36 32 37   decode hex f627
a0b0: 38 34 38 63 34 61 66 65 63 64 38 64 66 33 33 64  848c4afecd8df33d
a0c0: 61 31 39 63 36 30 36 61 66 66 31 31 39 61 33 37  a19c606aff119a37
a0d0: 36 32 63 36 31 63 30 35 33 39 63 33 65 36 61 38  62c61c0539c3e6a8
a0e0: 39 36 31 62 63 64 36 61 32 61 31 31 31 35 35 32  961bcd6a2a111552
a0f0: 37 31 37 66 34 31 61 36 32 61 37 39 32 61 61 65  717f41a62a792aae
a100: 30 61 32 64 34 66 62 62 62 31 30 64 36 63 36 38  0a2d4fbbb10d6c68
a110: 64 64 33 31 34 65 32 30 64 65 66 36 65 35 65 30  dd314e20def6e5e0
a120: 34 61 65 63 39 62 33 65 66 31 65 66 65 34 61 62  4aec9b3ef1efe4ab
a130: 31 33 39 33 31 36 66 35 64 31 63 36 37 63 31 30  139316f5d1c67c10
a140: 65 32 62 30 61 35 31 35 38 37 64 65 30 32 38 62  e2b0a51587de028b
a150: 63 31 61 30 62 31 65 36 63 31 61 66 39 33 34 64  c1a0b1e6c1af934d
a160: 61 30 31 33 61 34 61 30 35 30 34 34 38 63 62 61  a013a4a050448cba
a170: 64 33 39 30 37 31 66 33 61 61 62 63 31 30 65 39  d39071f3aabc10e9
a180: 39 31 65 65 30 63 38 31 5d 7d 20 5c 0a 09 2d 62  91ee0c81]} \..-b
a190: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
a1a0: 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d   -digest SHA512-
a1b0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
a1c0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
a1d0: 20 2d 72 65 73 75 6c 74 20 32 65 30 62 35 34 35   -result 2e0b545
a1e0: 35 63 63 65 36 39 32 36 32 30 36 36 66 64 62 66  5cce69262066fdbf
a1f0: 39 33 39 30 61 64 30 64 63 35 36 31 33 38 62 32  9390ad0dc56138b2
a200: 32 31 62 37 35 64 35 31 32 39 38 62 62 35 62 32  21b75d51298bb5b2
a210: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
a220: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34   Hash_SHA512-224
a230: 2d 32 2e 31 31 32 20 7b 53 48 41 35 31 32 5f 32  -2.112 {SHA512_2
a240: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
a250: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
a260: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12_224 \..-setup
a270: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
a280: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 35  ry decode hex 15
a290: 63 62 37 37 37 65 66 33 65 34 35 31 62 39 32 38  cb777ef3e451b928
a2a0: 64 62 66 32 38 38 65 34 36 61 33 36 32 37 30 34  dbf288e46a362704
a2b0: 34 66 66 35 64 65 34 32 61 64 64 38 38 34 61 39  4ff5de42add884a9
a2c0: 61 66 36 62 34 32 34 64 36 65 37 33 39 39 33 38  af6b424d6e739938
a2d0: 31 35 38 31 61 36 61 37 34 33 63 37 61 35 37 37  1581a6a743c7a577
a2e0: 62 30 32 62 62 35 64 61 31 34 39 61 64 61 34 65  b02bb5da149ada4e
a2f0: 34 34 39 66 34 38 64 30 39 65 33 34 64 66 34 63  449f48d09e34df4c
a300: 61 38 64 38 66 32 35 39 66 34 65 31 34 63 32 33  a8d8f259f4e14c23
a310: 34 37 31 34 37 35 61 38 66 39 37 33 33 31 32 38  471475a8f9733128
a320: 39 66 35 36 34 61 64 36 65 38 62 64 38 66 64 34  9f564ad6e8bd8fd4
a330: 63 35 65 35 31 64 35 65 63 64 31 39 64 64 34 36  c5e51d5ecd19dd46
a340: 64 66 63 62 34 65 61 30 30 39 65 33 38 35 62 65  dfcb4ea009e385be
a350: 61 38 35 37 37 32 35 66 64 31 66 63 36 34 32 33  a857725fd1fc6423
a360: 66 30 39 63 63 66 34 32 61 66 34 38 5d 7d 20 5c  f09ccf42af48]} \
a370: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
a380: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
a390: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
a3a0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
a3b0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 66 61  xact -result 9fa
a3c0: 31 32 35 36 31 66 31 64 66 39 61 32 64 37 39 33  12561f1df9a2d793
a3d0: 32 39 32 65 30 66 34 64 66 35 33 32 37 61 66 35  292e0f4df5327af5
a3e0: 32 39 33 33 36 62 35 62 32 31 31 38 39 35 32 66  29336b5b2118952f
a3f0: 35 63 32 34 65 0a 0a 74 63 6c 74 65 73 74 3a 3a  5c24e..tcltest::
a400: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
a410: 2d 32 32 34 2d 32 2e 31 31 33 20 7b 53 48 41 35  -224-2.113 {SHA5
a420: 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  12_224ShortMsg} 
a430: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
a440: 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73  SHA512_224 \..-s
a450: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
a460: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
a470: 78 20 64 32 34 64 66 37 35 61 30 30 63 66 39 32  x d24df75a00cf92
a480: 36 37 37 62 62 34 31 61 36 32 30 66 61 65 35 31  677bb41a620fae51
a490: 39 37 32 33 39 33 37 65 62 66 65 31 66 37 62 34  9723937ebfe1f7b4
a4a0: 33 30 39 37 30 30 35 36 35 30 35 64 37 36 64 62  30970056505d76db
a4b0: 34 66 66 39 31 61 63 66 31 36 66 66 33 39 31 61  4ff91acf16ff391a
a4c0: 37 61 33 64 38 30 38 35 62 36 35 35 31 32 37 61  7a3d8085b655127a
a4d0: 31 38 61 63 64 38 30 62 66 61 38 33 31 38 33 37  18acd80bfa831837
a4e0: 66 34 36 34 34 61 36 38 35 30 63 30 32 37 33 66  f4644a6850c0273f
a4f0: 62 65 64 36 30 32 39 34 34 39 64 36 35 62 62 39  bed6029449d65bb9
a500: 38 61 34 37 62 32 66 66 31 63 61 36 39 39 37 63  8a47b2ff1ca6997c
a510: 35 30 35 30 30 64 30 62 32 31 61 32 30 36 39 33  50500d0b21a20693
a520: 36 61 35 65 34 64 38 64 35 36 35 30 38 65 63 30  6a5e4d8d56508ec0
a530: 31 38 33 32 61 65 34 66 64 64 63 65 35 65 66 36  1832ae4fddce5ef6
a540: 66 66 36 32 66 31 39 31 37 63 34 38 36 61 64 65  ff62f1917c486ade
a550: 61 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  a6]} \..-body {t
a560: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
a570: 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64  st SHA512-224 -d
a580: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
a590: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
a5a0: 6c 74 20 35 63 61 65 31 32 65 61 39 36 35 32 32  lt 5cae12ea96522
a5b0: 36 39 65 61 32 61 61 66 63 36 35 36 63 62 38 33  69ea2aafc656cb83
a5c0: 34 32 34 37 34 36 65 61 31 64 35 64 34 39 31 66  424746ea1d5d491f
a5d0: 39 61 31 35 39 35 39 34 62 32 61 0a 0a 74 63 6c  9a159594b2a..tcl
a5e0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
a5f0: 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 31 34  SHA512-224-2.114
a600: 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72   {SHA512_224Shor
a610: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
a620: 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34  aints SHA512_224
a630: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
a640: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
a650: 6f 64 65 20 68 65 78 20 37 33 30 39 36 33 62 31  ode hex 730963b1
a660: 61 34 36 32 64 32 33 34 65 38 37 30 35 64 62 39  a462d234e8705db9
a670: 32 37 38 63 63 35 38 64 63 62 38 31 37 62 65 63  278cc58dcb817bec
a680: 36 63 39 65 36 32 62 63 61 64 30 61 64 35 37 63  6c9e62bcad0ad57c
a690: 36 31 35 38 65 63 37 37 66 33 35 62 66 62 33 64  6158ec77f35bfb3d
a6a0: 30 34 33 63 35 63 35 33 35 35 63 39 36 66 32 61  043c5c5355c96f2a
a6b0: 65 38 31 30 64 65 34 65 36 32 32 64 32 36 65 30  e810de4e622d26e0
a6c0: 62 34 36 30 35 33 34 36 66 61 36 33 30 61 32 31  b4605346fa630a21
a6d0: 61 33 66 61 63 64 37 66 64 33 63 62 37 62 35 33  a3facd7fd3cb7b53
a6e0: 30 35 37 30 31 36 32 32 66 35 63 62 63 39 66 65  05701622f5cbc9fe
a6f0: 62 64 39 39 32 61 62 38 33 65 34 61 62 63 35 32  bd992ab83e4abc52
a700: 63 31 31 31 62 38 62 33 64 65 33 37 30 64 39 65  c111b8b3de370d9e
a710: 39 65 62 34 61 35 65 35 64 63 30 30 65 61 64 61  9eb4a5e5dc00eada
a720: 66 31 32 37 38 39 30 37 39 30 31 63 37 35 31 66  f1278907901c751f
a730: 65 65 34 66 33 30 33 34 32 36 5d 7d 20 5c 0a 09  ee4f303426]} \..
a740: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
a750: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31  st -digest SHA51
a760: 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  2-224 -data $dat
a770: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
a780: 63 74 20 2d 72 65 73 75 6c 74 20 34 36 63 37 30  ct -result 46c70
a790: 34 36 61 61 36 33 33 66 62 35 62 63 34 64 36 39  46aa633fb5bc4d69
a7a0: 35 32 66 38 35 33 65 33 39 63 35 33 65 37 37 31  52f853e39c53e771
a7b0: 30 30 39 31 38 33 62 36 36 39 36 31 35 39 33 61  009183b66961593a
a7c0: 33 63 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  3cf..tcltest::te
a7d0: 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32  st Hash_SHA512-2
a7e0: 32 34 2d 32 2e 31 31 35 20 7b 53 48 41 35 31 32  24-2.115 {SHA512
a7f0: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
a800: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
a810: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
a820: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
a830: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
a840: 63 31 34 36 30 62 32 65 31 65 33 38 35 63 30 62  c1460b2e1e385c0b
a850: 35 37 35 36 65 32 31 30 62 66 66 61 61 38 66 31  5756e210bffaa8f1
a860: 63 62 31 32 65 62 63 33 63 36 30 65 37 31 30 35  cb12ebc3c60e7105
a870: 63 35 66 64 31 63 65 30 64 65 66 32 62 65 61 65  c5fd1ce0def2beae
a880: 39 35 61 64 32 66 62 61 39 37 37 37 39 64 34 36  95ad2fba97779d46
a890: 61 62 34 65 32 34 64 33 65 35 34 32 39 65 39 63  ab4e24d3e5429e9c
a8a0: 31 63 31 66 62 64 36 34 39 66 34 63 35 37 37 31  1c1fbd649f4c5771
a8b0: 32 34 66 33 30 30 64 39 30 31 36 32 64 65 66 63  24f300d90162defc
a8c0: 39 66 62 32 62 39 35 32 32 62 61 36 35 32 36 37  9fb2b9522ba65267
a8d0: 38 65 64 35 66 36 32 33 61 30 30 63 35 32 34 66  8ed5f623a00c524f
a8e0: 39 38 65 65 38 39 35 35 63 38 64 64 38 34 34 37  98ee8955c8dd8447
a8f0: 38 37 31 65 38 61 32 33 36 65 33 37 31 30 35 36  871e8a236e371056
a900: 63 37 39 63 64 32 37 65 34 32 38 62 32 32 37 34  c79cd27e428b2274
a910: 65 61 33 35 38 30 38 61 35 38 31 65 36 63 31 31  ea35808a581e6c11
a920: 32 36 63 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  26c6]} \..-body 
a930: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
a940: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
a950: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
a960: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
a970: 73 75 6c 74 20 64 38 34 30 32 65 65 36 33 34 65  sult d8402ee634e
a980: 31 38 63 39 36 37 64 31 31 30 62 64 37 30 35 33  18c967d110bd7053
a990: 61 33 30 32 64 61 36 35 30 63 63 62 33 38 66 32  a302da650ccb38f2
a9a0: 35 39 63 62 65 65 35 61 32 34 37 31 35 0a 0a 74  59cbee5a24715..t
a9b0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
a9c0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
a9d0: 31 36 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68  16 {SHA512_224Sh
a9e0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
a9f0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32  traints SHA512_2
aa00: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
aa10: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
aa20: 65 63 6f 64 65 20 68 65 78 20 34 38 61 38 34 65  ecode hex 48a84e
aa30: 33 63 34 38 35 30 61 32 39 65 34 33 33 63 38 61  3c4850a29e433c8a
aa40: 32 34 33 62 66 34 62 65 62 30 35 62 38 61 35 62  243bf4beb05b8a5b
aa50: 66 66 33 38 63 63 34 31 38 31 35 38 62 66 62 39  ff38cc418158bfb9
aa60: 36 38 66 31 34 39 35 63 66 66 66 32 32 65 33 30  68f1495cfff22e30
aa70: 33 65 34 37 33 65 31 33 39 62 35 39 63 63 35 64  3e473e139b59cc5d
aa80: 32 32 64 35 36 31 63 31 63 38 61 66 62 32 37 34  22d561c1c8afb274
aa90: 66 64 36 36 64 30 39 31 38 30 38 39 39 66 62 64  fd66d09180899fbd
aaa0: 37 37 37 61 38 39 30 37 62 66 37 32 37 33 31 31  777a8907bf727311
aab0: 38 31 63 35 66 30 37 35 30 36 36 38 62 35 36 32  81c5f0750668b562
aac0: 63 63 62 30 34 65 38 36 64 39 35 63 30 66 33 31  ccb04e86d95c0f31
aad0: 34 66 64 36 34 63 62 37 34 31 62 36 63 64 31 36  4fd64cb741b6cd16
aae0: 63 35 38 38 37 63 64 38 34 61 63 66 36 31 33 62  c5887cd84acf613b
aaf0: 32 63 34 61 64 30 39 30 38 36 37 35 65 31 65 31  2c4ad0908675e1e1
ab00: 34 38 35 33 32 31 64 36 38 39 36 62 38 37 64 39  485321d6896b87d9
ab10: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
ab20: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
ab30: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
ab40: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
ab50: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
ab60: 20 33 37 34 38 38 30 38 63 31 61 34 64 31 64 63   3748808c1a4d1dc
ab70: 31 62 38 32 65 62 61 62 34 63 66 66 63 39 64 38  1b82ebab4cffc9d8
ab80: 63 66 35 63 32 35 31 64 30 34 35 64 63 38 61 66  cf5c251d045dc8af
ab90: 66 64 37 35 36 64 61 65 33 0a 0a 74 63 6c 74 65  fd756dae3..tclte
aba0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
abb0: 41 35 31 32 2d 32 32 34 2d 32 2e 31 31 37 20 7b  A512-224-2.117 {
abc0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
abd0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
abe0: 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c  nts SHA512_224 \
abf0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
ac00: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
ac10: 65 20 68 65 78 20 34 31 62 32 62 30 37 31 65 65  e hex 41b2b071ee
ac20: 36 61 38 65 30 62 63 36 32 65 39 65 30 33 61 38  6a8e0bc62e9e03a8
ac30: 37 30 35 66 36 64 61 32 31 38 65 36 39 62 31 31  705f6da218e69b11
ac40: 31 63 32 33 34 63 30 61 35 31 36 35 32 30 66 39  1c234c0a516520f9
ac50: 38 31 32 30 34 66 38 38 62 64 65 66 39 62 63 33  81204f88bdef9bc3
ac60: 66 34 64 35 38 33 37 39 63 35 63 38 62 61 65 35  f4d58379c5c8bae5
ac70: 39 32 37 30 64 37 38 64 64 36 32 63 34 65 36 62  9270d78dd62c4e6b
ac80: 62 38 35 36 39 66 34 62 65 30 63 38 63 64 37 34  b8569f4be0c8cd74
ac90: 38 39 39 65 31 32 38 61 64 37 33 65 64 31 62 33  899e128ad73ed1b3
aca0: 36 62 39 36 63 63 66 39 33 36 61 35 39 37 66 30  6b96ccf936a597f0
acb0: 38 61 33 64 34 64 39 38 37 37 30 37 38 31 38 34  8a3d4d9877078184
acc0: 35 34 63 37 37 37 33 63 39 63 65 31 39 34 65 31  54c7773c9ce194e1
acd0: 66 63 31 64 31 34 30 66 61 39 61 37 66 62 30 37  fc1d140fa9a7fb07
ace0: 66 37 35 61 34 65 30 65 32 38 33 64 38 32 31 30  f75a4e0e283d8210
acf0: 38 31 34 65 33 35 38 39 61 34 37 66 31 63 5d 7d  814e3589a47f1c]}
ad00: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
ad10: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
ad20: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20  HA512-224 -data 
ad30: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
ad40: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38   exact -result 8
ad50: 37 37 36 66 30 38 30 37 30 65 33 38 35 38 32 64  776f08070e38582d
ad60: 34 36 30 34 31 37 30 61 39 65 36 35 38 66 63 31  4604170a9e658fc1
ad70: 37 30 33 34 63 62 64 65 39 65 30 33 61 30 30 32  7034cbde9e03a002
ad80: 65 37 32 38 31 33 31 0a 0a 74 63 6c 74 65 73 74  e728131..tcltest
ad90: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35  ::test Hash_SHA5
ada0: 31 32 2d 32 32 34 2d 32 2e 31 31 38 20 7b 53 48  12-224-2.118 {SH
adb0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
adc0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
add0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
ade0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
adf0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
ae00: 68 65 78 20 35 34 62 66 33 37 35 39 34 34 63 30  hex 54bf375944c0
ae10: 30 32 63 63 61 63 38 37 66 35 35 66 66 33 65 62  02ccac87f55ff3eb
ae20: 35 38 63 34 35 38 34 34 66 36 32 64 39 31 37 64  58c45844f62d917d
ae30: 64 64 30 33 62 32 36 62 35 66 64 62 35 31 35 64  dd03b26b5fdb515d
ae40: 35 63 61 36 65 38 66 35 63 34 32 37 37 61 33 36  5ca6e8f5c4277a36
ae50: 35 37 61 62 37 61 64 64 61 66 66 34 65 38 66 35  57ab7addaff4e8f5
ae60: 38 31 37 36 62 64 61 36 32 30 63 36 38 39 34 65  8176bda620c6894e
ae70: 34 32 34 66 35 62 64 33 30 37 34 37 65 31 33 37  424f5bd30747e137
ae80: 33 37 65 31 64 30 36 63 63 62 63 34 38 36 36 61  37e1d06ccbc4866a
ae90: 62 30 62 64 65 66 38 30 63 37 62 30 61 35 65 37  b0bdef80c7b0a5e7
aea0: 33 30 64 35 35 62 39 64 63 38 32 30 37 62 37 30  30d55b9dc8207b70
aeb0: 66 30 30 31 30 65 35 39 39 31 34 65 64 64 30 63  f0010e59914edd0c
aec0: 35 64 37 65 64 35 63 64 35 37 31 37 62 30 38 35  5d7ed5cd5717b085
aed0: 39 35 36 39 64 32 31 35 34 34 37 64 37 31 65 61  9569d215447d71ea
aee0: 65 65 34 39 66 39 64 32 66 38 32 35 61 66 5d 7d  ee49f9d2f825af]}
aef0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a   \..-body {tls::
af00: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53  digest -digest S
af10: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20  HA512-224 -data 
af20: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
af30: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30   exact -result 0
af40: 63 64 36 39 30 37 33 36 64 64 31 66 33 39 30 36  cd690736dd1f3906
af50: 39 34 66 36 35 63 33 62 38 39 65 30 63 63 32 32  94f65c3b89e0cc22
af60: 36 39 66 33 62 38 32 30 38 63 38 30 36 39 32 39  69f3b8208c806929
af70: 61 38 66 38 63 62 39 0a 0a 74 63 6c 74 65 73 74  a8f8cb9..tcltest
af80: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35  ::test Hash_SHA5
af90: 31 32 2d 32 32 34 2d 32 2e 31 31 39 20 7b 53 48  12-224-2.119 {SH
afa0: 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67  A512_224ShortMsg
afb0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
afc0: 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09  s SHA512_224 \..
afd0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
afe0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
aff0: 68 65 78 20 64 39 32 34 62 31 36 64 66 65 32 66  hex d924b16dfe2f
b000: 36 31 32 64 39 32 33 62 32 35 36 36 39 62 34 35  612d923b25669b45
b010: 64 39 31 31 37 64 33 30 61 33 35 33 31 64 35 64  d9117d30a3531d5d
b020: 33 30 61 64 34 37 37 63 34 31 37 33 34 64 61 32  30ad477c41734da2
b030: 36 37 37 66 66 31 39 62 30 61 32 36 38 35 38 31  677ff19b0a268581
b040: 62 30 36 62 35 31 38 64 37 63 37 33 33 35 32 65  b06b518d7c73352e
b050: 66 35 33 39 39 30 35 38 30 61 38 33 36 30 31 66  f53990580a83601f
b060: 35 32 31 35 61 61 38 34 39 38 32 34 31 63 38 66  5215aa8498241c8f
b070: 39 36 30 64 66 31 39 65 30 31 34 37 31 35 66 63  960df19e014715fc
b080: 63 36 39 36 38 39 62 35 39 34 38 32 30 61 61 39  c69689b594820aa9
b090: 39 61 30 38 65 64 65 30 39 32 38 66 34 65 31 64  9a08ede0928f4e1d
b0a0: 66 65 31 65 36 39 62 36 62 31 63 62 34 38 61 32  fe1e69b6b1cb48a2
b0b0: 39 32 37 37 39 66 64 34 39 64 62 38 66 34 63 37  92779fd49db8f4c7
b0c0: 32 61 31 37 30 32 35 62 37 32 37 63 36 30 64 66  2a17025b727c60df
b0d0: 34 66 65 36 35 65 36 66 34 33 35 66 33 30 38 30  4fe65e6f435f3080
b0e0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
b0f0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
b100: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
b110: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
b120: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
b130: 20 33 30 34 65 33 38 36 38 39 32 35 30 33 38 30   304e38689250380
b140: 65 33 32 32 35 30 35 62 34 65 32 33 66 66 66 33  e322505b4e23fff3
b150: 35 62 33 34 31 65 32 64 39 34 63 63 36 32 63 66  5b341e2d94cc62cf
b160: 62 34 34 62 35 31 64 62 35 0a 0a 74 63 6c 74 65  b44b51db5..tclte
b170: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
b180: 41 35 31 32 2d 32 32 34 2d 32 2e 31 32 30 20 7b  A512-224-2.120 {
b190: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
b1a0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
b1b0: 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c  nts SHA512_224 \
b1c0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
b1d0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
b1e0: 65 20 68 65 78 20 37 64 32 64 31 32 62 33 35 31  e hex 7d2d12b351
b1f0: 61 37 30 33 30 36 32 33 30 65 37 64 63 63 37 36  a70306230e7dcc76
b200: 36 34 63 61 33 38 38 33 39 32 38 30 39 33 33 39  64ca388392809339
b210: 35 62 61 38 64 35 38 32 38 66 31 66 37 36 63 38  5ba8d5828f1f76c8
b220: 38 31 33 64 38 32 62 38 62 61 62 35 65 63 34 35  813d82b8bab5ec45
b230: 65 66 62 63 32 34 66 30 33 31 36 65 65 62 34 37  efbc24f0316eeb47
b240: 36 34 36 64 36 37 61 63 66 32 63 62 37 32 35 38  646d67acf2cb7258
b250: 63 31 32 61 33 38 61 30 36 32 32 31 30 31 37 36  c12a38a062210176
b260: 38 62 65 32 34 62 33 32 63 37 31 61 31 63 39 33  8be24b32c71a1c93
b270: 36 63 31 39 39 36 30 30 63 64 33 33 63 63 31 34  6c199600cd33cc14
b280: 62 32 36 36 64 34 35 61 30 35 33 64 31 65 35 35  b266d45a053d1e55
b290: 63 65 66 33 30 33 63 34 36 32 64 63 61 31 32 33  cef303c462dca123
b2a0: 64 36 30 31 65 37 37 35 62 61 30 61 65 63 34 31  d601e775ba0aec41
b2b0: 30 34 36 32 38 35 64 62 34 62 39 35 31 36 65 34  046285db4b9516e4
b2c0: 33 36 66 64 61 38 31 34 33 33 39 64 33 63 33 37  36fda814339d3c37
b2d0: 36 63 34 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  6c4d]} \..-body 
b2e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
b2f0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
b300: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
b310: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
b320: 73 75 6c 74 20 34 30 61 37 39 34 37 61 61 64 36  sult 40a7947aad6
b330: 63 31 65 37 33 34 33 36 64 37 38 36 37 32 30 33  c1e73436d7867203
b340: 38 66 62 39 39 61 34 65 64 37 63 62 31 34 35 34  8fb99a4ed7cb1454
b350: 34 35 65 32 37 36 36 34 33 63 66 33 38 0a 0a 74  45e276643cf38..t
b360: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
b370: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
b380: 32 31 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68  21 {SHA512_224Sh
b390: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
b3a0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32  traints SHA512_2
b3b0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
b3c0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
b3d0: 65 63 6f 64 65 20 68 65 78 20 35 66 65 65 36 38  ecode hex 5fee68
b3e0: 37 38 30 32 61 35 61 61 63 31 33 33 32 39 31 37  7802a5aac1332917
b3f0: 63 63 35 64 30 61 39 34 33 39 61 64 39 35 63 37  cc5d0a9439ad95c7
b400: 36 34 32 31 39 62 63 65 34 35 65 32 37 34 33 30  64219bce45e27430
b410: 39 34 64 33 34 34 31 33 33 30 36 61 37 64 62 30  94d34413306a7db0
b420: 63 31 62 66 61 35 30 35 39 63 65 32 35 61 63 39  c1bfa5059ce25ac9
b430: 65 38 37 32 39 33 61 35 66 66 36 62 32 38 61 31  e87293a5ff6b28a1
b440: 31 37 34 30 39 35 64 64 32 32 32 61 66 62 38 31  174095dd222afb81
b450: 66 33 62 66 36 37 66 36 61 31 63 36 35 37 35 37  f3bf67f6a1c65757
b460: 33 30 34 61 37 61 32 32 36 65 65 64 62 38 33 34  304a7a226eedb834
b470: 31 63 37 66 37 32 66 34 34 65 63 66 30 62 63 65  1c7f72f44ecf0bce
b480: 31 35 63 31 61 37 65 33 35 61 61 31 33 32 66 65  15c1a7e35aa132fe
b490: 30 64 62 37 61 35 63 61 38 30 31 63 38 34 34 33  0db7a5ca801c8443
b4a0: 30 64 63 63 61 62 36 62 66 66 66 62 34 62 33 65  0dccab6bfffb4b3e
b4b0: 62 30 61 64 33 30 65 37 65 65 38 31 34 35 33 34  b0ad30e7ee814534
b4c0: 61 33 63 64 35 39 34 38 62 35 5d 7d 20 5c 0a 09  a3cd5948b5]} \..
b4d0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
b4e0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31  st -digest SHA51
b4f0: 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74  2-224 -data $dat
b500: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
b510: 63 74 20 2d 72 65 73 75 6c 74 20 64 36 36 35 37  ct -result d6657
b520: 66 31 31 35 64 62 37 35 39 34 34 34 37 34 34 61  f115db759444744a
b530: 31 32 35 65 34 30 61 64 65 33 36 31 64 38 61 34  125e40ade361d8a4
b540: 30 66 64 38 38 63 39 31 31 38 37 64 63 35 61 35  0fd88c91187dc5a5
b550: 30 62 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  0b3..tcltest::te
b560: 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32  st Hash_SHA512-2
b570: 32 34 2d 32 2e 31 32 32 20 7b 53 48 41 35 31 32  24-2.122 {SHA512
b580: 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  _224ShortMsg} \.
b590: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
b5a0: 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74  A512_224 \..-set
b5b0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
b5c0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
b5d0: 36 39 36 37 33 30 62 37 65 63 61 32 37 30 36 36  696730b7eca27066
b5e0: 64 35 34 31 63 34 31 35 30 61 32 32 65 36 61 36  d541c4150a22e6a6
b5f0: 62 30 36 32 63 39 35 31 66 32 31 37 37 64 66 36  b062c951f2177df6
b600: 66 64 34 32 35 34 62 31 34 66 66 66 34 33 62 30  fd4254b14fff43b0
b610: 33 32 66 66 38 61 34 31 38 33 33 38 39 37 32 66  32ff8a418338972f
b620: 62 38 64 62 32 38 34 66 32 32 38 37 62 31 35 36  b8db284f2287b156
b630: 36 65 62 63 66 64 65 64 37 32 39 32 31 37 30 38  6ebcfded72921708
b640: 32 37 61 62 36 62 37 33 66 31 36 36 32 39 61 64  27ab6b73f16629ad
b650: 32 37 35 35 65 61 66 61 63 66 66 32 39 36 62 34  2755eafacff296b4
b660: 61 39 38 64 38 35 65 32 37 30 38 39 65 34 30 63  a98d85e27089e40c
b670: 35 63 63 38 35 62 34 64 65 62 36 34 65 63 61 39  5cc85b4deb64eca9
b680: 65 31 61 30 31 66 61 31 38 64 31 65 35 63 30 35  e1a01fa18d1e5c05
b690: 34 66 35 32 39 38 30 61 35 37 33 36 33 34 39 63  4f52980a5736349c
b6a0: 61 66 33 66 32 31 66 35 37 63 39 30 34 39 36 66  af3f21f57c90496f
b6b0: 38 31 36 66 32 61 39 36 65 34 66 35 63 34 38 32  816f2a96e4f5c482
b6c0: 33 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  35]} \..-body {t
b6d0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
b6e0: 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64  st SHA512-224 -d
b6f0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
b700: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
b710: 6c 74 20 33 39 31 64 36 63 32 62 36 34 35 64 31  lt 391d6c2b645d1
b720: 65 61 61 37 61 37 64 64 36 38 31 34 30 66 62 62  eaa7a7dd68140fbb
b730: 37 63 32 33 64 64 34 61 63 30 33 34 37 38 38 37  7c23dd4ac0347887
b740: 61 37 38 32 65 34 63 33 34 34 32 0a 0a 74 63 6c  a782e4c3442..tcl
b750: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
b760: 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 32 33  SHA512-224-2.123
b770: 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72   {SHA512_224Shor
b780: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
b790: 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34  aints SHA512_224
b7a0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
b7b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
b7c0: 6f 64 65 20 68 65 78 20 63 38 39 39 35 63 65 30  ode hex c8995ce0
b7d0: 39 61 38 64 38 30 62 37 39 30 37 38 39 39 31 35  9a8d80b790789915
b7e0: 62 37 37 65 35 33 63 62 32 62 61 30 62 33 39 37  b77e53cb2ba0b397
b7f0: 34 33 32 37 66 30 61 35 30 39 34 36 38 35 35 35  4327f0a509468555
b800: 65 64 66 62 38 34 33 66 62 61 33 36 32 64 37 35  edfb843fba362d75
b810: 63 38 33 64 62 66 30 37 37 34 34 66 38 65 63 64  c83dbf07744f8ecd
b820: 63 64 38 37 35 36 36 30 39 30 30 34 63 66 36 61  cd8756609004cf6a
b830: 35 37 34 37 38 31 32 30 30 64 64 63 64 61 30 63  574781200ddcda0c
b840: 61 35 33 64 37 65 31 30 30 62 66 33 64 65 61 38  a53d7e100bf3dea8
b850: 35 62 66 65 30 63 36 66 35 32 37 37 63 65 65 35  5bfe0c6f5277cee5
b860: 30 32 37 34 66 31 36 66 63 39 32 63 64 66 39 66  0274f16fc92cdf9f
b870: 38 33 35 63 37 34 62 36 66 66 65 39 30 65 36 37  835c74b6ffe90e67
b880: 62 30 63 36 65 33 64 65 61 35 31 38 39 38 30 31  b0c6e3dea5189801
b890: 62 62 39 38 30 66 66 36 31 32 33 39 38 30 65 35  bb980ff6123980e5
b8a0: 62 64 30 63 63 62 66 66 62 65 36 30 30 63 62 66  bd0ccbffbe600cbf
b8b0: 33 31 32 64 37 30 36 66 63 37 62 33 5d 7d 20 5c  312d706fc7b3]} \
b8c0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
b8d0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
b8e0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
b8f0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
b900: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 61 36  xact -result 3a6
b910: 61 64 31 36 63 35 39 35 37 62 35 34 65 65 36 36  ad16c5957b54ee66
b920: 39 31 64 32 32 37 62 32 64 32 65 63 66 39 33 34  91d227b2d2ecf934
b930: 38 62 36 38 34 33 35 61 35 30 36 34 37 61 32 63  8b68435a50647a2c
b940: 64 35 35 63 39 0a 0a 74 63 6c 74 65 73 74 3a 3a  d55c9..tcltest::
b950: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
b960: 2d 32 32 34 2d 32 2e 31 32 34 20 7b 53 48 41 35  -224-2.124 {SHA5
b970: 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  12_224ShortMsg} 
b980: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
b990: 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73  SHA512_224 \..-s
b9a0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
b9b0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
b9c0: 78 20 32 34 37 66 38 37 35 34 62 30 30 38 61 63  x 247f8754b008ac
b9d0: 65 61 32 33 34 64 33 62 35 63 61 62 35 63 36 31  ea234d3b5cab5c61
b9e0: 33 61 36 39 35 61 66 38 66 65 62 64 62 63 66 33  3a695af8febdbcf3
b9f0: 65 34 63 35 62 62 66 64 66 62 32 30 30 31 35 64  e4c5bbfdfb20015d
ba00: 37 63 66 38 61 39 31 64 35 62 33 66 36 36 36 62  7cf8a91d5b3f666b
ba10: 31 64 33 38 30 32 33 66 65 39 33 61 30 62 33 65  1d38023fe93a0b3e
ba20: 65 31 62 31 63 39 64 66 62 33 36 35 37 32 63 63  e1b1c9dfb36572cc
ba30: 36 61 66 66 61 31 38 62 38 62 63 39 30 35 35 64  6affa18b8bc9055d
ba40: 35 64 62 35 35 36 36 36 38 38 61 31 38 65 30 66  5db5566688a18e0f
ba50: 65 31 64 39 35 35 61 39 38 35 64 64 62 64 35 33  e1d955a985ddbd53
ba60: 32 35 36 35 32 66 31 64 61 30 61 33 61 36 36 64  25652f1da0a3a66d
ba70: 64 37 63 38 31 61 61 32 62 64 63 39 34 30 66 38  d7c81aa2bdc940f8
ba80: 61 64 36 33 37 30 61 62 30 31 35 64 65 36 36 30  ad6370ab015de660
ba90: 65 30 30 64 32 65 63 30 35 37 31 64 64 61 36 36  e00d2ec0571dda66
baa0: 61 62 38 66 37 36 66 62 65 65 66 66 62 65 39 66  ab8f76fbeeffbe9f
bab0: 64 31 32 38 30 65 38 62 5d 7d 20 5c 0a 09 2d 62  d1280e8b]} \..-b
bac0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
bad0: 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d   -digest SHA512-
bae0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
baf0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
bb00: 20 2d 72 65 73 75 6c 74 20 66 65 36 36 30 32 36   -result fe66026
bb10: 63 31 63 32 34 31 30 39 32 37 66 61 34 34 32 63  c1c2410927fa442c
bb20: 63 31 32 32 64 35 61 65 64 39 30 33 30 38 32 37  c122d5aed9030827
bb30: 33 34 30 31 64 34 32 39 66 64 31 61 63 38 66 36  3401d429fd1ac8f6
bb40: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
bb50: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34   Hash_SHA512-224
bb60: 2d 32 2e 31 32 35 20 7b 53 48 41 35 31 32 5f 32  -2.125 {SHA512_2
bb70: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
bb80: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
bb90: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12_224 \..-setup
bba0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
bbb0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 33  ry decode hex 93
bbc0: 64 62 61 64 61 37 31 62 38 39 30 65 38 30 64 39  dbada71b890e80d9
bbd0: 62 38 38 61 33 33 38 61 37 64 66 30 32 30 61 37  b88a338a7df020a7
bbe0: 62 66 39 66 66 64 39 38 39 38 35 33 36 32 32 35  bf9ffd9898536225
bbf0: 66 64 33 65 38 61 32 64 61 32 35 62 35 38 39 61  fd3e8a2da25b589a
bc00: 31 38 66 66 39 38 39 34 33 38 62 31 38 38 66 35  18ff989438b188f5
bc10: 63 35 33 62 39 36 66 64 34 64 30 31 36 63 34 38  c53b96fd4d016c48
bc20: 35 30 39 32 32 61 66 63 61 35 37 64 66 32 34 37  50922afca57df247
bc30: 31 38 36 36 61 61 30 39 35 38 35 38 66 64 63 64  1866aa095858fdcd
bc40: 31 31 35 64 61 33 66 65 35 35 34 63 65 33 35 38  115da3fe554ce358
bc50: 34 30 65 33 35 36 39 63 64 63 31 35 65 64 38 38  40e3569cdc15ed88
bc60: 34 32 61 35 33 35 30 36 30 32 66 34 64 61 61 34  42a5350602f4daa4
bc70: 63 35 31 38 36 62 34 34 33 31 32 64 35 63 31 34  c5186b44312d5c14
bc80: 30 64 66 30 35 31 63 31 61 36 38 61 39 61 65 38  0df051c1a68a9ae8
bc90: 37 31 61 39 66 39 63 65 66 31 64 35 61 63 35 30  71a9f9cef1d5ac50
bca0: 64 62 30 32 61 37 31 64 37 39 36 31 32 32 32 32  db02a71d79612222
bcb0: 34 63 37 63 35 33 5d 7d 20 5c 0a 09 2d 62 6f 64  4c7c53]} \..-bod
bcc0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
bcd0: 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32  digest SHA512-22
bce0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
bcf0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
bd00: 72 65 73 75 6c 74 20 66 37 33 31 35 34 65 37 36  result f73154e76
bd10: 62 35 39 39 38 65 30 37 39 32 66 62 30 61 62 31  b5998e0792fb0ab1
bd20: 64 37 32 31 65 65 37 33 30 62 36 34 61 31 62 33  d721ee730b64a1b3
bd30: 61 35 34 33 30 36 31 66 63 37 36 63 64 31 37 0a  a543061fc76cd17.
bd40: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
bd50: 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32  ash_SHA512-224-2
bd60: 2e 31 32 36 20 7b 53 48 41 35 31 32 5f 32 32 34  .126 {SHA512_224
bd70: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
bd80: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32  nstraints SHA512
bd90: 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  _224 \..-setup {
bda0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
bdb0: 20 64 65 63 6f 64 65 20 68 65 78 20 36 31 37 38   decode hex 6178
bdc0: 37 33 36 65 61 36 61 66 66 34 62 39 39 65 37 64  736ea6aff4b99e7d
bdd0: 61 39 37 64 65 65 30 30 30 61 64 66 37 32 62 33  a97dee000adf72b3
bde0: 37 30 36 39 64 66 38 61 64 35 62 62 61 36 33 66  7069df8ad5bba63f
bdf0: 64 62 37 65 31 62 65 36 31 30 39 61 64 36 63 38  db7e1be6109ad6c8
be00: 37 31 61 39 35 39 36 65 32 64 61 62 66 34 66 63  71a9596e2dabf4fc
be10: 61 62 66 62 65 36 63 31 63 64 38 32 63 35 30 62  abfbe6c1cd82c50b
be20: 37 37 32 61 32 30 34 30 34 62 39 35 36 32 32 61  772a20404b95622a
be30: 62 37 31 30 66 39 39 33 33 32 63 32 62 38 31 32  b710f99332c2b812
be40: 63 32 32 39 37 61 32 34 63 32 63 38 30 39 37 65  c2297a24c2c8097e
be50: 65 32 31 39 33 65 61 32 36 66 63 39 36 39 62 31  e2193ea26fc969b1
be60: 64 35 32 34 66 32 38 30 36 32 63 66 34 31 65 64  d524f28062cf41ed
be70: 34 63 62 35 64 63 37 34 66 36 34 33 63 66 66 64  4cb5dc74f643cffd
be80: 36 66 64 38 35 31 66 38 33 62 37 37 61 34 61 63  6fd851f83b77a4ac
be90: 35 37 63 30 33 64 63 63 37 37 31 65 32 35 34 63  57c03dcc771e254c
bea0: 39 32 34 31 39 66 37 32 61 30 63 66 30 62 33 30  92419f72a0cf0b30
beb0: 61 33 35 36 30 61 5d 7d 20 5c 0a 09 2d 62 6f 64  a3560a]} \..-bod
bec0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
bed0: 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32  digest SHA512-22
bee0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
bef0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
bf00: 72 65 73 75 6c 74 20 33 33 61 37 34 32 35 33 31  result 33a742531
bf10: 36 64 32 66 36 62 65 31 62 64 62 62 38 37 30 64  6d2f6be1bdbb870d
bf20: 39 35 33 31 33 32 64 35 35 65 32 39 66 64 66 38  953132d55e29fdf8
bf30: 35 33 30 34 36 33 39 37 37 39 34 30 39 30 38 0a  530463977940908.
bf40: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
bf50: 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32  ash_SHA512-224-2
bf60: 2e 31 32 37 20 7b 53 48 41 35 31 32 5f 32 32 34  .127 {SHA512_224
bf70: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
bf80: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32  nstraints SHA512
bf90: 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  _224 \..-setup {
bfa0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
bfb0: 20 64 65 63 6f 64 65 20 68 65 78 20 31 63 32 31   decode hex 1c21
bfc0: 62 35 38 34 32 33 31 32 31 31 31 61 39 65 32 37  b5842312111a9e27
bfd0: 38 32 66 65 39 37 39 31 37 65 39 34 36 62 38 64  82fe97917e946b8d
bfe0: 36 35 39 38 37 63 34 33 63 39 31 62 32 37 65 64  65987c43c91b27ed
bff0: 30 63 63 38 66 36 33 62 33 31 36 63 31 36 66 36  0cc8f63b316c16f6
c000: 65 63 62 36 30 62 65 35 66 62 33 62 61 32 65 64  ecb60be5fb3ba2ed
c010: 62 39 62 63 32 37 37 62 66 31 61 63 64 39 32 37  b9bc277bf1acd927
c020: 66 30 65 64 39 62 39 31 64 65 64 62 65 63 38 66  f0ed9b91dedbec8f
c030: 34 65 38 62 31 39 38 62 31 33 35 34 62 31 32 36  4e8b198b1354b126
c040: 35 35 38 66 33 61 32 31 65 35 39 63 32 32 37 65  558f3a21e59c227e
c050: 63 65 32 36 66 39 65 32 32 64 61 37 64 64 33 65  ce26f9e22da7dd3e
c060: 34 32 32 65 33 35 61 65 63 36 36 30 61 32 61 32  422e35aec660a2a2
c070: 37 66 62 63 33 32 33 62 31 33 32 34 64 37 66 38  7fbc323b1324d7f8
c080: 31 61 39 39 31 38 39 31 37 36 34 37 30 37 32 33  1a99189176470723
c090: 65 37 63 31 37 33 38 65 64 61 38 64 35 65 31 62  e7c1738eda8d5e1b
c0a0: 38 32 65 33 62 31 36 33 32 61 62 32 32 66 36 63  82e3b1632ab22f6c
c0b0: 63 61 65 34 61 38 31 34 5d 7d 20 5c 0a 09 2d 62  cae4a814]} \..-b
c0c0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
c0d0: 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d   -digest SHA512-
c0e0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
c0f0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
c100: 20 2d 72 65 73 75 6c 74 20 64 62 34 33 63 61 33   -result db43ca3
c110: 64 64 37 62 63 61 33 64 38 39 39 36 34 38 36 39  dd7bca3d89964869
c120: 32 65 34 65 64 38 66 30 33 31 31 39 36 32 38 64  2e4ed8f03119628d
c130: 66 33 31 33 65 31 35 37 33 37 32 33 63 35 38 65  f313e1573723c58e
c140: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  9..tcltest::test
c150: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34   Hash_SHA512-224
c160: 2d 32 2e 31 32 38 20 7b 53 48 41 35 31 32 5f 32  -2.128 {SHA512_2
c170: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
c180: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
c190: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12_224 \..-setup
c1a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
c1b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 62  ry decode hex 4b
c1c0: 39 38 39 35 32 33 35 63 62 34 39 35 36 61 65 66  9895235cb4956aef
c1d0: 66 66 65 38 31 35 34 31 35 32 35 32 65 37 64 36  ffe815415252e7d6
c1e0: 62 32 31 39 32 31 62 64 37 66 36 37 35 33 31 35  b21921bd7f675315
c1f0: 65 66 66 30 37 31 64 30 62 62 64 34 32 39 62 37  eff071d0bbd429b7
c200: 31 38 63 37 37 34 61 65 65 39 36 66 36 63 33 61  18c774aee96f6c3a
c210: 33 33 30 64 35 64 34 30 64 31 36 30 31 65 31 30  330d5d40d1601e10
c220: 36 39 63 37 61 32 61 31 39 65 61 35 63 61 31 65  69c7a2a19ea5ca1e
c230: 38 37 30 39 37 64 61 32 36 30 38 66 66 62 34 31  87097da2608ffb41
c240: 38 30 38 31 36 65 34 37 38 62 34 32 63 33 63 34  80816e478b42c3c4
c250: 65 39 65 64 62 37 34 38 37 37 33 39 33 35 65 62  e9edb748773935eb
c260: 37 63 61 30 64 66 39 30 64 65 63 30 65 62 36 62  7ca0df90dec0eb6b
c270: 39 36 30 31 33 30 63 31 36 31 37 38 38 30 65 66  960130c1617880ef
c280: 62 38 30 62 33 39 61 65 30 33 64 36 31 37 39 35  b80b39ae03d61795
c290: 30 61 63 65 34 63 65 30 61 63 61 34 64 33 36 66  0ace4ce0aca4d36f
c2a0: 64 33 65 64 30 31 31 32 61 37 37 66 35 64 30 33  d3ed0112a77f5d03
c2b0: 30 32 31 65 62 31 62 34 32 34 35 38 5d 7d 20 5c  021eb1b42458]} \
c2c0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
c2d0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
c2e0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64  512-224 -data $d
c2f0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
c300: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 61 39  xact -result 9a9
c310: 31 37 36 65 39 37 61 65 63 39 39 61 62 30 37 66  176e97aec99ab07f
c320: 34 36 38 66 36 61 32 32 36 38 37 36 37 31 30 64  468f6a226876710d
c330: 36 64 38 37 37 30 32 31 64 32 37 30 36 31 64 34  6d877021d27061d4
c340: 64 30 31 33 32 0a 0a 74 63 6c 74 65 73 74 3a 3a  d0132..tcltest::
c350: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32  test Hash_SHA512
c360: 2d 32 32 34 2d 32 2e 31 32 39 20 7b 53 48 41 35  -224-2.129 {SHA5
c370: 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  12_224ShortMsg} 
c380: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
c390: 53 48 41 35 31 32 5f 32 32 34 20 5c 0a 09 2d 73  SHA512_224 \..-s
c3a0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
c3b0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
c3c0: 78 20 39 65 31 32 37 38 37 30 62 65 32 34 33 31  x 9e127870be2431
c3d0: 62 63 62 34 66 34 65 62 34 65 66 64 35 63 32 61  bcb4f4eb4efd5c2a
c3e0: 36 63 35 38 37 30 63 35 35 65 37 61 35 65 33 62  6c5870c55e7a5e3b
c3f0: 37 35 30 33 39 39 34 61 34 63 62 31 33 36 62 65  7503994a4cb136be
c400: 34 65 64 33 39 36 38 38 37 38 30 31 34 35 30 66  4ed396887801450f
c410: 36 30 30 62 32 32 63 62 37 37 32 66 63 30 30 66  600b22cb772fc00f
c420: 38 62 38 66 30 64 32 36 39 30 65 32 33 31 61 32  8b8f0d2690e231a2
c430: 39 66 36 39 62 39 66 31 33 66 32 34 66 35 33 31  9f69b9f13f24f531
c440: 65 34 34 37 39 65 34 35 62 35 65 38 62 63 32 39  e4479e45b5e8bc29
c450: 39 32 66 61 63 37 38 32 35 36 37 65 30 64 37 61  92fac782567e0d7a
c460: 35 39 66 38 35 33 63 61 33 61 32 30 62 66 31 38  59f853ca3a20bf18
c470: 64 62 64 62 66 36 38 34 61 63 36 39 38 31 37 65  dbdbf684ac69817e
c480: 32 64 65 30 37 35 64 61 61 65 64 39 35 33 32 36  2de075daaed95326
c490: 35 39 36 39 32 64 33 62 37 33 35 33 30 61 31 32  59692d3b73530a12
c4a0: 64 66 37 62 38 63 64 39 65 34 39 65 64 30 34 36  df7b8cd9e49ed046
c4b0: 33 30 34 31 39 36 32 63 31 63 65 37 61 32 34 63  3041962c1ce7a24c
c4c0: 33 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  31]} \..-body {t
c4d0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
c4e0: 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64  st SHA512-224 -d
c4f0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
c500: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
c510: 6c 74 20 37 65 32 63 66 36 32 32 36 36 32 33 35  lt 7e2cf62266235
c520: 33 35 37 38 34 63 35 39 63 64 36 61 37 62 32 37  35784c59cd6a7b27
c530: 64 61 63 36 30 65 65 32 33 66 64 63 65 38 61 38  dac60ee23fdce8a8
c540: 30 34 64 62 64 36 64 66 65 64 64 0a 0a 23 20 43  04dbd6dfedd..# C
c550: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74  leanup.::tcltest
c560: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72  ::cleanupTests.r
c570: 65 74 75 72 6e 0a                                eturn.