Artifact 931587df6eb85c2b7018d54572728c3f5a57604f2591fe86369a72348c55ce96:

• File tests/test_vectors/Hash/SHA512_224ShortMsg.test — part of check-in [25db067636] at 2023-12-19 05:53:21 on branch crypto — Added test vectors files for hash functions. Added test files and make script to generate TCL test cases from test vector files. These files come from NIST, IETC, etc. documents, examples, etc. (user: bohagan, size: 50370) [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 70  4ShortMsg.rsp".p
0030: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74  ackage require t
0040: 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  ls.package requi
0050: 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74  re tcltest..tclt
0060: 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61  est::testConstra
0070: 69 6e 74 20 53 48 41 35 31 32 2d 32 32 34 20 5b  int SHA512-224 [
0080: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d  expr {[lsearch -
0090: 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 64 69 67  nocase [tls::dig
00a0: 65 73 74 73 5d 20 53 48 41 35 31 32 2d 32 32 34  ests] SHA512-224
00b0: 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73  ] > -1}]..tcltes
00c0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
00d0: 35 31 32 2d 32 32 34 2d 32 2e 31 20 7b 53 48 41  512-224-2.1 {SHA
00e0: 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  512_224ShortMsg}
00f0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0100: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d   SHA512-224 \..-
0110: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0120: 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  ""} \..-body {tl
0130: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0140: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
0150: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0160: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0170: 74 20 36 65 64 30 64 64 30 32 38 30 36 66 61 38  t 6ed0dd02806fa8
0180: 39 65 32 35 64 65 30 36 30 63 31 39 64 33 61 63  9e25de060c19d3ac
0190: 38 36 63 61 62 62 38 37 64 36 61 30 64 64 64 30  86cabb87d6a0ddd0
01a0: 35 63 33 33 33 62 38 34 66 34 0a 0a 74 63 6c 74  5c333b84f4..tclt
01b0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
01c0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 32 20 7b 53  HA512-224-2.2 {S
01d0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
01e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
01f0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
0200: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0210: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0220: 20 68 65 78 20 63 66 5d 7d 20 5c 0a 09 2d 62 6f   hex cf]} \..-bo
0230: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0240: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32  -digest SHA512-2
0250: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
0260: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0270: 2d 72 65 73 75 6c 74 20 34 31 39 39 32 33 39 65  -result 4199239e
0280: 38 37 64 34 37 62 36 66 65 64 61 30 31 36 38 30  87d47b6feda01680
0290: 32 62 66 33 36 37 66 62 36 65 38 62 35 36 35 35  2bf367fb6e8b5655
02a0: 65 66 66 36 32 32 35 63 62 32 36 36 38 66 34 61  eff6225cb2668f4a
02b0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
02c0: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d  Hash_SHA512-224-
02d0: 32 2e 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53  2.3 {SHA512_224S
02e0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
02f0: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d  straints SHA512-
0300: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
0310: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
0320: 64 65 63 6f 64 65 20 68 65 78 20 63 61 32 64 5d  decode hex ca2d]
0330: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0340: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0350: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
0360: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0370: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0380: 33 39 32 62 39 39 62 35 39 33 62 38 35 65 31 34  392b99b593b85e14
0390: 37 66 30 33 31 39 38 36 63 32 61 39 65 64 66 64  7f031986c2a9edfd
03a0: 62 34 66 66 64 39 66 32 34 63 37 37 63 34 35 32  b4ffd9f24c77c452
03b0: 64 33 33 39 63 39 66 63 0a 0a 74 63 6c 74 65 73  d339c9fc..tcltes
03c0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
03d0: 35 31 32 2d 32 32 34 2d 32 2e 34 20 7b 53 48 41  512-224-2.4 {SHA
03e0: 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  512_224ShortMsg}
03f0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0400: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d   SHA512-224 \..-
0410: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0420: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0430: 65 78 20 34 39 37 36 30 34 5d 7d 20 5c 0a 09 2d  ex 497604]} \..-
0440: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0450: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
0460: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
0470: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0480: 74 20 2d 72 65 73 75 6c 74 20 61 39 63 33 34 35  t -result a9c345
0490: 64 35 38 61 39 35 39 61 66 32 30 61 34 32 63 38  d58a959af20a42c8
04a0: 34 65 32 38 35 32 33 62 61 34 37 65 33 62 66 38  4e28523ba47e3bf8
04b0: 66 61 64 38 65 38 63 33 66 33 32 62 37 61 37 32  fad8e8c3f32b7a72
04c0: 61 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  ae..tcltest::tes
04d0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
04e0: 34 2d 32 2e 35 20 7b 53 48 41 35 31 32 5f 32 32  4-2.5 {SHA512_22
04f0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
0500: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
0510: 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  2-224 \..-setup 
0520: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0530: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 32 65  y decode hex c2e
0540: 62 30 63 38 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b0c88]} \..-body
0550: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0560: 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34  igest SHA512-224
0570: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0580: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0590: 65 73 75 6c 74 20 63 35 62 39 37 66 31 65 34 36  esult c5b97f1e46
05a0: 64 39 31 63 33 39 34 30 62 65 38 63 66 65 66 31  d91c3940be8cfef1
05b0: 65 34 39 62 61 61 37 37 62 34 37 35 64 62 39 34  e49baa77b475db94
05c0: 33 65 34 39 66 30 30 63 64 64 62 65 37 32 0a 0a  3e49f00cddbe72..
05d0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
05e0: 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e  sh_SHA512-224-2.
05f0: 36 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  6 {SHA512_224Sho
0600: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0610: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
0620: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0630: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0640: 63 6f 64 65 20 68 65 78 20 64 32 38 62 63 32 61  code hex d28bc2a
0650: 61 33 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  a3f]} \..-body {
0660: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0670: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d  est SHA512-224 -
0680: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0690: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
06a0: 75 6c 74 20 65 37 39 64 65 35 35 32 31 32 30 61  ult e79de552120a
06b0: 38 37 35 38 35 65 37 33 31 33 65 32 34 65 63 64  87585e7313e24ecd
06c0: 37 34 31 33 39 61 33 62 65 39 62 61 32 38 31 32  74139a3be9ba2812
06d0: 39 33 36 63 34 62 33 33 63 61 32 33 0a 0a 74 63  936c4b33ca23..tc
06e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
06f0: 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 37 20  _SHA512-224-2.7 
0700: 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74  {SHA512_224Short
0710: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0720: 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20  ints SHA512-224 
0730: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
0740: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
0750: 64 65 20 68 65 78 20 62 34 31 34 32 63 61 37 39  de hex b4142ca79
0760: 66 36 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  f6d]} \..-body {
0770: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0780: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d  est SHA512-224 -
0790: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
07a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
07b0: 75 6c 74 20 32 61 30 65 64 38 65 62 30 65 31 38  ult 2a0ed8eb0e18
07c0: 62 63 31 38 39 66 35 63 38 33 36 64 63 36 61 35  bc189f5c836dc6a5
07d0: 38 32 35 62 61 61 36 66 37 32 38 36 66 61 35 62  825baa6f7286fa5b
07e0: 39 36 38 39 62 36 34 31 62 62 33 62 0a 0a 74 63  9689b641bb3b..tc
07f0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0800: 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 38 20  _SHA512-224-2.8 
0810: 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74  {SHA512_224Short
0820: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0830: 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20  ints SHA512-224 
0840: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
0850: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
0860: 64 65 20 68 65 78 20 38 64 61 65 64 66 33 63 34  de hex 8daedf3c4
0870: 32 30 63 38 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79  20c8c]} \..-body
0880: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0890: 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34  igest SHA512-224
08a0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
08b0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
08c0: 65 73 75 6c 74 20 34 65 64 61 63 39 31 61 38 65  esult 4edac91a8e
08d0: 62 61 33 35 61 31 34 33 31 65 66 34 64 34 39 37  ba35a1431ef4d497
08e0: 30 35 64 62 31 32 64 61 33 38 32 61 37 38 36 64  05db12da382a786d
08f0: 31 35 36 33 36 37 37 34 63 62 64 37 30 38 0a 0a  15636774cbd708..
0900: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0910: 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e  sh_SHA512-224-2.
0920: 39 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  9 {SHA512_224Sho
0930: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0940: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
0950: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0960: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0970: 63 6f 64 65 20 68 65 78 20 36 39 36 33 34 34 36  code hex 6963446
0980: 39 31 33 37 37 31 34 31 30 5d 7d 20 5c 0a 09 2d  913771410]} \..-
0990: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
09a0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
09b0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
09c0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
09d0: 74 20 2d 72 65 73 75 6c 74 20 32 31 66 36 63 33  t -result 21f6c3
09e0: 37 33 36 33 37 65 36 61 35 65 38 39 64 36 65 38  73637e6a5e89d6e8
09f0: 38 38 31 31 31 31 30 63 35 63 33 66 61 31 32 65  8811110c5c3fa12e
0a00: 34 39 37 31 34 34 39 31 32 39 31 34 63 35 34 36  497144912914c546
0a10: 65 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e1..tcltest::tes
0a20: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
0a30: 34 2d 32 2e 31 30 20 7b 53 48 41 35 31 32 5f 32  4-2.10 {SHA512_2
0a40: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
0a50: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
0a60: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
0a70: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0a80: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 66  ry decode hex 6f
0a90: 33 31 36 61 62 32 62 34 30 66 30 39 36 38 31 39  316ab2b40f096819
0aa0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0ab0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0ac0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
0ad0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0ae0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0af0: 20 35 38 39 39 35 34 32 65 39 61 37 38 64 31 34   5899542e9a78d14
0b00: 30 33 39 32 39 63 34 33 34 36 39 39 33 65 32 31  03929c4346993e21
0b10: 33 62 38 33 63 33 32 66 39 31 32 37 34 62 64 64  3b83c32f91274bdd
0b20: 62 63 36 33 65 34 31 39 32 0a 0a 74 63 6c 74 65  bc63e4192..tclte
0b30: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0b40: 41 35 31 32 2d 32 32 34 2d 32 2e 31 31 20 7b 53  A512-224-2.11 {S
0b50: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
0b60: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0b70: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
0b80: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0b90: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0ba0: 20 68 65 78 20 35 38 31 39 61 37 37 66 61 31 61   hex 5819a77fa1a
0bb0: 38 66 39 63 33 35 64 31 37 5d 7d 20 5c 0a 09 2d  8f9c35d17]} \..-
0bc0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0bd0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
0be0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
0bf0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0c00: 74 20 2d 72 65 73 75 6c 74 20 32 65 39 34 34 61  t -result 2e944a
0c10: 35 63 35 33 34 62 38 30 39 32 32 66 36 63 32 31  5c534b80922f6c21
0c20: 65 39 37 32 37 37 62 34 61 30 31 61 34 61 30 66  e97277b4a01a4a0f
0c30: 61 36 35 32 64 36 64 34 30 62 33 37 66 62 30 66  a652d6d40b37fb0f
0c40: 63 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  c9..tcltest::tes
0c50: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
0c60: 34 2d 32 2e 31 32 20 7b 53 48 41 35 31 32 5f 32  4-2.12 {SHA512_2
0c70: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
0c80: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
0c90: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
0ca0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0cb0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 63  ry decode hex 3c
0cc0: 37 65 30 33 38 34 30 31 66 61 37 34 63 36 63 30  7e038401fa74c6c0
0cd0: 36 65 34 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  6e41]} \..-body 
0ce0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0cf0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
0d00: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0d10: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0d20: 73 75 6c 74 20 61 37 34 61 66 36 38 38 31 39 61  sult a74af68819a
0d30: 66 65 38 31 62 63 64 61 63 65 62 61 36 34 32 30  fe81bcdaceba6420
0d40: 31 63 30 64 34 31 66 38 34 33 65 34 62 30 38 65  1c0d41f843e4b08e
0d50: 34 30 30 32 61 33 37 35 62 65 37 36 31 0a 0a 74  4002a375be761..t
0d60: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0d70: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
0d80: 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  3 {SHA512_224Sho
0d90: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0da0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
0db0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0dc0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0dd0: 63 6f 64 65 20 68 65 78 20 65 32 34 33 62 39 66  code hex e243b9f
0de0: 39 30 31 38 35 35 34 34 37 66 61 32 61 66 33 30  901855447fa2af30
0df0: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
0e00: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0e10: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
0e20: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0e30: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0e40: 74 20 33 33 30 63 37 37 65 64 32 30 64 63 39 33  t 330c77ed20dc93
0e50: 63 61 62 66 30 64 66 33 34 34 32 63 36 32 30 63  cabf0df3442c620c
0e60: 39 64 66 35 63 37 61 30 32 64 37 63 37 39 66 63  9df5c7a02d7c79fc
0e70: 31 64 32 66 66 37 66 66 39 34 0a 0a 74 63 6c 74  1d2ff7ff94..tclt
0e80: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
0e90: 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 34 20 7b  HA512-224-2.14 {
0ea0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
0eb0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0ec0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
0ed0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
0ee0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
0ef0: 65 20 68 65 78 20 63 35 66 39 34 32 65 64 63 34  e hex c5f942edc4
0f00: 36 34 30 37 63 36 30 31 39 63 64 39 32 36 61 30  6407c6019cd926a0
0f10: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0f20: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0f30: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
0f40: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0f50: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0f60: 20 65 31 38 30 61 30 64 38 33 36 38 33 63 62 37   e180a0d83683cb7
0f70: 65 37 39 64 38 31 32 61 62 35 64 34 32 38 38 33  e79d812ab5d42883
0f80: 39 39 63 37 38 38 39 35 63 36 61 39 31 38 65 39  99c78895c6a918e9
0f90: 39 61 32 38 33 39 31 35 35 0a 0a 74 63 6c 74 65  9a2839155..tclte
0fa0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0fb0: 41 35 31 32 2d 32 32 34 2d 32 2e 31 35 20 7b 53  A512-224-2.15 {S
0fc0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
0fd0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0fe0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
0ff0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1000: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1010: 20 68 65 78 20 65 35 37 64 34 63 34 37 38 61 64   hex e57d4c478ad
1020: 36 61 36 34 62 38 62 66 33 33 35 32 65 37 35 62  6a64b8bf3352e75b
1030: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
1040: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1050: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
1060: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
1070: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
1080: 74 20 31 38 62 33 65 38 66 35 61 31 66 62 36 30  t 18b3e8f5a1fb60
1090: 33 63 36 37 30 36 30 63 31 32 61 37 33 36 65 35  3c67060c12a736e5
10a0: 37 63 35 63 63 63 30 62 38 39 66 63 36 32 63 39  7c5ccc0b89fc62c9
10b0: 30 62 30 32 64 64 39 32 36 62 0a 0a 74 63 6c 74  0b02dd926b..tclt
10c0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
10d0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 36 20 7b  HA512-224-2.16 {
10e0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
10f0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1100: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
1110: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1120: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1130: 65 20 68 65 78 20 33 32 64 30 34 39 39 32 38 61  e hex 32d049928a
1140: 35 38 33 62 35 62 39 35 34 37 38 35 38 30 35 64  583b5b954785805d
1150: 38 62 32 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8b26]} \..-body 
1160: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1170: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1180: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1190: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
11a0: 73 75 6c 74 20 31 38 66 38 37 65 38 65 36 62 35  sult 18f87e8e6b5
11b0: 34 65 63 34 33 33 36 34 34 32 66 37 36 65 64 61  4ec4336442f76eda
11c0: 30 62 33 32 64 63 62 36 34 64 34 36 33 63 30 62  0b32dcb64d463c0b
11d0: 65 36 39 65 33 34 38 66 38 36 63 33 34 0a 0a 74  e69e348f86c34..t
11e0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
11f0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31  h_SHA512-224-2.1
1200: 37 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  7 {SHA512_224Sho
1210: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
1220: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
1230: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1240: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1250: 63 6f 64 65 20 68 65 78 20 33 62 32 35 34 32 63  code hex 3b2542c
1260: 62 33 66 61 35 36 30 64 64 30 64 37 39 36 64 35  b3fa560dd0d796d5
1270: 39 65 65 31 35 31 66 65 65 5d 7d 20 5c 0a 09 2d  9ee151fee]} \..-
1280: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1290: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
12a0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
12b0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
12c0: 74 20 2d 72 65 73 75 6c 74 20 64 63 34 61 62 33  t -result dc4ab3
12d0: 34 64 62 32 34 31 62 33 66 63 32 30 35 35 63 35  4db241b3fc2055c5
12e0: 34 66 37 30 61 38 66 64 33 30 34 35 32 33 64 38  4f70a8fd304523d8
12f0: 63 34 32 30 32 38 35 32 66 35 66 30 37 37 36 34  c4202852f5f07764
1300: 34 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  4f..tcltest::tes
1310: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
1320: 34 2d 32 2e 31 38 20 7b 53 48 41 35 31 32 5f 32  4-2.18 {SHA512_2
1330: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
1340: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
1350: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
1360: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1370: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 63  ry decode hex ec
1380: 62 65 33 36 37 39 35 39 61 39 31 62 31 35 65 62  be367959a91b15eb
1390: 30 38 30 34 38 62 33 33 37 35 32 65 66 37 36 64  08048b33752ef76d
13a0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
13b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
13c0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
13d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
13e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
13f0: 20 62 37 36 65 61 61 37 64 64 65 34 35 65 64 35   b76eaa7dde45ed5
1400: 30 63 30 37 62 35 62 61 66 61 66 62 66 64 63 63  0c07b5bafafbfdcc
1410: 30 39 35 39 63 31 61 36 34 65 63 61 37 61 64 63  0959c1a64eca7adc
1420: 33 39 31 61 62 61 32 34 35 0a 0a 74 63 6c 74 65  391aba245..tclte
1430: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
1440: 41 35 31 32 2d 32 32 34 2d 32 2e 31 39 20 7b 53  A512-224-2.19 {S
1450: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
1460: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1470: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
1480: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1490: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
14a0: 20 68 65 78 20 34 30 62 64 37 64 34 37 62 36 33   hex 40bd7d47b63
14b0: 36 63 32 61 37 34 39 61 32 34 37 66 64 64 61 37  6c2a749a247fdda7
14c0: 35 38 30 37 63 32 33 38 62 5d 7d 20 5c 0a 09 2d  5807c238b]} \..-
14d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
14e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
14f0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
1500: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
1510: 74 20 2d 72 65 73 75 6c 74 20 30 38 37 65 64 36  t -result 087ed6
1520: 38 66 31 64 62 39 30 66 66 62 32 66 62 34 66 66  8f1db90ffb2fb4ff
1530: 37 64 63 34 62 31 37 66 65 30 38 31 30 30 62 36  7dc4b17fe08100b6
1540: 34 33 38 33 38 35 30 33 37 38 65 66 35 34 33 33  4383850378ef5433
1550: 33 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  39..tcltest::tes
1560: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
1570: 34 2d 32 2e 32 30 20 7b 53 48 41 35 31 32 5f 32  4-2.20 {SHA512_2
1580: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
1590: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
15a0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
15b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
15c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 33  ry decode hex 33
15d0: 31 63 38 39 33 39 65 66 36 38 35 61 65 30 65 66  1c8939ef685ae0ef
15e0: 63 64 34 30 33 30 33 37 38 61 38 62 30 61 62 37  cd4030378a8b0ab7
15f0: 32 30 63 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  20c7]} \..-body 
1600: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1610: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1620: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1630: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1640: 73 75 6c 74 20 39 37 38 37 34 64 35 36 32 39 36  sult 97874d56296
1650: 61 32 38 66 38 64 66 32 38 30 34 34 38 66 37 36  a28f8df280448f76
1660: 61 39 65 38 30 36 36 30 35 64 61 32 35 37 61 36  a9e806605da257a6
1670: 30 38 33 35 39 38 66 32 33 32 65 34 64 0a 0a 74  083598f232e4d..t
1680: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1690: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 32  h_SHA512-224-2.2
16a0: 31 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  1 {SHA512_224Sho
16b0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
16c0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
16d0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
16e0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
16f0: 63 6f 64 65 20 68 65 78 20 32 36 36 33 34 64 31  code hex 26634d1
1700: 65 62 33 63 63 32 37 39 33 38 33 30 63 39 37 66  eb3cc2793830c97f
1710: 34 39 36 37 34 62 64 61 37 34 37 34 33 65 62 38  49674bda74743eb8
1720: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
1730: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1740: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
1750: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
1760: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
1770: 74 20 38 32 39 34 62 31 31 32 35 38 38 64 66 62  t 8294b112588dfb
1780: 39 63 35 35 33 61 63 38 38 66 62 64 38 34 34 31  9c553ac88fbd8441
1790: 37 32 32 63 65 63 36 61 31 64 34 33 35 33 31 31  722cec6a1d435311
17a0: 66 65 37 32 65 30 31 31 30 63 0a 0a 74 63 6c 74  fe72e0110c..tclt
17b0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
17c0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 32 32 20 7b  HA512-224-2.22 {
17d0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
17e0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
17f0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
1800: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1810: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1820: 65 20 68 65 78 20 36 32 65 64 32 33 61 62 38 38  e hex 62ed23ab88
1830: 63 33 30 66 65 31 33 35 30 66 37 30 32 66 33 62  c30fe1350f702f3b
1840: 36 64 34 35 32 35 33 61 30 66 63 36 61 65 63 31  6d45253a0fc6aec1
1850: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1860: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1870: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
1880: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1890: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
18a0: 20 33 30 39 64 62 37 30 36 33 38 37 37 31 65 32   309db70638771e2
18b0: 65 65 63 33 30 39 61 62 66 64 61 32 31 39 65 35  eec309abfda219e5
18c0: 66 31 33 62 61 63 35 66 61 39 64 35 65 38 34 65  f13bac5fa9d5e84e
18d0: 37 32 37 37 36 34 62 63 61 0a 0a 74 63 6c 74 65  727764bca..tclte
18e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
18f0: 41 35 31 32 2d 32 32 34 2d 32 2e 32 33 20 7b 53  A512-224-2.23 {S
1900: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
1910: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1920: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
1930: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1940: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1950: 20 68 65 78 20 38 32 37 64 62 62 65 33 36 66 62   hex 827dbbe36fb
1960: 32 36 36 33 63 39 35 65 61 66 38 31 63 37 63 65  2663c95eaf81c7ce
1970: 34 34 31 64 63 61 36 36 34 30 35 30 35 30 61 64  441dca66405050ad
1980: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
1990: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
19a0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
19b0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
19c0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
19d0: 74 20 33 39 65 37 38 36 61 39 33 64 63 39 30 65  t 39e786a93dc90e
19e0: 39 36 34 37 31 65 34 36 36 39 35 30 61 35 61 30  96471e466950a5a0
19f0: 66 37 66 31 34 32 63 61 36 39 63 31 32 35 31 62  f7f142ca69c1251b
1a00: 39 33 32 65 38 62 62 66 34 35 0a 0a 74 63 6c 74  932e8bbf45..tclt
1a10: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
1a20: 48 41 35 31 32 2d 32 32 34 2d 32 2e 32 34 20 7b  HA512-224-2.24 {
1a30: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
1a40: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1a50: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
1a60: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1a70: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1a80: 65 20 68 65 78 20 61 32 61 64 61 36 31 61 39 35  e hex a2ada61a95
1a90: 63 66 38 66 62 36 66 39 33 63 62 64 30 61 61 36  cf8fb6f93cbd0aa6
1aa0: 37 62 37 30 65 32 38 36 64 63 38 35 33 61 66 61  7b70e286dc853afa
1ab0: 35 31 66 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  51f8]} \..-body 
1ac0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1ad0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1ae0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1af0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1b00: 73 75 6c 74 20 65 38 32 31 32 34 37 63 37 62 63  sult e821247c7bc
1b10: 37 61 63 38 65 66 30 37 66 62 33 31 61 63 32 35  7ac8ef07fb31ac25
1b20: 66 62 34 38 61 33 66 62 63 35 30 66 64 65 33 39  fb48a3fbc50fde39
1b30: 39 61 33 63 62 35 38 38 39 35 34 35 66 0a 0a 74  9a3cb5889545f..t
1b40: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1b50: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 32  h_SHA512-224-2.2
1b60: 35 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  5 {SHA512_224Sho
1b70: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
1b80: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
1b90: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1ba0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1bb0: 63 6f 64 65 20 68 65 78 20 35 36 33 33 65 65 37  code hex 5633ee7
1bc0: 62 38 38 37 30 30 30 32 63 30 31 61 33 63 36 66  b8870002c01a3c6f
1bd0: 36 38 66 37 38 31 32 66 31 33 61 64 66 65 30 62  68f7812f13adfe0b
1be0: 66 36 66 61 37 39 34 62 66 5d 7d 20 5c 0a 09 2d  f6fa794bf]} \..-
1bf0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1c00: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
1c10: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
1c20: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
1c30: 74 20 2d 72 65 73 75 6c 74 20 63 33 34 62 34 36  t -result c34b46
1c40: 37 38 35 38 62 36 35 32 30 32 66 64 38 63 37 33  7858b65202fd8c73
1c50: 66 66 61 63 36 37 63 64 38 65 65 35 35 31 31 38  ffac67cd8ee55118
1c60: 64 31 32 62 65 62 32 62 31 31 30 62 36 33 61 65  d12beb2b110b63ae
1c70: 34 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  43..tcltest::tes
1c80: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
1c90: 34 2d 32 2e 32 36 20 7b 53 48 41 35 31 32 5f 32  4-2.26 {SHA512_2
1ca0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
1cb0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
1cc0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
1cd0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1ce0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 61  ry decode hex da
1cf0: 31 64 64 31 65 62 65 61 33 63 63 39 34 37 34 63  1dd1ebea3cc9474c
1d00: 66 32 35 35 64 63 32 33 65 33 35 36 39 35 30 32  f255dc23e3569502
1d10: 36 65 38 36 64 36 30 39 33 61 62 61 62 32 35 31  6e86d6093abab251
1d20: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1d30: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1d40: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
1d50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1d60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1d70: 20 65 36 35 30 38 30 32 66 32 39 61 64 32 30 62   e650802f29ad20b
1d80: 39 30 30 31 34 38 63 66 33 65 39 33 36 31 33 39  900148cf3e936139
1d90: 39 65 36 32 30 37 64 34 35 35 32 35 37 66 62 61  9e6207d455257fba
1da0: 65 33 65 66 65 65 35 30 63 0a 0a 74 63 6c 74 65  e3efee50c..tclte
1db0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
1dc0: 41 35 31 32 2d 32 32 34 2d 32 2e 32 37 20 7b 53  A512-224-2.27 {S
1dd0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
1de0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1df0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
1e00: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1e10: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1e20: 20 68 65 78 20 38 66 37 31 63 39 33 34 34 63 65   hex 8f71c9344ce
1e30: 36 61 35 33 35 64 31 30 34 38 30 33 64 32 32 31  6a535d104803d221
1e40: 31 39 66 35 37 62 35 66 39 34 37 37 65 32 35 33  19f57b5f9477e253
1e50: 38 31 37 61 35 32 61 66 61 5d 7d 20 5c 0a 09 2d  817a52afa]} \..-
1e60: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1e70: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
1e80: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
1e90: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
1ea0: 74 20 2d 72 65 73 75 6c 74 20 36 62 33 61 32 38  t -result 6b3a28
1eb0: 38 62 64 38 34 31 33 37 63 64 37 36 30 30 63 63  8bd84137cd7600cc
1ec0: 66 32 64 32 61 62 39 62 37 39 37 64 30 65 38 37  f2d2ab9b797d0e87
1ed0: 61 31 38 63 63 62 34 36 38 31 38 33 33 39 36 32  a18ccb4681833962
1ee0: 33 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  35..tcltest::tes
1ef0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
1f00: 34 2d 32 2e 32 38 20 7b 53 48 41 35 31 32 5f 32  4-2.28 {SHA512_2
1f10: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
1f20: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
1f30: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
1f40: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1f50: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 36  ry decode hex d6
1f60: 36 38 61 32 31 37 38 30 35 39 34 30 32 34 64 62  68a21780594024db
1f70: 30 32 35 64 63 62 33 37 33 65 66 33 36 33 39 62  025dcb373ef3639b
1f80: 63 64 35 37 34 33 31 34 35 35 32 37 65 32 34 64  cd5743145527e24d
1f90: 61 36 37 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  a67d]} \..-body 
1fa0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1fb0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
1fc0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1fd0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1fe0: 73 75 6c 74 20 32 62 39 33 34 34 36 64 33 61 61  sult 2b93446d3aa
1ff0: 32 66 31 66 39 65 61 38 35 38 65 34 37 38 30 36  2f1f9ea858e47806
2000: 63 63 34 37 32 66 34 30 65 33 33 30 38 35 62 37  cc472f40e33085b7
2010: 63 37 61 36 35 32 32 63 66 36 35 34 38 0a 0a 74  c7a6522cf6548..t
2020: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2030: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 32  h_SHA512-224-2.2
2040: 39 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  9 {SHA512_224Sho
2050: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
2060: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
2070: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2080: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2090: 63 6f 64 65 20 68 65 78 20 30 33 66 38 63 66 39  code hex 03f8cf9
20a0: 38 30 33 35 65 61 63 31 35 38 66 66 31 38 66 64  8035eac158ff18fd
20b0: 39 33 62 34 34 63 64 62 36 32 31 35 39 37 32 35  93b44cdb62159725
20c0: 35 64 37 63 33 64 39 37 61 39 65 30 38 37 39 38  5d7c3d97a9e08798
20d0: 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  9]} \..-body {tl
20e0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
20f0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
2100: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
2110: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
2120: 74 20 65 31 66 63 35 66 35 30 38 64 65 65 64 38  t e1fc5f508deed8
2130: 62 66 37 34 38 38 33 62 36 66 64 65 66 38 63 33  bf74883b6fdef8c3
2140: 65 30 63 38 36 33 30 36 65 37 66 31 64 36 33 30  e0c86306e7f1d630
2150: 30 63 63 65 34 64 33 36 64 63 0a 0a 74 63 6c 74  0cce4d36dc..tclt
2160: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
2170: 48 41 35 31 32 2d 32 32 34 2d 32 2e 33 30 20 7b  HA512-224-2.30 {
2180: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
2190: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
21a0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
21b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
21c0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
21d0: 65 20 68 65 78 20 32 61 31 66 35 37 39 39 38 33  e hex 2a1f579983
21e0: 36 30 65 39 32 31 36 66 35 30 34 30 65 38 66 37  60e9216f5040e8f7
21f0: 35 66 35 62 66 66 62 61 34 33 36 38 65 65 65 64  5f5bffba4368eeed
2200: 65 64 65 35 34 61 61 30 62 62 30 35 38 61 34 33  ede54aa0bb058a43
2210: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2220: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2230: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
2240: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2250: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2260: 20 62 64 63 39 31 65 36 37 39 66 63 32 66 34 65   bdc91e679fc2f4e
2270: 34 30 61 66 31 33 66 30 33 65 63 61 33 66 36 31  40af13f03eca3f61
2280: 61 37 62 61 33 33 61 63 32 63 36 31 33 64 39 34  a7ba33ac2c613d94
2290: 38 65 64 37 66 63 30 62 63 0a 0a 74 63 6c 74 65  8ed7fc0bc..tclte
22a0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
22b0: 41 35 31 32 2d 32 32 34 2d 32 2e 33 31 20 7b 53  A512-224-2.31 {S
22c0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
22d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
22e0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
22f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2300: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
2310: 20 68 65 78 20 63 64 35 66 65 65 35 66 64 65 35   hex cd5fee5fde5
2320: 65 39 61 61 32 38 38 34 62 34 66 34 38 38 32 63  e9aa2884b4f4882c
2330: 66 61 37 64 35 35 37 31 66 38 66 64 35 37 32 63  fa7d5571f8fd572c
2340: 35 66 39 62 66 37 37 61 33 64 32 31 66 64 61 33  5f9bf77a3d21fda3
2350: 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  5]} \..-body {tl
2360: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2370: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
2380: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
2390: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
23a0: 74 20 37 32 62 34 33 34 31 37 62 30 37 31 66 34  t 72b43417b071f4
23b0: 38 31 31 38 33 33 30 32 37 37 33 31 62 30 63 61  811833027731b0ca
23c0: 32 38 35 34 39 63 30 33 35 37 35 33 30 66 65 32  28549c0357530fe2
23d0: 35 38 63 61 30 30 35 33 33 65 0a 0a 74 63 6c 74  58ca00533e..tclt
23e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
23f0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 33 32 20 7b  HA512-224-2.32 {
2400: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
2410: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2420: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
2430: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2440: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2450: 65 20 68 65 78 20 61 39 61 37 33 30 33 38 61 32  e hex a9a73038a2
2460: 38 65 34 30 66 65 62 33 37 34 38 31 39 64 66 33  8e40feb374819df3
2470: 61 32 36 64 62 38 34 36 66 64 61 32 38 34 64 65  a26db846fda284de
2480: 37 65 38 38 64 62 30 31 65 32 33 34 38 63 30 63  7e88db01e2348c0c
2490: 61 33 38 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  a38c]} \..-body 
24a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
24b0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
24c0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
24d0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
24e0: 73 75 6c 74 20 61 35 62 61 64 64 63 65 65 64 35  sult a5baddceed5
24f0: 62 35 38 36 31 34 63 39 35 62 38 61 36 32 31 64  b58614c95b8a621d
2500: 35 38 63 64 34 62 31 32 35 35 39 62 64 33 34 37  58cd4b12559bd347
2510: 39 35 65 66 35 62 65 39 63 64 36 30 33 0a 0a 74  95ef5be9cd603..t
2520: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2530: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 33  h_SHA512-224-2.3
2540: 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  3 {SHA512_224Sho
2550: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
2560: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
2570: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2580: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2590: 63 6f 64 65 20 68 65 78 20 62 65 34 38 35 30 66  code hex be4850f
25a0: 35 62 65 36 63 62 36 38 63 64 62 61 35 39 34 38  5be6cb68cdba5948
25b0: 65 33 62 39 34 64 62 62 63 65 38 32 39 38 39 61  e3b94dbbce82989a
25c0: 61 37 35 62 39 37 30 37 33 65 35 35 31 33 39 61  a75b97073e55139a
25d0: 61 63 38 34 39 61 38 39 34 5d 7d 20 5c 0a 09 2d  ac849a894]} \..-
25e0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
25f0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
2600: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
2610: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
2620: 74 20 2d 72 65 73 75 6c 74 20 63 31 31 65 65 64  t -result c11eed
2630: 61 61 64 63 35 32 34 39 63 65 66 61 66 63 35 61  aadc5249cefafc5a
2640: 39 66 61 64 66 33 39 65 38 31 32 64 62 37 30 30  9fadf39e812db700
2650: 62 64 32 37 36 37 62 38 64 65 31 63 64 64 36 30  bd2767b8de1cdd60
2660: 39 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  99..tcltest::tes
2670: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
2680: 34 2d 32 2e 33 34 20 7b 53 48 41 35 31 32 5f 32  4-2.34 {SHA512_2
2690: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
26a0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
26b0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
26c0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
26d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 65  ry decode hex ce
26e0: 64 37 38 62 66 30 37 33 34 61 35 32 37 66 35 63  d78bf0734a527f5c
26f0: 30 37 65 66 36 63 38 61 64 66 38 30 61 65 32 35  07ef6c8adf80ae25
2700: 32 62 38 63 66 66 31 30 30 64 33 39 33 65 63 31  2b8cff100d393ec1
2710: 66 38 63 30 31 31 35 30 37 32 31 66 63 65 63 64  f8c01150721fcecd
2720: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2730: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2740: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
2750: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2760: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2770: 20 64 34 32 33 37 61 61 31 39 35 36 64 33 37 61   d4237aa1956d37a
2780: 36 64 63 61 62 37 62 30 37 32 36 39 66 31 38 32  6dcab7b07269f182
2790: 32 38 66 37 65 33 31 35 36 63 33 35 35 35 63 66  28f7e3156c3555cf
27a0: 34 64 33 64 36 38 63 31 61 0a 0a 74 63 6c 74 65  4d3d68c1a..tclte
27b0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
27c0: 41 35 31 32 2d 32 32 34 2d 32 2e 33 35 20 7b 53  A512-224-2.35 {S
27d0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
27e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
27f0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
2800: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2810: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
2820: 20 68 65 78 20 65 34 30 30 62 63 38 39 39 34 63   hex e400bc8994c
2830: 66 66 32 33 65 61 65 31 38 39 64 66 33 62 31 65  ff23eae189df3b1e
2840: 37 65 34 34 30 61 36 62 35 62 31 37 38 36 31 39  7e440a6b5b178619
2850: 37 31 32 38 31 30 35 62 35 64 66 65 32 63 36 66  7128105b5dfe2c6f
2860: 65 39 64 31 65 66 33 31 61 5d 7d 20 5c 0a 09 2d  e9d1ef31a]} \..-
2870: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
2880: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
2890: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
28a0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
28b0: 74 20 2d 72 65 73 75 6c 74 20 34 35 33 35 31 61  t -result 45351a
28c0: 64 66 66 65 66 63 66 62 35 65 33 39 30 38 35 34  dffefcfb5e390854
28d0: 36 31 66 38 62 66 66 35 66 35 36 35 32 61 35 61  61f8bff5f5652a5a
28e0: 61 35 61 30 34 30 31 66 30 34 64 34 66 35 36 34  a5a0401f04d4f564
28f0: 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  52..tcltest::tes
2900: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
2910: 34 2d 32 2e 33 36 20 7b 53 48 41 35 31 32 5f 32  4-2.36 {SHA512_2
2920: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
2930: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
2940: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
2950: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2960: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 31  ry decode hex f1
2970: 35 32 38 34 61 31 31 63 36 31 65 31 32 39 65 61  5284a11c61e129ea
2980: 30 36 30 36 62 64 36 35 33 31 66 32 66 31 32 31  0606bd6531f2f121
2990: 33 37 37 36 65 30 31 65 32 35 33 64 31 64 65 66  3776e01e253d1def
29a0: 35 33 30 62 65 64 31 63 33 63 34 32 62 33 63 36  530bed1c3c42b3c6
29b0: 38 63 61 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8caa]} \..-body 
29c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
29d0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
29e0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
29f0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2a00: 73 75 6c 74 20 66 61 34 32 35 62 63 37 33 32 64  sult fa425bc732d
2a10: 36 30 33 33 35 36 36 63 30 37 33 35 36 30 62 32  6033566c073560b2
2a20: 63 35 66 65 33 32 32 61 61 34 66 61 32 32 61 61  c5fe322aa4fa22aa
2a30: 61 33 65 63 35 31 31 35 34 66 66 64 38 0a 0a 74  a3ec51154ffd8..t
2a40: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2a50: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 33  h_SHA512-224-2.3
2a60: 37 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  7 {SHA512_224Sho
2a70: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
2a80: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
2a90: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2aa0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2ab0: 63 6f 64 65 20 68 65 78 20 64 38 35 38 65 65 64  code hex d858eed
2ac0: 39 34 32 66 65 39 32 36 62 35 32 62 61 64 61 36  942fe926b52bada6
2ad0: 32 33 66 62 38 64 30 66 31 38 34 35 38 65 34 31  23fb8d0f18458e41
2ae0: 36 33 33 33 32 65 31 63 31 38 63 35 38 31 66 33  63332e1c18c581f3
2af0: 38 63 65 64 61 66 62 62 61 34 64 39 30 38 34 36  8cedafbba4d90846
2b00: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
2b10: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2b20: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
2b30: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
2b40: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
2b50: 74 20 62 32 62 33 30 38 64 62 39 34 38 64 37 31  t b2b308db948d71
2b60: 36 39 63 38 65 65 62 62 34 64 37 61 31 39 62 65  69c8eebb4d7a19be
2b70: 39 36 64 35 63 34 62 35 38 34 39 35 39 33 65 63  96d5c4b5849593ec
2b80: 35 38 37 64 33 38 36 35 65 36 0a 0a 74 63 6c 74  587d3865e6..tclt
2b90: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
2ba0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 33 38 20 7b  HA512-224-2.38 {
2bb0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
2bc0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2bd0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
2be0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2bf0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2c00: 65 20 68 65 78 20 37 38 62 38 61 64 32 33 37 32  e hex 78b8ad2372
2c10: 36 33 32 33 39 38 63 66 35 36 37 31 37 64 66 33  632398cf56717df3
2c20: 62 31 34 31 61 34 66 33 38 64 35 64 38 33 30 32  b141a4f38d5d8302
2c30: 39 62 63 31 66 30 32 64 30 37 66 35 32 39 34 39  9bc1f02d07f52949
2c40: 61 33 39 39 31 37 32 39 34 31 34 31 64 34 31 34  a39917294141d414
2c50: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2c60: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2c70: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
2c80: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2c90: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2ca0: 20 37 31 62 65 30 35 38 36 32 62 34 34 65 39 66   71be05862b44e9f
2cb0: 35 37 61 64 39 62 65 31 37 66 31 64 65 31 38 35  57ad9be17f1de185
2cc0: 34 37 31 65 61 62 64 31 31 31 63 31 37 32 35 65  471eabd111c1725e
2cd0: 38 33 35 65 30 39 36 32 35 0a 0a 74 63 6c 74 65  835e09625..tclte
2ce0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2cf0: 41 35 31 32 2d 32 32 34 2d 32 2e 33 39 20 7b 53  A512-224-2.39 {S
2d00: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
2d10: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2d20: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
2d30: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2d40: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
2d50: 20 68 65 78 20 66 61 66 66 38 39 34 63 34 61 32   hex faff894c4a2
2d60: 65 64 37 30 63 34 63 39 64 36 37 30 33 62 36 62  ed70c4c9d6703b6b
2d70: 63 33 61 33 64 32 62 32 63 62 61 38 66 30 34 37  c3a3d2b2cba8f047
2d80: 36 39 64 65 33 35 30 66 63 30 63 64 30 31 39 33  69de350fc0cd0193
2d90: 30 30 35 36 65 65 61 30 33 66 65 36 38 38 64 61  0056eea03fe688da
2da0: 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  1]} \..-body {tl
2db0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2dc0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
2dd0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
2de0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
2df0: 74 20 35 39 66 35 61 38 63 38 34 33 62 39 38 32  t 59f5a8c843b982
2e00: 39 38 39 61 30 38 65 36 38 35 32 65 33 34 66 30  989a08e6852e34f0
2e10: 63 30 33 33 39 37 63 39 39 61 38 37 38 36 34 64  c03397c99a87864d
2e20: 66 62 31 62 62 61 66 65 31 63 0a 0a 74 63 6c 74  fb1bbafe1c..tclt
2e30: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
2e40: 48 41 35 31 32 2d 32 32 34 2d 32 2e 34 30 20 7b  HA512-224-2.40 {
2e50: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
2e60: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2e70: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
2e80: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2e90: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2ea0: 65 20 68 65 78 20 65 36 30 36 35 65 31 65 62 37  e hex e6065e1eb7
2eb0: 63 66 39 30 31 63 33 62 30 38 64 62 61 34 61 65  cf901c3b08dba4ae
2ec0: 63 61 37 64 34 36 37 33 63 33 66 64 62 65 36 30  ca7d4673c3fdbe60
2ed0: 33 39 31 63 31 62 35 64 34 64 30 39 32 30 32 64  391c1b5d4d09202d
2ee0: 37 64 64 34 65 61 38 62 36 64 32 35 64 33 37 39  7dd4ea8b6d25d379
2ef0: 65 37 32 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e72e]} \..-body 
2f00: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2f10: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
2f20: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
2f30: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2f40: 73 75 6c 74 20 65 61 38 35 36 34 63 39 38 38 63  sult ea8564c988c
2f50: 62 36 37 65 33 30 32 62 64 34 30 64 66 32 31 61  b67e302bd40df21a
2f60: 35 66 37 39 36 61 30 61 31 31 36 38 34 36 34 39  5f796a0a11684649
2f70: 33 63 38 36 63 33 61 31 64 30 38 30 65 0a 0a 74  3c86c3a1d080e..t
2f80: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2f90: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 34  h_SHA512-224-2.4
2fa0: 31 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  1 {SHA512_224Sho
2fb0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
2fc0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
2fd0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2fe0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2ff0: 63 6f 64 65 20 68 65 78 20 30 32 39 64 31 34 63  code hex 029d14c
3000: 35 61 34 61 35 37 61 36 34 39 61 38 36 63 35 66  5a4a57a649a86c5f
3010: 32 65 30 32 32 65 36 65 65 30 39 38 66 32 39 63  2e022e6ee098f29c
3020: 39 64 34 36 30 36 35 34 38 66 66 32 37 37 35 32  9d4606548ff27752
3030: 39 36 30 33 38 65 63 30 39 33 31 61 66 30 35 38  96038ec0931af058
3040: 35 61 63 62 34 64 39 61 30 5d 7d 20 5c 0a 09 2d  5acb4d9a0]} \..-
3050: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3060: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
3070: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
3080: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
3090: 74 20 2d 72 65 73 75 6c 74 20 37 31 36 36 36 38  t -result 716668
30a0: 63 62 61 37 62 31 63 30 64 64 63 31 63 34 62 33  cba7b1c0ddc1c4b3
30b0: 65 36 66 65 33 66 38 39 31 37 65 61 64 61 36 32  e6fe3f8917eada62
30c0: 35 30 36 62 36 38 35 35 65 35 61 66 32 62 35 34  506b6855e5af2b54
30d0: 65 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e5..tcltest::tes
30e0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
30f0: 34 2d 32 2e 34 32 20 7b 53 48 41 35 31 32 5f 32  4-2.42 {SHA512_2
3100: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
3110: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
3120: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
3130: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3140: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 33  ry decode hex e3
3150: 30 38 39 63 30 35 63 65 31 35 34 39 63 34 37 61  089c05ce1549c47a
3160: 39 37 37 38 35 64 38 32 34 37 34 63 37 33 63 62  97785d82474c73cb
3170: 30 39 36 61 32 37 63 35 32 30 35 64 65 38 65 64  096a27c5205de8ed
3180: 39 65 33 61 38 63 39 37 31 66 37 66 61 30 65 61  9e3a8c971f7fa0ea
3190: 62 37 34 31 66 64 32 63 32 39 38 37 39 63 34 30  b741fd2c29879c40
31a0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
31b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
31c0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
31d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
31e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
31f0: 20 37 35 61 30 66 61 39 37 38 63 34 35 64 32 36   75a0fa978c45d26
3200: 38 31 32 34 64 38 63 64 39 65 66 30 61 30 38 65  8124d8cd9ef0a08e
3210: 63 61 62 62 62 65 64 35 33 34 31 32 63 66 63 37  cabbbed53412cfc7
3220: 63 62 31 63 30 30 33 39 38 0a 0a 74 63 6c 74 65  cb1c00398..tclte
3230: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
3240: 41 35 31 32 2d 32 32 34 2d 32 2e 34 33 20 7b 53  A512-224-2.43 {S
3250: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
3260: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3270: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
3280: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3290: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
32a0: 20 68 65 78 20 39 30 31 64 62 30 66 37 30 66 32   hex 901db0f70f2
32b0: 64 31 30 36 32 36 61 38 61 66 34 30 38 63 35 64  d10626a8af408c5d
32c0: 31 35 31 39 36 36 39 33 64 34 39 33 38 32 31 37  15196693d4938217
32d0: 38 61 64 30 64 65 33 62 31 63 31 64 38 62 33 65  8ad0de3b1c1d8b3e
32e0: 66 33 66 66 38 63 35 61 35 39 65 39 61 65 32 38  f3ff8c5a59e9ae28
32f0: 36 39 33 32 64 30 63 39 61 5d 7d 20 5c 0a 09 2d  6932d0c9a]} \..-
3300: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3310: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
3320: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
3330: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
3340: 74 20 2d 72 65 73 75 6c 74 20 31 34 37 30 61 34  t -result 1470a4
3350: 31 39 39 66 65 34 63 37 62 63 33 33 30 37 36 30  199fe4c7bc330760
3360: 63 31 31 39 37 65 37 39 34 35 37 62 31 36 34 34  c1197e79457b1644
3370: 37 36 34 65 32 38 61 36 32 64 33 38 36 61 37 38  764e28a62d386a78
3380: 62 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  b4..tcltest::tes
3390: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
33a0: 34 2d 32 2e 34 34 20 7b 53 48 41 35 31 32 5f 32  4-2.44 {SHA512_2
33b0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
33c0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
33d0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
33e0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
33f0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 34  ry decode hex 04
3400: 33 31 61 37 62 66 62 62 65 63 31 62 62 38 31 31  31a7bfbbec1bb811
3410: 36 61 36 32 65 31 64 62 37 65 31 33 34 36 38 36  6a62e1db7e134686
3420: 32 64 33 31 61 64 35 31 31 30 66 66 31 62 62 39  2d31ad5110ff1bb9
3430: 66 61 31 36 39 61 33 35 64 62 62 34 33 61 32 34  fa169a35dbb43a24
3440: 65 34 35 37 35 36 30 34 65 63 38 62 31 38 65 34  e4575604ec8b18e4
3450: 31 33 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1300]} \..-body 
3460: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3470: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
3480: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3490: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
34a0: 73 75 6c 74 20 31 65 37 35 39 30 65 34 30 38 63  sult 1e7590e408c
34b0: 30 33 38 62 37 39 34 65 39 38 32 30 62 32 35 64  038b794e9820b25d
34c0: 30 31 31 63 32 36 32 30 36 32 62 39 36 64 31 31  011c262062b96d11
34d0: 31 64 63 63 63 34 36 64 63 36 37 38 33 0a 0a 74  1dccc46dc6783..t
34e0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
34f0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 34  h_SHA512-224-2.4
3500: 35 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  5 {SHA512_224Sho
3510: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
3520: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
3530: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3540: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3550: 63 6f 64 65 20 68 65 78 20 64 31 34 31 37 35 33  code hex d141753
3560: 63 65 66 32 65 31 62 34 34 32 65 62 30 31 37 30  cef2e1b442eb0170
3570: 38 66 34 36 37 31 39 63 64 38 36 35 33 62 32 32  8f46719cd8653b22
3580: 65 31 64 39 37 30 39 30 37 33 64 37 63 63 66 39  e1d9709073d7ccf9
3590: 32 34 32 62 38 37 35 64 30 33 63 66 31 39 63 32  242b875d03cf19c2
35a0: 62 66 63 37 64 63 64 35 39 36 66 36 63 36 61 38  bfc7dcd596f6c6a8
35b0: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
35c0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
35d0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
35e0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
35f0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
3600: 74 20 30 66 33 35 37 62 38 63 61 36 37 36 61 38  t 0f357b8ca676a8
3610: 36 63 61 36 33 36 32 30 62 32 32 33 39 33 32 37  6ca63620b2239327
3620: 61 63 63 62 64 34 32 35 32 38 31 34 61 36 62 38  accbd4252814a6b8
3630: 63 35 36 38 39 35 65 61 35 38 0a 0a 74 63 6c 74  c56895ea58..tclt
3640: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
3650: 48 41 35 31 32 2d 32 32 34 2d 32 2e 34 36 20 7b  HA512-224-2.46 {
3660: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
3670: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3680: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
3690: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
36a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
36b0: 65 20 68 65 78 20 63 65 39 34 65 30 31 32 36 62  e hex ce94e0126b
36c0: 30 32 30 64 36 38 31 31 35 61 35 65 61 34 31 30  020d68115a5ea410
36d0: 38 33 62 34 37 31 37 61 31 33 64 39 63 35 37 61  83b4717a13d9c57a
36e0: 35 62 36 64 30 61 65 37 61 33 32 33 37 63 31 39  5b6d0ae7a3237c19
36f0: 62 36 32 64 64 32 66 63 61 32 66 34 32 30 36 32  b62dd2fca2f42062
3700: 62 39 30 64 66 63 39 65 64 62 36 38 65 30 34 65  b90dfc9edb68e04e
3710: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3720: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3730: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
3740: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3750: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3760: 20 39 33 35 64 33 39 31 64 36 32 36 61 31 33 35   935d391d626a135
3770: 37 37 32 33 31 39 65 63 39 33 66 64 36 35 32 62  772319ec93fd652b
3780: 64 39 66 64 35 36 38 30 31 30 37 63 39 38 37 38  d9fd5680107c9878
3790: 37 32 61 65 36 37 32 31 32 0a 0a 74 63 6c 74 65  72ae67212..tclte
37a0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
37b0: 41 35 31 32 2d 32 32 34 2d 32 2e 34 37 20 7b 53  A512-224-2.47 {S
37c0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
37d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
37e0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
37f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3800: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3810: 20 68 65 78 20 65 66 63 32 64 38 31 62 33 30 30   hex efc2d81b300
3820: 34 33 62 62 32 36 63 38 64 32 63 37 61 37 64 35  43bb26c8d2c7a7d5
3830: 62 66 65 38 65 65 35 37 39 65 34 36 33 31 32 32  bfe8ee579e463122
3840: 64 35 36 61 30 65 31 37 32 62 36 33 30 36 30 61  d56a0e172b63060a
3850: 38 33 34 39 35 64 38 38 62 65 66 37 66 30 62 36  83495d88bef7f0b6
3860: 32 35 63 39 64 62 61 37 38 65 63 62 33 36 61 64  25c9dba78ecb36ad
3870: 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  0]} \..-body {tl
3880: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3890: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
38a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
38b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
38c0: 74 20 64 39 32 31 34 37 38 39 62 37 62 37 33 36  t d9214789b7b736
38d0: 61 37 62 32 38 63 65 62 66 66 38 38 32 39 61 33  a7b28cebff8829a3
38e0: 39 39 39 66 66 30 63 37 34 39 36 30 39 35 62 31  999ff0c7496095b1
38f0: 33 30 63 31 65 32 65 38 32 39 0a 0a 74 63 6c 74  30c1e2e829..tclt
3900: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
3910: 48 41 35 31 32 2d 32 32 34 2d 32 2e 34 38 20 7b  HA512-224-2.48 {
3920: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
3930: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3940: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
3950: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3960: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3970: 65 20 68 65 78 20 35 62 32 37 64 36 66 65 39 39  e hex 5b27d6fe99
3980: 38 31 64 31 33 36 62 35 32 31 35 37 62 38 33 39  81d136b52157b839
3990: 62 62 35 62 37 38 64 37 38 34 34 64 66 35 61 33  bb5b78d7844df5a3
39a0: 39 37 65 66 62 65 38 30 39 38 36 34 33 35 64 38  97efbe80986435d8
39b0: 39 38 38 39 39 33 39 31 33 39 38 39 32 63 33 63  9889939139892c3c
39c0: 31 33 61 63 66 35 38 66 35 36 37 30 34 33 31 35  13acf58f56704315
39d0: 62 30 64 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  b0db]} \..-body 
39e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
39f0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
3a00: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3a10: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3a20: 73 75 6c 74 20 34 63 37 39 32 62 62 36 62 31 65  sult 4c792bb6b1e
3a30: 33 33 61 33 61 30 34 32 64 64 34 61 36 39 61 64  33a3a042dd4a69ad
3a40: 61 38 30 32 65 33 65 63 30 62 64 38 33 39 64 61  a802e3ec0bd839da
3a50: 61 38 38 36 33 35 62 32 32 35 65 66 62 0a 0a 74  a88635b225efb..t
3a60: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3a70: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 34  h_SHA512-224-2.4
3a80: 39 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  9 {SHA512_224Sho
3a90: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
3aa0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
3ab0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3ac0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3ad0: 63 6f 64 65 20 68 65 78 20 34 64 62 65 31 32 39  code hex 4dbe129
3ae0: 30 35 32 34 62 64 37 33 64 39 64 62 35 66 32 31  0524bd73d9db5f21
3af0: 66 39 64 30 33 35 65 31 38 33 64 63 32 38 35 62  f9d035e183dc285b
3b00: 38 35 62 61 37 35 35 30 35 37 63 37 36 39 37 37  85ba755057c76977
3b10: 37 62 65 32 32 37 63 34 37 30 65 33 36 37 39 65  7be227c470e3679e
3b20: 61 39 61 37 33 35 35 64 38 38 39 62 62 38 31 39  a9a7355d889bb819
3b30: 31 65 61 32 65 61 37 65 32 5d 7d 20 5c 0a 09 2d  1ea2ea7e2]} \..-
3b40: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3b50: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
3b60: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
3b70: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
3b80: 74 20 2d 72 65 73 75 6c 74 20 33 33 61 35 61 38  t -result 33a5a8
3b90: 64 36 31 31 39 62 62 36 64 64 37 62 32 65 37 32  d6119bb6dd7b2e72
3ba0: 65 63 65 38 65 34 64 35 64 30 32 61 61 39 39 30  ece8e4d5d02aa990
3bb0: 34 38 63 30 34 35 39 31 36 39 65 65 39 65 36 64  48c0459169ee9e6d
3bc0: 30 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  04..tcltest::tes
3bd0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
3be0: 34 2d 32 2e 35 30 20 7b 53 48 41 35 31 32 5f 32  4-2.50 {SHA512_2
3bf0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
3c00: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
3c10: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
3c20: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3c30: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 64  ry decode hex bd
3c40: 66 61 31 37 33 39 39 35 61 35 62 39 39 66 62 61  fa173995a5b99fba
3c50: 37 34 64 38 65 32 35 35 62 37 31 31 37 37 31 37  74d8e255b7117717
3c60: 33 31 61 38 65 31 38 35 31 64 37 64 64 36 39 33  31a8e1851d7dd693
3c70: 37 33 33 62 39 64 37 35 36 37 64 33 62 61 62 32  733b9d7567d3bab2
3c80: 33 32 32 39 63 64 37 61 31 36 30 63 62 38 33 39  3229cd7a160cb839
3c90: 39 63 36 63 30 30 36 63 32 31 63 37 37 36 62 34  9c6c006c21c776b4
3ca0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3cb0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3cc0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
3cd0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3ce0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3cf0: 20 33 33 63 39 33 34 62 35 31 30 32 30 36 33 32   33c934b51020632
3d00: 31 33 65 37 62 35 33 36 37 35 63 34 37 62 31 39  13e7b53675c47b19
3d10: 63 33 39 37 66 63 33 61 35 31 66 62 33 37 61 62  c397fc3a51fb37ab
3d20: 34 36 65 31 37 39 62 31 30 0a 0a 74 63 6c 74 65  46e179b10..tclte
3d30: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
3d40: 41 35 31 32 2d 32 32 34 2d 32 2e 35 31 20 7b 53  A512-224-2.51 {S
3d50: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
3d60: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3d70: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
3d80: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3d90: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3da0: 20 68 65 78 20 39 34 36 33 63 35 36 33 61 61 31   hex 9463c563aa1
3db0: 66 64 61 38 39 34 37 35 37 33 39 38 65 31 31 62  fda894757398e11b
3dc0: 30 34 61 34 62 34 63 65 65 30 64 63 65 39 64 61  04a4b4cee0dce9da
3dd0: 62 30 31 61 64 31 33 34 66 34 34 39 61 36 37 33  b01ad134f449a673
3de0: 63 66 62 33 38 38 33 34 39 66 34 32 65 34 32 37  cfb388349f42e427
3df0: 32 38 61 37 39 37 37 63 65 63 39 30 36 33 30 63  28a7977cec90630c
3e00: 31 64 33 38 30 33 63 37 32 5d 7d 20 5c 0a 09 2d  1d3803c72]} \..-
3e10: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3e20: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
3e30: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
3e40: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
3e50: 74 20 2d 72 65 73 75 6c 74 20 34 63 61 65 31 38  t -result 4cae18
3e60: 61 33 39 61 35 63 61 34 35 31 32 62 39 35 39 64  a39a5ca4512b959d
3e70: 61 30 36 62 63 39 64 36 33 64 30 37 31 36 38 30  a06bc9d63d071680
3e80: 38 34 65 33 35 61 61 66 30 33 63 38 62 61 35 64  84e35aaf03c8ba5d
3e90: 38 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  8d..tcltest::tes
3ea0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
3eb0: 34 2d 32 2e 35 32 20 7b 53 48 41 35 31 32 5f 32  4-2.52 {SHA512_2
3ec0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
3ed0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
3ee0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
3ef0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3f00: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 65  ry decode hex 2e
3f10: 65 36 65 38 31 33 65 63 38 34 63 32 61 64 65 64  e6e813ec84c2aded
3f20: 35 38 30 30 66 63 31 63 61 65 39 34 63 30 39 30  5800fc1cae94c090
3f30: 35 34 65 32 35 64 36 62 66 30 63 34 64 31 30 32  54e25d6bf0c4d102
3f40: 39 36 64 31 65 38 33 65 39 61 64 66 62 33 34 32  96d1e83e9adfb342
3f50: 61 33 63 36 33 36 34 64 30 31 36 37 36 31 65 32  a3c6364d016761e2
3f60: 34 31 65 64 34 32 32 37 66 65 35 33 37 38 38 63  41ed4227fe53788c
3f70: 66 61 32 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  fa27]} \..-body 
3f80: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3f90: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
3fa0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3fb0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3fc0: 73 75 6c 74 20 38 39 63 36 39 32 39 62 33 63 31  sult 89c6929b3c1
3fd0: 39 61 31 34 37 32 61 34 35 32 34 65 31 34 32 37  9a1472a4524e1427
3fe0: 38 32 33 37 36 38 65 34 36 34 35 31 65 34 38 66  823768e46451e48f
3ff0: 61 61 37 61 37 64 62 37 63 38 36 30 34 0a 0a 74  aa7a7db7c8604..t
4000: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4010: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 35  h_SHA512-224-2.5
4020: 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  3 {SHA512_224Sho
4030: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
4040: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
4050: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4060: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4070: 63 6f 64 65 20 68 65 78 20 38 36 34 38 33 33 63  code hex 864833c
4080: 62 32 39 31 32 66 61 34 34 39 32 39 32 38 37 62  b2912fa44929287b
4090: 64 30 64 62 37 39 38 34 39 36 38 65 35 39 32 30  d0db7984968e5920
40a0: 64 34 39 66 39 37 32 35 64 63 34 38 37 30 37 32  d49f9725dc487072
40b0: 32 32 64 36 35 35 66 37 66 32 62 36 65 37 66 62  22d655f7f2b6e7fb
40c0: 34 30 65 38 30 35 36 34 32 36 33 63 37 66 34 35  40e80564263c7f45
40d0: 30 63 35 33 65 66 38 34 64 66 36 37 32 34 37 64  0c53ef84df67247d
40e0: 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  7]} \..-body {tl
40f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4100: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
4110: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4120: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
4130: 74 20 32 63 31 30 32 61 38 33 34 39 63 34 65 33  t 2c102a8349c4e3
4140: 36 32 61 62 64 36 61 32 35 38 32 31 37 37 36 33  62abd6a258217763
4150: 32 32 39 38 39 38 65 32 37 63 32 65 37 32 31 63  229898e27c2e721c
4160: 37 33 62 63 38 38 30 37 35 32 0a 0a 74 63 6c 74  73bc880752..tclt
4170: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
4180: 48 41 35 31 32 2d 32 32 34 2d 32 2e 35 34 20 7b  HA512-224-2.54 {
4190: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
41a0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
41b0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
41c0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
41d0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
41e0: 65 20 68 65 78 20 65 34 64 66 65 36 39 37 32 33  e hex e4dfe69723
41f0: 64 34 33 30 38 33 34 62 64 63 64 61 37 66 61 31  d430834bdcda7fa1
4200: 33 38 66 31 66 64 32 36 66 32 32 36 37 34 62 65  38f1fd26f22674be
4210: 37 31 31 36 39 64 39 31 34 61 63 66 65 32 62 32  71169d914acfe2b2
4220: 35 39 39 30 31 34 66 66 31 31 64 31 35 63 34 38  599014ff11d15c48
4230: 31 30 38 33 37 34 62 33 66 36 39 39 31 36 35 65  108374b3f699165e
4240: 37 38 63 37 62 35 34 37 62 30 38 61 36 63 36 39  78c7b547b08a6c69
4250: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4260: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4270: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
4280: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4290: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
42a0: 20 35 32 33 31 30 62 61 63 66 37 38 64 64 64 34   52310bacf78ddd4
42b0: 30 64 37 65 39 33 65 62 33 32 31 64 61 34 64 65  0d7e93eb321da4de
42c0: 35 34 31 61 37 32 39 36 66 39 38 66 30 61 64 39  541a7296f98f0ad9
42d0: 37 34 35 39 31 35 38 38 37 0a 0a 74 63 6c 74 65  745915887..tclte
42e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
42f0: 41 35 31 32 2d 32 32 34 2d 32 2e 35 35 20 7b 53  A512-224-2.55 {S
4300: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
4310: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4320: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
4330: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4340: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4350: 20 68 65 78 20 36 61 33 30 30 30 31 37 36 64 30   hex 6a3000176d0
4360: 62 30 32 39 39 39 32 64 39 32 31 65 31 30 32 65  b029992d921e102e
4370: 65 65 65 39 34 64 66 62 39 62 30 32 39 64 34 30  eee94dfb9b029d40
4380: 31 39 65 34 61 66 30 36 66 35 31 37 64 62 34 34  19e4af06f517db44
4390: 64 37 38 30 33 36 61 38 64 63 65 30 30 62 39 30  d78036a8dce00b90
43a0: 64 34 39 64 64 37 37 31 39 39 34 65 62 62 65 33  d49dd771994ebbe3
43b0: 32 63 30 34 39 34 32 30 64 33 37 30 37 65 31 64  2c049420d3707e1d
43c0: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
43d0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
43e0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
43f0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4400: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
4410: 74 20 30 37 64 65 31 65 64 33 66 38 65 61 37 37  t 07de1ed3f8ea77
4420: 34 61 38 65 35 65 30 38 30 36 36 39 32 30 36 63  4a8e5e080669206c
4430: 38 35 37 32 65 64 62 63 33 66 31 36 35 38 37 30  8572edbc3f165870
4440: 39 31 33 61 62 31 65 34 66 36 0a 0a 74 63 6c 74  913ab1e4f6..tclt
4450: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
4460: 48 41 35 31 32 2d 32 32 34 2d 32 2e 35 36 20 7b  HA512-224-2.56 {
4470: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
4480: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
4490: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
44a0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
44b0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
44c0: 65 20 68 65 78 20 35 35 63 61 62 38 37 36 35 35  e hex 55cab87655
44d0: 36 30 37 39 65 66 66 39 38 62 66 37 62 39 30 65  6079eff98bf7b90e
44e0: 33 31 38 66 38 66 66 35 38 33 63 32 62 65 35 35  318f8ff583c2be55
44f0: 64 65 38 38 32 63 30 64 65 66 65 36 39 39 36 64  de882c0defe6996d
4500: 31 62 63 32 32 35 61 35 31 65 66 37 31 32 37 64  1bc225a51ef7127d
4510: 66 32 61 35 63 63 34 37 66 32 63 61 32 36 31 32  f2a5cc47f2ca2612
4520: 33 66 31 37 65 37 32 31 36 33 66 63 38 35 39 63  3f17e72163fc859c
4530: 33 34 30 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  3406]} \..-body 
4540: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4550: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
4560: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
4570: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
4580: 73 75 6c 74 20 38 31 31 66 64 39 30 37 66 33 66  sult 811fd907f3f
4590: 37 34 62 39 66 32 31 34 31 39 33 30 34 38 64 37  74b9f214193048d7
45a0: 30 65 64 61 34 34 66 33 61 37 34 36 35 63 64 62  0eda44f3a7465cdb
45b0: 38 38 32 31 37 33 62 66 37 39 61 30 61 0a 0a 74  882173bf79a0a..t
45c0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
45d0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 35  h_SHA512-224-2.5
45e0: 37 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  7 {SHA512_224Sho
45f0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
4600: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
4610: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4620: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4630: 63 6f 64 65 20 68 65 78 20 35 64 61 62 30 31 36  code hex 5dab016
4640: 64 34 66 65 62 34 32 65 61 36 30 36 31 32 33 63  d4feb42ea606123c
4650: 30 61 63 34 63 33 32 35 39 63 63 37 31 37 37 61  0ac4c3259cc7177a
4660: 66 39 63 63 39 35 35 61 36 34 31 37 37 62 32 39  f9cc955a64177b29
4670: 66 36 62 66 63 35 38 34 61 64 38 61 65 39 61 62  f6bfc584ad8ae9ab
4680: 62 31 61 36 37 33 61 63 31 39 39 37 61 38 61 37  b1a673ac1997a8a7
4690: 33 64 62 65 62 64 32 30 62 30 33 64 66 66 32 66  3dbebd20b03dff2f
46a0: 38 39 38 35 31 34 38 32 65 5d 7d 20 5c 0a 09 2d  89851482e]} \..-
46b0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
46c0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
46d0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
46e0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
46f0: 74 20 2d 72 65 73 75 6c 74 20 33 34 30 62 35 61  t -result 340b5a
4700: 37 31 65 64 36 35 34 30 37 61 36 38 36 37 30 36  71ed65407a686706
4710: 62 30 36 38 65 64 62 39 32 64 30 61 64 32 61 30  b068edb92d0ad2a0
4720: 37 39 63 31 63 38 38 62 66 37 38 61 64 38 61 33  79c1c88bf78ad8a3
4730: 61 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  a0..tcltest::tes
4740: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
4750: 34 2d 32 2e 35 38 20 7b 53 48 41 35 31 32 5f 32  4-2.58 {SHA512_2
4760: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
4770: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
4780: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
4790: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
47a0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 39  ry decode hex 09
47b0: 32 31 61 66 62 34 30 33 61 66 64 33 31 65 38 62  21afb403afd31e8b
47c0: 30 38 33 39 64 63 63 31 35 62 61 32 63 30 66 63  0839dcc15ba2c0fc
47d0: 33 32 62 63 63 39 30 66 61 37 38 66 66 38 63 63  32bcc90fa78ff8cc
47e0: 64 35 31 39 36 30 63 37 38 65 33 35 37 64 35 64  d51960c78e357d5d
47f0: 34 63 63 32 63 36 66 34 36 39 30 30 38 35 38 33  4cc2c6f469008583
4800: 39 32 33 64 65 37 35 36 37 39 62 32 34 66 30 62  923de75679b24f0b
4810: 63 61 61 38 66 30 65 31 36 31 64 66 39 62 33 32  caa8f0e161df9b32
4820: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4830: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4840: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
4850: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4860: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4870: 20 64 64 33 30 38 38 32 63 64 61 32 31 34 34 62   dd30882cda2144b
4880: 33 31 61 62 31 37 39 65 38 66 39 30 35 34 36 30  31ab179e8f905460
4890: 31 36 38 62 38 37 35 38 64 38 62 65 38 64 38 30  168b8758d8be8d80
48a0: 37 38 64 64 36 31 30 61 62 0a 0a 74 63 6c 74 65  78dd610ab..tclte
48b0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
48c0: 41 35 31 32 2d 32 32 34 2d 32 2e 35 39 20 7b 53  A512-224-2.59 {S
48d0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
48e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
48f0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
4900: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4910: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4920: 20 68 65 78 20 63 30 66 61 63 62 38 37 62 39 32   hex c0facb87b92
4930: 38 33 64 38 37 66 64 64 30 32 37 36 30 65 34 66  83d87fdd02760e4f
4940: 61 34 33 37 62 38 39 36 62 31 33 64 65 32 38 37  a437b896b13de287
4950: 38 36 62 61 30 63 62 31 39 32 66 39 66 32 36 33  86ba0cb192f9f263
4960: 65 35 65 37 35 62 66 36 36 34 66 61 37 35 32 36  e5e75bf664fa7526
4970: 64 33 62 32 30 37 33 61 35 66 63 64 65 37 35 32  d3b2073a5fcde752
4980: 39 31 34 65 63 38 62 36 65 66 31 39 30 32 64 31  914ec8b6ef1902d1
4990: 62 37 30 63 35 62 64 31 62 5d 7d 20 5c 0a 09 2d  b70c5bd1b]} \..-
49a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
49b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
49c0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
49d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
49e0: 74 20 2d 72 65 73 75 6c 74 20 31 65 37 61 64 66  t -result 1e7adf
49f0: 30 37 33 37 35 37 32 64 31 61 61 61 35 64 34 63  0737572d1aaa5d4c
4a00: 39 31 37 63 39 34 64 30 35 64 63 30 39 32 64 36  917c94d05dc092d6
4a10: 65 35 39 30 35 39 64 66 36 35 39 34 39 30 66 31  e59059df659490f1
4a20: 63 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  c7..tcltest::tes
4a30: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
4a40: 34 2d 32 2e 36 30 20 7b 53 48 41 35 31 32 5f 32  4-2.60 {SHA512_2
4a50: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
4a60: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
4a70: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
4a80: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
4a90: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 30  ry decode hex e0
4aa0: 65 61 66 65 31 61 65 64 37 31 39 66 64 37 31 32  eafe1aed719fd712
4ab0: 32 61 33 65 64 63 39 64 66 37 63 34 62 65 64 66  2a3edc9df7c4bedf
4ac0: 62 63 31 62 30 63 33 62 31 62 65 36 33 31 37 63  bc1b0c3b1be6317c
4ad0: 38 32 36 66 39 63 36 62 36 38 65 30 31 65 61 32  826f9c6b68e01ea2
4ae0: 64 33 62 37 39 33 39 62 31 65 37 34 63 34 30 63  d3b7939b1e74c40c
4af0: 66 39 39 34 38 63 37 37 62 31 63 33 33 61 66 63  f9948c77b1c33afc
4b00: 62 32 34 65 33 37 37 33 34 61 64 37 65 39 62 37  b24e37734ad7e9b7
4b10: 61 66 34 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  af4c]} \..-body 
4b20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4b30: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
4b40: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
4b50: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
4b60: 73 75 6c 74 20 63 32 36 30 31 33 30 31 39 37 64  sult c260130197d
4b70: 63 37 37 37 34 33 31 33 63 37 35 38 34 33 64 64  c7774313c75843dd
4b80: 38 32 30 64 35 38 39 61 36 38 64 66 35 39 65 31  820d589a68df59e1
4b90: 61 65 66 37 63 66 33 34 37 66 35 36 35 0a 0a 74  aef7cf347f565..t
4ba0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4bb0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 36  h_SHA512-224-2.6
4bc0: 31 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  1 {SHA512_224Sho
4bd0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
4be0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
4bf0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4c00: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4c10: 63 6f 64 65 20 68 65 78 20 63 33 32 61 64 31 66  code hex c32ad1f
4c20: 38 32 31 66 62 64 38 62 35 62 37 31 35 33 65 61  821fbd8b5b7153ea
4c30: 38 61 61 31 31 30 35 35 65 61 38 66 62 64 65 35  8aa11055ea8fbde5
4c40: 34 38 36 36 30 65 63 61 65 32 38 61 38 63 62 32  48660ecae28a8cb2
4c50: 62 61 32 61 36 64 31 35 39 39 63 36 65 39 33 30  ba2a6d1599c6e930
4c60: 35 66 62 36 37 61 62 66 36 62 65 61 31 62 39 64  5fb67abf6bea1b9d
4c70: 62 32 35 36 38 61 38 38 31 31 39 31 39 33 33 34  b2568a8811919334
4c80: 39 63 38 33 34 61 37 64 61 39 30 62 33 65 61 31  9c834a7da90b3ea1
4c90: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
4ca0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4cb0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
4cc0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4cd0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
4ce0: 74 20 63 39 31 65 65 34 63 37 34 30 61 35 36 36  t c91ee4c740a566
4cf0: 33 62 33 62 31 39 65 64 37 37 38 61 30 35 31 36  3b3b19ed778a0516
4d00: 63 30 31 61 33 63 30 63 62 64 33 64 66 64 36 63  c01a3c0cbd3dfd6c
4d10: 30 39 65 66 31 61 66 64 62 39 0a 0a 74 63 6c 74  09ef1afdb9..tclt
4d20: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
4d30: 48 41 35 31 32 2d 32 32 34 2d 32 2e 36 32 20 7b  HA512-224-2.62 {
4d40: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
4d50: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
4d60: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
4d70: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
4d80: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
4d90: 65 20 68 65 78 20 32 36 35 37 63 36 32 35 66 35  e hex 2657c625f5
4da0: 65 61 35 31 66 36 36 62 31 33 37 35 66 34 37 39  ea51f66b1375f479
4db0: 31 32 33 64 38 36 33 62 61 30 35 31 34 64 32 30  123d863ba0514d20
4dc0: 38 34 33 30 35 37 34 63 36 31 62 61 39 36 33 61  8430574c61ba963a
4dd0: 64 32 66 31 39 31 61 36 62 38 30 30 35 61 61 61  d2f191a6b8005aaa
4de0: 64 33 37 64 63 30 32 37 39 30 65 62 63 35 36 36  d37dc02790ebc566
4df0: 32 32 38 33 35 33 66 66 64 34 33 34 32 61 66 61  228353ffd4342afa
4e00: 39 65 65 38 31 64 33 35 66 36 30 39 37 65 30 35  9ee81d35f6097e05
4e10: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4e20: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4e30: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
4e40: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4e50: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4e60: 20 39 32 66 31 33 33 34 66 32 35 33 32 36 30 65   92f1334f253260e
4e70: 35 31 33 64 35 65 36 66 30 64 31 61 36 61 66 36  513d5e6f0d1a6af6
4e80: 65 64 32 66 62 62 63 64 62 37 66 61 63 38 35 63  ed2fbbcdb7fac85c
4e90: 33 39 64 36 64 34 30 34 30 0a 0a 74 63 6c 74 65  39d6d4040..tclte
4ea0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
4eb0: 41 35 31 32 2d 32 32 34 2d 32 2e 36 33 20 7b 53  A512-224-2.63 {S
4ec0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
4ed0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4ee0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
4ef0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4f00: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4f10: 20 68 65 78 20 35 36 35 35 63 33 36 37 31 66 62   hex 5655c3671fb
4f20: 64 38 32 38 38 65 61 31 34 39 34 34 61 66 39 32  d8288ea14944af92
4f30: 35 65 61 65 63 36 35 33 34 30 38 66 35 36 32 33  5eaec653408f5623
4f40: 33 36 35 30 66 63 34 33 39 31 30 31 38 63 32 32  3650fc4391018c22
4f50: 66 39 39 37 37 66 61 63 64 32 66 61 63 62 36 63  f9977facd2facb6c
4f60: 35 30 36 32 62 36 65 33 64 66 63 36 62 38 65 38  5062b6e3dfc6b8e8
4f70: 33 37 62 33 61 37 38 66 63 61 31 35 33 63 64 35  37b3a78fca153cd5
4f80: 65 39 65 33 32 65 39 31 66 35 65 32 37 61 63 32  e9e32e91f5e27ac2
4f90: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
4fa0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4fb0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
4fc0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
4fd0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
4fe0: 74 20 35 38 64 36 65 38 33 62 61 30 32 38 33 33  t 58d6e83ba02833
4ff0: 62 61 30 65 32 33 66 65 33 34 37 32 64 32 38 65  ba0e23fe3472d28e
5000: 38 66 39 38 36 33 39 38 36 32 30 66 37 34 36 34  8f986398620f7464
5010: 66 66 31 38 65 39 66 36 65 61 0a 0a 74 63 6c 74  ff18e9f6ea..tclt
5020: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
5030: 48 41 35 31 32 2d 32 32 34 2d 32 2e 36 34 20 7b  HA512-224-2.64 {
5040: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
5050: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
5060: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
5070: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
5080: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
5090: 65 20 68 65 78 20 33 35 30 62 64 36 30 31 38 63  e hex 350bd6018c
50a0: 62 62 65 64 38 36 65 30 35 30 62 33 65 37 65 36  bbed86e050b3e7e6
50b0: 30 36 38 33 65 31 66 36 31 39 62 37 33 62 34 63  0683e1f619b73b4c
50c0: 32 65 37 36 34 62 37 34 65 65 63 64 62 62 30 30  2e764b74eecdbb00
50d0: 66 34 30 31 38 64 37 63 65 39 32 34 35 64 61 34  f4018d7ce9245da4
50e0: 65 64 65 37 65 36 64 34 33 39 61 66 63 38 62 66  ede7e6d439afc8bf
50f0: 30 33 65 62 38 39 36 34 61 32 61 34 64 39 33 65  03eb8964a2a4d93e
5100: 66 33 35 35 31 61 62 62 66 62 66 65 31 66 66 30  f3551abbfbfe1ff0
5110: 63 65 37 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ce74]} \..-body 
5120: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5130: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
5140: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
5150: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
5160: 73 75 6c 74 20 63 38 65 63 38 35 34 65 36 33 32  sult c8ec854e632
5170: 62 32 63 31 33 32 64 35 30 35 61 66 66 65 31 62  b2c132d505affe1b
5180: 63 30 30 64 64 62 65 39 39 34 35 32 65 35 62 35  c00ddbe99452e5b5
5190: 39 62 61 37 36 61 30 32 64 64 38 33 38 0a 0a 74  9ba76a02dd838..t
51a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
51b0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 36  h_SHA512-224-2.6
51c0: 35 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  5 {SHA512_224Sho
51d0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
51e0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
51f0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5200: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5210: 63 6f 64 65 20 68 65 78 20 34 63 64 32 37 33 32  code hex 4cd2732
5220: 34 63 32 38 33 36 34 38 37 33 63 36 64 64 62 63  4c28364873c6ddbc
5230: 33 65 33 61 37 65 32 63 64 61 39 65 38 61 37 32  3e3a7e2cda9e8a72
5240: 61 64 32 66 37 32 32 30 31 62 32 36 32 66 38 37  ad2f72201b262f87
5250: 34 62 38 37 33 39 66 33 30 61 62 36 30 63 33 34  4b8739f30ab60c34
5260: 33 33 34 63 32 65 39 32 66 39 64 34 38 35 33 33  334c2e92f9d48533
5270: 63 64 38 61 64 32 33 31 32 63 33 65 37 63 33 38  cd8ad2312c3e7c38
5280: 36 61 61 61 32 38 33 62 35 30 64 65 63 38 34 34  6aaa283b50dec844
5290: 66 61 34 33 32 64 36 33 36 5d 7d 20 5c 0a 09 2d  fa432d636]} \..-
52a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
52b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
52c0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
52d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
52e0: 74 20 2d 72 65 73 75 6c 74 20 63 65 64 36 30 38  t -result ced608
52f0: 31 37 36 31 66 66 35 32 35 39 66 31 33 32 61 61  1761ff5259f132aa
5300: 38 33 31 62 37 61 31 62 34 33 32 64 30 39 33 66  831b7a1b432d093f
5310: 63 38 35 37 64 61 30 65 65 65 62 38 32 62 65 37  c857da0eeeb82be7
5320: 31 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  1f..tcltest::tes
5330: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
5340: 34 2d 32 2e 36 36 20 7b 53 48 41 35 31 32 5f 32  4-2.66 {SHA512_2
5350: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
5360: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
5370: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
5380: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
5390: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 34  ry decode hex a4
53a0: 66 32 30 36 33 66 65 36 65 63 31 37 35 35 30 64  f2063fe6ec17550d
53b0: 37 61 61 38 33 31 30 39 31 39 35 32 64 63 34 64  7aa831091952dc4d
53c0: 63 30 34 31 61 32 38 33 63 34 38 38 31 38 37 65  c041a283c488187e
53d0: 66 39 62 37 35 65 37 30 31 61 62 30 61 32 35 64  f9b75e701ab0a25d
53e0: 36 61 62 36 65 35 63 66 39 63 63 37 30 32 63 63  6ab6e5cf9cc702cc
53f0: 66 30 32 63 65 63 30 35 61 30 34 65 33 37 35 30  f02cec05a04e3750
5400: 37 61 63 62 64 61 35 38 63 65 63 39 33 33 39 33  7acbda58cec93393
5410: 38 61 38 62 34 62 37 35 61 34 34 32 35 63 65 34  8a8b4b75a4425ce4
5420: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5430: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
5440: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
5450: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5460: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5470: 20 61 66 36 62 37 66 61 66 63 62 65 39 63 62 32   af6b7fafcbe9cb2
5480: 35 30 30 33 63 35 37 30 32 39 39 35 66 64 36 35  5003c5702995fd65
5490: 36 33 36 35 61 32 30 65 31 31 33 63 38 65 35 62  6365a20e113c8e5b
54a0: 31 30 33 31 32 63 64 66 30 0a 0a 74 63 6c 74 65  10312cdf0..tclte
54b0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
54c0: 41 35 31 32 2d 32 32 34 2d 32 2e 36 37 20 7b 53  A512-224-2.67 {S
54d0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
54e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
54f0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
5500: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
5510: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
5520: 20 68 65 78 20 63 31 64 33 30 66 33 33 61 62 34   hex c1d30f33ab4
5530: 62 34 31 30 64 30 66 38 61 38 30 39 65 62 35 63  b410d0f8a809eb5c
5540: 62 36 38 31 65 63 39 31 35 33 62 64 65 32 36 36  b681ec9153bde266
5550: 39 33 62 32 30 64 34 34 30 35 37 32 63 63 65 33  93b20d440572cce3
5560: 35 30 61 61 30 30 39 66 65 38 31 30 38 62 33 61  50aa009fe8108b3a
5570: 30 66 63 61 65 62 38 65 33 37 36 62 34 38 62 30  0fcaeb8e376b48b0
5580: 34 38 38 35 66 32 33 61 62 38 62 62 36 34 34 31  4885f23ab8bb6441
5590: 63 66 64 34 63 66 66 62 31 32 35 35 61 37 63 38  cfd4cffb1255a7c8
55a0: 38 66 61 31 30 66 37 37 39 5d 7d 20 5c 0a 09 2d  8fa10f779]} \..-
55b0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
55c0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
55d0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
55e0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
55f0: 74 20 2d 72 65 73 75 6c 74 20 34 30 38 66 34 66  t -result 408f4f
5600: 61 65 37 30 64 30 66 64 37 34 35 61 65 34 34 65  ae70d0fd745ae44e
5610: 64 36 36 37 34 30 62 64 66 31 66 65 63 30 64 64  d66740bdf1fec0dd
5620: 34 65 32 33 64 62 30 36 39 32 30 63 36 66 38 65  4e23db06920c6f8e
5630: 63 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  c5..tcltest::tes
5640: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
5650: 34 2d 32 2e 36 38 20 7b 53 48 41 35 31 32 5f 32  4-2.68 {SHA512_2
5660: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
5670: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
5680: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
5690: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
56a0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 31  ry decode hex 61
56b0: 62 33 34 62 38 61 61 61 65 32 65 31 39 65 32 64  b34b8aaae2e19e2d
56c0: 36 31 39 32 34 36 34 32 33 35 31 61 64 65 32 62  61924642351ade2b
56d0: 61 61 36 39 32 35 66 37 61 33 61 37 33 35 61 37  aa6925f7a3a735a7
56e0: 32 65 37 36 62 39 39 30 35 62 37 37 35 61 30 30  2e76b9905b775a00
56f0: 34 66 30 66 37 61 32 34 39 34 36 62 32 35 32 39  4f0f7a24946b2529
5700: 62 33 63 31 34 34 61 32 30 35 64 39 31 34 32 61  b3c144a205d9142a
5710: 63 36 63 64 64 37 34 61 36 62 30 64 63 61 39 64  c6cdd74a6b0dca9d
5720: 33 35 61 35 35 36 33 31 30 37 63 33 38 61 33 31  35a5563107c38a31
5730: 37 35 37 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7573]} \..-body 
5740: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5750: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
5760: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
5770: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
5780: 73 75 6c 74 20 31 39 36 35 38 62 32 38 35 64 62  sult 19658b285db
5790: 36 63 62 39 64 62 62 34 63 65 61 62 66 65 36 37  6cb9dbb4ceabfe67
57a0: 31 34 33 34 63 66 31 62 38 35 34 35 35 61 38 62  1434cf1b85455a8b
57b0: 34 64 61 33 38 35 65 61 64 38 33 30 63 0a 0a 74  4da385ead830c..t
57c0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
57d0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 36  h_SHA512-224-2.6
57e0: 39 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  9 {SHA512_224Sho
57f0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
5800: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
5810: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5820: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5830: 63 6f 64 65 20 68 65 78 20 33 34 31 33 62 30 39  code hex 3413b09
5840: 64 33 64 31 32 61 33 33 33 36 38 30 66 37 39 38  d3d12a333680f798
5850: 63 30 65 34 38 38 37 37 36 35 37 39 64 33 66 36  c0e488776579d3f6
5860: 61 36 35 66 32 30 34 31 32 63 65 64 35 33 63 30  a65f20412ced53c0
5870: 38 35 30 36 30 61 36 65 31 63 30 36 31 65 64 36  85060a6e1c061ed6
5880: 61 34 34 62 39 37 65 33 31 63 32 30 32 39 37 34  a44b97e31c202974
5890: 37 39 38 37 35 61 31 34 35 38 65 30 61 63 30 38  79875a1458e0ac08
58a0: 64 30 38 65 30 61 38 64 32 38 31 65 30 62 32 64  d08e0a8d281e0b2d
58b0: 62 33 34 39 65 32 66 38 33 31 63 37 66 66 63 30  b349e2f831c7ffc0
58c0: 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  5]} \..-body {tl
58d0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
58e0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
58f0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
5900: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
5910: 74 20 30 30 38 61 33 63 36 63 61 35 37 38 35 33  t 008a3c6ca57853
5920: 61 64 62 31 61 66 35 64 34 34 35 39 35 65 36 32  adb1af5d44595e62
5930: 30 31 36 62 37 61 66 34 37 32 32 36 34 39 32 62  016b7af47226492b
5940: 39 66 33 63 31 61 39 37 31 33 0a 0a 74 63 6c 74  9f3c1a9713..tclt
5950: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
5960: 48 41 35 31 32 2d 32 32 34 2d 32 2e 37 30 20 7b  HA512-224-2.70 {
5970: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
5980: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
5990: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
59a0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
59b0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
59c0: 65 20 68 65 78 20 62 36 65 36 39 30 64 31 37 64  e hex b6e690d17d
59d0: 39 64 37 66 30 37 31 38 35 35 30 32 62 66 36 64  9d7f07185502bf6d
59e0: 32 37 35 63 38 34 65 33 61 63 34 66 35 66 37 37  275c84e3ac4f5f77
59f0: 63 33 64 34 62 33 30 64 38 65 31 30 36 36 30 33  c3d4b30d8e106603
5a00: 62 65 38 34 34 31 30 63 31 31 38 34 39 61 33 63  be84410c11849a3c
5a10: 31 38 65 61 33 30 35 66 33 65 30 62 35 36 38 66  18ea305f3e0b568f
5a20: 30 36 65 61 35 34 30 36 39 34 61 63 30 61 33 30  06ea540694ac0a30
5a30: 36 66 34 63 64 36 30 34 38 35 39 30 62 38 39 35  6f4cd6048590b895
5a40: 37 30 33 63 62 34 65 34 66 37 38 35 37 38 66 39  703cb4e4f78578f9
5a50: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5a60: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
5a70: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
5a80: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5a90: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5aa0: 20 66 35 31 64 64 35 39 34 63 37 64 66 65 63 63   f51dd594c7dfecc
5ab0: 65 66 39 35 65 33 64 34 30 32 34 62 62 30 30 66  ef95e3d4024bb00f
5ac0: 39 33 31 61 39 65 39 35 31 36 39 35 38 63 33 32  931a9e9516958c32
5ad0: 64 32 32 35 39 66 35 63 61 0a 0a 74 63 6c 74 65  d2259f5ca..tclte
5ae0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
5af0: 41 35 31 32 2d 32 32 34 2d 32 2e 37 31 20 7b 53  A512-224-2.71 {S
5b00: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
5b10: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
5b20: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
5b30: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
5b40: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
5b50: 20 68 65 78 20 31 33 65 36 62 31 62 34 66 30 32   hex 13e6b1b4f02
5b60: 31 64 36 31 30 63 38 31 63 39 37 66 30 66 39 35  1d610c81c97f0f95
5b70: 32 64 61 62 61 32 37 36 36 30 33 34 64 38 31 35  2daba2766034d815
5b80: 62 35 64 64 61 34 36 30 33 62 63 66 37 38 38 62  b5dda4603bcf788b
5b90: 61 36 30 65 65 33 31 35 34 31 64 35 62 34 33 35  a60ee31541d5b435
5ba0: 33 62 39 66 36 36 34 35 64 39 36 61 64 39 39 65  3b9f6645d96ad99e
5bb0: 65 39 30 66 36 35 32 34 62 32 39 36 33 61 37 62  e90f6524b2963a7b
5bc0: 37 65 34 37 36 65 31 65 38 65 65 62 38 33 63 62  7e476e1e8eeb83cb
5bd0: 63 30 33 30 35 65 62 32 39 39 30 32 61 35 64 37  c0305eb29902a5d7
5be0: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
5bf0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
5c00: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
5c10: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
5c20: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
5c30: 74 20 30 39 39 30 30 63 35 61 65 33 30 37 34 66  t 09900c5ae3074f
5c40: 65 37 33 65 36 63 34 65 65 66 35 31 66 37 38 35  e73e6c4eef51f785
5c50: 65 35 37 39 34 37 62 61 66 62 65 31 64 38 64 65  e57947bafbe1d8de
5c60: 61 33 38 38 36 38 65 33 64 31 0a 0a 74 63 6c 74  a38868e3d1..tclt
5c70: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
5c80: 48 41 35 31 32 2d 32 32 34 2d 32 2e 37 32 20 7b  HA512-224-2.72 {
5c90: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
5ca0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
5cb0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
5cc0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
5cd0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
5ce0: 65 20 68 65 78 20 33 61 33 30 30 66 39 63 32 64  e hex 3a300f9c2d
5cf0: 63 33 35 33 31 39 31 37 32 32 32 30 33 34 37 39  c353191722203479
5d00: 31 38 32 34 62 34 39 34 33 36 62 65 34 64 64 61  1824b49436be4dda
5d10: 37 36 30 66 36 37 61 32 31 65 35 34 32 31 31 66  760f67a21e54211f
5d20: 65 37 37 33 39 34 39 33 35 66 64 33 35 63 63 30  e77394935fd35cc0
5d30: 38 63 37 31 35 35 39 66 64 32 33 31 61 32 35 35  8c71559fd231a255
5d40: 31 36 37 32 66 34 36 33 32 34 65 34 30 38 31 64  1672f46324e4081d
5d50: 34 65 39 65 37 32 35 64 35 36 36 62 39 61 37 38  4e9e725d566b9a78
5d60: 38 66 36 35 30 34 37 31 33 65 63 36 64 34 36 64  8f6504713ec6d46d
5d70: 34 36 66 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  46fa]} \..-body 
5d80: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5d90: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
5da0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
5db0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
5dc0: 73 75 6c 74 20 64 37 31 63 31 38 61 66 64 34 34  sult d71c18afd44
5dd0: 38 31 31 33 61 34 35 64 30 36 62 61 36 31 36 61  8113a45d06ba616a
5de0: 31 39 34 35 61 35 36 37 65 32 36 66 33 33 36 63  1945a567e26f336c
5df0: 62 39 34 61 34 35 63 32 35 31 39 64 37 0a 0a 74  b94a45c2519d7..t
5e00: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
5e10: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 37  h_SHA512-224-2.7
5e20: 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  3 {SHA512_224Sho
5e30: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
5e40: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
5e50: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
5e60: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
5e70: 63 6f 64 65 20 68 65 78 20 38 31 63 36 34 64 32  code hex 81c64d2
5e80: 33 31 33 64 63 65 33 31 32 36 62 61 31 36 64 33  313dce3126ba16d3
5e90: 32 31 36 63 30 66 33 33 34 39 31 30 66 30 36 33  216c0f334910f063
5ea0: 62 30 30 37 32 30 62 65 33 32 32 66 64 64 36 38  b00720be322fdd68
5eb0: 32 38 35 35 38 37 62 61 65 66 36 36 38 36 30 66  285587baef66860f
5ec0: 66 33 63 32 62 39 37 31 35 30 36 65 34 36 62 64  f3c2b971506e46bd
5ed0: 64 32 31 37 39 33 39 31 31 65 65 31 39 38 32 66  d21793911ee1982f
5ee0: 65 31 34 32 31 33 64 38 61 37 32 34 31 37 32 37  e14213d8a7241727
5ef0: 35 35 38 64 62 30 34 64 66 66 36 61 62 63 66 30  558db04dff6abcf0
5f00: 62 31 34 61 64 66 32 36 32 5d 7d 20 5c 0a 09 2d  b14adf262]} \..-
5f10: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
5f20: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
5f30: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
5f40: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
5f50: 74 20 2d 72 65 73 75 6c 74 20 63 38 35 61 63 64  t -result c85acd
5f60: 37 35 65 63 34 64 64 65 66 31 66 31 37 39 66 39  75ec4ddef1f179f9
5f70: 38 66 64 63 66 38 65 30 30 36 61 31 64 38 30 61  8fdcf8e006a1d80a
5f80: 66 63 31 34 37 34 39 33 31 30 61 61 39 37 35 39  fc14749310aa9759
5f90: 39 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  9d..tcltest::tes
5fa0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
5fb0: 34 2d 32 2e 37 34 20 7b 53 48 41 35 31 32 5f 32  4-2.74 {SHA512_2
5fc0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
5fd0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
5fe0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
5ff0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
6000: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 39  ry decode hex 09
6010: 36 34 35 62 39 32 30 62 66 38 31 37 33 35 64 36  645b920bf81735d6
6020: 62 35 63 61 61 34 33 62 62 37 36 64 66 64 61 37  b5caa43bb76dfda7
6030: 34 39 37 30 30 33 61 36 35 39 35 63 32 63 61 36  497003a6595c2ca6
6040: 32 61 62 37 66 35 66 65 34 39 32 38 37 39 32 65  2ab7f5fe4928792e
6050: 63 32 64 62 34 32 36 38 39 33 32 37 35 66 35 30  c2db426893275f50
6060: 36 31 36 65 62 36 30 31 36 61 34 35 39 63 35 30  616eb6016a459c50
6070: 62 62 64 35 61 33 35 34 61 33 38 31 62 33 32 36  bbd5a354a381b326
6080: 36 37 63 61 35 64 65 35 33 37 36 66 36 62 66 64  67ca5de5376f6bfd
6090: 36 31 64 38 62 63 61 39 63 35 62 34 34 66 62 37  61d8bca9c5b44fb7
60a0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
60b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
60c0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
60d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
60e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
60f0: 20 36 35 30 65 33 31 61 38 31 64 63 63 37 66 33   650e31a81dcc7f3
6100: 34 39 38 39 30 30 64 32 30 35 64 36 31 31 62 31  498900d205d611b1
6110: 30 31 65 38 39 64 37 32 34 33 65 31 64 64 37 37  01e89d7243e1dd77
6120: 35 35 31 62 36 63 34 32 32 0a 0a 74 63 6c 74 65  551b6c422..tclte
6130: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
6140: 41 35 31 32 2d 32 32 34 2d 32 2e 37 35 20 7b 53  A512-224-2.75 {S
6150: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
6160: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
6170: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
6180: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
6190: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
61a0: 20 68 65 78 20 33 66 64 31 64 38 66 62 39 65 37   hex 3fd1d8fb9e7
61b0: 66 61 66 31 38 61 34 39 61 31 62 64 63 37 37 66  faf18a49a1bdc77f
61c0: 62 61 30 39 33 63 62 65 30 39 61 66 30 30 64 34  ba093cbe09af00d4
61d0: 36 31 39 39 39 65 31 39 61 65 65 65 37 63 66 39  61999e19aeee7cf9
61e0: 31 30 36 65 36 33 39 35 35 66 37 61 34 39 31 65  106e63955f7a491e
61f0: 31 64 39 61 38 63 39 61 65 35 37 63 30 30 61 38  1d9a8c9ae57c00a8
6200: 66 30 35 30 30 61 38 64 39 66 35 30 37 35 36 63  f0500a8d9f50756c
6210: 38 38 35 38 34 39 36 31 65 37 61 66 39 37 34 30  88584961e7af9740
6220: 64 35 33 62 66 37 34 35 37 64 37 34 62 63 39 62  d53bf7457d74bc9b
6230: 34 66 31 61 66 63 37 37 34 5d 7d 20 5c 0a 09 2d  4f1afc774]} \..-
6240: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
6250: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
6260: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
6270: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
6280: 74 20 2d 72 65 73 75 6c 74 20 66 62 32 35 38 39  t -result fb2589
6290: 65 39 34 32 38 39 30 66 65 64 38 66 39 39 65 63  e942890fed8f99ec
62a0: 66 65 30 32 64 33 61 35 31 36 38 33 61 35 64 61  fe02d3a51683a5da
62b0: 35 38 32 62 65 39 64 61 64 64 32 35 33 30 35 64  582be9dadd25305d
62c0: 33 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  33..tcltest::tes
62d0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
62e0: 34 2d 32 2e 37 36 20 7b 53 48 41 35 31 32 5f 32  4-2.76 {SHA512_2
62f0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
6300: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
6310: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
6320: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
6330: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 61  ry decode hex 5a
6340: 66 30 65 62 33 31 36 65 37 39 33 66 61 39 65 61  f0eb316e793fa9ea
6350: 39 64 35 31 34 31 66 61 32 36 63 64 63 33 63 66  9d5141fa26cdc3cf
6360: 63 66 39 38 35 32 39 37 36 31 36 33 61 38 61 63  cf9852976163a8ac
6370: 31 64 38 31 61 31 30 62 35 61 66 35 66 64 30 39  1d81a10b5af5fd09
6380: 36 66 64 30 36 31 34 31 64 33 62 61 61 30 64 31  6fd06141d3baa0d1
6390: 38 33 63 65 33 39 63 36 61 34 61 62 32 31 64 34  83ce39c6a4ab21d4
63a0: 36 61 63 37 63 32 34 62 33 38 30 37 34 33 34 36  6ac7c24b38074346
63b0: 30 39 38 64 30 61 32 35 30 65 64 32 37 66 33 65  098d0a250ed27f3e
63c0: 39 38 66 34 31 33 64 30 33 39 35 31 38 32 33 38  98f413d039518238
63d0: 32 36 35 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  2654]} \..-body 
63e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
63f0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
6400: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
6410: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
6420: 73 75 6c 74 20 38 66 34 63 36 61 36 31 33 32 31  sult 8f4c6a61321
6430: 63 36 65 35 30 30 63 66 30 64 63 32 62 37 64 37  c6e500cf0dc2b7d7
6440: 64 39 37 64 61 39 33 30 31 66 37 31 34 32 30 66  d97da9301f71420f
6450: 61 63 36 30 34 66 65 61 65 31 39 66 32 0a 0a 74  ac604feae19f2..t
6460: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6470: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 37  h_SHA512-224-2.7
6480: 37 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  7 {SHA512_224Sho
6490: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
64a0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
64b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
64c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
64d0: 63 6f 64 65 20 68 65 78 20 62 32 36 64 33 32 33  code hex b26d323
64e0: 33 62 35 35 31 30 32 39 30 37 37 62 65 65 61 39  3b551029077beea9
64f0: 32 38 35 39 38 38 39 36 39 31 61 63 33 38 35 33  2859889691ac3853
6500: 61 39 66 39 37 32 62 32 61 36 65 38 65 35 35 62  a9f972b2a6e8e55b
6510: 38 64 62 34 30 39 31 34 66 37 35 39 32 37 66 31  8db40914f75927f1
6520: 62 38 39 32 61 37 62 31 64 65 38 32 36 37 63 37  b892a7b1de8267c7
6530: 61 65 61 30 64 33 63 31 39 62 33 30 35 39 61 36  aea0d3c19b3059a6
6540: 63 62 35 34 37 33 63 38 65 37 36 64 31 37 38 38  cb5473c8e76d1788
6550: 66 39 34 35 61 37 35 30 63 30 36 38 62 38 64 30  f945a750c068b8d0
6560: 32 61 34 36 63 66 36 65 33 65 61 31 64 61 32 65  2a46cf6e3ea1da2e
6570: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
6580: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
6590: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
65a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
65b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
65c0: 74 20 34 64 38 33 36 30 66 33 36 39 32 64 65 66  t 4d8360f3692def
65d0: 61 31 31 65 64 61 30 32 37 66 39 34 30 39 39 62  a11eda027f94099b
65e0: 33 30 35 34 62 38 34 31 66 38 30 39 64 32 61 65  3054b841f809d2ae
65f0: 65 66 63 38 38 35 64 32 62 38 0a 0a 74 63 6c 74  efc885d2b8..tclt
6600: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
6610: 48 41 35 31 32 2d 32 32 34 2d 32 2e 37 38 20 7b  HA512-224-2.78 {
6620: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
6630: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
6640: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
6650: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
6660: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
6670: 65 20 68 65 78 20 36 66 62 30 66 33 38 35 36 64  e hex 6fb0f3856d
6680: 63 63 39 61 64 64 62 64 31 35 35 39 31 36 66 30  cc9addbd155916f0
6690: 32 32 37 36 33 30 39 35 39 66 30 31 63 37 36 34  227630959f01c764
66a0: 61 63 61 62 39 39 62 63 38 30 64 63 34 33 35 30  acab99bc80dc4350
66b0: 35 32 66 66 34 62 31 64 37 39 32 31 36 33 39 66  52ff4b1d7921639f
66c0: 64 32 62 61 65 63 34 34 36 32 63 61 62 61 32 31  d2baec4462caba21
66d0: 33 63 32 38 31 37 65 33 61 35 31 37 30 61 30 39  3c2817e3a5170a09
66e0: 37 37 31 62 64 39 35 31 63 33 30 62 63 63 37 30  771bd951c30bcc70
66f0: 62 61 36 36 33 34 30 36 63 65 65 61 61 63 64 31  ba663406ceeaacd1
6700: 31 34 36 33 39 66 32 31 65 64 63 32 30 61 38 63  14639f21edc20a8c
6710: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6720: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6730: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
6740: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6750: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6760: 20 37 31 66 38 65 30 39 66 39 31 31 64 63 38 61   71f8e09f911dc8a
6770: 63 36 37 39 39 39 63 31 30 63 30 35 39 63 32 30  c67999c10c059c20
6780: 33 61 66 34 61 66 35 65 34 33 36 65 65 64 38 66  3af4af5e436eed8f
6790: 38 61 39 37 61 36 66 32 64 0a 0a 74 63 6c 74 65  8a97a6f2d..tclte
67a0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
67b0: 41 35 31 32 2d 32 32 34 2d 32 2e 37 39 20 7b 53  A512-224-2.79 {S
67c0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
67d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
67e0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
67f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
6800: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
6810: 20 68 65 78 20 38 34 37 31 65 39 33 39 64 34 35   hex 8471e939d45
6820: 33 31 34 38 36 63 31 34 63 32 35 39 61 65 65 63  31486c14c259aeec
6830: 36 66 33 63 30 30 64 66 64 64 36 63 30 35 30 61  6f3c00dfdd6c050a
6840: 38 62 61 61 38 32 30 64 62 37 31 63 63 31 32 32  8baa820db71cc122
6850: 63 34 65 30 63 31 37 31 35 65 66 35 35 66 33 39  c4e0c1715ef55f39
6860: 39 35 61 36 62 66 30 32 61 34 63 65 35 64 33 63  95a6bf02a4ce5d3c
6870: 62 63 64 37 39 30 66 37 32 30 38 37 39 33 39 62  bcd790f72087939b
6880: 30 35 61 39 65 62 63 39 33 61 39 30 35 63 65 63  05a9ebc93a905cec
6890: 63 66 37 37 37 61 32 30 64 33 36 65 64 64 66 62  cf777a20d36eddfb
68a0: 35 35 65 35 33 35 32 61 66 62 65 38 64 64 66 39  55e5352afbe8ddf9
68b0: 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  7]} \..-body {tl
68c0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
68d0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
68e0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
68f0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
6900: 74 20 30 36 35 63 62 39 33 62 62 32 34 30 36 30  t 065cb93bb24060
6910: 30 33 37 37 36 34 34 30 64 39 61 30 32 61 66 31  03776440d9a02af1
6920: 65 34 31 37 30 65 37 37 37 63 37 64 32 63 31 33  e4170e777c7d2c13
6930: 61 31 31 33 32 36 32 63 65 30 0a 0a 74 63 6c 74  a113262ce0..tclt
6940: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
6950: 48 41 35 31 32 2d 32 32 34 2d 32 2e 38 30 20 7b  HA512-224-2.80 {
6960: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
6970: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
6980: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
6990: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
69a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
69b0: 65 20 68 65 78 20 63 38 37 61 37 34 34 38 62 37  e hex c87a7448b7
69c0: 31 38 39 61 31 31 65 35 33 32 61 34 33 32 30 38  189a11e532a43208
69d0: 37 34 31 38 36 34 30 37 66 62 33 32 34 37 30 64  74186407fb32470d
69e0: 31 38 39 30 34 63 64 64 35 31 32 66 64 32 36 35  18904cdd512fd265
69f0: 61 39 39 36 38 66 39 35 32 32 35 31 33 32 37 31  a9968f9522513271
6a00: 37 66 61 31 34 36 36 35 34 65 37 32 35 61 64 39  7fa146654e725ad9
6a10: 32 36 38 64 35 66 30 36 32 65 30 66 35 31 30 38  268d5f062e0f5108
6a20: 64 65 31 61 31 61 33 34 30 61 63 61 62 33 61 62  de1a1a340acab3ab
6a30: 31 63 36 62 38 63 32 66 61 31 65 39 32 65 33 36  1c6b8c2fa1e92e36
6a40: 30 37 38 37 31 66 33 64 61 34 64 34 30 35 35 66  07871f3da4d4055f
6a50: 66 62 64 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  fbdc]} \..-body 
6a60: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6a70: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
6a80: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
6a90: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
6aa0: 73 75 6c 74 20 61 33 39 63 37 63 35 65 61 63 64  sult a39c7c5eacd
6ab0: 62 32 32 36 36 39 35 38 37 61 31 38 34 36 63 32  b22669587a1846c2
6ac0: 39 37 35 62 34 31 66 39 62 37 34 38 33 33 64 39  975b41f9b74833d9
6ad0: 39 37 39 64 65 32 64 37 66 31 31 63 32 0a 0a 74  979de2d7f11c2..t
6ae0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6af0: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 38  h_SHA512-224-2.8
6b00: 31 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  1 {SHA512_224Sho
6b10: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
6b20: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
6b30: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
6b40: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
6b50: 63 6f 64 65 20 68 65 78 20 32 36 34 36 35 65 61  code hex 26465ea
6b60: 30 36 64 62 62 36 31 62 34 31 39 33 61 39 38 32  06dbb61b4193a982
6b70: 63 39 38 34 61 30 33 35 38 30 38 35 66 64 36 66  c984a0358085fd6f
6b80: 31 34 63 61 30 32 37 66 66 36 30 65 64 65 39 66  14ca027ff60ede9f
6b90: 61 65 39 32 31 31 64 33 30 31 31 39 34 34 37 36  ae9211d301194476
6ba0: 36 39 31 65 35 31 66 63 32 30 66 66 36 38 61 65  691e51fc20ff68ae
6bb0: 39 61 62 33 37 63 38 36 34 64 35 32 38 65 66 34  9ab37c864d528ef4
6bc0: 38 36 31 31 39 39 38 31 36 64 64 33 34 64 38 65  861199816dd34d8e
6bd0: 30 32 32 62 65 37 32 61 64 32 39 39 61 34 61 31  022be72ad299a4a1
6be0: 66 32 30 30 66 31 64 35 33 62 64 63 62 37 30 30  f200f1d53bdcb700
6bf0: 39 64 33 32 37 63 36 30 35 5d 7d 20 5c 0a 09 2d  9d327c605]} \..-
6c00: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
6c10: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
6c20: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
6c30: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
6c40: 74 20 2d 72 65 73 75 6c 74 20 32 31 61 66 64 35  t -result 21afd5
6c50: 66 39 32 33 62 63 37 62 61 65 32 33 34 66 31 34  f923bc7bae234f14
6c60: 66 66 64 36 36 32 66 31 37 34 62 34 64 31 37 39  ffd662f174b4d179
6c70: 63 37 32 34 31 64 64 62 35 37 35 37 36 66 65 35  c7241ddb57576fe5
6c80: 30 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  02..tcltest::tes
6c90: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
6ca0: 34 2d 32 2e 38 32 20 7b 53 48 41 35 31 32 5f 32  4-2.82 {SHA512_2
6cb0: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
6cc0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
6cd0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
6ce0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
6cf0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 64  ry decode hex 5d
6d00: 62 66 35 63 32 37 31 31 65 32 36 66 62 61 33 34  bf5c2711e26fba34
6d10: 32 33 65 63 62 66 66 30 64 35 36 65 62 38 63 39  23ecbff0d56eb8c9
6d20: 33 34 63 62 36 66 37 38 65 65 38 65 39 36 66 36  34cb6f78ee8e96f6
6d30: 65 32 61 38 61 61 64 37 32 37 36 32 31 64 64 39  e2a8aad727621dd9
6d40: 35 30 39 36 62 33 62 64 65 65 31 66 32 64 35 35  5096b3bdee1f2d55
6d50: 35 37 38 65 32 35 64 66 61 36 31 65 33 39 39 31  578e25dfa61e3991
6d60: 30 33 65 62 36 62 37 35 32 35 35 65 63 38 37 37  03eb6b75255ec877
6d70: 31 34 65 63 34 38 62 64 33 34 30 30 66 36 33 36  14ec48bd3400f636
6d80: 37 66 33 35 35 30 37 36 31 32 63 39 66 31 63 31  7f35507612c9f1c1
6d90: 65 62 34 66 36 64 36 35 66 31 61 33 37 64 34 64  eb4f6d65f1a37d4d
6da0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6db0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6dc0: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
6dd0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6de0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6df0: 20 65 63 35 61 31 33 39 39 33 36 66 32 63 34 32   ec5a139936f2c42
6e00: 61 31 66 34 31 31 30 65 32 63 35 32 62 66 37 63  a1f4110e2c52bf7c
6e10: 33 63 64 33 62 61 65 34 39 39 35 35 63 36 30 38  3cd3bae49955c608
6e20: 66 61 64 66 61 31 36 33 64 0a 0a 74 63 6c 74 65  fadfa163d..tclte
6e30: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
6e40: 41 35 31 32 2d 32 32 34 2d 32 2e 38 33 20 7b 53  A512-224-2.83 {S
6e50: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
6e60: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
6e70: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
6e80: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
6e90: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
6ea0: 20 68 65 78 20 32 35 62 65 34 36 65 33 64 66 32   hex 25be46e3df2
6eb0: 35 39 35 61 61 61 61 39 62 65 39 64 32 31 30 31  595aaaa9be9d2101
6ec0: 37 61 61 32 64 36 34 33 30 36 37 32 30 34 38 38  7aa2d64306720488
6ed0: 63 37 39 62 34 37 31 39 63 65 33 65 61 61 66 38  c79b4719ce3eaaf8
6ee0: 36 37 64 34 66 32 37 36 33 35 32 64 31 65 33 61  67d4f276352d1e3a
6ef0: 62 34 36 64 31 38 65 65 64 66 63 37 39 37 38 63  b46d18eedfc7978c
6f00: 34 66 36 35 30 65 31 30 36 66 65 30 62 37 33 33  4f650e106fe0b733
6f10: 65 63 35 61 37 31 30 35 64 63 62 62 34 63 65 61  ec5a7105dcbb4cea
6f20: 63 37 65 66 34 34 30 30 35 61 36 32 34 66 38 34  c7ef44005a624f84
6f30: 33 30 30 31 61 34 39 66 37 32 39 31 30 35 32 35  3001a49f72910525
6f40: 64 62 65 34 30 33 37 38 65 5d 7d 20 5c 0a 09 2d  dbe40378e]} \..-
6f50: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
6f60: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
6f70: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
6f80: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
6f90: 74 20 2d 72 65 73 75 6c 74 20 32 37 36 61 30 64  t -result 276a0d
6fa0: 62 62 35 34 32 66 62 36 39 65 64 34 30 39 61 39  bb542fb69ed409a9
6fb0: 31 39 39 34 36 32 35 66 38 34 36 39 62 30 35 31  1994625f8469b051
6fc0: 62 65 32 35 62 35 39 36 38 62 33 61 36 66 62 30  be25b5968b3a6fb0
6fd0: 65 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e3..tcltest::tes
6fe0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
6ff0: 34 2d 32 2e 38 34 20 7b 53 48 41 35 31 32 5f 32  4-2.84 {SHA512_2
7000: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
7010: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
7020: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
7030: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
7040: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 62  ry decode hex 2b
7050: 66 36 39 62 34 62 35 30 33 31 32 66 30 37 66 63  f69b4b50312f07fc
7060: 64 36 38 64 34 36 36 65 33 32 39 63 65 61 35 31  d68d466e329cea51
7070: 35 61 66 32 62 63 39 62 37 38 64 66 35 65 62 36  5af2bc9b78df5eb6
7080: 36 34 61 65 38 32 64 65 37 34 32 37 35 61 63 61  64ae82de74275aca
7090: 39 34 35 39 34 66 38 65 39 39 39 36 66 36 63 30  94594f8e9996f6c0
70a0: 64 32 62 65 34 30 64 39 65 30 63 31 66 31 64 66  d2be40d9e0c1f1df
70b0: 63 38 35 66 35 33 34 31 34 37 33 32 32 62 30 33  c85f534147322b03
70c0: 36 36 65 66 65 63 31 61 34 64 65 39 32 62 31 61  66efec1a4de92b1a
70d0: 35 63 64 36 35 33 30 65 37 38 64 36 39 61 61 37  5cd6530e78d69aa7
70e0: 61 33 62 31 33 33 39 61 64 30 36 30 63 35 34 33  a3b1339ad060c543
70f0: 66 35 64 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f5d0]} \..-body 
7100: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7110: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
7120: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
7130: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
7140: 73 75 6c 74 20 34 35 61 36 36 31 31 30 66 39 33  sult 45a66110f93
7150: 61 64 37 38 37 33 39 32 33 62 39 37 33 33 36 63  ad7873923b97336c
7160: 32 33 65 38 37 36 34 32 65 37 39 63 37 38 39 37  23e87642e79c7897
7170: 64 39 30 31 31 64 64 65 63 66 30 33 61 0a 0a 74  d9011ddecf03a..t
7180: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7190: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 38  h_SHA512-224-2.8
71a0: 35 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  5 {SHA512_224Sho
71b0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
71c0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
71d0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
71e0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
71f0: 63 6f 64 65 20 68 65 78 20 61 38 31 61 33 32 31  code hex a81a321
7200: 33 39 64 36 39 66 62 64 36 34 30 30 30 66 38 64  39d69fbd64000f8d
7210: 34 61 36 65 65 31 30 32 39 30 63 63 63 38 33 65  4a6ee10290ccc83e
7220: 38 63 39 65 37 37 62 36 30 38 31 61 32 65 35 39  8c9e77b6081a2e59
7230: 65 39 63 31 35 37 65 33 33 66 36 66 61 33 31 33  e9c157e33f6fa313
7240: 37 64 38 63 61 61 30 38 64 32 38 32 33 30 31 36  7d8caa08d2823016
7250: 39 64 63 36 64 32 62 31 30 62 34 62 64 66 30 64  9dc6d2b10b4bdf0d
7260: 66 32 39 66 39 61 65 38 66 61 31 33 65 32 31 62  f29f9ae8fa13e21b
7270: 37 65 34 37 65 37 62 39 32 64 33 36 65 62 37 30  7e47e7b92d36eb70
7280: 33 35 38 39 66 32 61 64 36 39 39 65 61 35 62 34  3589f2ad699ea5b4
7290: 39 37 31 31 32 31 34 63 62 32 30 61 35 62 39 30  9711214cb20a5b90
72a0: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
72b0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
72c0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
72d0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
72e0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
72f0: 74 20 34 31 34 33 66 61 34 34 38 64 65 35 65 62  t 4143fa448de5eb
7300: 63 31 34 61 61 32 30 34 64 39 33 34 65 65 33 39  c14aa204d934ee39
7310: 37 31 30 35 31 63 34 65 33 30 37 34 64 34 63 61  71051c4e3074d4ca
7320: 61 66 30 63 63 36 32 61 66 31 0a 0a 74 63 6c 74  af0cc62af1..tclt
7330: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
7340: 48 41 35 31 32 2d 32 32 34 2d 32 2e 38 36 20 7b  HA512-224-2.86 {
7350: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
7360: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
7370: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
7380: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
7390: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
73a0: 65 20 68 65 78 20 34 37 31 65 34 33 34 62 37 65  e hex 471e434b7e
73b0: 66 33 39 61 30 35 35 31 62 32 65 64 39 32 35 30  f39a0551b2ed9250
73c0: 30 30 36 33 35 33 65 63 64 39 31 35 63 38 32 62  006353ecd915c82b
73d0: 37 37 36 34 39 65 61 31 37 36 38 66 65 39 39 62  77649ea1768fe99b
73e0: 33 35 38 35 61 65 39 64 37 66 66 37 61 34 30 66  3585ae9d7ff7a40f
73f0: 36 62 62 32 33 62 33 33 38 30 32 63 64 65 35 61  6bb23b33802cde5a
7400: 31 64 35 63 37 35 35 38 31 38 63 66 32 66 33 35  1d5c755818cf2f35
7410: 61 36 66 39 37 65 32 35 37 62 63 39 36 33 62 61  a6f97e257bc963ba
7420: 33 32 38 30 65 62 35 39 65 65 63 32 66 61 65 62  3280eb59eec2faeb
7430: 34 32 65 64 34 37 64 34 34 65 61 62 61 38 32 39  42ed47d44eaba829
7440: 32 62 63 33 39 30 31 64 38 61 33 35 64 35 62 64  2bc3901d8a35d5bd
7450: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7460: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7470: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
7480: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
7490: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
74a0: 20 61 31 32 61 35 31 61 35 39 66 31 31 36 66 38   a12a51a59f116f8
74b0: 37 66 37 35 37 66 32 66 64 65 33 30 65 31 31 39  7f757f2fde30e119
74c0: 38 30 64 37 64 39 36 65 62 63 39 35 39 37 37 34  80d7d96ebc959774
74d0: 61 37 33 34 65 64 65 37 34 0a 0a 74 63 6c 74 65  a734ede74..tclte
74e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
74f0: 41 35 31 32 2d 32 32 34 2d 32 2e 38 37 20 7b 53  A512-224-2.87 {S
7500: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
7510: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7520: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
7530: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
7540: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
7550: 20 68 65 78 20 33 65 33 34 36 63 36 61 61 66 38   hex 3e346c6aaf8
7560: 66 39 37 37 36 32 30 63 33 61 63 36 38 66 62 36  f977620c3ac68fb6
7570: 30 38 61 65 66 34 33 32 64 36 63 61 62 32 39 36  08aef432d6cab296
7580: 64 31 61 39 33 64 61 36 32 36 31 39 34 39 63 31  d1a93da6261949c1
7590: 30 63 30 37 61 31 39 34 33 36 34 31 34 66 61 64  0c07a19436414fad
75a0: 33 35 37 39 33 62 38 32 37 66 34 33 34 61 66 66  35793b827f434aff
75b0: 38 39 65 31 66 37 35 35 37 62 31 38 65 36 39 66  89e1f7557b18e69f
75c0: 32 62 39 33 31 38 66 39 33 65 32 64 32 39 62 65  2b9318f93e2d29be
75d0: 39 62 30 33 35 34 62 38 62 66 30 34 32 66 61 33  9b0354b8bf042fa3
75e0: 61 65 66 36 35 37 33 36 36 65 39 33 36 30 33 66  aef657366e93603f
75f0: 34 63 34 35 35 64 32 33 66 66 65 39 38 37 32 35  4c455d23ffe98725
7600: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
7610: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
7620: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
7630: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
7640: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
7650: 74 20 33 30 37 34 36 37 33 39 36 64 35 39 31 30  t 307467396d5910
7660: 33 61 38 39 37 65 36 61 35 62 31 36 64 62 61 61  3a897e6a5b16dbaa
7670: 32 61 30 64 63 33 36 35 65 32 32 33 39 35 34 36  2a0dc365e2239546
7680: 35 61 30 33 35 66 64 32 39 33 0a 0a 74 63 6c 74  5a035fd293..tclt
7690: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
76a0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 38 38 20 7b  HA512-224-2.88 {
76b0: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
76c0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
76d0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
76e0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
76f0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
7700: 65 20 68 65 78 20 31 63 65 31 66 30 31 62 34 36  e hex 1ce1f01b46
7710: 62 34 63 39 65 30 34 63 65 34 62 35 65 32 32 66  b4c9e04ce4b5e22f
7720: 62 62 65 64 34 62 30 32 35 34 32 37 63 35 35 38  bbed4b025427c558
7730: 34 38 62 30 33 64 66 39 38 62 62 62 65 37 64 39  48b03df98bbbe7d9
7740: 39 30 66 39 38 33 34 61 62 34 36 39 64 65 37 30  90f9834ab469de70
7750: 64 39 37 32 39 62 66 35 35 31 32 66 33 33 66 66  d9729bf5512f33ff
7760: 66 66 30 61 33 62 35 66 62 38 38 63 65 36 30 63  ff0a3b5fb88ce60c
7770: 65 66 37 33 63 61 63 66 39 32 30 35 65 37 33 66  ef73cacf9205e73f
7780: 32 66 61 35 65 35 66 30 35 62 61 34 39 64 65 38  2fa5e5f05ba49de8
7790: 35 34 35 39 64 62 35 32 65 35 37 34 36 32 37 37  5459db52e5746277
77a0: 38 61 38 66 33 31 65 39 64 35 30 36 30 35 30 31  8a8f31e9d5060501
77b0: 31 30 30 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  1009]} \..-body 
77c0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
77d0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
77e0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
77f0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
7800: 73 75 6c 74 20 35 62 61 39 34 65 32 36 33 39 34  sult 5ba94e26394
7810: 34 38 35 65 62 30 61 39 65 33 66 33 64 33 64 39  485eb0a9e3f3d3d9
7820: 61 36 30 38 33 62 33 35 64 61 65 64 35 66 30 63  a6083b35daed5f0c
7830: 38 38 39 62 63 37 38 39 32 34 63 33 35 0a 0a 74  889bc78924c35..t
7840: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7850: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 38  h_SHA512-224-2.8
7860: 39 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  9 {SHA512_224Sho
7870: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
7880: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
7890: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
78a0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
78b0: 63 6f 64 65 20 68 65 78 20 64 36 32 34 66 36 33  code hex d624f63
78c0: 66 35 33 62 65 33 64 36 63 30 61 32 30 63 31 32  f53be3d6c0a20c12
78d0: 32 36 33 65 34 34 33 36 65 34 36 32 34 30 37 64  263e4436e462407d
78e0: 37 32 65 33 64 38 35 34 32 38 30 64 33 36 31 31  72e3d854280d3611
78f0: 33 31 63 31 36 39 64 39 35 33 31 34 33 30 65 39  31c169d9531430e9
7900: 63 35 35 36 64 30 63 36 39 64 35 37 64 36 65 63  c556d0c69d57d6ec
7910: 64 34 39 37 38 62 36 39 32 36 63 30 30 38 38 31  d4978b6926c00881
7920: 36 32 62 31 65 36 31 33 39 66 63 33 65 38 35 37  62b1e6139fc3e857
7930: 39 37 31 37 62 33 39 35 63 30 64 31 64 33 33 30  9717b395c0d1d330
7940: 66 35 36 36 30 34 66 34 63 32 62 37 38 38 33 38  f56604f4c2b78838
7950: 30 35 38 64 31 31 35 32 65 36 38 39 62 30 62 38  058d1152e689b0b8
7960: 65 62 62 38 36 65 34 37 62 5d 7d 20 5c 0a 09 2d  ebb86e47b]} \..-
7970: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
7980: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
7990: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
79a0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
79b0: 74 20 2d 72 65 73 75 6c 74 20 33 37 63 64 64 35  t -result 37cdd5
79c0: 32 33 64 39 32 32 33 36 32 61 64 34 36 33 32 31  23d922362ad46321
79d0: 36 66 33 34 30 66 32 35 34 65 37 36 61 61 61 61  6f340f254e76aaaa
79e0: 30 62 34 35 66 36 64 66 66 63 61 33 30 64 35 35  0b45f6dffca30d55
79f0: 64 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  d0..tcltest::tes
7a00: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
7a10: 34 2d 32 2e 39 30 20 7b 53 48 41 35 31 32 5f 32  4-2.90 {SHA512_2
7a20: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
7a30: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
7a40: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
7a50: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
7a60: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 66  ry decode hex 7f
7a70: 36 30 31 31 33 32 61 33 38 33 33 61 33 65 32 61  601132a3833a3e2a
7a80: 33 33 61 30 66 31 61 30 35 38 64 36 61 32 64 62  33a0f1a058d6a2db
7a90: 30 36 66 31 31 65 33 39 61 66 65 63 38 38 32 39  06f11e39afec8829
7aa0: 39 37 34 62 36 34 65 64 38 39 66 66 65 65 39 65  974b64ed89ffee9e
7ab0: 63 39 38 61 62 30 37 30 34 39 36 33 35 33 33 37  c98ab07049635337
7ac0: 31 66 39 63 62 36 32 61 33 37 63 32 33 64 65 37  1f9cb62a37c23de7
7ad0: 34 35 30 35 36 63 62 38 66 65 39 38 62 34 31 35  45056cb8fe98b415
7ae0: 38 38 35 62 38 63 36 61 32 66 62 38 63 34 31 61  885b8c6a2fb8c41a
7af0: 35 39 63 61 31 36 63 33 62 63 63 35 66 66 63 34  59ca16c3bcc5ffc4
7b00: 63 65 39 32 63 64 66 63 37 64 62 39 66 38 64 35  ce92cdfc7db9f8d5
7b10: 32 31 38 34 62 35 38 31 61 66 36 32 63 39 38 34  2184b581af62c984
7b20: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7b30: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7b40: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
7b50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
7b60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
7b70: 20 31 30 38 37 31 63 30 65 35 36 32 65 31 31 61   10871c0e562e11a
7b80: 61 35 39 34 30 36 65 62 34 62 63 63 38 33 32 65  a59406eb4bcc832e
7b90: 66 65 34 39 34 32 32 36 30 65 66 30 38 63 66 63  fe4942260ef08cfc
7ba0: 66 39 39 65 37 64 62 35 38 0a 0a 74 63 6c 74 65  f99e7db58..tclte
7bb0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
7bc0: 41 35 31 32 2d 32 32 34 2d 32 2e 39 31 20 7b 53  A512-224-2.91 {S
7bd0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
7be0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7bf0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
7c00: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
7c10: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
7c20: 20 68 65 78 20 31 32 62 66 33 61 33 33 33 37 64   hex 12bf3a3337d
7c30: 33 62 36 64 35 35 33 62 62 38 63 65 61 39 32 63  3b6d553bb8cea92c
7c40: 33 36 39 62 39 33 30 30 34 38 65 64 32 39 30 32  369b930048ed2902
7c50: 63 38 31 66 30 38 38 38 32 30 33 32 34 66 66 32  c81f088820324ff2
7c60: 34 34 33 33 30 62 62 39 33 35 31 33 31 37 34 37  44330bb935131747
7c70: 32 64 35 38 32 32 64 38 62 30 31 64 63 63 34 31  2d5822d8b01dcc41
7c80: 33 63 34 63 32 63 37 32 66 34 31 31 63 38 39 62  3c4c2c72f411c89b
7c90: 37 37 66 32 32 37 35 33 39 36 32 37 62 61 33 34  77f227539627ba34
7ca0: 31 64 61 61 36 61 39 64 37 35 61 39 61 62 34 34  1daa6a9d75a9ab44
7cb0: 61 38 63 61 39 64 37 32 63 34 33 61 61 61 32 39  a8ca9d72c43aaa29
7cc0: 65 62 31 35 37 66 37 63 65 64 61 66 34 31 39 62  eb157f7cedaf419b
7cd0: 64 34 38 33 32 30 36 34 36 5d 7d 20 5c 0a 09 2d  d48320646]} \..-
7ce0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
7cf0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
7d00: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
7d10: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
7d20: 74 20 2d 72 65 73 75 6c 74 20 36 66 37 36 33 38  t -result 6f7638
7d30: 38 36 66 32 37 33 61 61 35 66 39 34 33 65 63 65  86f273aa5f943ece
7d40: 63 66 37 62 37 36 35 64 38 33 65 64 31 61 37 38  cf7b765d83ed1a78
7d50: 62 34 33 61 62 65 66 32 35 39 30 37 32 32 36 62  b43abef25907226b
7d60: 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  52..tcltest::tes
7d70: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
7d80: 34 2d 32 2e 39 32 20 7b 53 48 41 35 31 32 5f 32  4-2.92 {SHA512_2
7d90: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
7da0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
7db0: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
7dc0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
7dd0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 32  ry decode hex 42
7de0: 34 66 31 64 30 37 62 37 30 38 65 36 30 63 63 34  4f1d07b708e60cc4
7df0: 64 30 30 33 39 36 63 62 30 65 39 30 35 39 37 66  d00396cb0e90597f
7e00: 33 39 37 37 61 65 61 37 39 30 34 62 65 36 31 66  3977aea7904be61f
7e10: 30 62 37 34 64 65 31 66 39 31 38 64 64 33 62 66  0b74de1f918dd3bf
7e20: 36 62 30 61 37 38 62 62 66 39 31 65 34 36 37 34  6b0a78bbf91e4674
7e30: 61 33 64 63 31 34 33 38 31 33 39 63 65 37 63 33  a3dc1438139ce7c3
7e40: 61 31 61 30 30 62 30 36 30 66 66 37 36 33 32 37  a1a00b060ff76327
7e50: 37 37 61 32 66 64 63 38 38 31 66 36 65 39 38 63  77a2fdc881f6e98c
7e60: 64 39 34 31 34 63 64 37 65 31 62 30 62 30 64 36  d9414cd7e1b0b0d6
7e70: 61 33 37 30 39 65 63 30 30 39 31 34 36 66 35 62  a3709ec009146f5b
7e80: 35 30 33 37 35 66 63 31 62 61 36 32 65 33 36 34  50375fc1ba62e364
7e90: 38 33 33 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8330]} \..-body 
7ea0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7eb0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
7ec0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
7ed0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
7ee0: 73 75 6c 74 20 37 37 34 32 63 31 35 31 31 66 63  sult 7742c1511fc
7ef0: 35 61 30 32 39 37 36 33 34 66 62 33 64 39 32 38  5a0297634fb3d928
7f00: 61 30 35 38 36 32 36 35 31 38 62 37 66 62 38 38  a058626518b7fb88
7f10: 64 62 34 32 38 65 32 61 32 38 32 61 65 0a 0a 74  db428e2a282ae..t
7f20: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7f30: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 39  h_SHA512-224-2.9
7f40: 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  3 {SHA512_224Sho
7f50: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
7f60: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
7f70: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
7f80: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
7f90: 63 6f 64 65 20 68 65 78 20 38 37 65 31 62 39 65  code hex 87e1b9e
7fa0: 64 63 37 63 36 35 37 36 39 39 38 63 61 32 37 61  dc7c6576998ca27a
7fb0: 34 31 65 63 66 39 30 34 31 30 33 32 37 61 64 62  41ecf90410327adb
7fc0: 39 36 64 62 35 65 38 61 31 32 64 34 65 63 61 32  96db5e8a12d4eca2
7fd0: 63 33 61 36 35 31 31 66 30 35 64 65 38 30 33 65  c3a6511f05de803e
7fe0: 64 32 64 36 35 30 33 63 62 33 65 37 31 36 32 36  d2d6503cb3e71626
7ff0: 33 39 36 34 61 37 37 38 31 36 30 62 62 66 32 65  3964a778160bbf2e
8000: 38 65 35 34 30 36 64 39 37 62 37 36 62 34 34 34  8e5406d97b76b444
8010: 62 32 66 38 36 61 37 34 35 31 61 37 61 65 64 34  b2f86a7451a7aed4
8020: 64 62 30 66 30 32 62 66 37 63 36 62 35 30 36 32  db0f02bf7c6b5062
8030: 35 34 34 36 33 63 35 63 64 64 38 33 65 61 62 66  54463c5cdd83eabf
8040: 64 65 63 35 63 38 33 31 63 64 36 30 39 37 63 37  dec5c831cd6097c7
8050: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
8060: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
8070: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
8080: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
8090: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
80a0: 74 20 34 33 33 31 66 62 65 34 38 64 38 61 37 66  t 4331fbe48d8a7f
80b0: 64 32 65 36 39 61 62 30 32 37 39 35 30 39 31 33  d2e69ab027950913
80c0: 31 64 34 34 65 62 31 33 32 34 32 37 33 31 31 37  1d44eb1324273117
80d0: 32 34 65 32 64 63 31 39 63 63 0a 0a 74 63 6c 74  24e2dc19cc..tclt
80e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
80f0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 39 34 20 7b  HA512-224-2.94 {
8100: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
8110: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
8120: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
8130: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
8140: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
8150: 65 20 68 65 78 20 38 66 64 30 37 30 35 36 38 34  e hex 8fd0705684
8160: 63 61 33 32 33 63 38 61 63 65 32 65 37 37 39 31  ca323c8ace2e7791
8170: 64 34 30 37 36 39 37 64 30 35 64 35 32 32 33 35  d407697d05d52235
8180: 37 64 64 32 33 62 66 36 34 66 35 35 30 31 65 65  7dd23bf64f5501ee
8190: 63 39 30 35 64 37 30 36 66 61 34 36 64 35 66 66  c905d706fa46d5ff
81a0: 37 32 66 38 62 35 63 30 34 39 36 31 66 30 65 65  72f8b5c04961f0ee
81b0: 36 33 36 37 32 34 62 65 66 31 30 33 62 39 30 37  636724bef103b907
81c0: 33 62 66 32 63 34 39 63 39 65 61 65 32 62 64 38  3bf2c49c9eae2bd8
81d0: 64 30 39 63 30 62 37 61 36 63 38 37 35 36 62 33  d09c0b7a6c8756b3
81e0: 61 61 34 64 63 31 37 65 36 64 64 38 64 64 33 30  aa4dc17e6dd8dd30
81f0: 38 34 35 30 38 33 35 30 32 39 38 66 37 36 61 38  84508350298f76a8
8200: 63 65 64 36 34 34 39 63 31 61 62 65 36 64 62 62  ced6449c1abe6dbb
8210: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8220: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8230: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
8240: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8250: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8260: 20 34 33 65 65 33 62 32 33 34 65 61 39 31 32 32   43ee3b234ea9122
8270: 38 63 30 35 33 35 38 66 61 35 36 62 62 35 30 37  8c05358fa56bb507
8280: 32 30 33 31 66 61 34 31 33 62 65 33 37 31 34 31  2031fa413be37141
8290: 33 61 32 35 37 61 30 64 61 0a 0a 74 63 6c 74 65  3a257a0da..tclte
82a0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
82b0: 41 35 31 32 2d 32 32 34 2d 32 2e 39 35 20 7b 53  A512-224-2.95 {S
82c0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
82d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
82e0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
82f0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
8300: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
8310: 20 68 65 78 20 62 64 63 63 62 61 35 35 34 30 37   hex bdccba55407
8320: 37 36 31 61 36 62 39 30 61 65 38 38 65 63 65 61  761a6b90ae88ecea
8330: 38 62 39 35 63 65 31 33 61 65 36 36 61 33 34 30  8b95ce13ae66a340
8340: 36 36 64 35 30 35 31 38 34 62 62 35 38 61 39 36  66d505184bb58a96
8350: 63 36 65 33 32 37 62 31 34 35 66 65 39 66 37 66  c6e327b145fe9f7f
8360: 39 65 30 31 36 61 34 39 62 34 32 35 34 66 66 38  9e016a49b4254ff8
8370: 66 39 62 66 33 36 35 63 66 63 35 66 31 33 32 35  f9bf365cfc5f1325
8380: 34 61 61 32 35 32 62 65 37 62 66 62 65 31 39 33  4aa252be7bfbe193
8390: 34 63 66 65 63 62 37 32 30 66 61 64 64 63 65 35  4cfecb720faddce5
83a0: 63 66 64 65 62 39 66 33 61 62 34 31 34 38 31 63  cfdeb9f3ab41481c
83b0: 30 64 64 61 61 63 62 66 63 31 65 34 62 66 34 39  0ddaacbfc1e4bf49
83c0: 36 34 61 31 34 66 39 61 63 65 30 31 32 66 66 64  64a14f9ace012ffd
83d0: 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  9]} \..-body {tl
83e0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
83f0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
8400: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
8410: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
8420: 74 20 32 31 66 61 38 36 36 64 38 36 39 35 30 30  t 21fa866d869500
8430: 38 30 39 39 65 34 30 30 32 31 30 64 30 34 61 32  8099e400210d04a2
8440: 30 31 33 37 30 31 38 38 37 64 37 61 66 61 39 38  013701887d7afa98
8450: 65 38 33 32 34 65 39 36 64 65 0a 0a 74 63 6c 74  e8324e96de..tclt
8460: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
8470: 48 41 35 31 32 2d 32 32 34 2d 32 2e 39 36 20 7b  HA512-224-2.96 {
8480: 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d  SHA512_224ShortM
8490: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
84a0: 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c  nts SHA512-224 \
84b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
84c0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
84d0: 65 20 68 65 78 20 61 38 61 61 32 33 36 63 64 65  e hex a8aa236cde
84e0: 35 35 37 64 38 64 33 36 35 65 36 65 64 33 35 36  557d8d365e6ed356
84f0: 36 33 36 65 65 39 31 31 37 66 37 61 65 39 65 36  636ee9117f7ae9e6
8500: 62 66 62 37 37 32 63 39 64 61 35 39 66 62 32 37  bfb772c9da59fb27
8510: 31 63 63 33 36 37 32 34 61 34 65 66 64 39 32 37  1cc36724a4efd927
8520: 63 66 31 31 63 39 39 38 66 34 37 37 35 38 65 38  cf11c998f47758e8
8530: 35 32 62 34 65 30 64 32 34 36 66 64 64 30 65 31  52b4e0d246fdd0e1
8540: 63 32 64 33 62 37 33 33 66 61 65 33 39 65 37 63  c2d3b733fae39e7c
8550: 36 30 32 61 39 62 34 64 64 33 35 63 61 33 39 37  602a9b4dd35ca397
8560: 31 33 38 37 61 30 36 62 37 39 66 33 63 33 30 33  1387a06b79f3c303
8570: 65 35 34 65 31 63 30 36 66 37 30 35 36 38 30 38  e54e1c06f7056808
8580: 38 32 66 35 32 61 35 30 33 64 34 33 66 64 64 66  82f52a503d43fddf
8590: 62 63 38 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  bc88]} \..-body 
85a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
85b0: 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20  gest SHA512-224 
85c0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
85d0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
85e0: 73 75 6c 74 20 31 30 32 66 62 33 36 33 32 63 36  sult 102fb3632c6
85f0: 37 35 32 32 34 62 33 30 66 66 61 61 35 61 33 32  75224b30ffaa5a32
8600: 32 61 65 66 33 33 35 34 65 31 66 66 30 31 38 33  2aef3354e1ff0183
8610: 63 64 62 66 64 30 36 65 35 61 31 37 66 0a 0a 74  cdbfd06e5a17f..t
8620: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8630: 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 39  h_SHA512-224-2.9
8640: 37 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  7 {SHA512_224Sho
8650: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
8660: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
8670: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
8680: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8690: 63 6f 64 65 20 68 65 78 20 34 34 63 36 63 37 35  code hex 44c6c75
86a0: 65 33 37 37 66 32 31 66 63 39 63 64 37 63 31 36  e377f21fc9cd7c16
86b0: 34 63 61 35 63 34 63 62 38 32 63 35 35 33 38 61  4ca5c4cb82c5538a
86c0: 35 38 64 66 62 33 32 33 39 39 32 65 36 62 63 66  58dfb323992e6bcf
86d0: 35 38 38 63 36 31 62 32 34 36 30 35 33 37 30 36  588c61b246053706
86e0: 62 66 38 38 37 32 35 61 30 39 64 30 61 38 61 64  bf88725a09d0a8ad
86f0: 66 63 64 65 65 63 30 64 62 34 31 39 63 64 37 37  fcdeec0db419cd77
8700: 33 32 62 30 65 33 33 38 36 62 63 33 66 33 34 30  32b0e3386bc3f340
8710: 37 65 39 65 30 31 36 35 34 36 66 34 64 31 35 63  7e9e016546f4d15c
8720: 33 31 34 62 66 64 35 37 65 33 30 63 33 30 32 39  314bfd57e30c3029
8730: 32 36 64 65 62 33 33 34 32 63 62 63 33 31 35 61  26deb3342cbc315a
8740: 31 65 37 30 36 63 35 36 30 37 63 31 32 37 64 65  1e706c5607c127de
8750: 34 32 61 39 61 37 33 39 62 5d 7d 20 5c 0a 09 2d  42a9a739b]} \..-
8760: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
8770: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
8780: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
8790: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
87a0: 74 20 2d 72 65 73 75 6c 74 20 62 39 62 36 32 39  t -result b9b629
87b0: 38 36 65 65 62 64 62 33 35 63 38 38 62 31 32 65  86eebdb35c88b12e
87c0: 30 32 35 37 35 33 37 61 30 35 33 39 34 65 66 35  0257537a05394ef5
87d0: 61 31 36 66 61 64 30 31 63 32 66 65 63 35 37 64  a16fad01c2fec57d
87e0: 36 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  6f..tcltest::tes
87f0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
8800: 34 2d 32 2e 39 38 20 7b 53 48 41 35 31 32 5f 32  4-2.98 {SHA512_2
8810: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
8820: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35  constraints SHA5
8830: 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  12-224 \..-setup
8840: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
8850: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 33  ry decode hex d3
8860: 63 34 61 30 62 31 37 66 34 36 63 63 35 36 35 33  c4a0b17f46cc5653
8870: 62 62 64 38 33 30 30 64 66 62 30 64 66 36 64 30  bbd8300dfb0df6d0
8880: 61 66 33 66 62 37 63 37 36 33 39 61 38 33 30 62  af3fb7c7639a830b
8890: 64 63 39 66 36 38 63 37 61 62 36 39 61 30 39 61  dc9f68c7ab69a09a
88a0: 30 32 33 35 30 38 33 63 63 37 32 31 64 34 36 35  0235083cc721d465
88b0: 65 37 33 34 38 31 65 61 65 64 39 66 30 63 32 39  e73481eaed9f0c29
88c0: 64 33 34 32 36 32 61 38 31 37 37 32 31 37 66 39  d34262a8177217f9
88d0: 31 32 66 61 35 61 65 31 38 36 35 66 32 39 62 39  12fa5ae1865f29b9
88e0: 37 36 36 39 63 31 31 33 33 61 64 65 35 39 61 31  7669c1133ade59a1
88f0: 64 32 39 31 30 66 35 33 37 62 39 62 32 33 63 30  d2910f537b9b23c0
8900: 38 30 65 39 36 33 63 37 35 33 66 37 65 36 37 36  80e963c753f7e676
8910: 64 63 64 61 66 64 32 61 31 31 38 34 36 37 66 38  dcdafd2a118467f8
8920: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8930: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8940: 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74   SHA512-224 -dat
8950: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8960: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8970: 20 34 39 65 34 35 35 33 61 36 63 32 36 65 37 61   49e4553a6c26e7a
8980: 38 32 63 66 37 30 62 31 35 35 32 38 30 33 37 63  82cf70b15528037c
8990: 64 64 36 35 38 61 65 33 33 36 35 33 62 66 34 63  dd658ae33653bf4c
89a0: 65 38 65 38 36 37 39 39 62 0a 0a 74 63 6c 74 65  e8e86799b..tclte
89b0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
89c0: 41 35 31 32 2d 32 32 34 2d 32 2e 39 39 20 7b 53  A512-224-2.99 {S
89d0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
89e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
89f0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
8a00: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
8a10: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
8a20: 20 68 65 78 20 66 36 65 33 64 66 39 35 61 34 35   hex f6e3df95a45
8a30: 32 36 61 61 66 36 37 31 62 31 61 62 39 33 34 32  26aaf671b1ab9342
8a40: 64 62 33 62 61 30 61 36 30 34 33 64 61 38 32 62  db3ba0a6043da82b
8a50: 33 35 35 63 34 61 38 64 37 36 36 34 65 30 39 66  355c4a8d7664e09f
8a60: 32 39 64 35 63 30 64 39 64 62 36 30 31 38 37 32  29d5c0d9db601872
8a70: 65 34 30 65 38 38 62 33 64 30 38 66 33 38 30 36  e40e88b3d08f3806
8a80: 31 64 35 32 31 37 35 33 62 35 35 62 35 62 39 62  1d521753b55b5b9b
8a90: 36 35 38 39 35 61 35 38 63 33 63 66 30 62 64 30  65895a58c3cf0bd0
8aa0: 64 61 38 32 33 66 38 31 63 37 65 64 65 35 62 37  da823f81c7ede5b7
8ab0: 61 30 61 38 32 63 63 34 37 38 30 63 65 32 36 63  a0a82cc4780ce26c
8ac0: 35 61 35 62 62 38 39 36 30 63 63 61 34 66 34 65  5a5bb8960cca4f4e
8ad0: 62 30 34 61 61 31 35 32 64 39 30 35 37 35 66 39  b04aa152d90575f9
8ae0: 63 39 37 38 32 35 65 36 38 5d 7d 20 5c 0a 09 2d  c97825e68]} \..-
8af0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
8b00: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
8b10: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
8b20: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
8b30: 74 20 2d 72 65 73 75 6c 74 20 34 38 35 34 63 62  t -result 4854cb
8b40: 32 61 33 61 39 63 39 65 33 65 63 39 31 62 34 65  2a3a9c9e3ec91b4e
8b50: 37 64 37 39 61 37 35 33 66 36 65 32 32 34 30 66  7d79a753f6e2240f
8b60: 34 62 36 65 32 30 35 30 35 39 30 64 36 66 31 36  4b6e2050590d6f16
8b70: 34 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  47..tcltest::tes
8b80: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
8b90: 34 2d 32 2e 31 30 30 20 7b 53 48 41 35 31 32 5f  4-2.100 {SHA512_
8ba0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
8bb0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
8bc0: 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75  512-224 \..-setu
8bd0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
8be0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63  ary decode hex c
8bf0: 34 37 32 32 34 34 62 64 33 33 32 35 61 38 34 64  472244bd3325a84d
8c00: 33 37 32 32 30 65 37 63 61 36 65 63 64 34 30 65  37220e7ca6ecd40e
8c10: 33 66 32 30 65 35 32 36 37 37 61 38 31 31 63 65  3f20e52677a811ce
8c20: 38 39 38 37 66 35 62 63 30 39 36 33 39 35 30 62  8987f5bc0963950b
8c30: 61 35 63 30 36 63 33 30 65 39 35 66 62 34 38 39  a5c06c30e95fb489
8c40: 33 30 65 62 64 63 31 33 30 35 65 39 33 32 34 39  30ebdc1305e93249
8c50: 33 63 63 62 66 37 66 32 36 36 64 30 66 33 39 33  3ccbf7f266d0f393
8c60: 66 38 64 61 66 39 61 39 38 35 30 34 31 38 64 66  f8daf9a9850418df
8c70: 65 39 39 32 66 61 35 34 64 32 62 34 30 35 66 39  e992fa54d2b405f9
8c80: 62 30 66 36 61 61 37 62 34 33 35 65 38 39 64 63  b0f6aa7b435e89dc
8c90: 37 35 65 38 63 39 38 35 65 33 38 35 35 36 62 39  75e8c985e38556b9
8ca0: 33 63 62 34 34 65 38 38 31 31 35 36 63 61 33 66  3cb44e881156ca3f
8cb0: 61 66 31 34 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79  af149]} \..-body
8cc0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
8cd0: 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34  igest SHA512-224
8ce0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
8cf0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
8d00: 65 73 75 6c 74 20 64 34 35 39 34 30 30 39 30 35  esult d459400905
8d10: 66 34 63 31 65 65 66 66 39 30 64 65 63 64 39 63  f4c1eeff90decd9c
8d20: 63 39 39 34 62 33 39 34 62 32 31 34 33 30 33 37  c994b394b2143037
8d30: 39 64 36 33 32 38 63 30 33 61 66 34 33 36 0a 0a  9d6328c03af436..
8d40: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8d50: 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e  sh_SHA512-224-2.
8d60: 31 30 31 20 7b 53 48 41 35 31 32 5f 32 32 34 53  101 {SHA512_224S
8d70: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
8d80: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d  straints SHA512-
8d90: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
8da0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
8db0: 64 65 63 6f 64 65 20 68 65 78 20 38 66 66 30 35  decode hex 8ff05
8dc0: 32 30 38 30 35 61 33 33 36 61 61 37 36 38 61 31  20805a336aa768a1
8dd0: 61 37 35 66 32 62 65 63 33 65 61 38 37 36 61 63  a75f2bec3ea876ac
8de0: 32 32 34 36 66 32 64 34 39 36 30 38 37 62 66 33  2246f2d496087bf3
8df0: 65 62 63 30 33 64 38 38 65 33 66 36 30 34 64 63  ebc03d88e3f604dc
8e00: 34 31 61 39 62 37 63 64 61 32 64 61 31 65 62 34  41a9b7cda2da1eb4
8e10: 65 63 64 30 36 32 63 37 39 63 35 66 39 30 34 31  ecd062c79c5f9041
8e20: 64 39 61 37 38 63 63 33 64 31 34 63 30 31 36 33  d9a78cc3d14c0163
8e30: 31 66 39 30 38 39 34 66 39 31 63 36 65 33 36 64  1f90894f91c6e36d
8e40: 32 39 36 33 32 39 33 30 37 35 34 32 32 38 61 30  29632930754228a0
8e50: 61 64 32 35 35 32 39 63 33 32 35 31 63 63 64 32  ad25529c3251ccd2
8e60: 38 33 66 33 36 38 62 30 65 36 66 34 33 63 66 33  83f368b0e6f43cf3
8e70: 65 32 37 37 62 34 33 63 63 30 32 61 30 66 33 61  e277b43cc02a0f3a
8e80: 34 30 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  405]} \..-body {
8e90: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
8ea0: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d  est SHA512-224 -
8eb0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
8ec0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
8ed0: 75 6c 74 20 36 31 36 66 61 38 34 39 35 66 35 35  ult 616fa8495f55
8ee0: 65 37 37 61 33 30 38 63 32 32 33 61 66 65 34 37  e77a308c223afe47
8ef0: 30 62 34 32 63 30 65 31 61 30 31 34 35 37 34 61  0b42c0e1a014574a
8f00: 61 33 36 64 30 31 66 34 38 34 62 62 0a 0a 74 63  a36d01f484bb..tc
8f10: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
8f20: 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 30  _SHA512-224-2.10
8f30: 32 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  2 {SHA512_224Sho
8f40: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
8f50: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
8f60: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
8f70: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
8f80: 63 6f 64 65 20 68 65 78 20 36 61 34 63 65 66 39  code hex 6a4cef9
8f90: 62 38 64 63 61 30 61 64 37 37 36 37 35 31 35 63  b8dca0ad7767515c
8fa0: 38 61 36 31 61 63 33 32 63 37 33 30 62 32 38 39  8a61ac32c730b289
8fb0: 34 62 36 30 61 31 30 36 62 63 35 36 39 39 35 33  4b60a106bc569953
8fc0: 34 61 31 37 30 66 31 31 33 37 30 66 66 39 30 38  4a170f11370ff908
8fd0: 66 32 64 37 34 36 61 39 36 39 65 63 66 38 66 63  f2d746a969ecf8fc
8fe0: 31 38 36 31 35 30 33 64 61 31 64 66 32 63 64 39  1861503da1df2cd9
8ff0: 63 62 64 61 31 34 62 62 39 64 65 31 31 63 38 32  cbda14bb9de11c82
9000: 32 34 34 34 30 35 30 38 32 37 37 65 62 63 33 30  24440508277ebc30
9010: 62 37 34 36 61 32 39 37 36 61 32 64 36 34 35 34  b746a2976a2d6454
9020: 35 30 37 36 63 36 64 34 63 62 63 33 36 39 39 36  5076c6d4cbc36996
9030: 66 39 65 65 38 62 39 61 64 34 37 30 38 34 63 35  f9ee8b9ad47084c5
9040: 65 33 64 35 31 32 65 62 38 36 38 35 61 62 31 39  e3d512eb8685ab19
9050: 38 63 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  8ca]} \..-body {
9060: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
9070: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d  est SHA512-224 -
9080: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
9090: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
90a0: 75 6c 74 20 64 32 30 34 39 30 65 62 39 36 33 33  ult d20490eb9633
90b0: 61 33 32 31 61 36 39 65 62 32 37 64 34 32 64 64  a321a69eb27d42dd
90c0: 36 31 39 61 63 65 65 65 35 33 33 65 38 35 30 30  619aceee533e8500
90d0: 37 35 66 64 31 36 35 38 39 62 65 66 0a 0a 74 63  75fd16589bef..tc
90e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
90f0: 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 30  _SHA512-224-2.10
9100: 33 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  3 {SHA512_224Sho
9110: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
9120: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
9130: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
9140: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
9150: 63 6f 64 65 20 68 65 78 20 39 61 34 66 64 34 34  code hex 9a4fd44
9160: 61 30 38 64 39 66 35 65 37 37 33 31 36 30 33 61  a08d9f5e7731603a
9170: 63 39 32 62 31 38 65 33 64 38 38 30 66 66 32 64  c92b18e3d880ff2d
9180: 35 62 39 64 37 63 65 65 36 64 62 62 32 62 37 66  5b9d7cee6dbb2b7f
9190: 66 35 30 34 66 32 64 66 33 62 33 61 62 63 64 33  f504f2df3b3abcd3
91a0: 38 62 31 38 66 63 39 38 64 31 61 35 61 39 36 64  8b18fc98d1a5a96d
91b0: 66 33 37 30 30 65 34 36 65 35 66 35 33 64 33 32  f3700e46e5f53d32
91c0: 63 63 35 38 31 36 34 36 35 39 34 64 65 32 64 61  cc581646594de2da
91d0: 35 33 65 65 34 35 32 64 37 31 30 37 38 62 30 61  53ee452d71078b0a
91e0: 61 30 62 36 66 35 62 33 39 65 66 35 31 34 62 65  a0b6f5b39ef514be
91f0: 61 39 38 35 64 35 32 39 36 38 64 63 64 35 31 65  a985d52968dcd51e
9200: 62 64 37 35 62 61 63 30 66 30 66 30 33 66 62 38  bd75bac0f0f03fb8
9210: 36 62 62 30 62 30 33 35 36 64 62 34 31 65 34 36  6bb0b0356db41e46
9220: 39 62 65 38 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  9be84]} \..-body
9230: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
9240: 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34  igest SHA512-224
9250: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9260: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
9270: 65 73 75 6c 74 20 62 66 33 61 39 30 65 31 65 30  esult bf3a90e1e0
9280: 65 38 62 31 61 32 30 62 30 38 33 33 31 64 61 33  e8b1a20b08331da3
9290: 63 31 39 39 36 63 38 33 39 35 61 31 65 33 62 38  c1996c8395a1e3b8
92a0: 33 35 37 39 39 66 38 37 39 63 63 37 64 66 0a 0a  35799f879cc7df..
92b0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
92c0: 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e  sh_SHA512-224-2.
92d0: 31 30 34 20 7b 53 48 41 35 31 32 5f 32 32 34 53  104 {SHA512_224S
92e0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
92f0: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d  straints SHA512-
9300: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
9310: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
9320: 64 65 63 6f 64 65 20 68 65 78 20 61 66 63 65 31  decode hex afce1
9330: 37 33 62 30 35 37 62 34 38 34 30 36 65 31 36 33  73b057b48406e163
9340: 35 38 34 63 38 64 38 63 31 61 39 33 62 31 35 38  584c8d8c1a93b158
9350: 30 34 36 31 32 63 32 32 37 38 64 63 61 33 34 34  04612c2278dca344
9360: 31 32 62 36 39 32 61 32 34 37 30 31 32 30 65 32  12b692a2470120e2
9370: 34 62 30 64 35 37 38 30 36 65 39 63 62 66 34 62  4b0d57806e9cbf4b
9380: 38 61 35 36 33 30 35 33 66 32 32 66 37 36 61 66  8a563053f22f76af
9390: 30 62 31 61 33 39 66 65 33 35 63 35 36 61 37 61  0b1a39fe35c56a7a
93a0: 35 63 62 32 39 30 39 32 64 36 39 66 30 31 39 31  5cb29092d69f0191
93b0: 31 63 32 30 66 37 38 66 61 32 66 39 30 64 65 35  1c20f78fa2f90de5
93c0: 36 62 36 37 32 31 37 34 63 32 63 34 33 34 63 66  6b672174c2c434cf
93d0: 35 39 63 66 31 38 34 63 39 65 64 64 64 36 61 35  59cf184c9eddd6a5
93e0: 37 62 65 33 31 35 31 33 61 39 35 37 34 37 35 34  7be31513a9574754
93f0: 38 33 39 35 62 38 34 30 63 5d 7d 20 5c 0a 09 2d  8395b840c]} \..-
9400: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9410: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
9420: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
9430: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
9440: 74 20 2d 72 65 73 75 6c 74 20 33 37 33 64 30 38  t -result 373d08
9450: 31 33 39 31 33 39 61 66 39 36 66 32 32 38 31 30  139139af96f22810
9460: 63 38 65 38 34 34 33 61 37 38 31 63 38 38 33 34  c8e8443a781c8834
9470: 34 62 37 33 62 39 62 37 31 37 61 39 37 66 34 61  4b73b9b717a97f4a
9480: 30 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  04..tcltest::tes
9490: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
94a0: 34 2d 32 2e 31 30 35 20 7b 53 48 41 35 31 32 5f  4-2.105 {SHA512_
94b0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
94c0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
94d0: 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75  512-224 \..-setu
94e0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
94f0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35  ary decode hex 5
9500: 34 32 31 63 62 63 65 33 30 37 64 32 63 38 39 61  421cbce307d2c89a
9510: 32 37 61 37 62 30 61 31 64 35 31 35 65 36 39 32  27a7b0a1d515e692
9520: 37 30 30 32 62 62 36 35 64 33 66 30 39 39 30 62  7002bb65d3f0990b
9530: 38 62 34 35 32 66 33 31 30 36 61 33 63 35 32 64  8b452f3106a3c52d
9540: 65 38 30 62 39 65 36 34 36 31 65 39 62 34 35 35  e80b9e6461e9b455
9550: 35 61 64 66 63 33 36 38 37 34 38 64 64 63 34 38  5adfc368748ddc48
9560: 63 36 64 30 64 39 31 34 62 66 39 34 64 36 64 32  c6d0d914bf94d6d2
9570: 38 35 33 62 31 32 37 38 32 65 37 34 39 61 33 38  853b12782e749a38
9580: 30 64 36 30 31 32 64 30 65 65 62 63 36 30 64 32  0d6012d0eebc60d2
9590: 32 64 32 65 61 35 63 34 34 38 34 63 61 31 36 34  2d2ea5c4484ca164
95a0: 64 30 36 61 65 37 30 36 66 35 33 66 30 36 62 37  d06ae706f53f06b7
95b0: 35 39 37 36 31 61 39 34 63 39 64 65 38 37 66 63  59761a94c9de87fc
95c0: 33 38 62 36 63 34 64 38 66 63 64 66 34 30 61 5d  38b6c4d8fcdf40a]
95d0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
95e0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
95f0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
9600: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
9610: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
9620: 35 62 63 31 64 63 66 35 39 33 34 32 34 39 39 31  5bc1dcf593424991
9630: 39 35 61 36 31 61 30 36 36 31 61 66 37 61 38 65  95a61a0661af7a8e
9640: 39 36 30 39 37 36 36 30 61 39 66 37 65 35 37 36  96097660a9f7e576
9650: 35 37 32 66 33 64 30 62 0a 0a 74 63 6c 74 65 73  572f3d0b..tcltes
9660: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
9670: 35 31 32 2d 32 32 34 2d 32 2e 31 30 36 20 7b 53  512-224-2.106 {S
9680: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
9690: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
96a0: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
96b0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
96c0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
96d0: 20 68 65 78 20 35 61 64 64 39 30 37 31 64 31 64   hex 5add9071d1d
96e0: 35 64 31 37 39 39 63 30 66 39 32 32 33 31 30 39  5d1799c0f9223109
96f0: 62 37 36 31 62 37 62 39 65 65 31 63 33 30 61 61  b761b7b9ee1c30aa
9700: 32 30 30 32 35 65 61 33 30 30 61 32 62 61 65 61  20025ea300a2baea
9710: 31 63 35 31 32 66 31 33 31 34 62 31 63 33 63 35  1c512f1314b1c3c5
9720: 35 30 65 38 35 32 61 34 66 31 61 62 39 63 39 66  50e852a4f1ab9c9f
9730: 66 39 61 63 34 34 34 66 63 39 65 30 61 62 66 65  f9ac444fc9e0abfe
9740: 33 31 62 33 38 38 33 65 66 33 33 37 61 35 62 63  31b3883ef337a5bc
9750: 61 62 37 65 66 33 64 61 33 65 62 35 61 32 64 38  ab7ef3da3eb5a2d8
9760: 31 38 39 31 61 35 66 64 37 30 38 35 63 39 63 35  1891a5fd7085c9c5
9770: 38 31 64 38 66 65 36 30 63 38 33 31 38 35 66 61  81d8fe60c83185fa
9780: 34 66 38 34 37 36 37 30 62 38 38 38 61 30 35 33  4f847670b888a053
9790: 64 30 64 65 31 38 38 35 63 66 37 39 32 36 65 30  d0de1885cf7926e0
97a0: 31 34 39 31 65 38 34 5d 7d 20 5c 0a 09 2d 62 6f  1491e84]} \..-bo
97b0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
97c0: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32  -digest SHA512-2
97d0: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
97e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
97f0: 2d 72 65 73 75 6c 74 20 30 63 33 37 30 34 31 30  -result 0c370410
9800: 64 63 38 65 32 32 65 65 36 31 63 34 39 64 37 61  dc8e22ee61c49d7a
9810: 33 62 64 33 64 37 65 38 30 63 63 34 66 33 66 35  3bd3d7e80cc4f3f5
9820: 31 61 63 62 32 36 61 65 34 65 63 35 61 33 61 31  1acb26ae4ec5a3a1
9830: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
9840: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d  Hash_SHA512-224-
9850: 32 2e 31 30 37 20 7b 53 48 41 35 31 32 5f 32 32  2.107 {SHA512_22
9860: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
9870: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
9880: 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  2-224 \..-setup 
9890: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
98a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 39 36  y decode hex e96
98b0: 35 62 61 38 64 31 32 33 36 61 31 30 62 33 36 32  5ba8d1236a10b362
98c0: 63 64 37 35 63 61 63 64 30 31 37 35 63 61 64 30  cd75cacd0175cad0
98d0: 61 66 36 35 65 31 33 64 39 63 35 37 61 36 30 34  af65e13d9c57a604
98e0: 37 62 37 32 39 30 32 39 64 34 37 30 66 64 36 64  7b729029d470fd6d
98f0: 33 64 34 31 37 65 61 34 61 38 65 63 35 38 37 62  3d417ea4a8ec587b
9900: 65 39 36 63 38 36 66 37 36 36 31 63 66 36 33 62  e96c86f7661cf63b
9910: 64 35 65 39 65 65 38 39 36 64 38 36 31 34 62 61  d5e9ee896d8614ba
9920: 63 31 64 34 30 65 33 38 38 65 30 33 33 39 36 30  c1d40e388e033960
9930: 36 64 63 31 38 39 65 30 61 62 61 30 33 38 64 36  6dc189e0aba038d6
9940: 66 33 35 64 35 38 66 34 30 37 63 31 30 66 30 32  f35d58f407c10f02
9950: 62 64 37 65 39 64 65 33 32 38 65 39 66 36 66 61  bd7e9de328e9f6fa
9960: 34 30 37 30 63 65 36 34 63 32 65 37 61 33 32 65  4070ce64c2e7a32e
9970: 38 31 39 62 37 62 37 64 64 65 64 36 63 35 31 32  819b7b7dded6c512
9980: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
9990: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
99a0: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
99b0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
99c0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
99d0: 74 20 31 37 35 63 34 61 37 66 61 34 39 31 65 37  t 175c4a7fa491e7
99e0: 64 62 65 33 61 32 63 38 36 30 34 62 30 37 62 61  dbe3a2c8604b07ba
99f0: 62 30 65 32 61 32 65 33 34 62 32 37 30 65 31 36  b0e2a2e34b270e16
9a00: 62 34 33 39 32 65 39 37 31 36 0a 0a 74 63 6c 74  b4392e9716..tclt
9a10: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
9a20: 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 30 38 20  HA512-224-2.108 
9a30: 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74  {SHA512_224Short
9a40: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
9a50: 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20  ints SHA512-224 
9a60: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
9a70: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
9a80: 64 65 20 68 65 78 20 33 31 34 31 35 38 33 33 36  de hex 314158336
9a90: 66 62 66 37 38 34 35 32 35 31 65 31 61 36 32 30  fbf7845251e1a620
9aa0: 36 31 33 61 64 38 63 31 61 35 39 39 36 65 35 31  613ad8c1a5996e51
9ab0: 32 61 65 32 35 63 64 64 39 31 65 63 38 34 62 36  2ae25cdd91ec84b6
9ac0: 62 38 33 37 66 61 65 65 61 34 64 39 30 37 34 65  b837faeea4d9074e
9ad0: 66 37 66 37 63 36 61 31 65 66 61 33 31 31 35 66  f7f7c6a1efa3115f
9ae0: 64 66 65 38 31 35 31 30 36 65 65 64 33 33 38 66  dfe815106eed338f
9af0: 61 35 33 31 39 34 35 37 39 32 34 30 32 62 39 64  a531945792402b9d
9b00: 30 34 35 37 30 33 65 31 32 34 64 32 63 63 62 36  045703e124d2ccb6
9b10: 61 38 63 64 39 63 37 61 66 34 64 32 36 37 31 33  a8cd9c7af4d26713
9b20: 39 35 38 34 38 37 66 66 33 62 62 61 38 30 35 62  958487ff3bba805b
9b30: 32 63 61 64 38 39 39 63 35 36 35 63 63 62 35 63  2cad899c565ccb5c
9b40: 65 37 39 34 37 35 64 64 30 63 39 39 33 30 31 38  e79475dd0c993018
9b50: 38 65 66 37 35 61 34 30 31 39 64 36 30 5d 7d 20  8ef75a4019d60]} 
9b60: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
9b70: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
9b80: 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24  A512-224 -data $
9b90: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
9ba0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 36  exact -result d6
9bb0: 63 64 31 39 30 31 62 62 65 61 66 34 62 36 39 61  cd1901bbeaf4b69a
9bc0: 37 63 32 31 31 63 35 30 35 34 36 66 63 65 33 35  7c211c50546fce35
9bd0: 33 38 61 38 33 38 38 34 36 30 65 63 32 39 66 66  38a8388460ec29ff
9be0: 38 31 36 36 64 66 0a 0a 74 63 6c 74 65 73 74 3a  8166df..tcltest:
9bf0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
9c00: 32 2d 32 32 34 2d 32 2e 31 30 39 20 7b 53 48 41  2-224-2.109 {SHA
9c10: 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  512_224ShortMsg}
9c20: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
9c30: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d   SHA512-224 \..-
9c40: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
9c50: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
9c60: 65 78 20 32 63 32 64 38 36 31 39 37 62 33 39 63  ex 2c2d86197b39c
9c70: 31 39 34 63 36 35 61 39 33 62 64 61 64 63 37 32  194c65a93bdadc72
9c80: 61 39 65 35 39 30 66 61 37 35 66 61 38 61 65 36  a9e590fa75fa8ae6
9c90: 62 37 35 38 61 64 66 39 31 31 36 61 62 62 32 62  b758adf9116abb2b
9ca0: 62 66 30 35 32 35 65 31 32 31 61 38 39 64 38 38  bf0525e121a89d88
9cb0: 38 34 62 37 65 61 35 36 31 34 61 32 39 65 63 66  84b7ea5614a29ecf
9cc0: 31 61 35 32 66 63 66 61 37 61 36 30 36 66 62 34  1a52fcfa7a606fb4
9cd0: 61 38 33 35 61 37 65 38 33 64 35 62 30 64 61 39  a835a7e83d5b0da9
9ce0: 63 34 62 34 61 35 37 38 37 61 30 34 61 39 64 32  c4b4a5787a04a9d2
9cf0: 32 63 61 31 61 38 31 62 39 37 35 30 61 32 30 63  2ca1a81b9750a20c
9d00: 63 61 66 33 62 32 61 31 33 65 35 62 64 38 31 63  caf3b2a13e5bd81c
9d10: 30 30 65 66 34 30 33 30 34 32 36 34 30 61 33 64  00ef403042640a3d
9d20: 34 64 65 64 63 62 66 65 64 39 32 30 37 61 65 31  4dedcbfed9207ae1
9d30: 36 37 62 36 32 39 38 61 35 32 36 5d 7d 20 5c 0a  67b6298a526]} \.
9d40: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
9d50: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
9d60: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
9d70: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
9d80: 61 63 74 20 2d 72 65 73 75 6c 74 20 34 39 64 61  act -result 49da
9d90: 65 32 31 65 37 37 33 33 63 65 30 39 65 33 39 32  e21e7733ce09e392
9da0: 64 64 39 38 30 65 63 33 61 30 63 32 63 35 34 32  dd980ec3a0c2c542
9db0: 36 39 33 37 36 65 32 33 31 63 31 39 64 63 66 35  69376e231c19dcf5
9dc0: 61 37 37 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  a774..tcltest::t
9dd0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
9de0: 32 32 34 2d 32 2e 31 31 30 20 7b 53 48 41 35 31  224-2.110 {SHA51
9df0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
9e00: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9e10: 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65  HA512-224 \..-se
9e20: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
9e30: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
9e40: 20 62 63 31 30 36 62 30 37 31 62 35 33 63 34 64   bc106b071b53c4d
9e50: 38 35 35 65 31 61 33 64 64 61 34 31 64 62 31 61  855e1a3dda41db1a
9e60: 37 61 34 34 36 30 35 38 36 62 34 34 38 61 33 66  7a4460586b448a3f
9e70: 64 39 66 64 38 34 32 37 34 37 63 62 66 35 33 32  d9fd842747cbf532
9e80: 64 64 32 37 36 33 65 37 39 30 30 66 34 65 66 32  dd2763e7900f4ef2
9e90: 63 64 63 63 34 39 31 34 65 39 62 35 61 39 39 31  cdcc4914e9b5a991
9ea0: 33 66 31 61 37 30 37 30 64 37 38 65 62 65 38 61  3f1a7070d78ebe8a
9eb0: 31 35 36 63 62 32 30 62 38 31 62 61 33 36 36 62  156cb20b81ba366b
9ec0: 36 65 38 31 64 39 30 62 30 64 36 30 33 31 31 64  6e81d90b0d60311d
9ed0: 61 39 35 35 31 63 30 33 65 35 34 38 66 64 62 62  a9551c03e548fdbb
9ee0: 34 65 31 35 64 34 62 30 65 31 32 35 30 32 39 39  4e15d4b0e1250299
9ef0: 33 36 33 66 63 38 32 61 66 65 30 35 32 35 37 65  363fc82afe05257e
9f00: 38 34 36 32 64 65 38 31 34 36 35 32 37 33 33 63  8462de814652733c
9f10: 39 63 38 62 31 62 37 31 36 39 38 5d 7d 20 5c 0a  9c8b1b71698]} \.
9f20: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
9f30: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
9f40: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
9f50: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
9f60: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 62 61 66  act -result 3baf
9f70: 66 38 62 63 31 66 34 33 35 31 66 63 36 32 63 61  f8bc1f4351fc62ca
9f80: 34 30 39 30 34 61 30 30 32 31 39 38 62 35 65 66  40904a002198b5ef
9f90: 36 39 32 34 61 66 62 61 31 64 31 66 63 36 31 64  6924afba1d1fc61d
9fa0: 38 61 65 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  8ae1..tcltest::t
9fb0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
9fc0: 32 32 34 2d 32 2e 31 31 31 20 7b 53 48 41 35 31  224-2.111 {SHA51
9fd0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
9fe0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9ff0: 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65  HA512-224 \..-se
a000: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
a010: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
a020: 20 66 36 32 37 38 34 38 63 34 61 66 65 63 64 38   f627848c4afecd8
a030: 64 66 33 33 64 61 31 39 63 36 30 36 61 66 66 31  df33da19c606aff1
a040: 31 39 61 33 37 36 32 63 36 31 63 30 35 33 39 63  19a3762c61c0539c
a050: 33 65 36 61 38 39 36 31 62 63 64 36 61 32 61 31  3e6a8961bcd6a2a1
a060: 31 31 35 35 32 37 31 37 66 34 31 61 36 32 61 37  11552717f41a62a7
a070: 39 32 61 61 65 30 61 32 64 34 66 62 62 62 31 30  92aae0a2d4fbbb10
a080: 64 36 63 36 38 64 64 33 31 34 65 32 30 64 65 66  d6c68dd314e20def
a090: 36 65 35 65 30 34 61 65 63 39 62 33 65 66 31 65  6e5e04aec9b3ef1e
a0a0: 66 65 34 61 62 31 33 39 33 31 36 66 35 64 31 63  fe4ab139316f5d1c
a0b0: 36 37 63 31 30 65 32 62 30 61 35 31 35 38 37 64  67c10e2b0a51587d
a0c0: 65 30 32 38 62 63 31 61 30 62 31 65 36 63 31 61  e028bc1a0b1e6c1a
a0d0: 66 39 33 34 64 61 30 31 33 61 34 61 30 35 30 34  f934da013a4a0504
a0e0: 34 38 63 62 61 64 33 39 30 37 31 66 33 61 61 62  48cbad39071f3aab
a0f0: 63 31 30 65 39 39 31 65 65 30 63 38 31 5d 7d 20  c10e991ee0c81]} 
a100: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
a110: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
a120: 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24  A512-224 -data $
a130: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
a140: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 65  exact -result 2e
a150: 30 62 35 34 35 35 63 63 65 36 39 32 36 32 30 36  0b5455cce6926206
a160: 36 66 64 62 66 39 33 39 30 61 64 30 64 63 35 36  6fdbf9390ad0dc56
a170: 31 33 38 62 32 32 31 62 37 35 64 35 31 32 39 38  138b221b75d51298
a180: 62 62 35 62 32 65 0a 0a 74 63 6c 74 65 73 74 3a  bb5b2e..tcltest:
a190: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
a1a0: 32 2d 32 32 34 2d 32 2e 31 31 32 20 7b 53 48 41  2-224-2.112 {SHA
a1b0: 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  512_224ShortMsg}
a1c0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
a1d0: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d   SHA512-224 \..-
a1e0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
a1f0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
a200: 65 78 20 31 35 63 62 37 37 37 65 66 33 65 34 35  ex 15cb777ef3e45
a210: 31 62 39 32 38 64 62 66 32 38 38 65 34 36 61 33  1b928dbf288e46a3
a220: 36 32 37 30 34 34 66 66 35 64 65 34 32 61 64 64  627044ff5de42add
a230: 38 38 34 61 39 61 66 36 62 34 32 34 64 36 65 37  884a9af6b424d6e7
a240: 33 39 39 33 38 31 35 38 31 61 36 61 37 34 33 63  399381581a6a743c
a250: 37 61 35 37 37 62 30 32 62 62 35 64 61 31 34 39  7a577b02bb5da149
a260: 61 64 61 34 65 34 34 39 66 34 38 64 30 39 65 33  ada4e449f48d09e3
a270: 34 64 66 34 63 61 38 64 38 66 32 35 39 66 34 65  4df4ca8d8f259f4e
a280: 31 34 63 32 33 34 37 31 34 37 35 61 38 66 39 37  14c23471475a8f97
a290: 33 33 31 32 38 39 66 35 36 34 61 64 36 65 38 62  331289f564ad6e8b
a2a0: 64 38 66 64 34 63 35 65 35 31 64 35 65 63 64 31  d8fd4c5e51d5ecd1
a2b0: 39 64 64 34 36 64 66 63 62 34 65 61 30 30 39 65  9dd46dfcb4ea009e
a2c0: 33 38 35 62 65 61 38 35 37 37 32 35 66 64 31 66  385bea857725fd1f
a2d0: 63 36 34 32 33 66 30 39 63 63 66 34 32 61 66 34  c6423f09ccf42af4
a2e0: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
a2f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
a300: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
a310: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
a320: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
a330: 74 20 39 66 61 31 32 35 36 31 66 31 64 66 39 61  t 9fa12561f1df9a
a340: 32 64 37 39 33 32 39 32 65 30 66 34 64 66 35 33  2d793292e0f4df53
a350: 32 37 61 66 35 32 39 33 33 36 62 35 62 32 31 31  27af529336b5b211
a360: 38 39 35 32 66 35 63 32 34 65 0a 0a 74 63 6c 74  8952f5c24e..tclt
a370: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
a380: 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 31 33 20  HA512-224-2.113 
a390: 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74  {SHA512_224Short
a3a0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
a3b0: 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20  ints SHA512-224 
a3c0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
a3d0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
a3e0: 64 65 20 68 65 78 20 64 32 34 64 66 37 35 61 30  de hex d24df75a0
a3f0: 30 63 66 39 32 36 37 37 62 62 34 31 61 36 32 30  0cf92677bb41a620
a400: 66 61 65 35 31 39 37 32 33 39 33 37 65 62 66 65  fae519723937ebfe
a410: 31 66 37 62 34 33 30 39 37 30 30 35 36 35 30 35  1f7b430970056505
a420: 64 37 36 64 62 34 66 66 39 31 61 63 66 31 36 66  d76db4ff91acf16f
a430: 66 33 39 31 61 37 61 33 64 38 30 38 35 62 36 35  f391a7a3d8085b65
a440: 35 31 32 37 61 31 38 61 63 64 38 30 62 66 61 38  5127a18acd80bfa8
a450: 33 31 38 33 37 66 34 36 34 34 61 36 38 35 30 63  31837f4644a6850c
a460: 30 32 37 33 66 62 65 64 36 30 32 39 34 34 39 64  0273fbed6029449d
a470: 36 35 62 62 39 38 61 34 37 62 32 66 66 31 63 61  65bb98a47b2ff1ca
a480: 36 39 39 37 63 35 30 35 30 30 64 30 62 32 31 61  6997c50500d0b21a
a490: 32 30 36 39 33 36 61 35 65 34 64 38 64 35 36 35  206936a5e4d8d565
a4a0: 30 38 65 63 30 31 38 33 32 61 65 34 66 64 64 63  08ec01832ae4fddc
a4b0: 65 35 65 66 36 66 66 36 32 66 31 39 31 37 63 34  e5ef6ff62f1917c4
a4c0: 38 36 61 64 65 61 36 5d 7d 20 5c 0a 09 2d 62 6f  86adea6]} \..-bo
a4d0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
a4e0: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32  -digest SHA512-2
a4f0: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
a500: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
a510: 2d 72 65 73 75 6c 74 20 35 63 61 65 31 32 65 61  -result 5cae12ea
a520: 39 36 35 32 32 36 39 65 61 32 61 61 66 63 36 35  9652269ea2aafc65
a530: 36 63 62 38 33 34 32 34 37 34 36 65 61 31 64 35  6cb83424746ea1d5
a540: 64 34 39 31 66 39 61 31 35 39 35 39 34 62 32 61  d491f9a159594b2a
a550: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
a560: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d  Hash_SHA512-224-
a570: 32 2e 31 31 34 20 7b 53 48 41 35 31 32 5f 32 32  2.114 {SHA512_22
a580: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
a590: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
a5a0: 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  2-224 \..-setup 
a5b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
a5c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 33 30  y decode hex 730
a5d0: 39 36 33 62 31 61 34 36 32 64 32 33 34 65 38 37  963b1a462d234e87
a5e0: 30 35 64 62 39 32 37 38 63 63 35 38 64 63 62 38  05db9278cc58dcb8
a5f0: 31 37 62 65 63 36 63 39 65 36 32 62 63 61 64 30  17bec6c9e62bcad0
a600: 61 64 35 37 63 36 31 35 38 65 63 37 37 66 33 35  ad57c6158ec77f35
a610: 62 66 62 33 64 30 34 33 63 35 63 35 33 35 35 63  bfb3d043c5c5355c
a620: 39 36 66 32 61 65 38 31 30 64 65 34 65 36 32 32  96f2ae810de4e622
a630: 64 32 36 65 30 62 34 36 30 35 33 34 36 66 61 36  d26e0b4605346fa6
a640: 33 30 61 32 31 61 33 66 61 63 64 37 66 64 33 63  30a21a3facd7fd3c
a650: 62 37 62 35 33 30 35 37 30 31 36 32 32 66 35 63  b7b5305701622f5c
a660: 62 63 39 66 65 62 64 39 39 32 61 62 38 33 65 34  bc9febd992ab83e4
a670: 61 62 63 35 32 63 31 31 31 62 38 62 33 64 65 33  abc52c111b8b3de3
a680: 37 30 64 39 65 39 65 62 34 61 35 65 35 64 63 30  70d9e9eb4a5e5dc0
a690: 30 65 61 64 61 66 31 32 37 38 39 30 37 39 30 31  0eadaf1278907901
a6a0: 63 37 35 31 66 65 65 34 66 33 30 33 34 32 36 5d  c751fee4f303426]
a6b0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
a6c0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
a6d0: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
a6e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
a6f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
a700: 34 36 63 37 30 34 36 61 61 36 33 33 66 62 35 62  46c7046aa633fb5b
a710: 63 34 64 36 39 35 32 66 38 35 33 65 33 39 63 35  c4d6952f853e39c5
a720: 33 65 37 37 31 30 30 39 31 38 33 62 36 36 39 36  3e771009183b6696
a730: 31 35 39 33 61 33 63 66 0a 0a 74 63 6c 74 65 73  1593a3cf..tcltes
a740: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
a750: 35 31 32 2d 32 32 34 2d 32 2e 31 31 35 20 7b 53  512-224-2.115 {S
a760: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
a770: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
a780: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
a790: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
a7a0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
a7b0: 20 68 65 78 20 63 31 34 36 30 62 32 65 31 65 33   hex c1460b2e1e3
a7c0: 38 35 63 30 62 35 37 35 36 65 32 31 30 62 66 66  85c0b5756e210bff
a7d0: 61 61 38 66 31 63 62 31 32 65 62 63 33 63 36 30  aa8f1cb12ebc3c60
a7e0: 65 37 31 30 35 63 35 66 64 31 63 65 30 64 65 66  e7105c5fd1ce0def
a7f0: 32 62 65 61 65 39 35 61 64 32 66 62 61 39 37 37  2beae95ad2fba977
a800: 37 39 64 34 36 61 62 34 65 32 34 64 33 65 35 34  79d46ab4e24d3e54
a810: 32 39 65 39 63 31 63 31 66 62 64 36 34 39 66 34  29e9c1c1fbd649f4
a820: 63 35 37 37 31 32 34 66 33 30 30 64 39 30 31 36  c577124f300d9016
a830: 32 64 65 66 63 39 66 62 32 62 39 35 32 32 62 61  2defc9fb2b9522ba
a840: 36 35 32 36 37 38 65 64 35 66 36 32 33 61 30 30  652678ed5f623a00
a850: 63 35 32 34 66 39 38 65 65 38 39 35 35 63 38 64  c524f98ee8955c8d
a860: 64 38 34 34 37 38 37 31 65 38 61 32 33 36 65 33  d8447871e8a236e3
a870: 37 31 30 35 36 63 37 39 63 64 32 37 65 34 32 38  71056c79cd27e428
a880: 62 32 32 37 34 65 61 33 35 38 30 38 61 35 38 31  b2274ea35808a581
a890: 65 36 63 31 31 32 36 63 36 5d 7d 20 5c 0a 09 2d  e6c1126c6]} \..-
a8a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
a8b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
a8c0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
a8d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
a8e0: 74 20 2d 72 65 73 75 6c 74 20 64 38 34 30 32 65  t -result d8402e
a8f0: 65 36 33 34 65 31 38 63 39 36 37 64 31 31 30 62  e634e18c967d110b
a900: 64 37 30 35 33 61 33 30 32 64 61 36 35 30 63 63  d7053a302da650cc
a910: 62 33 38 66 32 35 39 63 62 65 65 35 61 32 34 37  b38f259cbee5a247
a920: 31 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  15..tcltest::tes
a930: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
a940: 34 2d 32 2e 31 31 36 20 7b 53 48 41 35 31 32 5f  4-2.116 {SHA512_
a950: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
a960: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
a970: 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75  512-224 \..-setu
a980: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
a990: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34  ary decode hex 4
a9a0: 38 61 38 34 65 33 63 34 38 35 30 61 32 39 65 34  8a84e3c4850a29e4
a9b0: 33 33 63 38 61 32 34 33 62 66 34 62 65 62 30 35  33c8a243bf4beb05
a9c0: 62 38 61 35 62 66 66 33 38 63 63 34 31 38 31 35  b8a5bff38cc41815
a9d0: 38 62 66 62 39 36 38 66 31 34 39 35 63 66 66 66  8bfb968f1495cfff
a9e0: 32 32 65 33 30 33 65 34 37 33 65 31 33 39 62 35  22e303e473e139b5
a9f0: 39 63 63 35 64 32 32 64 35 36 31 63 31 63 38 61  9cc5d22d561c1c8a
aa00: 66 62 32 37 34 66 64 36 36 64 30 39 31 38 30 38  fb274fd66d091808
aa10: 39 39 66 62 64 37 37 37 61 38 39 30 37 62 66 37  99fbd777a8907bf7
aa20: 32 37 33 31 31 38 31 63 35 66 30 37 35 30 36 36  2731181c5f075066
aa30: 38 62 35 36 32 63 63 62 30 34 65 38 36 64 39 35  8b562ccb04e86d95
aa40: 63 30 66 33 31 34 66 64 36 34 63 62 37 34 31 62  c0f314fd64cb741b
aa50: 36 63 64 31 36 63 35 38 38 37 63 64 38 34 61 63  6cd16c5887cd84ac
aa60: 66 36 31 33 62 32 63 34 61 64 30 39 30 38 36 37  f613b2c4ad090867
aa70: 35 65 31 65 31 34 38 35 33 32 31 64 36 38 39 36  5e1e1485321d6896
aa80: 62 38 37 64 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79  b87d9]} \..-body
aa90: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
aaa0: 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34  igest SHA512-224
aab0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
aac0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
aad0: 65 73 75 6c 74 20 33 37 34 38 38 30 38 63 31 61  esult 3748808c1a
aae0: 34 64 31 64 63 31 62 38 32 65 62 61 62 34 63 66  4d1dc1b82ebab4cf
aaf0: 66 63 39 64 38 63 66 35 63 32 35 31 64 30 34 35  fc9d8cf5c251d045
ab00: 64 63 38 61 66 66 64 37 35 36 64 61 65 33 0a 0a  dc8affd756dae3..
ab10: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
ab20: 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e  sh_SHA512-224-2.
ab30: 31 31 37 20 7b 53 48 41 35 31 32 5f 32 32 34 53  117 {SHA512_224S
ab40: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
ab50: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d  straints SHA512-
ab60: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
ab70: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
ab80: 64 65 63 6f 64 65 20 68 65 78 20 34 31 62 32 62  decode hex 41b2b
ab90: 30 37 31 65 65 36 61 38 65 30 62 63 36 32 65 39  071ee6a8e0bc62e9
aba0: 65 30 33 61 38 37 30 35 66 36 64 61 32 31 38 65  e03a8705f6da218e
abb0: 36 39 62 31 31 31 63 32 33 34 63 30 61 35 31 36  69b111c234c0a516
abc0: 35 32 30 66 39 38 31 32 30 34 66 38 38 62 64 65  520f981204f88bde
abd0: 66 39 62 63 33 66 34 64 35 38 33 37 39 63 35 63  f9bc3f4d58379c5c
abe0: 38 62 61 65 35 39 32 37 30 64 37 38 64 64 36 32  8bae59270d78dd62
abf0: 63 34 65 36 62 62 38 35 36 39 66 34 62 65 30 63  c4e6bb8569f4be0c
ac00: 38 63 64 37 34 38 39 39 65 31 32 38 61 64 37 33  8cd74899e128ad73
ac10: 65 64 31 62 33 36 62 39 36 63 63 66 39 33 36 61  ed1b36b96ccf936a
ac20: 35 39 37 66 30 38 61 33 64 34 64 39 38 37 37 30  597f08a3d4d98770
ac30: 37 38 31 38 34 35 34 63 37 37 37 33 63 39 63 65  7818454c7773c9ce
ac40: 31 39 34 65 31 66 63 31 64 31 34 30 66 61 39 61  194e1fc1d140fa9a
ac50: 37 66 62 30 37 66 37 35 61 34 65 30 65 32 38 33  7fb07f75a4e0e283
ac60: 64 38 32 31 30 38 31 34 65 33 35 38 39 61 34 37  d8210814e3589a47
ac70: 66 31 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  f1c]} \..-body {
ac80: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
ac90: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d  est SHA512-224 -
aca0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
acb0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
acc0: 75 6c 74 20 38 37 37 36 66 30 38 30 37 30 65 33  ult 8776f08070e3
acd0: 38 35 38 32 64 34 36 30 34 31 37 30 61 39 65 36  8582d4604170a9e6
ace0: 35 38 66 63 31 37 30 33 34 63 62 64 65 39 65 30  58fc17034cbde9e0
acf0: 33 61 30 30 32 65 37 32 38 31 33 31 0a 0a 74 63  3a002e728131..tc
ad00: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
ad10: 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 31  _SHA512-224-2.11
ad20: 38 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  8 {SHA512_224Sho
ad30: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
ad40: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
ad50: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
ad60: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
ad70: 63 6f 64 65 20 68 65 78 20 35 34 62 66 33 37 35  code hex 54bf375
ad80: 39 34 34 63 30 30 32 63 63 61 63 38 37 66 35 35  944c002ccac87f55
ad90: 66 66 33 65 62 35 38 63 34 35 38 34 34 66 36 32  ff3eb58c45844f62
ada0: 64 39 31 37 64 64 64 30 33 62 32 36 62 35 66 64  d917ddd03b26b5fd
adb0: 62 35 31 35 64 35 63 61 36 65 38 66 35 63 34 32  b515d5ca6e8f5c42
adc0: 37 37 61 33 36 35 37 61 62 37 61 64 64 61 66 66  77a3657ab7addaff
add0: 34 65 38 66 35 38 31 37 36 62 64 61 36 32 30 63  4e8f58176bda620c
ade0: 36 38 39 34 65 34 32 34 66 35 62 64 33 30 37 34  6894e424f5bd3074
adf0: 37 65 31 33 37 33 37 65 31 64 30 36 63 63 62 63  7e13737e1d06ccbc
ae00: 34 38 36 36 61 62 30 62 64 65 66 38 30 63 37 62  4866ab0bdef80c7b
ae10: 30 61 35 65 37 33 30 64 35 35 62 39 64 63 38 32  0a5e730d55b9dc82
ae20: 30 37 62 37 30 66 30 30 31 30 65 35 39 39 31 34  07b70f0010e59914
ae30: 65 64 64 30 63 35 64 37 65 64 35 63 64 35 37 31  edd0c5d7ed5cd571
ae40: 37 62 30 38 35 39 35 36 39 64 32 31 35 34 34 37  7b0859569d215447
ae50: 64 37 31 65 61 65 65 34 39 66 39 64 32 66 38 32  d71eaee49f9d2f82
ae60: 35 61 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  5af]} \..-body {
ae70: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
ae80: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d  est SHA512-224 -
ae90: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
aea0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
aeb0: 75 6c 74 20 30 63 64 36 39 30 37 33 36 64 64 31  ult 0cd690736dd1
aec0: 66 33 39 30 36 39 34 66 36 35 63 33 62 38 39 65  f390694f65c3b89e
aed0: 30 63 63 32 32 36 39 66 33 62 38 32 30 38 63 38  0cc2269f3b8208c8
aee0: 30 36 39 32 39 61 38 66 38 63 62 39 0a 0a 74 63  06929a8f8cb9..tc
aef0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
af00: 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 31  _SHA512-224-2.11
af10: 39 20 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f  9 {SHA512_224Sho
af20: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
af30: 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32  raints SHA512-22
af40: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
af50: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
af60: 63 6f 64 65 20 68 65 78 20 64 39 32 34 62 31 36  code hex d924b16
af70: 64 66 65 32 66 36 31 32 64 39 32 33 62 32 35 36  dfe2f612d923b256
af80: 36 39 62 34 35 64 39 31 31 37 64 33 30 61 33 35  69b45d9117d30a35
af90: 33 31 64 35 64 33 30 61 64 34 37 37 63 34 31 37  31d5d30ad477c417
afa0: 33 34 64 61 32 36 37 37 66 66 31 39 62 30 61 32  34da2677ff19b0a2
afb0: 36 38 35 38 31 62 30 36 62 35 31 38 64 37 63 37  68581b06b518d7c7
afc0: 33 33 35 32 65 66 35 33 39 39 30 35 38 30 61 38  3352ef53990580a8
afd0: 33 36 30 31 66 35 32 31 35 61 61 38 34 39 38 32  3601f5215aa84982
afe0: 34 31 63 38 66 39 36 30 64 66 31 39 65 30 31 34  41c8f960df19e014
aff0: 37 31 35 66 63 63 36 39 36 38 39 62 35 39 34 38  715fcc69689b5948
b000: 32 30 61 61 39 39 61 30 38 65 64 65 30 39 32 38  20aa99a08ede0928
b010: 66 34 65 31 64 66 65 31 65 36 39 62 36 62 31 63  f4e1dfe1e69b6b1c
b020: 62 34 38 61 32 39 32 37 37 39 66 64 34 39 64 62  b48a292779fd49db
b030: 38 66 34 63 37 32 61 31 37 30 32 35 62 37 32 37  8f4c72a17025b727
b040: 63 36 30 64 66 34 66 65 36 35 65 36 66 34 33 35  c60df4fe65e6f435
b050: 66 33 30 38 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79  f3080]} \..-body
b060: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
b070: 69 67 65 73 74 20 53 48 41 35 31 32 2d 32 32 34  igest SHA512-224
b080: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
b090: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
b0a0: 65 73 75 6c 74 20 33 30 34 65 33 38 36 38 39 32  esult 304e386892
b0b0: 35 30 33 38 30 65 33 32 32 35 30 35 62 34 65 32  50380e322505b4e2
b0c0: 33 66 66 66 33 35 62 33 34 31 65 32 64 39 34 63  3fff35b341e2d94c
b0d0: 63 36 32 63 66 62 34 34 62 35 31 64 62 35 0a 0a  c62cfb44b51db5..
b0e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
b0f0: 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d 32 2e  sh_SHA512-224-2.
b100: 31 32 30 20 7b 53 48 41 35 31 32 5f 32 32 34 53  120 {SHA512_224S
b110: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
b120: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d  straints SHA512-
b130: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
b140: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
b150: 64 65 63 6f 64 65 20 68 65 78 20 37 64 32 64 31  decode hex 7d2d1
b160: 32 62 33 35 31 61 37 30 33 30 36 32 33 30 65 37  2b351a70306230e7
b170: 64 63 63 37 36 36 34 63 61 33 38 38 33 39 32 38  dcc7664ca3883928
b180: 30 39 33 33 39 35 62 61 38 64 35 38 32 38 66 31  093395ba8d5828f1
b190: 66 37 36 63 38 38 31 33 64 38 32 62 38 62 61 62  f76c8813d82b8bab
b1a0: 35 65 63 34 35 65 66 62 63 32 34 66 30 33 31 36  5ec45efbc24f0316
b1b0: 65 65 62 34 37 36 34 36 64 36 37 61 63 66 32 63  eeb47646d67acf2c
b1c0: 62 37 32 35 38 63 31 32 61 33 38 61 30 36 32 32  b7258c12a38a0622
b1d0: 31 30 31 37 36 38 62 65 32 34 62 33 32 63 37 31  101768be24b32c71
b1e0: 61 31 63 39 33 36 63 31 39 39 36 30 30 63 64 33  a1c936c199600cd3
b1f0: 33 63 63 31 34 62 32 36 36 64 34 35 61 30 35 33  3cc14b266d45a053
b200: 64 31 65 35 35 63 65 66 33 30 33 63 34 36 32 64  d1e55cef303c462d
b210: 63 61 31 32 33 64 36 30 31 65 37 37 35 62 61 30  ca123d601e775ba0
b220: 61 65 63 34 31 30 34 36 32 38 35 64 62 34 62 39  aec41046285db4b9
b230: 35 31 36 65 34 33 36 66 64 61 38 31 34 33 33 39  516e436fda814339
b240: 64 33 63 33 37 36 63 34 64 5d 7d 20 5c 0a 09 2d  d3c376c4d]} \..-
b250: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
b260: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
b270: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  -224 -data $data
b280: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
b290: 74 20 2d 72 65 73 75 6c 74 20 34 30 61 37 39 34  t -result 40a794
b2a0: 37 61 61 64 36 63 31 65 37 33 34 33 36 64 37 38  7aad6c1e73436d78
b2b0: 36 37 32 30 33 38 66 62 39 39 61 34 65 64 37 63  672038fb99a4ed7c
b2c0: 62 31 34 35 34 34 35 65 32 37 36 36 34 33 63 66  b145445e276643cf
b2d0: 33 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  38..tcltest::tes
b2e0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32  t Hash_SHA512-22
b2f0: 34 2d 32 2e 31 32 31 20 7b 53 48 41 35 31 32 5f  4-2.121 {SHA512_
b300: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
b310: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
b320: 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75  512-224 \..-setu
b330: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
b340: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35  ary decode hex 5
b350: 66 65 65 36 38 37 38 30 32 61 35 61 61 63 31 33  fee687802a5aac13
b360: 33 32 39 31 37 63 63 35 64 30 61 39 34 33 39 61  32917cc5d0a9439a
b370: 64 39 35 63 37 36 34 32 31 39 62 63 65 34 35 65  d95c764219bce45e
b380: 32 37 34 33 30 39 34 64 33 34 34 31 33 33 30 36  2743094d34413306
b390: 61 37 64 62 30 63 31 62 66 61 35 30 35 39 63 65  a7db0c1bfa5059ce
b3a0: 32 35 61 63 39 65 38 37 32 39 33 61 35 66 66 36  25ac9e87293a5ff6
b3b0: 62 32 38 61 31 31 37 34 30 39 35 64 64 32 32 32  b28a1174095dd222
b3c0: 61 66 62 38 31 66 33 62 66 36 37 66 36 61 31 63  afb81f3bf67f6a1c
b3d0: 36 35 37 35 37 33 30 34 61 37 61 32 32 36 65 65  65757304a7a226ee
b3e0: 64 62 38 33 34 31 63 37 66 37 32 66 34 34 65 63  db8341c7f72f44ec
b3f0: 66 30 62 63 65 31 35 63 31 61 37 65 33 35 61 61  f0bce15c1a7e35aa
b400: 31 33 32 66 65 30 64 62 37 61 35 63 61 38 30 31  132fe0db7a5ca801
b410: 63 38 34 34 33 30 64 63 63 61 62 36 62 66 66 66  c84430dccab6bfff
b420: 62 34 62 33 65 62 30 61 64 33 30 65 37 65 65 38  b4b3eb0ad30e7ee8
b430: 31 34 35 33 34 61 33 63 64 35 39 34 38 62 35 5d  14534a3cd5948b5]
b440: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
b450: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
b460: 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61  SHA512-224 -data
b470: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
b480: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
b490: 64 36 36 35 37 66 31 31 35 64 62 37 35 39 34 34  d6657f115db75944
b4a0: 34 37 34 34 61 31 32 35 65 34 30 61 64 65 33 36  4744a125e40ade36
b4b0: 31 64 38 61 34 30 66 64 38 38 63 39 31 31 38 37  1d8a40fd88c91187
b4c0: 64 63 35 61 35 30 62 33 0a 0a 74 63 6c 74 65 73  dc5a50b3..tcltes
b4d0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
b4e0: 35 31 32 2d 32 32 34 2d 32 2e 31 32 32 20 7b 53  512-224-2.122 {S
b4f0: 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73  HA512_224ShortMs
b500: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
b510: 74 73 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a  ts SHA512-224 \.
b520: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
b530: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
b540: 20 68 65 78 20 36 39 36 37 33 30 62 37 65 63 61   hex 696730b7eca
b550: 32 37 30 36 36 64 35 34 31 63 34 31 35 30 61 32  27066d541c4150a2
b560: 32 65 36 61 36 62 30 36 32 63 39 35 31 66 32 31  2e6a6b062c951f21
b570: 37 37 64 66 36 66 64 34 32 35 34 62 31 34 66 66  77df6fd4254b14ff
b580: 66 34 33 62 30 33 32 66 66 38 61 34 31 38 33 33  f43b032ff8a41833
b590: 38 39 37 32 66 62 38 64 62 32 38 34 66 32 32 38  8972fb8db284f228
b5a0: 37 62 31 35 36 36 65 62 63 66 64 65 64 37 32 39  7b1566ebcfded729
b5b0: 32 31 37 30 38 32 37 61 62 36 62 37 33 66 31 36  2170827ab6b73f16
b5c0: 36 32 39 61 64 32 37 35 35 65 61 66 61 63 66 66  629ad2755eafacff
b5d0: 32 39 36 62 34 61 39 38 64 38 35 65 32 37 30 38  296b4a98d85e2708
b5e0: 39 65 34 30 63 35 63 63 38 35 62 34 64 65 62 36  9e40c5cc85b4deb6
b5f0: 34 65 63 61 39 65 31 61 30 31 66 61 31 38 64 31  4eca9e1a01fa18d1
b600: 65 35 63 30 35 34 66 35 32 39 38 30 61 35 37 33  e5c054f52980a573
b610: 36 33 34 39 63 61 66 33 66 32 31 66 35 37 63 39  6349caf3f21f57c9
b620: 30 34 39 36 66 38 31 36 66 32 61 39 36 65 34 66  0496f816f2a96e4f
b630: 35 63 34 38 32 33 35 5d 7d 20 5c 0a 09 2d 62 6f  5c48235]} \..-bo
b640: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
b650: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32  -digest SHA512-2
b660: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
b670: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
b680: 2d 72 65 73 75 6c 74 20 33 39 31 64 36 63 32 62  -result 391d6c2b
b690: 36 34 35 64 31 65 61 61 37 61 37 64 64 36 38 31  645d1eaa7a7dd681
b6a0: 34 30 66 62 62 37 63 32 33 64 64 34 61 63 30 33  40fbb7c23dd4ac03
b6b0: 34 37 38 38 37 61 37 38 32 65 34 63 33 34 34 32  47887a782e4c3442
b6c0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
b6d0: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d  Hash_SHA512-224-
b6e0: 32 2e 31 32 33 20 7b 53 48 41 35 31 32 5f 32 32  2.123 {SHA512_22
b6f0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
b700: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
b710: 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  2-224 \..-setup 
b720: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
b730: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 38 39  y decode hex c89
b740: 39 35 63 65 30 39 61 38 64 38 30 62 37 39 30 37  95ce09a8d80b7907
b750: 38 39 39 31 35 62 37 37 65 35 33 63 62 32 62 61  89915b77e53cb2ba
b760: 30 62 33 39 37 34 33 32 37 66 30 61 35 30 39 34  0b3974327f0a5094
b770: 36 38 35 35 35 65 64 66 62 38 34 33 66 62 61 33  68555edfb843fba3
b780: 36 32 64 37 35 63 38 33 64 62 66 30 37 37 34 34  62d75c83dbf07744
b790: 66 38 65 63 64 63 64 38 37 35 36 36 30 39 30 30  f8ecdcd875660900
b7a0: 34 63 66 36 61 35 37 34 37 38 31 32 30 30 64 64  4cf6a574781200dd
b7b0: 63 64 61 30 63 61 35 33 64 37 65 31 30 30 62 66  cda0ca53d7e100bf
b7c0: 33 64 65 61 38 35 62 66 65 30 63 36 66 35 32 37  3dea85bfe0c6f527
b7d0: 37 63 65 65 35 30 32 37 34 66 31 36 66 63 39 32  7cee50274f16fc92
b7e0: 63 64 66 39 66 38 33 35 63 37 34 62 36 66 66 65  cdf9f835c74b6ffe
b7f0: 39 30 65 36 37 62 30 63 36 65 33 64 65 61 35 31  90e67b0c6e3dea51
b800: 38 39 38 30 31 62 62 39 38 30 66 66 36 31 32 33  89801bb980ff6123
b810: 39 38 30 65 35 62 64 30 63 63 62 66 66 62 65 36  980e5bd0ccbffbe6
b820: 30 30 63 62 66 33 31 32 64 37 30 36 66 63 37 62  00cbf312d706fc7b
b830: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
b840: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
b850: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
b860: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
b870: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
b880: 74 20 33 61 36 61 64 31 36 63 35 39 35 37 62 35  t 3a6ad16c5957b5
b890: 34 65 65 36 36 39 31 64 32 32 37 62 32 64 32 65  4ee6691d227b2d2e
b8a0: 63 66 39 33 34 38 62 36 38 34 33 35 61 35 30 36  cf9348b68435a506
b8b0: 34 37 61 32 63 64 35 35 63 39 0a 0a 74 63 6c 74  47a2cd55c9..tclt
b8c0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
b8d0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 32 34 20  HA512-224-2.124 
b8e0: 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74  {SHA512_224Short
b8f0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
b900: 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20  ints SHA512-224 
b910: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
b920: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
b930: 64 65 20 68 65 78 20 32 34 37 66 38 37 35 34 62  de hex 247f8754b
b940: 30 30 38 61 63 65 61 32 33 34 64 33 62 35 63 61  008acea234d3b5ca
b950: 62 35 63 36 31 33 61 36 39 35 61 66 38 66 65 62  b5c613a695af8feb
b960: 64 62 63 66 33 65 34 63 35 62 62 66 64 66 62 32  dbcf3e4c5bbfdfb2
b970: 30 30 31 35 64 37 63 66 38 61 39 31 64 35 62 33  0015d7cf8a91d5b3
b980: 66 36 36 36 62 31 64 33 38 30 32 33 66 65 39 33  f666b1d38023fe93
b990: 61 30 62 33 65 65 31 62 31 63 39 64 66 62 33 36  a0b3ee1b1c9dfb36
b9a0: 35 37 32 63 63 36 61 66 66 61 31 38 62 38 62 63  572cc6affa18b8bc
b9b0: 39 30 35 35 64 35 64 62 35 35 36 36 36 38 38 61  9055d5db5566688a
b9c0: 31 38 65 30 66 65 31 64 39 35 35 61 39 38 35 64  18e0fe1d955a985d
b9d0: 64 62 64 35 33 32 35 36 35 32 66 31 64 61 30 61  dbd5325652f1da0a
b9e0: 33 61 36 36 64 64 37 63 38 31 61 61 32 62 64 63  3a66dd7c81aa2bdc
b9f0: 39 34 30 66 38 61 64 36 33 37 30 61 62 30 31 35  940f8ad6370ab015
ba00: 64 65 36 36 30 65 30 30 64 32 65 63 30 35 37 31  de660e00d2ec0571
ba10: 64 64 61 36 36 61 62 38 66 37 36 66 62 65 65 66  dda66ab8f76fbeef
ba20: 66 62 65 39 66 64 31 32 38 30 65 38 62 5d 7d 20  fbe9fd1280e8b]} 
ba30: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
ba40: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
ba50: 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24  A512-224 -data $
ba60: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
ba70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 65  exact -result fe
ba80: 36 36 30 32 36 63 31 63 32 34 31 30 39 32 37 66  66026c1c2410927f
ba90: 61 34 34 32 63 63 31 32 32 64 35 61 65 64 39 30  a442cc122d5aed90
baa0: 33 30 38 32 37 33 34 30 31 64 34 32 39 66 64 31  308273401d429fd1
bab0: 61 63 38 66 36 31 0a 0a 74 63 6c 74 65 73 74 3a  ac8f61..tcltest:
bac0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
bad0: 32 2d 32 32 34 2d 32 2e 31 32 35 20 7b 53 48 41  2-224-2.125 {SHA
bae0: 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  512_224ShortMsg}
baf0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
bb00: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d   SHA512-224 \..-
bb10: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
bb20: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
bb30: 65 78 20 39 33 64 62 61 64 61 37 31 62 38 39 30  ex 93dbada71b890
bb40: 65 38 30 64 39 62 38 38 61 33 33 38 61 37 64 66  e80d9b88a338a7df
bb50: 30 32 30 61 37 62 66 39 66 66 64 39 38 39 38 35  020a7bf9ffd98985
bb60: 33 36 32 32 35 66 64 33 65 38 61 32 64 61 32 35  36225fd3e8a2da25
bb70: 62 35 38 39 61 31 38 66 66 39 38 39 34 33 38 62  b589a18ff989438b
bb80: 31 38 38 66 35 63 35 33 62 39 36 66 64 34 64 30  188f5c53b96fd4d0
bb90: 31 36 63 34 38 35 30 39 32 32 61 66 63 61 35 37  16c4850922afca57
bba0: 64 66 32 34 37 31 38 36 36 61 61 30 39 35 38 35  df2471866aa09585
bbb0: 38 66 64 63 64 31 31 35 64 61 33 66 65 35 35 34  8fdcd115da3fe554
bbc0: 63 65 33 35 38 34 30 65 33 35 36 39 63 64 63 31  ce35840e3569cdc1
bbd0: 35 65 64 38 38 34 32 61 35 33 35 30 36 30 32 66  5ed8842a5350602f
bbe0: 34 64 61 61 34 63 35 31 38 36 62 34 34 33 31 32  4daa4c5186b44312
bbf0: 64 35 63 31 34 30 64 66 30 35 31 63 31 61 36 38  d5c140df051c1a68
bc00: 61 39 61 65 38 37 31 61 39 66 39 63 65 66 31 64  a9ae871a9f9cef1d
bc10: 35 61 63 35 30 64 62 30 32 61 37 31 64 37 39 36  5ac50db02a71d796
bc20: 31 32 32 32 32 34 63 37 63 35 33 5d 7d 20 5c 0a  122224c7c53]} \.
bc30: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
bc40: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
bc50: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
bc60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
bc70: 61 63 74 20 2d 72 65 73 75 6c 74 20 66 37 33 31  act -result f731
bc80: 35 34 65 37 36 62 35 39 39 38 65 30 37 39 32 66  54e76b5998e0792f
bc90: 62 30 61 62 31 64 37 32 31 65 65 37 33 30 62 36  b0ab1d721ee730b6
bca0: 34 61 31 62 33 61 35 34 33 30 36 31 66 63 37 36  4a1b3a543061fc76
bcb0: 63 64 31 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  cd17..tcltest::t
bcc0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
bcd0: 32 32 34 2d 32 2e 31 32 36 20 7b 53 48 41 35 31  224-2.126 {SHA51
bce0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
bcf0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
bd00: 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65  HA512-224 \..-se
bd10: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
bd20: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
bd30: 20 36 31 37 38 37 33 36 65 61 36 61 66 66 34 62   6178736ea6aff4b
bd40: 39 39 65 37 64 61 39 37 64 65 65 30 30 30 61 64  99e7da97dee000ad
bd50: 66 37 32 62 33 37 30 36 39 64 66 38 61 64 35 62  f72b37069df8ad5b
bd60: 62 61 36 33 66 64 62 37 65 31 62 65 36 31 30 39  ba63fdb7e1be6109
bd70: 61 64 36 63 38 37 31 61 39 35 39 36 65 32 64 61  ad6c871a9596e2da
bd80: 62 66 34 66 63 61 62 66 62 65 36 63 31 63 64 38  bf4fcabfbe6c1cd8
bd90: 32 63 35 30 62 37 37 32 61 32 30 34 30 34 62 39  2c50b772a20404b9
bda0: 35 36 32 32 61 62 37 31 30 66 39 39 33 33 32 63  5622ab710f99332c
bdb0: 32 62 38 31 32 63 32 32 39 37 61 32 34 63 32 63  2b812c2297a24c2c
bdc0: 38 30 39 37 65 65 32 31 39 33 65 61 32 36 66 63  8097ee2193ea26fc
bdd0: 39 36 39 62 31 64 35 32 34 66 32 38 30 36 32 63  969b1d524f28062c
bde0: 66 34 31 65 64 34 63 62 35 64 63 37 34 66 36 34  f41ed4cb5dc74f64
bdf0: 33 63 66 66 64 36 66 64 38 35 31 66 38 33 62 37  3cffd6fd851f83b7
be00: 37 61 34 61 63 35 37 63 30 33 64 63 63 37 37 31  7a4ac57c03dcc771
be10: 65 32 35 34 63 39 32 34 31 39 66 37 32 61 30 63  e254c92419f72a0c
be20: 66 30 62 33 30 61 33 35 36 30 61 5d 7d 20 5c 0a  f0b30a3560a]} \.
be30: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
be40: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
be50: 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61  12-224 -data $da
be60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
be70: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 33 61 37  act -result 33a7
be80: 34 32 35 33 31 36 64 32 66 36 62 65 31 62 64 62  425316d2f6be1bdb
be90: 62 38 37 30 64 39 35 33 31 33 32 64 35 35 65 32  b870d953132d55e2
bea0: 39 66 64 66 38 35 33 30 34 36 33 39 37 37 39 34  9fdf853046397794
beb0: 30 39 30 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  0908..tcltest::t
bec0: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
bed0: 32 32 34 2d 32 2e 31 32 37 20 7b 53 48 41 35 31  224-2.127 {SHA51
bee0: 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  2_224ShortMsg} \
bef0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
bf00: 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65  HA512-224 \..-se
bf10: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
bf20: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
bf30: 20 31 63 32 31 62 35 38 34 32 33 31 32 31 31 31   1c21b5842312111
bf40: 61 39 65 32 37 38 32 66 65 39 37 39 31 37 65 39  a9e2782fe97917e9
bf50: 34 36 62 38 64 36 35 39 38 37 63 34 33 63 39 31  46b8d65987c43c91
bf60: 62 32 37 65 64 30 63 63 38 66 36 33 62 33 31 36  b27ed0cc8f63b316
bf70: 63 31 36 66 36 65 63 62 36 30 62 65 35 66 62 33  c16f6ecb60be5fb3
bf80: 62 61 32 65 64 62 39 62 63 32 37 37 62 66 31 61  ba2edb9bc277bf1a
bf90: 63 64 39 32 37 66 30 65 64 39 62 39 31 64 65 64  cd927f0ed9b91ded
bfa0: 62 65 63 38 66 34 65 38 62 31 39 38 62 31 33 35  bec8f4e8b198b135
bfb0: 34 62 31 32 36 35 35 38 66 33 61 32 31 65 35 39  4b126558f3a21e59
bfc0: 63 32 32 37 65 63 65 32 36 66 39 65 32 32 64 61  c227ece26f9e22da
bfd0: 37 64 64 33 65 34 32 32 65 33 35 61 65 63 36 36  7dd3e422e35aec66
bfe0: 30 61 32 61 32 37 66 62 63 33 32 33 62 31 33 32  0a2a27fbc323b132
bff0: 34 64 37 66 38 31 61 39 39 31 38 39 31 37 36 34  4d7f81a991891764
c000: 37 30 37 32 33 65 37 63 31 37 33 38 65 64 61 38  70723e7c1738eda8
c010: 64 35 65 31 62 38 32 65 33 62 31 36 33 32 61 62  d5e1b82e3b1632ab
c020: 32 32 66 36 63 63 61 65 34 61 38 31 34 5d 7d 20  22f6ccae4a814]} 
c030: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
c040: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
c050: 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24  A512-224 -data $
c060: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
c070: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 62  exact -result db
c080: 34 33 63 61 33 64 64 37 62 63 61 33 64 38 39 39  43ca3dd7bca3d899
c090: 36 34 38 36 39 32 65 34 65 64 38 66 30 33 31 31  648692e4ed8f0311
c0a0: 39 36 32 38 64 66 33 31 33 65 31 35 37 33 37 32  9628df313e157372
c0b0: 33 63 35 38 65 39 0a 0a 74 63 6c 74 65 73 74 3a  3c58e9..tcltest:
c0c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
c0d0: 32 2d 32 32 34 2d 32 2e 31 32 38 20 7b 53 48 41  2-224-2.128 {SHA
c0e0: 35 31 32 5f 32 32 34 53 68 6f 72 74 4d 73 67 7d  512_224ShortMsg}
c0f0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
c100: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d   SHA512-224 \..-
c110: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
c120: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
c130: 65 78 20 34 62 39 38 39 35 32 33 35 63 62 34 39  ex 4b9895235cb49
c140: 35 36 61 65 66 66 66 65 38 31 35 34 31 35 32 35  56aefffe81541525
c150: 32 65 37 64 36 62 32 31 39 32 31 62 64 37 66 36  2e7d6b21921bd7f6
c160: 37 35 33 31 35 65 66 66 30 37 31 64 30 62 62 64  75315eff071d0bbd
c170: 34 32 39 62 37 31 38 63 37 37 34 61 65 65 39 36  429b718c774aee96
c180: 66 36 63 33 61 33 33 30 64 35 64 34 30 64 31 36  f6c3a330d5d40d16
c190: 30 31 65 31 30 36 39 63 37 61 32 61 31 39 65 61  01e1069c7a2a19ea
c1a0: 35 63 61 31 65 38 37 30 39 37 64 61 32 36 30 38  5ca1e87097da2608
c1b0: 66 66 62 34 31 38 30 38 31 36 65 34 37 38 62 34  ffb4180816e478b4
c1c0: 32 63 33 63 34 65 39 65 64 62 37 34 38 37 37 33  2c3c4e9edb748773
c1d0: 39 33 35 65 62 37 63 61 30 64 66 39 30 64 65 63  935eb7ca0df90dec
c1e0: 30 65 62 36 62 39 36 30 31 33 30 63 31 36 31 37  0eb6b960130c1617
c1f0: 38 38 30 65 66 62 38 30 62 33 39 61 65 30 33 64  880efb80b39ae03d
c200: 36 31 37 39 35 30 61 63 65 34 63 65 30 61 63 61  617950ace4ce0aca
c210: 34 64 33 36 66 64 33 65 64 30 31 31 32 61 37 37  4d36fd3ed0112a77
c220: 66 35 64 30 33 30 32 31 65 62 31 62 34 32 34 35  f5d03021eb1b4245
c230: 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  8]} \..-body {tl
c240: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
c250: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61  t SHA512-224 -da
c260: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
c270: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
c280: 74 20 39 61 39 31 37 36 65 39 37 61 65 63 39 39  t 9a9176e97aec99
c290: 61 62 30 37 66 34 36 38 66 36 61 32 32 36 38 37  ab07f468f6a22687
c2a0: 36 37 31 30 64 36 64 38 37 37 30 32 31 64 32 37  6710d6d877021d27
c2b0: 30 36 31 64 34 64 30 31 33 32 0a 0a 74 63 6c 74  061d4d0132..tclt
c2c0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
c2d0: 48 41 35 31 32 2d 32 32 34 2d 32 2e 31 32 39 20  HA512-224-2.129 
c2e0: 7b 53 48 41 35 31 32 5f 32 32 34 53 68 6f 72 74  {SHA512_224Short
c2f0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
c300: 69 6e 74 73 20 53 48 41 35 31 32 2d 32 32 34 20  ints SHA512-224 
c310: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
c320: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
c330: 64 65 20 68 65 78 20 39 65 31 32 37 38 37 30 62  de hex 9e127870b
c340: 65 32 34 33 31 62 63 62 34 66 34 65 62 34 65 66  e2431bcb4f4eb4ef
c350: 64 35 63 32 61 36 63 35 38 37 30 63 35 35 65 37  d5c2a6c5870c55e7
c360: 61 35 65 33 62 37 35 30 33 39 39 34 61 34 63 62  a5e3b7503994a4cb
c370: 31 33 36 62 65 34 65 64 33 39 36 38 38 37 38 30  136be4ed39688780
c380: 31 34 35 30 66 36 30 30 62 32 32 63 62 37 37 32  1450f600b22cb772
c390: 66 63 30 30 66 38 62 38 66 30 64 32 36 39 30 65  fc00f8b8f0d2690e
c3a0: 32 33 31 61 32 39 66 36 39 62 39 66 31 33 66 32  231a29f69b9f13f2
c3b0: 34 66 35 33 31 65 34 34 37 39 65 34 35 62 35 65  4f531e4479e45b5e
c3c0: 38 62 63 32 39 39 32 66 61 63 37 38 32 35 36 37  8bc2992fac782567
c3d0: 65 30 64 37 61 35 39 66 38 35 33 63 61 33 61 32  e0d7a59f853ca3a2
c3e0: 30 62 66 31 38 64 62 64 62 66 36 38 34 61 63 36  0bf18dbdbf684ac6
c3f0: 39 38 31 37 65 32 64 65 30 37 35 64 61 61 65 64  9817e2de075daaed
c400: 39 35 33 32 36 35 39 36 39 32 64 33 62 37 33 35  9532659692d3b735
c410: 33 30 61 31 32 64 66 37 62 38 63 64 39 65 34 39  30a12df7b8cd9e49
c420: 65 64 30 34 36 33 30 34 31 39 36 32 63 31 63 65  ed0463041962c1ce
c430: 37 61 32 34 63 33 31 5d 7d 20 5c 0a 09 2d 62 6f  7a24c31]} \..-bo
c440: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
c450: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d 32  -digest SHA512-2
c460: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
c470: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
c480: 2d 72 65 73 75 6c 74 20 37 65 32 63 66 36 32 32  -result 7e2cf622
c490: 36 36 32 33 35 33 35 37 38 34 63 35 39 63 64 36  6623535784c59cd6
c4a0: 61 37 62 32 37 64 61 63 36 30 65 65 32 33 66 64  a7b27dac60ee23fd
c4b0: 63 65 38 61 38 30 34 64 62 64 36 64 66 65 64 64  ce8a804dbd6dfedd
c4c0: 0a 0a                                            ..