TclTLS: Hex Artifact Content

Artifact 0e3b80ebaf051f909813d15490395b0fe68d7128a0e1487e88f3e3976aa3b404:

File tests/test_vectors/Hash/SHA512ShortMsg.test — part of check-in [feef0d0cef] at 2023-12-24 06:36:24 on branch crypto — Added MAC test vectors. Added all.tcl files to each test subdirectory so all tests run. Updated Hash and KDF test vectors to add missing cleanupTests. Corrected bug with using dash in constraints. Added constraints for ciphers, digests, and kdfs. (user: bohagan, size: 57623) [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 53 68 6f   from "SHA512Sho
0020: 72 74 4d 73 67 2e 72 73 70 22 0a 70 61 63 6b 61  rtMsg.rsp".packa
0030: 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70  ge require tls.p
0040: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74  ackage require t
0050: 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a  cltest..tcltest:
0060: 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20  :testConstraint 
0070: 53 48 41 35 31 32 20 5b 65 78 70 72 20 7b 5b 6c  SHA512 [expr {[l
0080: 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b  search -nocase [
0090: 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 48  tls::digests] SH
00a0: 41 35 31 32 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63  A512] > -1}]..tc
00b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
00c0: 5f 53 48 41 35 31 32 2d 32 2e 31 20 7b 53 48 41  _SHA512-2.1 {SHA
00d0: 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  512ShortMsg} \..
00e0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
00f0: 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  512 \..-setup {s
0100: 65 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d  et data ""} \..-
0110: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0120: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
0130: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0140: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0150: 65 73 75 6c 74 20 63 66 38 33 65 31 33 35 37 65  esult cf83e1357e
0160: 65 66 62 38 62 64 66 31 35 34 32 38 35 30 64 36  efb8bdf1542850d6
0170: 36 64 38 30 30 37 64 36 32 30 65 34 30 35 30 62  6d8007d620e4050b
0180: 35 37 31 35 64 63 38 33 66 34 61 39 32 31 64 33  5715dc83f4a921d3
0190: 36 63 65 39 63 65 34 37 64 30 64 31 33 63 35 64  6ce9ce47d0d13c5d
01a0: 38 35 66 32 62 30 66 66 38 33 31 38 64 32 38 37  85f2b0ff8318d287
01b0: 37 65 65 63 32 66 36 33 62 39 33 31 62 64 34 37  7eec2f63b931bd47
01c0: 34 31 37 61 38 31 61 35 33 38 33 32 37 61 66 39  417a81a538327af9
01d0: 32 37 64 61 33 65 0a 0a 74 63 6c 74 65 73 74 3a  27da3e..tcltest:
01e0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
01f0: 32 2d 32 2e 32 20 7b 53 48 41 35 31 32 53 68 6f  2-2.2 {SHA512Sho
0200: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
0210: 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a  raints SHA512 \.
0220: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0230: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0240: 20 68 65 78 20 32 31 5d 7d 20 5c 0a 09 2d 62 6f   hex 21]} \..-bo
0250: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0260: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 20 2d  -digest SHA512 -
0270: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0280: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0290: 75 6c 74 20 33 38 33 31 61 36 61 36 31 35 35 65  ult 3831a6a6155e
02a0: 35 30 39 64 65 65 35 39 61 37 66 34 35 31 65 62  509dee59a7f451eb
02b0: 33 35 33 32 34 64 38 66 38 66 32 64 66 36 65 33  35324d8f8f2df6e3
02c0: 37 30 38 38 39 34 37 34 30 66 39 38 66 64 65 65  708894740f98fdee
02d0: 32 33 38 38 39 66 34 64 65 35 61 64 62 30 63 35  23889f4de5adb0c5
02e0: 30 31 30 64 66 62 35 35 35 63 64 61 37 37 63 38  010dfb555cda77c8
02f0: 61 62 35 64 63 39 30 32 30 39 34 63 35 32 64 65  ab5dc902094c52de
0300: 33 32 37 38 66 33 35 61 37 35 65 62 63 32 35 66  3278f35a75ebc25f
0310: 30 39 33 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  093a..tcltest::t
0320: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
0330: 32 2e 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74  2.3 {SHA512Short
0340: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0350: 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d  ints SHA512 \..-
0360: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
0370: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0380: 65 78 20 39 30 38 33 5d 7d 20 5c 0a 09 2d 62 6f  ex 9083]} \..-bo
0390: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
03a0: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 20 2d  -digest SHA512 -
03b0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
03c0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
03d0: 75 6c 74 20 35 35 35 38 36 65 62 62 61 34 38 37  ult 55586ebba487
03e0: 36 38 61 65 62 33 32 33 36 35 35 61 62 36 66 34  68aeb323655ab6f4
03f0: 32 39 38 66 63 39 66 36 37 30 39 36 34 66 63 32  298fc9f670964fc2
0400: 65 35 66 32 37 33 31 65 33 34 64 66 61 34 62 30  e5f2731e34dfa4b0
0410: 63 30 39 65 36 65 31 65 31 32 65 33 64 37 32 38  c09e6e1e12e3d728
0420: 36 62 33 31 34 35 63 36 31 63 32 30 34 37 66 62  6b3145c61c2047fb
0430: 31 61 32 61 31 32 39 37 66 33 36 64 61 36 34 31  1a2a1297f36da641
0440: 36 30 62 33 31 66 61 34 63 38 63 32 63 64 64 64  60b31fa4c8c2cddd
0450: 32 66 62 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  2fb4..tcltest::t
0460: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
0470: 32 2e 34 20 7b 53 48 41 35 31 32 53 68 6f 72 74  2.4 {SHA512Short
0480: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
0490: 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d  ints SHA512 \..-
04a0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
04b0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
04c0: 65 78 20 30 61 35 35 64 62 5d 7d 20 5c 0a 09 2d  ex 0a55db]} \..-
04d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
04e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
04f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0500: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0510: 65 73 75 6c 74 20 37 39 35 32 35 38 35 65 35 33  esult 7952585e53
0520: 33 30 63 62 32 34 37 64 37 32 62 61 65 36 39 36  30cb247d72bae696
0530: 66 63 38 61 36 62 30 66 37 64 30 38 30 34 35 37  fc8a6b0f7d080457
0540: 37 65 33 34 37 64 39 39 62 63 31 62 31 31 65 35  7e347d99bc1b11e5
0550: 32 66 33 38 34 39 38 35 61 34 32 38 34 34 39 33  2f384985a4284493
0560: 38 32 33 30 36 61 38 39 32 36 31 61 65 31 34 33  82306a89261ae143
0570: 63 32 66 33 66 62 36 31 33 38 30 34 61 62 32 30  c2f3fb613804ab20
0580: 62 34 32 64 63 30 39 37 65 35 62 66 34 61 39 36  b42dc097e5bf4a96
0590: 65 66 39 31 39 62 0a 0a 74 63 6c 74 65 73 74 3a  ef919b..tcltest:
05a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
05b0: 32 2d 32 2e 35 20 7b 53 48 41 35 31 32 53 68 6f  2-2.5 {SHA512Sho
05c0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
05d0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a  raints SHA512 \.
05e0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
05f0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0600: 20 68 65 78 20 32 33 62 65 38 36 64 35 5d 7d 20   hex 23be86d5]} 
0610: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0620: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0630: 41 35 31 32 20 2d 64 61 74 61 20 24 64 61 74 61  A512 -data $data
0640: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0650: 74 20 2d 72 65 73 75 6c 74 20 37 36 64 34 32 63  t -result 76d42c
0660: 38 65 61 64 65 61 33 35 61 36 39 39 39 30 63 36  8eadea35a69990c6
0670: 33 61 37 36 32 66 33 33 30 36 31 34 61 34 36 39  3a762f330614a469
0680: 39 39 37 37 66 30 35 38 61 64 62 39 38 38 66 34  9977f058adb988f4
0690: 30 36 66 62 30 62 65 38 66 32 65 61 33 64 63 65  06fb0be8f2ea3dce
06a0: 33 61 32 62 62 64 31 64 38 32 37 62 37 30 62 39  3a2bbd1d827b70b9
06b0: 62 32 39 39 61 65 36 66 39 65 35 30 35 38 65 65  b299ae6f9e5058ee
06c0: 39 37 62 35 30 62 64 34 39 32 32 64 36 64 33 37  97b50bd4922d6d37
06d0: 64 64 63 37 36 31 66 38 65 62 0a 0a 74 63 6c 74  ddc761f8eb..tclt
06e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
06f0: 48 41 35 31 32 2d 32 2e 36 20 7b 53 48 41 35 31  HA512-2.6 {SHA51
0700: 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  2ShortMsg} \..-c
0710: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
0720: 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  2 \..-setup {set
0730: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0740: 63 6f 64 65 20 68 65 78 20 65 62 30 63 61 39 34  code hex eb0ca94
0750: 36 63 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  6c1]} \..-body {
0760: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0770: 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74 61  est SHA512 -data
0780: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0790: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
07a0: 64 33 39 65 63 65 64 66 65 36 65 37 30 35 61 38  d39ecedfe6e705a8
07b0: 32 31 61 65 65 34 66 35 38 62 66 63 34 38 39 63  21aee4f58bfc489c
07c0: 33 64 39 34 33 33 65 62 34 61 63 31 62 30 33 61  3d9433eb4ac1b03a
07d0: 39 37 65 33 32 31 61 32 35 38 36 62 34 30 64 64  97e321a2586b40dd
07e0: 30 35 32 32 66 34 30 66 61 35 61 65 66 33 36 61  0522f40fa5aef36a
07f0: 66 66 66 35 39 31 61 37 38 63 39 31 36 62 66 63  fff591a78c916bfc
0800: 36 64 31 63 61 35 31 35 63 34 39 38 33 64 64 38  6d1ca515c4983dd8
0810: 36 39 35 62 31 65 63 37 39 35 31 64 37 32 33 65  695b1ec7951d723e
0820: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0830: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 37 20  Hash_SHA512-2.7 
0840: 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d  {SHA512ShortMsg}
0850: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0860: 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75   SHA512 \..-setu
0870: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
0880: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33  ary decode hex 3
0890: 38 36 36 37 66 33 39 32 37 37 62 5d 7d 20 5c 0a  8667f39277b]} \.
08a0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
08b0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
08c0: 31 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  12 -data $data} 
08d0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
08e0: 2d 72 65 73 75 6c 74 20 38 35 37 30 38 62 38 66  -result 85708b8f
08f0: 66 30 35 64 39 37 34 64 36 61 66 30 38 30 31 63  f05d974d6af0801c
0900: 31 35 32 62 39 35 66 35 66 61 35 63 30 36 61 66  152b95f5fa5c06af
0910: 39 61 33 35 32 33 30 63 35 62 65 61 32 37 35 32  9a35230c5bea2752
0920: 66 30 33 31 66 39 62 64 38 34 62 64 38 34 34 37  f031f9bd84bd8447
0930: 31 37 62 33 61 64 64 33 30 38 61 37 30 64 63 37  17b3add308a70dc7
0940: 37 37 66 39 30 38 31 33 63 32 30 62 34 37 62 31  77f90813c20b47b1
0950: 36 33 38 35 36 36 34 65 65 66 63 38 38 34 34 39  6385664eefc88449
0960: 66 30 34 66 32 31 33 31 0a 0a 74 63 6c 74 65 73  f04f2131..tcltes
0970: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0980: 35 31 32 2d 32 2e 38 20 7b 53 48 41 35 31 32 53  512-2.8 {SHA512S
0990: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
09a0: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20  straints SHA512 
09b0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
09c0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
09d0: 64 65 20 68 65 78 20 62 33 39 66 37 31 61 61 61  de hex b39f71aaa
09e0: 38 61 31 30 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  8a108]} \..-body
09f0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
0a00: 69 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61  igest SHA512 -da
0a10: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
0a20: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
0a30: 74 20 32 35 38 62 38 65 66 61 30 35 62 34 61 30  t 258b8efa05b4a0
0a40: 36 62 31 65 36 33 63 37 61 33 66 39 32 35 63 35  6b1e63c7a3f925c5
0a50: 65 66 31 31 66 61 30 33 65 33 64 34 37 64 36 33  ef11fa03e3d47d63
0a60: 31 62 66 34 64 34 37 34 39 38 33 37 38 33 64 38  1bf4d474983783d8
0a70: 63 30 62 30 39 34 34 39 30 30 39 65 38 34 32 66  c0b09449009e842f
0a80: 63 39 66 61 31 35 64 65 35 38 36 63 36 37 63 66  c9fa15de586c67cf
0a90: 38 39 35 35 61 31 37 64 37 39 30 62 32 30 66 34  8955a17d790b20f4
0aa0: 31 64 61 64 66 36 37 65 65 38 63 64 63 64 66 63  1dadf67ee8cdcdfc
0ab0: 65 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e6..tcltest::tes
0ac0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e  t Hash_SHA512-2.
0ad0: 39 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  9 {SHA512ShortMs
0ae0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0af0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
0b00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0b10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0b20: 20 36 66 38 64 35 38 62 37 63 61 62 31 38 38 38   6f8d58b7cab1888
0b30: 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  c]} \..-body {tl
0b40: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0b50: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
0b60: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0b70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 33  exact -result a3
0b80: 39 34 31 64 65 66 32 38 30 33 63 38 64 66 63 30  941def2803c8dfc0
0b90: 38 66 32 30 63 30 36 62 61 37 65 39 61 33 33 32  8f20c06ba7e9a332
0ba0: 61 65 30 63 36 37 65 34 37 61 65 35 37 33 36 35  ae0c67e47ae57365
0bb0: 63 32 34 33 65 66 34 30 30 35 39 62 31 31 62 65  c243ef40059b11be
0bc0: 32 32 63 39 31 64 61 36 61 38 30 63 32 63 66 66  22c91da6a80c2cff
0bd0: 30 37 34 32 61 38 66 34 62 63 64 39 34 31 62 64  0742a8f4bcd941bd
0be0: 65 65 30 62 38 36 31 65 63 38 37 32 62 32 31 35  ee0b861ec872b215
0bf0: 34 33 33 63 65 38 64 63 66 33 63 30 33 31 0a 0a  433ce8dcf3c031..
0c00: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0c10: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 30 20 7b  sh_SHA512-2.10 {
0c20: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
0c30: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0c40: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
0c50: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0c60: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 36  ry decode hex 16
0c70: 32 62 30 63 66 39 62 33 37 35 30 66 39 34 33 38  2b0cf9b3750f9438
0c80: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0c90: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0ca0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
0cb0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
0cc0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 64 65  xact -result ade
0cd0: 32 31 37 33 30 35 64 63 33 34 33 39 32 61 61 34  217305dc34392aa4
0ce0: 62 38 65 35 37 66 36 34 66 35 61 33 61 66 64 64  b8e57f64f5a3afdd
0cf0: 32 37 66 31 66 61 39 36 39 61 39 61 32 36 30 38  27f1fa969a9a2608
0d00: 33 35 33 66 38 32 62 39 35 63 66 62 34 61 65 38  353f82b95cfb4ae8
0d10: 34 35 39 38 64 30 31 35 37 35 61 35 37 38 61 31  4598d01575a578a1
0d20: 30 36 38 61 35 39 62 33 34 62 35 30 34 35 66 66  068a59b34b5045ff
0d30: 36 64 35 32 39 39 63 35 63 62 37 65 65 31 37 31  6d5299c5cb7ee171
0d40: 38 30 37 30 31 62 32 64 31 64 36 39 35 0a 0a 74  80701b2d1d695..t
0d50: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0d60: 68 5f 53 48 41 35 31 32 2d 32 2e 31 31 20 7b 53  h_SHA512-2.11 {S
0d70: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
0d80: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0d90: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
0da0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0db0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 61 64  y decode hex bad
0dc0: 37 63 36 31 38 66 34 35 62 65 32 30 37 39 37 35  7c618f45be207975
0dd0: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
0de0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0df0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
0e00: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0e10: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 38  exact -result 58
0e20: 38 36 38 32 38 39 35 39 64 31 66 38 32 32 35 34  86828959d1f82254
0e30: 30 36 38 62 65 30 62 64 31 34 62 36 61 38 38 66  068be0bd14b6a88f
0e40: 35 39 66 35 33 34 30 36 31 66 62 32 30 33 37 36  59f534061fb20376
0e50: 61 30 35 34 31 30 35 32 64 64 33 36 33 35 65 64  a0541052dd3635ed
0e60: 66 33 63 36 66 30 63 61 33 64 30 38 37 37 35 65  f3c6f0ca3d08775e
0e70: 31 33 35 32 35 64 66 39 33 33 33 61 32 31 31 33  13525df9333a2113
0e80: 63 30 62 32 61 66 37 36 35 31 35 38 38 37 35 32  c0b2af7651588752
0e90: 39 39 31 30 62 36 63 37 39 33 63 38 61 35 0a 0a  9910b6c793c8a5..
0ea0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0eb0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 32 20 7b  sh_SHA512-2.12 {
0ec0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
0ed0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0ee0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
0ef0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0f00: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 32  ry decode hex 62
0f10: 31 33 65 31 30 61 34 34 32 30 65 30 64 39 62 37  13e10a4420e0d9b7
0f20: 37 30 33 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7037]} \..-body 
0f30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0f40: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
0f50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0f60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0f70: 20 39 39 38 32 64 63 32 61 30 34 64 66 66 31 36   9982dc2a04dff16
0f80: 35 35 36 37 66 32 37 36 66 64 34 36 33 65 66 65  5567f276fd463efe
0f90: 66 32 62 33 36 39 66 61 32 66 62 63 61 38 63 65  f2b369fa2fbca8ce
0fa0: 65 33 31 63 65 30 64 65 38 61 37 39 61 32 65 62  e31ce0de8a79a2eb
0fb0: 30 62 35 33 65 34 33 37 66 37 64 39 64 31 66 34  0b53e437f7d9d1f4
0fc0: 31 63 37 31 64 37 32 35 63 61 62 62 39 34 39 62  1c71d725cabb949b
0fd0: 35 31 33 30 37 35 62 61 64 31 37 34 30 63 39 65  513075bad1740c9e
0fe0: 65 66 62 66 36 61 35 63 36 36 33 33 34 30 30 63  efbf6a5c6633400c
0ff0: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  7..tcltest::test
1000: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 31   Hash_SHA512-2.1
1010: 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  3 {SHA512ShortMs
1020: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1030: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
1040: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1050: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1060: 20 36 33 33 32 63 33 63 32 61 30 61 36 32 35 61   6332c3c2a0a625a
1070: 36 31 64 66 37 31 38 35 38 5d 7d 20 5c 0a 09 2d  61df71858]} \..-
1080: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1090: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
10a0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
10b0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
10c0: 65 73 75 6c 74 20 39 64 36 30 33 37 35 64 39 38  esult 9d60375d98
10d0: 35 38 64 39 66 32 34 31 36 66 62 38 36 66 61 30  58d9f2416fb86fa0
10e0: 61 32 31 38 39 65 65 34 32 31 33 65 38 37 31 30  a2189ee4213e8710
10f0: 33 31 34 66 64 31 65 62 65 64 30 66 64 31 35 38  314fd1ebed0fd158
1100: 62 30 34 33 65 36 65 37 63 39 61 37 36 64 36 32  b043e6e7c9a76d62
1110: 63 36 62 61 31 65 31 64 34 31 31 61 37 33 30 39  c6ba1e1d411a7309
1120: 30 32 33 30 39 65 63 36 37 36 64 64 34 39 31 34  02309ec676dd4914
1130: 33 33 63 36 65 66 36 36 63 38 66 31 31 36 32 33  33c6ef66c8f11623
1140: 33 64 36 63 65 37 0a 0a 74 63 6c 74 65 73 74 3a  3d6ce7..tcltest:
1150: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
1160: 32 2d 32 2e 31 34 20 7b 53 48 41 35 31 32 53 68  2-2.14 {SHA512Sh
1170: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1180: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
1190: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
11a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
11b0: 65 20 68 65 78 20 66 34 37 62 65 33 61 32 62 30  e hex f47be3a2b0
11c0: 31 39 64 31 62 65 65 64 65 64 66 35 62 38 30 63  19d1beededf5b80c
11d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
11e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
11f0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
1200: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1210: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 39 34  xact -result b94
1220: 32 39 32 36 32 35 63 61 61 32 38 63 37 62 65 32  292625caa28c7be2
1230: 34 61 30 39 39 37 65 62 37 33 32 38 30 36 32 61  4a0997eb7328062a
1240: 37 36 64 39 62 35 32 39 63 30 66 31 64 35 36 38  76d9b529c0f1d568
1250: 66 38 35 30 64 66 36 64 35 36 39 62 35 65 38 34  f850df6d569b5e84
1260: 64 66 30 37 65 39 65 32 34 36 62 65 32 33 32 30  df07e9e246be2320
1270: 33 33 66 66 61 63 33 61 64 66 32 64 31 38 66 39  33ffac3adf2d18f9
1280: 32 61 62 39 64 61 63 66 63 30 65 63 66 30 38 61  2ab9dacfc0ecf08a
1290: 66 66 37 31 34 35 66 30 62 38 33 33 62 0a 0a 74  ff7145f0b833b..t
12a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
12b0: 68 5f 53 48 41 35 31 32 2d 32 2e 31 35 20 7b 53  h_SHA512-2.15 {S
12c0: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
12d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
12e0: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
12f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1300: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 31 37  y decode hex b17
1310: 31 35 66 37 38 32 66 66 30 32 63 36 62 38 38 39  15f782ff02c6b889
1320: 33 37 66 30 35 34 31 31 36 5d 7d 20 5c 0a 09 2d  37f054116]} \..-
1330: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1340: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
1350: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1360: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1370: 65 73 75 6c 74 20 65 65 31 61 35 36 65 65 37 38  esult ee1a56ee78
1380: 31 38 32 65 63 34 31 64 32 63 33 61 62 33 33 64  182ec41d2c3ab33d
1390: 34 63 34 31 38 37 31 64 34 33 37 63 35 63 31 63  4c41871d437c5c1c
13a0: 61 30 36 30 65 65 39 65 32 31 39 63 62 38 33 36  a060ee9e219cb836
13b0: 38 39 62 34 65 35 61 34 31 37 34 64 66 64 61 62  89b4e5a4174dfdab
13c0: 35 64 31 64 31 30 39 36 61 33 31 61 37 63 38 64  5d1d1096a31a7c8d
13d0: 33 61 62 64 61 37 35 63 31 62 35 65 36 64 61 39  3abda75c1b5e6da9
13e0: 37 65 31 38 31 34 39 30 31 63 35 30 35 62 30 62  7e1814901c505b0b
13f0: 63 30 37 66 32 35 0a 0a 74 63 6c 74 65 73 74 3a  c07f25..tcltest:
1400: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
1410: 32 2d 32 2e 31 36 20 7b 53 48 41 35 31 32 53 68  2-2.16 {SHA512Sh
1420: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1430: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
1440: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1450: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1460: 65 20 68 65 78 20 39 62 63 64 35 32 36 32 38 36  e hex 9bcd526286
1470: 38 63 64 39 63 38 61 39 36 63 39 65 38 32 39 38  8cd9c8a96c9e8298
1480: 37 66 30 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  7f03]} \..-body 
1490: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
14a0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
14b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
14c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
14d0: 20 32 65 30 37 36 36 32 61 30 30 31 62 39 37 35   2e07662a001b975
14e0: 35 61 65 39 32 32 63 38 65 38 61 39 35 37 35 36  5ae922c8e8a95756
14f0: 64 62 35 33 34 31 64 63 30 66 32 65 36 32 61 65  db5341dc0f2e62ae
1500: 31 63 66 38 32 37 30 33 38 66 33 33 63 65 30 35  1cf827038f33ce05
1510: 35 66 36 33 61 64 35 63 30 30 62 36 35 33 39 31  5f63ad5c00b65391
1520: 34 32 38 34 33 34 64 64 63 30 31 65 35 35 33 35  428434ddc01e5535
1530: 65 37 66 65 63 62 66 35 33 64 62 36 36 64 39 33  e7fecbf53db66d93
1540: 30 39 39 62 38 65 30 62 37 65 34 34 65 34 62 32  099b8e0b7e44e4b2
1550: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
1560: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 31   Hash_SHA512-2.1
1570: 37 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  7 {SHA512ShortMs
1580: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1590: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
15a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
15b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
15c0: 20 63 64 36 37 62 64 34 30 35 34 61 61 61 33 62   cd67bd4054aaa3b
15d0: 61 61 30 64 62 31 37 38 63 65 32 33 32 66 64 35  aa0db178ce232fd5
15e0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
15f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1600: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
1610: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1620: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 64  exact -result 0d
1630: 38 35 32 31 66 38 66 32 66 33 39 30 30 33 33 32  8521f8f2f3900332
1640: 64 31 61 31 61 35 35 63 36 30 62 61 38 31 64 30  d1a1a55c60ba81d0
1650: 34 64 32 38 64 66 65 38 63 35 30 34 62 36 33 32  4d28dfe8c504b632
1660: 38 61 65 37 38 37 39 32 35 66 65 30 31 38 38 66  8ae787925fe0188f
1670: 32 62 61 39 31 63 33 61 39 66 30 63 31 36 35 33  2ba91c3a9f0c1653
1680: 63 34 62 66 30 61 64 61 33 35 36 34 35 35 65 61  c4bf0ada356455ea
1690: 33 36 66 64 33 31 66 38 65 37 33 65 33 39 35 31  36fd31f8e73e3951
16a0: 63 61 64 34 65 62 62 61 38 63 36 65 30 34 0a 0a  cad4ebba8c6e04..
16b0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
16c0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 38 20 7b  sh_SHA512-2.18 {
16d0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
16e0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
16f0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
1700: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1710: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 62  ry decode hex 6b
1720: 61 30 30 34 66 64 31 37 36 37 39 31 65 66 62 33  a004fd176791efb3
1730: 38 31 62 38 36 32 65 32 39 38 63 36 37 62 30 38  81b862e298c67b08
1740: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1750: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1760: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
1770: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1780: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 31 32  xact -result 112
1790: 65 31 39 31 34 34 61 39 63 35 31 61 32 32 33 61  e19144a9c51a223a
17a0: 30 30 32 62 39 37 37 34 35 39 39 32 30 65 33 38  002b977459920e38
17b0: 61 66 64 34 63 61 36 31 30 62 64 31 63 35 33 32  afd4ca610bd1c532
17c0: 33 34 39 65 39 66 61 37 63 30 64 35 30 33 32 31  349e9fa7c0d50321
17d0: 35 63 30 31 61 64 37 30 65 31 62 32 61 63 35 31  5c01ad70e1b2ac51
17e0: 33 33 63 66 32 64 31 30 63 39 65 38 63 31 61 34  33cf2d10c9e8c1a4
17f0: 63 39 34 30 35 66 32 39 31 64 61 32 64 63 34 35  c9405f291da2dc45
1800: 66 37 30 36 37 36 31 63 35 65 38 66 65 0a 0a 74  f706761c5e8fe..t
1810: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1820: 68 5f 53 48 41 35 31 32 2d 32 2e 31 39 20 7b 53  h_SHA512-2.19 {S
1830: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
1840: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1850: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
1860: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1870: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 36 61  y decode hex c6a
1880: 31 37 30 39 33 36 35 36 38 36 35 31 30 32 30 65  170936568651020e
1890: 64 66 65 31 35 64 66 38 30 31 32 61 63 64 61 38  dfe15df8012acda8
18a0: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
18b0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
18c0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
18d0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
18e0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 33  exact -result c3
18f0: 36 63 31 30 30 63 64 62 36 63 38 63 34 35 62 30  6c100cdb6c8c45b0
1900: 37 32 66 31 38 32 35 36 64 36 33 61 36 36 63 39  72f18256d63a66c9
1910: 38 34 33 61 63 62 34 64 30 37 64 65 36 32 65 30  843acb4d07de62e0
1920: 36 30 30 37 31 31 64 34 66 62 65 36 34 63 38 63  600711d4fbe64c8c
1930: 66 33 31 34 65 63 33 34 35 37 63 39 30 33 30 38  f314ec3457c90308
1940: 31 34 37 63 62 37 61 63 37 65 34 64 30 37 33 62  147cb7ac7e4d073b
1950: 61 31 30 66 30 63 65 64 37 38 65 61 37 32 34 61  a10f0ced78ea724a
1960: 34 37 34 62 33 32 64 61 65 37 31 32 33 31 0a 0a  474b32dae71231..
1970: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1980: 73 68 5f 53 48 41 35 31 32 2d 32 2e 32 30 20 7b  sh_SHA512-2.20 {
1990: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
19a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
19b0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
19c0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
19d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 31  ry decode hex 61
19e0: 62 65 30 63 39 66 35 63 66 36 32 37 34 35 63 37  be0c9f5cf62745c7
19f0: 64 61 34 37 63 31 30 34 35 39 37 31 39 34 64 62  da47c104597194db
1a00: 32 34 35 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  245c]} \..-body 
1a10: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1a20: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
1a30: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1a40: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1a50: 20 62 33 37 39 32 34 39 61 33 63 61 35 66 31 34   b379249a3ca5f14
1a60: 63 32 39 34 35 36 37 31 30 31 31 34 62 61 36 66  c29456710114ba6f
1a70: 36 31 33 36 62 33 34 63 33 66 63 39 66 36 66 62  6136b34c3fc9f6fb
1a80: 39 31 62 35 39 64 34 39 31 61 66 37 38 32 64 36  91b59d491af782d6
1a90: 62 32 33 37 65 62 37 31 61 61 66 66 64 64 33 38  b237eb71aaffdd38
1aa0: 30 37 39 34 36 31 63 66 36 39 30 61 34 36 64 39  079461cf690a46d9
1ab0: 61 34 64 64 64 36 30 32 64 31 39 38 30 38 61 62  a4ddd602d19808ab
1ac0: 36 32 33 35 64 31 64 38 61 61 30 31 65 38 32 30  6235d1d8aa01e820
1ad0: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  0..tcltest::test
1ae0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 32   Hash_SHA512-2.2
1af0: 31 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  1 {SHA512ShortMs
1b00: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1b10: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
1b20: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1b30: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1b40: 20 65 30 37 30 35 36 64 34 66 37 32 37 37 62 63   e07056d4f7277bc
1b50: 35 34 38 30 39 39 35 37 37 37 32 30 61 35 38 31  548099577720a581
1b60: 65 65 63 39 34 31 34 31 64 5d 7d 20 5c 0a 09 2d  eec94141d]} \..-
1b70: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1b80: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
1b90: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1ba0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1bb0: 65 73 75 6c 74 20 35 39 66 31 38 35 36 33 30 33  esult 59f1856303
1bc0: 66 66 31 36 35 65 32 61 62 35 36 38 33 64 64 64  ff165e2ab5683ddd
1bd0: 65 62 36 65 38 61 64 38 31 66 31 35 62 62 35 37  eb6e8ad81f15bb57
1be0: 38 35 37 39 62 39 39 39 65 62 35 37 34 36 36 38  8579b999eb574668
1bf0: 30 66 32 32 63 66 65 63 36 64 62 61 37 34 31 65  0f22cfec6dba741e
1c00: 35 39 31 63 61 34 64 39 65 35 33 39 30 34 38 33  591ca4d9e5390483
1c10: 37 37 30 31 62 33 37 34 62 65 37 34 62 62 63 30  7701b374be74bbc0
1c20: 38 34 37 61 39 32 31 37 39 61 63 32 62 36 37 34  847a92179ac2b674
1c30: 39 36 64 38 30 37 0a 0a 74 63 6c 74 65 73 74 3a  96d807..tcltest:
1c40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
1c50: 32 2d 32 2e 32 32 20 7b 53 48 41 35 31 32 53 68  2-2.22 {SHA512Sh
1c60: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1c70: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
1c80: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1c90: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1ca0: 65 20 68 65 78 20 36 37 65 62 64 61 30 61 33 35  e hex 67ebda0a35
1cb0: 37 33 61 39 61 35 38 37 35 31 64 34 31 36 39 65  73a9a58751d4169e
1cc0: 31 30 63 37 65 38 36 36 33 66 65 62 62 33 61 38  10c7e8663febb3a8
1cd0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1ce0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1cf0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
1d00: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
1d10: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 33 39  xact -result 139
1d20: 36 33 66 38 31 63 66 61 62 66 63 61 37 31 64 65  63f81cfabfca71de
1d30: 34 37 33 39 66 64 32 34 61 31 30 63 65 33 38 39  4739fd24a10ce389
1d40: 37 62 62 61 31 64 37 31 36 39 30 37 66 63 30 61  7bba1d716907fc0a
1d50: 32 38 34 39 30 63 31 39 32 61 37 66 63 33 63 63  28490c192a7fc3cc
1d60: 62 38 64 62 31 66 39 31 61 66 37 61 32 64 32 35  b8db1f91af7a2d25
1d70: 30 64 36 36 31 37 66 30 64 66 64 31 35 31 39 64  0d6617f0dfd1519d
1d80: 32 32 31 64 36 31 38 61 30 32 65 33 65 33 66 61  221d618a02e3e3fa
1d90: 39 30 34 31 63 66 33 35 65 64 31 65 61 0a 0a 74  9041cf35ed1ea..t
1da0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1db0: 68 5f 53 48 41 35 31 32 2d 32 2e 32 33 20 7b 53  h_SHA512-2.23 {S
1dc0: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
1dd0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1de0: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
1df0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1e00: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 33 65  y decode hex 63e
1e10: 30 39 64 62 39 39 65 62 34 63 64 36 32 33 38 36  09db99eb4cd62386
1e20: 37 37 38 35 39 61 35 36 37 64 66 33 31 33 63 38  77859a567df313c8
1e30: 35 32 30 64 38 34 35 62 34 5d 7d 20 5c 0a 09 2d  520d845b4]} \..-
1e40: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1e50: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
1e60: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1e70: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1e80: 65 73 75 6c 74 20 39 30 38 33 65 35 33 34 38 62  esult 9083e5348b
1e90: 30 38 65 62 39 38 31 30 62 32 64 31 35 37 38 31  08eb9810b2d15781
1ea0: 64 38 32 36 35 38 34 35 34 31 30 64 65 35 34 66  d8265845410de54f
1eb0: 65 36 31 37 35 30 64 34 62 39 33 38 35 33 36 39  e61750d4b9385369
1ec0: 30 36 34 39 61 64 63 36 65 37 32 34 39 30 62 63  0649adc6e72490bc
1ed0: 32 62 37 63 33 36 35 65 32 33 39 30 35 37 33 64  2b7c365e2390573d
1ee0: 39 34 31 34 62 65 63 63 30 39 33 39 37 31 39 65  9414becc0939719e
1ef0: 30 63 62 37 38 65 63 61 36 62 32 63 38 30 63 32  0cb78eca6b2c80c2
1f00: 66 64 61 39 32 30 0a 0a 74 63 6c 74 65 73 74 3a  fda920..tcltest:
1f10: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
1f20: 32 2d 32 2e 32 34 20 7b 53 48 41 35 31 32 53 68  2-2.24 {SHA512Sh
1f30: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1f40: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
1f50: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1f60: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1f70: 65 20 68 65 78 20 66 33 65 30 36 62 34 62 64 37  e hex f3e06b4bd7
1f80: 39 65 33 38 30 61 36 35 63 62 36 37 39 61 39 38  9e380a65cb679a98
1f90: 63 63 64 37 33 32 35 36 33 63 63 35 65 62 65 38  ccd732563cc5ebe8
1fa0: 39 32 65 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  92e2]} \..-body 
1fb0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1fc0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
1fd0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1fe0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1ff0: 20 36 62 33 31 35 66 31 30 36 62 30 37 63 35 39   6b315f106b07c59
2000: 65 65 64 63 35 61 62 31 64 66 38 31 33 62 33 63  eedc5ab1df813b3c
2010: 30 62 39 30 33 30 36 30 65 37 32 31 37 63 63 30  0b903060e7217cc0
2020: 31 30 65 39 30 37 30 32 37 38 35 31 32 61 38 38  10e9070278512a88
2030: 35 30 30 38 64 61 63 38 62 32 34 37 32 61 35 32  5008dac8b2472a52
2040: 31 65 37 37 38 33 35 61 37 66 34 64 65 61 64 63  1e77835a7f4deadc
2050: 31 64 35 39 31 61 61 32 33 62 36 32 34 62 36 39  1d591aa23b624b69
2060: 39 34 38 61 39 39 62 62 36 30 31 32 31 63 35 34  948a99bb60121c54
2070: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
2080: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 32   Hash_SHA512-2.2
2090: 35 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  5 {SHA512ShortMs
20a0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
20b0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
20c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
20d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
20e0: 20 31 36 62 31 37 30 37 34 64 33 65 33 64 39 37   16b17074d3e3d97
20f0: 35 35 37 66 39 65 64 37 37 64 39 32 30 62 34 62  557f9ed77d920b4b
2100: 31 62 66 66 34 65 38 34 35 62 33 34 35 61 39 32  1bff4e845b345a92
2110: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
2120: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2130: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
2140: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2150: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 38  exact -result 68
2160: 38 34 31 33 34 35 38 32 61 37 36 30 30 34 36 34  84134582a7600464
2170: 33 33 61 62 63 62 64 35 33 64 62 38 66 66 31 61  33abcbd53db8ff1a
2180: 38 39 39 39 35 38 36 32 66 33 30 35 62 38 38 37  89995862f305b887
2190: 30 32 30 66 36 64 61 36 63 37 62 39 30 33 61 33  020f6da6c7b903a3
21a0: 31 34 37 32 31 65 39 37 32 62 66 34 33 38 34 38  14721e972bf43848
21b0: 33 66 34 35 32 61 38 62 30 39 35 39 36 32 39 38  3f452a8b09596298
21c0: 61 35 37 36 63 39 30 33 63 39 31 64 66 34 61 34  a576c903c91df4a4
21d0: 31 34 63 37 62 64 32 30 66 64 31 64 30 37 0a 0a  14c7bd20fd1d07..
21e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
21f0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 32 36 20 7b  sh_SHA512-2.26 {
2200: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
2210: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2220: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
2230: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2240: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 65  ry decode hex 3e
2250: 64 66 39 33 32 35 31 33 34 39 64 32 32 38 30 36  df93251349d22806
2260: 62 65 64 32 35 33 34 35 66 64 35 63 31 39 30 61  bed25345fd5c190a
2270: 61 63 39 36 64 36 63 64 62 32 64 37 35 38 62 38  ac96d6cdb2d758b8
2280: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2290: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
22a0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
22b0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
22c0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 39 39  xact -result 299
22d0: 65 30 64 61 66 36 36 30 35 65 35 62 30 63 33 30  e0daf6605e5b0c30
22e0: 65 31 65 63 38 62 62 39 38 65 37 61 33 62 64 37  e1ec8bb98e7a3bd7
22f0: 62 33 33 62 33 38 38 62 64 62 34 35 37 34 35 32  b33b388bdb457452
2300: 64 61 62 35 30 39 35 39 34 34 30 36 63 38 65 37  dab509594406c8e7
2310: 62 38 34 31 65 36 66 34 65 37 35 63 38 64 36 66  b841e6f4e75c8d6f
2320: 62 64 36 31 34 64 35 65 62 39 65 35 36 63 33 35  bd614d5eb9e56c35
2330: 39 62 66 61 66 62 34 32 38 35 37 35 34 37 38 37  9bfafb4285754787
2340: 61 62 37 32 62 34 36 64 64 33 33 66 30 0a 0a 74  ab72b46dd33f0..t
2350: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2360: 68 5f 53 48 41 35 31 32 2d 32 2e 32 37 20 7b 53  h_SHA512-2.27 {S
2370: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
2380: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2390: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
23a0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
23b0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 32 64  y decode hex b2d
23c0: 35 61 31 34 66 30 31 65 36 62 37 37 38 38 38 38  5a14f01e6b778888
23d0: 63 35 36 32 61 30 35 39 65 63 38 31 39 61 64 38  c562a059ec819ad8
23e0: 39 39 39 32 64 31 36 61 30 39 66 37 61 35 34 62  9992d16a09f7a54b
23f0: 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  4]} \..-body {tl
2400: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2410: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
2420: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2430: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 62  exact -result ab
2440: 32 65 37 64 37 34 35 64 38 61 64 33 39 33 34 33  2e7d745d8ad39343
2450: 39 61 66 32 61 33 66 62 63 39 63 64 63 32 35 35  9af2a3fbc9cdc255
2460: 31 30 64 34 61 30 34 65 37 38 62 35 32 36 65 31  10d4a04e78b526e1
2470: 32 62 31 63 30 62 65 33 62 32 32 39 36 36 38 37  2b1c0be3b2296687
2480: 32 65 62 65 36 35 32 65 32 66 34 36 65 64 35 63  2ebe652e2f46ed5c
2490: 35 61 63 65 63 64 32 66 32 33 33 61 39 31 37 35  5acecd2f233a9175
24a0: 64 64 32 39 35 65 62 65 62 33 61 30 37 30 36 66  dd295ebeb3a0706f
24b0: 63 36 36 66 61 31 62 31 33 37 30 34 32 62 0a 0a  c66fa1b137042b..
24c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
24d0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 32 38 20 7b  sh_SHA512-2.28 {
24e0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
24f0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2500: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
2510: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2520: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 34  ry decode hex 84
2530: 34 62 36 36 66 31 32 62 61 30 63 35 66 39 65 39  4b66f12ba0c5f9e9
2540: 32 37 33 31 66 35 37 31 35 33 39 64 31 65 65 66  2731f571539d1eef
2550: 33 33 32 65 31 35 34 39 61 34 39 64 62 66 61 34  332e1549a49dbfa4
2560: 63 36 64 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c6de]} \..-body 
2570: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2580: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
2590: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
25a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
25b0: 20 63 33 66 39 63 35 37 38 31 39 32 35 37 37 34   c3f9c5781925774
25c0: 37 38 33 61 65 39 64 38 33 39 37 37 32 64 37 35  783ae9d839772d75
25d0: 31 33 64 66 63 65 61 38 63 35 61 66 38 64 61 32  13dfcea8c5af8da2
25e0: 36 32 63 31 39 36 66 39 66 65 38 30 31 33 35 62  62c196f9fe80135b
25f0: 32 62 30 63 38 63 36 63 61 30 61 31 36 30 34 65  2b0c8c6ca0a1604e
2600: 30 61 33 34 36 30 32 34 37 36 32 30 64 65 32 30  0a3460247620de20
2610: 62 32 39 39 66 32 64 62 37 38 37 31 39 38 32 64  b299f2db7871982d
2620: 32 37 63 32 31 37 36 61 65 35 66 61 37 61 64 36  27c2176ae5fa7ad6
2630: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
2640: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 32   Hash_SHA512-2.2
2650: 39 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  9 {SHA512ShortMs
2660: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2670: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
2680: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2690: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
26a0: 20 36 62 36 63 63 36 39 32 64 33 39 38 36 30 62   6b6cc692d39860b
26b0: 31 66 33 30 32 30 33 36 35 33 65 32 35 64 30 39  1f30203653e25d09
26c0: 63 30 31 65 36 61 38 30 34 33 63 31 61 39 63 62  c01e6a8043c1a9cb
26d0: 38 62 32 34 39 61 34 31 65 5d 7d 20 5c 0a 09 2d  8b249a41e]} \..-
26e0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
26f0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
2700: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2710: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
2720: 65 73 75 6c 74 20 32 65 35 32 36 33 64 39 61 34  esult 2e5263d9a4
2730: 66 32 31 62 32 31 30 65 30 65 31 36 31 65 64 33  f21b210e0e161ed3
2740: 39 64 66 34 34 31 30 32 38 36 34 33 32 35 37 38  9df4410286432578
2750: 38 36 34 37 32 36 31 61 36 65 37 30 65 61 34 62  8647261a6e70ea4b
2760: 31 65 65 30 61 62 62 35 37 62 35 37 34 39 39 62  1ee0abb57b57499b
2770: 63 38 32 31 35 38 64 38 32 33 33 36 64 64 35 33  c82158d82336dd53
2780: 66 31 65 66 34 34 36 34 63 36 61 30 38 31 32 36  f1ef4464c6a08126
2790: 65 31 33 38 62 32 63 63 30 38 39 32 66 37 36 35  e138b2cc0892f765
27a0: 66 36 61 66 38 35 0a 0a 74 63 6c 74 65 73 74 3a  f6af85..tcltest:
27b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
27c0: 32 2d 32 2e 33 30 20 7b 53 48 41 35 31 32 53 68  2-2.30 {SHA512Sh
27d0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
27e0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
27f0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2800: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2810: 65 20 68 65 78 20 61 62 31 66 63 39 65 65 38 34  e hex ab1fc9ee84
2820: 35 65 65 62 32 30 35 65 63 31 33 37 32 35 64 61  5eeb205ec13725da
2830: 66 31 66 62 31 66 35 64 35 30 36 32 39 62 31 34  f1fb1f5d50629b14
2840: 65 61 39 61 32 32 33 35 61 39 33 35 30 61 38 38  ea9a2235a9350a88
2850: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2860: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2870: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
2880: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2890: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 32 64  xact -result 72d
28a0: 31 38 38 61 39 64 66 35 66 33 62 30 30 30 35 37  188a9df5f3b00057
28b0: 62 63 61 32 32 63 39 32 63 30 66 38 32 32 38 34  bca22c92c0f82284
28c0: 32 32 64 39 37 34 33 30 32 64 32 32 64 34 62 33  22d974302d22d4b3
28d0: 32 32 65 37 61 36 63 38 66 63 33 62 32 62 35 30  22e7a6c8fc3b2b50
28e0: 65 63 37 34 63 36 38 34 32 37 38 31 66 32 39 66  ec74c6842781f29f
28f0: 37 30 37 35 63 33 64 34 62 64 30 36 35 38 37 38  7075c3d4bd065878
2900: 36 34 38 38 34 36 63 33 39 62 62 33 65 34 65 32  648846c39bb3e4e2
2910: 36 39 32 63 30 66 30 35 33 66 37 65 64 0a 0a 74  692c0f053f7ed..t
2920: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2930: 68 5f 53 48 41 35 31 32 2d 32 2e 33 31 20 7b 53  h_SHA512-2.31 {S
2940: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
2950: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2960: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
2970: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2980: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 39 34  y decode hex 594
2990: 65 64 38 32 61 63 66 63 30 33 63 30 65 33 35 39  ed82acfc03c0e359
29a0: 63 63 35 36 30 62 38 65 34 62 38 35 66 36 65 65  cc560b8e4b85f6ee
29b0: 37 37 65 65 35 39 61 37 30 30 32 33 63 32 62 33  77ee59a70023c2b3
29c0: 64 35 62 33 32 38 35 62 32 5d 7d 20 5c 0a 09 2d  d5b3285b2]} \..-
29d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
29e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
29f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2a00: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
2a10: 65 73 75 6c 74 20 35 65 66 33 32 32 63 62 34 30  esult 5ef322cb40
2a20: 31 34 65 63 62 62 37 31 33 61 31 33 36 35 39 36  14ecbb713a136596
2a30: 31 32 61 32 32 32 32 32 35 39 38 34 64 33 31 63  12a222225984d31c
2a40: 31 38 37 64 65 62 63 34 34 35 39 62 61 37 39 30  187debc4459ba790
2a50: 31 66 30 33 64 61 63 37 37 35 34 30 30 61 63 66  1f03dac775400acf
2a60: 65 33 35 31 30 62 33 30 36 62 37 39 38 39 34 66  e3510b306b79894f
2a70: 62 30 65 38 34 33 37 62 34 31 32 31 35 30 63 39  b0e8437b412150c9
2a80: 31 39 33 65 65 35 61 32 31 36 34 33 30 36 65 62  193ee5a2164306eb
2a90: 62 37 38 33 30 31 0a 0a 74 63 6c 74 65 73 74 3a  b78301..tcltest:
2aa0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
2ab0: 32 2d 32 2e 33 32 20 7b 53 48 41 35 31 32 53 68  2-2.32 {SHA512Sh
2ac0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2ad0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
2ae0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2af0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2b00: 65 20 68 65 78 20 66 32 63 36 36 65 66 62 66 32  e hex f2c66efbf2
2b10: 61 37 36 63 35 62 30 34 31 38 36 30 65 61 35 37  a76c5b041860ea57
2b20: 36 31 30 33 63 64 38 63 36 62 32 35 65 35 30 65  6103cd8c6b25e50e
2b30: 63 61 39 66 66 36 61 32 66 61 38 38 30 38 33 66  ca9ff6a2fa88083f
2b40: 65 39 61 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e9ac]} \..-body 
2b50: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2b60: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
2b70: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2b80: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2b90: 20 37 39 37 38 66 39 33 65 66 37 65 64 30 32 63   7978f93ef7ed02c
2ba0: 34 61 32 34 61 62 65 63 62 61 31 32 34 64 31 34  4a24abecba124d14
2bb0: 64 64 32 31 34 65 31 34 39 32 66 66 31 65 31 36  dd214e1492ff1e16
2bc0: 38 33 30 34 63 30 65 61 62 38 39 36 33 37 64 61  8304c0eab89637da
2bd0: 30 66 37 61 35 36 39 63 34 33 64 63 34 35 36 32  0f7a569c43dc4562
2be0: 62 64 62 39 34 30 34 61 30 31 38 62 36 33 31 34  bdb9404a018b6314
2bf0: 66 65 30 65 65 62 61 63 63 66 62 32 35 62 61 37  fe0eebaccfb25ba7
2c00: 36 35 30 36 61 61 37 65 39 64 63 64 39 35 36 61  6506aa7e9dcd956a
2c10: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  7..tcltest::test
2c20: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 33   Hash_SHA512-2.3
2c30: 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  3 {SHA512ShortMs
2c40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2c50: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
2c60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2c70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2c80: 20 38 63 63 62 30 38 64 32 61 31 61 32 38 32 61   8ccb08d2a1a282a
2c90: 61 38 63 63 39 39 39 30 32 65 63 61 66 30 66 36  a8cc99902ecaf0f6
2ca0: 37 61 39 66 32 31 63 66 66 65 32 38 30 30 35 63  7a9f21cffe28005c
2cb0: 62 32 37 66 63 66 31 32 39 65 39 36 33 66 39 39  b27fcf129e963f99
2cc0: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
2cd0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2ce0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
2cf0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2d00: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 35  exact -result 45
2d10: 35 31 64 65 66 32 66 39 31 32 37 33 38 36 65 65  51def2f9127386ee
2d20: 61 38 64 34 64 61 65 31 65 61 38 64 38 65 34 39  a8d4dae1ea8d8e49
2d30: 62 32 61 64 64 30 35 30 39 66 32 37 63 63 62 63  b2add0509f27ccbc
2d40: 65 37 64 39 65 39 35 30 61 63 37 64 62 30 31 64  e7d9e950ac7db01d
2d50: 35 62 63 61 35 37 39 63 32 37 31 62 39 66 32 64  5bca579c271b9f2d
2d60: 38 30 36 37 33 30 64 38 38 66 35 38 32 35 32 66  806730d88f58252f
2d70: 64 30 63 32 35 38 37 38 35 31 63 33 61 63 38 61  d0c2587851c3ac8a
2d80: 30 65 37 32 62 34 65 31 64 63 30 64 61 36 0a 0a  0e72b4e1dc0da6..
2d90: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2da0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 33 34 20 7b  sh_SHA512-2.34 {
2db0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
2dc0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2dd0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
2de0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2df0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 66  ry decode hex 9f
2e00: 38 63 34 39 33 32 30 61 66 39 33 37 30 63 64 33  8c49320af9370cd3
2e10: 64 62 32 30 65 39 62 35 30 64 33 65 61 61 35 39  db20e9b50d3eaa59
2e20: 61 36 32 33 32 64 37 61 38 36 66 62 37 64 34 37  a6232d7a86fb7d47
2e30: 32 66 31 32 34 35 30 38 64 37 39 36 38 62 30 35  2f124508d7968b05
2e40: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2e50: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2e60: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
2e70: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
2e80: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 31 62  xact -result 81b
2e90: 30 30 32 66 31 35 63 34 64 34 38 62 65 38 35 31  002f15c4d48be851
2ea0: 37 66 37 65 64 38 39 64 66 33 30 32 66 62 31 34  7f7ed89df302fb14
2eb0: 33 35 63 39 34 33 35 65 66 65 66 65 64 35 38 66  35c9435efefed58f
2ec0: 33 65 62 38 65 61 31 31 39 31 30 36 32 33 66 31  3eb8ea11910623f1
2ed0: 65 62 39 30 32 38 61 36 36 65 30 32 31 32 31 61  eb9028a66e02121a
2ee0: 37 66 30 38 61 37 63 36 30 34 32 32 36 66 32 33  7f08a7c604226f23
2ef0: 32 34 66 34 38 33 65 39 31 35 34 38 64 62 62 64  24f483e91548dbbd
2f00: 32 63 34 34 31 61 62 37 30 34 63 65 35 0a 0a 74  2c441ab704ce5..t
2f10: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2f20: 68 5f 53 48 41 35 31 32 2d 32 2e 33 35 20 7b 53  h_SHA512-2.35 {S
2f30: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
2f40: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2f50: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
2f60: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2f70: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 61 62  y decode hex 4ab
2f80: 39 61 61 30 36 39 34 37 35 65 35 34 62 32 35 65  9aa069475e54b25e
2f90: 35 36 38 38 61 35 32 64 64 34 61 63 64 31 33 34  5688a52dd4acd134
2fa0: 31 36 39 63 38 35 38 31 30 35 66 30 31 61 30 61  169c858105f01a0a
2fb0: 31 62 31 33 34 63 37 32 64 34 61 66 35 31 66 38  1b134c72d4af51f8
2fc0: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
2fd0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2fe0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
2ff0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3000: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 38  exact -result 48
3010: 62 61 35 61 36 33 61 62 61 37 65 37 62 64 38 65  ba5a63aba7e7bd8e
3020: 34 32 30 34 37 35 33 33 31 31 32 35 61 39 34 37  420475331125a947
3030: 39 32 38 63 36 37 66 64 62 30 30 66 36 35 63 34  928c67fdb00f65c4
3040: 30 38 30 64 39 61 30 62 39 39 63 30 36 37 32 34  080d9a0b99c06724
3050: 32 34 65 37 36 61 31 62 61 36 62 64 37 36 64 66  24e76a1ba6bd76df
3060: 65 34 39 32 63 37 33 30 66 36 66 39 61 64 63 63  e492c730f6f9adcc
3070: 61 65 65 37 62 62 31 31 35 37 31 61 61 64 62 33  aee7bb11571aadb3
3080: 31 66 36 62 62 36 32 38 63 66 61 39 33 33 0a 0a  1f6bb628cfa933..
3090: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
30a0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 33 36 20 7b  sh_SHA512-2.36 {
30b0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
30c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
30d0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
30e0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
30f0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 30  ry decode hex f0
3100: 63 31 64 33 34 30 37 64 65 39 32 65 66 37 34 32  c1d3407de92ef742
3110: 31 65 34 32 64 66 35 63 39 61 62 33 31 64 32 65  1e42df5c9ab31d2e
3120: 63 30 61 37 35 30 61 39 35 32 32 38 36 39 63 62  c0a750a9522869cb
3130: 65 34 63 61 62 64 36 36 39 30 38 64 35 38 32 33  e4cabd66908d5823
3140: 65 63 30 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ec04]} \..-body 
3150: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3160: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
3170: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3180: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3190: 20 39 65 37 35 63 35 62 63 61 32 63 32 61 66 31   9e75c5bca2c2af1
31a0: 64 37 37 33 39 37 38 37 66 34 36 65 31 64 39 38  d7739787f46e1d98
31b0: 31 63 34 66 39 38 65 34 39 33 64 30 37 32 34 62  1c4f98e493d0724b
31c0: 35 32 35 32 63 32 66 62 61 65 33 63 35 32 36 37  5252c2fbae3c5267
31d0: 31 39 66 31 64 32 37 65 36 63 63 64 30 64 37 30  19f1d27e6ccd0d70
31e0: 35 32 34 30 32 38 31 65 38 66 62 66 33 64 62 37  5240281e8fbf3db7
31f0: 35 62 39 62 33 32 30 35 63 31 34 31 33 34 33 36  5b9b3205c1413436
3200: 64 33 62 35 64 31 34 30 30 30 34 62 38 63 63 61  d3b5d140004b8cca
3210: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
3220: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 33   Hash_SHA512-2.3
3230: 37 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  7 {SHA512ShortMs
3240: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3250: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
3260: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3270: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3280: 20 61 65 38 63 39 66 38 66 62 34 31 62 35 31 39   ae8c9f8fb41b519
3290: 62 36 64 39 34 33 38 33 33 66 65 31 63 33 32 64  b6d943833fe1c32d
32a0: 31 63 34 32 39 32 66 62 31 64 64 66 31 64 62 65  1c4292fb1ddf1dbe
32b0: 32 65 62 32 32 37 64 39 65 31 34 64 33 31 65 64  2eb227d9e14d31ed
32c0: 37 34 65 62 61 65 66 31 32 5d 7d 20 5c 0a 09 2d  74ebaef12]} \..-
32d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
32e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
32f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3300: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3310: 65 73 75 6c 74 20 30 34 32 66 39 66 64 30 61 34  esult 042f9fd0a4
3320: 65 64 33 64 39 66 65 63 33 36 35 35 61 65 31 31  ed3d9fec3655ae11
3330: 30 31 31 63 36 66 32 62 63 37 65 34 35 37 65 38  011c6f2bc7e457e8
3340: 38 31 32 62 36 64 38 62 65 32 63 64 34 35 66 63  812b6d8be2cd45fc
3350: 36 63 34 33 32 61 39 34 35 35 38 63 38 38 66 32  6c432a94558c88f2
3360: 32 63 30 31 34 33 39 36 31 38 38 36 35 65 38 65  2c01439618865e8e
3370: 34 39 65 35 30 39 63 34 34 38 62 33 34 32 63 61  49e509c448b342ca
3380: 39 31 34 62 31 32 30 33 34 34 61 61 66 37 62 63  914b120344aaf7bc
3390: 62 64 63 61 31 38 0a 0a 74 63 6c 74 65 73 74 3a  bdca18..tcltest:
33a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
33b0: 32 2d 32 2e 33 38 20 7b 53 48 41 35 31 32 53 68  2-2.38 {SHA512Sh
33c0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
33d0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
33e0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
33f0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3400: 65 20 68 65 78 20 64 61 33 39 66 62 38 36 32 33  e hex da39fb8623
3410: 37 66 30 30 33 30 33 38 34 34 65 36 31 66 63 36  7f00303844e61fc6
3420: 63 66 65 37 37 39 65 34 32 61 66 35 33 33 34 39  cfe779e42af53349
3430: 38 33 39 35 39 30 62 63 64 32 66 30 65 34 63 62  839590bcd2f0e4cb
3440: 62 63 32 37 39 65 63 30 62 37 65 38 38 35 64 31  bc279ec0b7e885d1
3450: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3460: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3470: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
3480: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
3490: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 63 62  xact -result ecb
34a0: 34 33 64 65 38 63 32 33 33 61 37 33 31 62 33 38  43de8c233a731b38
34b0: 65 33 30 63 35 36 39 36 66 38 38 37 36 37 36 31  e30c5696f8876761
34c0: 62 37 65 61 37 32 65 66 65 32 38 33 66 64 30 37  b7ea72efe283fd07
34d0: 62 65 64 66 32 30 30 32 39 66 34 37 63 36 64 32  bedf20029f47c6d2
34e0: 61 34 34 32 37 38 32 33 65 31 30 30 66 62 30 38  a4427823e100fb08
34f0: 37 61 62 61 66 32 32 64 37 65 66 66 34 32 61 39  7abaf22d7eff42a9
3500: 35 31 63 39 37 63 33 64 64 30 35 66 34 38 61 32  51c97c3dd05f48a2
3510: 30 31 36 33 66 61 34 33 36 37 63 62 61 0a 0a 74  0163fa4367cba..t
3520: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3530: 68 5f 53 48 41 35 31 32 2d 32 2e 33 39 20 7b 53  h_SHA512-2.39 {S
3540: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
3550: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3560: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
3570: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3580: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 65 37  y decode hex 3e7
3590: 32 37 31 64 32 30 37 30 65 66 30 39 35 33 39 34  271d2070ef095394
35a0: 36 32 30 63 34 62 30 31 36 35 37 36 63 31 35 30  620c4b016576c150
35b0: 66 33 34 62 65 61 36 30 37 38 34 36 31 33 61 30  f34bea60784613a0
35c0: 66 36 36 30 64 37 66 61 35 61 65 35 36 38 37 32  f660d7fa5ae56872
35d0: 62 38 38 63 35 38 33 39 38 5d 7d 20 5c 0a 09 2d  b88c58398]} \..-
35e0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
35f0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
3600: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3610: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3620: 65 73 75 6c 74 20 38 31 35 34 64 30 64 61 36 33  esult 8154d0da63
3630: 34 61 62 32 32 36 36 30 36 31 61 63 63 31 32 33  4ab2266061acc123
3640: 61 63 62 34 30 37 36 35 30 66 66 65 39 31 36 34  acb407650ffe9164
3650: 61 32 32 64 65 33 66 65 32 39 62 66 30 35 33 39  a22de3fe29bf0539
3660: 33 62 32 61 65 63 65 39 32 63 66 34 64 62 30 30  3b2aece92cf4db00
3670: 65 61 35 62 34 33 34 31 63 33 31 64 64 62 37 64  ea5b4341c31ddb7d
3680: 65 31 35 31 36 38 33 63 38 61 37 31 62 35 61 34  e151683c8a71b5a4
3690: 34 64 35 63 33 31 37 35 37 39 30 66 65 61 63 36  4d5c3175790feac6
36a0: 37 64 31 38 65 65 0a 0a 74 63 6c 74 65 73 74 3a  7d18ee..tcltest:
36b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
36c0: 32 2d 32 2e 34 30 20 7b 53 48 41 35 31 32 53 68  2-2.40 {SHA512Sh
36d0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
36e0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
36f0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3700: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3710: 65 20 68 65 78 20 33 31 31 66 62 36 37 66 36 61  e hex 311fb67f6a
3720: 30 37 38 34 62 62 30 31 61 32 64 35 61 33 66 33  0784bb01a2d5a3f3
3730: 30 39 32 63 34 30 37 61 39 64 33 33 32 32 33 31  092c407a9d332231
3740: 39 64 66 66 39 61 37 39 66 38 39 34 32 39 31 63  9dff9a79f894291c
3750: 35 66 61 63 33 37 33 31 39 66 62 34 30 38 34 30  5fac37319fb40840
3760: 32 65 31 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  2e18]} \..-body 
3770: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3780: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
3790: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
37a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
37b0: 20 31 38 37 30 66 65 39 31 33 61 62 62 30 61 34   1870fe913abb0a4
37c0: 62 34 66 35 33 62 36 35 38 31 61 65 31 38 33 32  b4f53b6581ae1832
37d0: 32 63 64 30 35 33 32 38 35 31 34 35 35 36 36 30  2cd0532851455660
37e0: 37 66 33 66 34 64 37 62 36 61 32 61 63 38 65 39  7f3f4d7b6a2ac8e9
37f0: 31 38 35 64 39 34 64 39 34 37 64 38 62 39 63 38  185d94d947d8b9c8
3800: 38 65 30 65 66 61 36 36 64 38 39 62 35 39 66 37  8e0efa66d89b59f7
3810: 34 33 39 63 37 35 66 64 61 64 64 31 38 31 36 66  439c75fdadd1816f
3820: 37 34 31 32 33 30 36 61 62 32 62 35 39 64 36 36  7412306ab2b59d66
3830: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
3840: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 34   Hash_SHA512-2.4
3850: 31 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  1 {SHA512ShortMs
3860: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3870: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
3880: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3890: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
38a0: 20 37 36 35 31 61 62 34 39 31 62 38 66 61 38 36   7651ab491b8fa86
38b0: 66 39 36 39 64 34 32 39 37 37 64 30 39 64 66 35  f969d42977d09df5
38c0: 66 38 62 65 65 33 65 35 38 39 39 31 38 30 62 35  f8bee3e5899180b5
38d0: 32 63 39 36 38 62 30 64 62 30 35 37 61 36 66 30  2c968b0db057a6f0
38e0: 32 61 38 38 36 61 64 36 31 37 61 38 34 39 31 35  2a886ad617a84915
38f0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
3900: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3910: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
3920: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3930: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 33  exact -result f3
3940: 35 65 35 30 65 32 65 30 32 62 38 37 38 31 33 34  5e50e2e02b878134
3950: 35 66 38 63 65 62 32 31 39 38 66 30 36 38 62 61  5f8ceb2198f068ba
3960: 31 30 33 34 37 36 66 37 31 35 63 66 62 34 38 37  103476f715cfb487
3970: 61 34 35 32 38 38 32 63 39 66 30 64 65 30 63 37  a452882c9f0de0c7
3980: 32 30 62 32 61 30 38 38 61 33 39 64 30 36 61 38  20b2a088a39d06a8
3990: 61 36 62 36 34 63 65 34 64 36 34 37 30 64 66 65  a6b64ce4d6470dfe
39a0: 61 64 63 34 66 36 35 61 65 30 36 36 37 32 63 30  adc4f65ae06672c0
39b0: 35 37 65 32 39 66 31 34 63 34 64 61 66 39 0a 0a  57e29f14c4daf9..
39c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
39d0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 34 32 20 7b  sh_SHA512-2.42 {
39e0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
39f0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3a00: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
3a10: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3a20: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 62  ry decode hex db
3a30: 65 35 64 62 36 38 35 65 64 37 63 62 38 34 38 63  e5db685ed7cb848c
3a40: 30 39 34 35 32 34 63 31 37 32 33 35 31 39 64 34  094524c1723519d4
3a50: 39 64 63 36 36 65 66 39 66 65 36 64 35 37 65 36  9dc66ef9fe6d57e6
3a60: 38 36 32 61 36 34 33 35 37 35 30 62 66 61 30 61  862a6435750bfa0a
3a70: 37 30 66 31 30 34 66 35 64 33 39 36 65 36 31 61  70f104f5d396e61a
3a80: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3a90: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3aa0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
3ab0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
3ac0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 66 61  xact -result 2fa
3ad0: 36 65 35 62 32 63 34 34 33 61 36 38 30 35 30 66  6e5b2c443a68050f
3ae0: 30 39 33 65 37 66 62 37 31 33 62 64 36 62 31 38  093e7fb713bd6b18
3af0: 66 36 32 37 34 63 30 36 31 65 64 36 31 64 37 39  f6274c061ed61d79
3b00: 62 66 30 36 38 38 61 36 31 64 62 61 31 39 34 30  bf0688a61dba1940
3b10: 62 63 63 33 30 39 39 38 32 37 36 38 36 30 39 34  bcc3099827686094
3b20: 33 61 62 30 33 38 39 30 32 38 39 36 64 30 66 62  3ab038902896d0fb
3b30: 66 35 39 62 38 38 62 30 37 63 38 30 64 65 39 32  f59b88b07c80de92
3b40: 37 30 33 37 30 39 37 31 35 30 63 34 30 0a 0a 74  7037097150c40..t
3b50: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3b60: 68 5f 53 48 41 35 31 32 2d 32 2e 34 33 20 7b 53  h_SHA512-2.43 {S
3b70: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
3b80: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3b90: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
3ba0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3bb0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 66 61  y decode hex 9fa
3bc0: 38 33 65 39 36 62 32 61 36 64 66 32 33 66 62 33  83e96b2a6df23fb3
3bd0: 37 32 38 39 35 30 31 35 36 37 38 65 30 62 32 63  72895015678e0b2c
3be0: 39 63 64 31 38 61 38 35 34 32 63 33 65 61 61 32  9cd18a8542c3eaa2
3bf0: 63 34 33 35 61 37 36 61 65 34 64 63 39 62 64 35  c435a76ae4dc9bd5
3c00: 31 33 36 64 39 37 30 64 61 66 66 39 33 33 61 63  136d970daff933ac
3c10: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
3c20: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3c30: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
3c40: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3c50: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 61  exact -result 3a
3c60: 32 63 30 65 63 38 38 61 33 65 35 33 34 37 63 66  2c0ec88a3e5347cf
3c70: 30 65 61 39 63 30 37 38 38 33 38 33 30 30 65 66  0ea9c078838300ef
3c80: 37 33 35 36 66 39 61 36 63 33 34 32 30 36 33 32  7356f9a6c3420632
3c90: 37 37 63 31 30 36 62 38 38 30 61 30 30 65 64 32  77c106b880a00ed2
3ca0: 62 65 32 30 35 63 31 33 30 36 34 30 39 37 62 64  be205c13064097bd
3cb0: 33 37 32 66 64 65 33 38 30 30 37 62 63 33 30 36  372fde38007bc306
3cc0: 35 36 31 65 62 34 65 37 34 62 62 61 32 62 62 32  561eb4e74bba2bb2
3cd0: 30 62 64 33 35 34 61 61 36 39 30 63 61 36 0a 0a  0bd354aa690ca6..
3ce0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3cf0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 34 34 20 7b  sh_SHA512-2.44 {
3d00: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
3d10: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3d20: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
3d30: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3d40: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 61  ry decode hex 8a
3d50: 35 61 34 35 65 33 39 38 62 61 63 31 64 39 62 38  5a45e398bac1d9b8
3d60: 39 36 62 35 61 32 62 34 65 33 35 36 36 62 39 31  96b5a2b4e3566b91
3d70: 64 38 30 61 64 32 30 63 39 37 37 65 61 37 34 35  d80ad20c977ea745
3d80: 30 66 66 32 65 66 62 35 32 31 64 38 32 66 36 35  0ff2efb521d82f65
3d90: 30 31 39 65 65 37 36 32 65 30 63 38 35 63 36 63  019ee762e0c85c6c
3da0: 63 38 34 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  c841]} \..-body 
3db0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3dc0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
3dd0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3de0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3df0: 20 33 63 37 30 34 36 32 30 66 34 30 36 36 64 37   3c704620f4066d7
3e00: 39 63 31 66 66 36 37 37 35 32 39 38 30 66 33 39  9c1ff67752980f39
3e10: 65 66 33 64 39 63 31 30 32 33 66 61 35 61 32 31  ef3d9c1023fa5a21
3e20: 33 61 35 32 36 35 33 37 36 62 31 34 61 31 35 31  3a5265376b14a151
3e30: 36 36 66 66 65 30 36 39 62 35 31 64 66 37 37 31  66ffe069b51df771
3e40: 30 64 38 39 30 37 66 65 66 39 34 30 36 62 66 33  0d8907fef9406bf3
3e50: 37 35 64 35 30 32 63 65 30 38 36 61 63 38 32 61  75d502ce086ac82a
3e60: 66 66 31 37 32 32 39 61 61 61 37 61 35 61 33 33  ff17229aaa7a5a33
3e70: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
3e80: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 34   Hash_SHA512-2.4
3e90: 35 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  5 {SHA512ShortMs
3ea0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3eb0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
3ec0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3ed0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3ee0: 20 34 39 63 66 66 66 64 61 66 34 64 30 33 31 65   49cfffdaf4d031e
3ef0: 33 33 62 31 64 32 38 61 34 34 37 34 35 30 35 34  33b1d28a44745054
3f00: 35 66 36 63 34 32 39 33 62 33 38 64 35 61 66 62  5f6c4293b38d5afb
3f10: 63 62 39 38 38 33 39 37 36 63 30 31 34 66 30 38  cb9883976c014f08
3f20: 30 35 37 36 65 63 36 39 31 61 63 31 62 66 66 37  0576ec691ac1bff7
3f30: 30 62 37 34 32 65 66 61 62 5d 7d 20 5c 0a 09 2d  0b742efab]} \..-
3f40: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3f50: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
3f60: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3f70: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3f80: 65 73 75 6c 74 20 38 62 63 63 34 66 31 65 61 32  esult 8bcc4f1ea2
3f90: 62 37 38 36 32 65 66 31 35 39 31 62 66 61 37 33  b7862ef1591bfa73
3fa0: 39 31 36 36 36 35 64 65 38 66 61 66 36 35 34 33  916665de8faf6543
3fb0: 39 64 64 66 35 63 63 31 62 65 34 33 63 65 62 66  9ddf5cc1be43cebf
3fc0: 64 35 66 36 30 66 32 30 35 65 38 33 35 61 32 62  d5f60f205e835a2b
3fd0: 31 38 36 62 36 37 35 62 30 34 31 32 35 38 63 35  186b675b041258c5
3fe0: 63 66 66 34 32 36 36 39 33 31 36 63 65 32 35 62  cff42669316ce25b
3ff0: 34 36 61 32 66 34 64 34 32 31 38 65 31 30 32 66  46a2f4d4218e102f
4000: 30 66 35 64 36 66 0a 0a 74 63 6c 74 65 73 74 3a  0f5d6f..tcltest:
4010: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
4020: 32 2d 32 2e 34 36 20 7b 53 48 41 35 31 32 53 68  2-2.46 {SHA512Sh
4030: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4040: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
4050: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
4060: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
4070: 65 20 68 65 78 20 32 66 66 38 34 35 64 38 35 65  e hex 2ff845d85e
4080: 66 62 63 34 66 61 35 36 33 37 65 39 34 34 38 64  fbc4fa5637e9448d
4090: 39 35 30 34 39 36 66 31 39 64 38 64 35 37 64 61  950496f19d8d57da
40a0: 39 39 62 37 62 64 33 64 66 37 34 37 34 38 32 32  99b7bd3df7474822
40b0: 66 30 61 37 39 30 35 38 36 37 33 36 34 31 36 37  f0a7905867364167
40c0: 31 34 65 33 36 34 63 36 65 31 66 61 65 30 34 65  14e364c6e1fae04e
40d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
40e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
40f0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
4100: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4110: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 33 36  xact -result 236
4120: 66 36 66 34 65 64 36 65 38 35 38 63 30 32 64 35  f6f4ed6e858c02d5
4130: 31 37 38 37 65 36 30 63 35 37 38 66 37 33 31 66  1787e60c578f731f
4140: 36 39 34 66 38 65 35 32 62 35 64 66 34 65 63 64  694f8e52b5df4ecd
4150: 35 62 30 34 64 66 66 31 34 63 37 38 65 35 36 62  5b04dff14c78e56b
4160: 61 64 31 30 32 38 64 36 66 36 32 36 63 32 39 64  ad1028d6f626c29d
4170: 38 35 61 65 65 65 31 35 31 61 32 61 32 38 34 36  85aeee151a2a2846
4180: 64 33 65 65 64 35 63 66 61 66 61 39 38 35 34 61  d3eed5cfafa9854a
4190: 36 39 66 65 61 38 61 66 36 64 30 34 61 0a 0a 74  69fea8af6d04a..t
41a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
41b0: 68 5f 53 48 41 35 31 32 2d 32 2e 34 37 20 7b 53  h_SHA512-2.47 {S
41c0: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
41d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
41e0: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
41f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4200: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 66 63  y decode hex cfc
4210: 61 30 35 66 64 38 39 33 63 30 66 30 30 35 66 35  a05fd893c0f005f5
4220: 66 66 37 39 36 66 34 64 61 31 39 62 61 32 37 61  ff796f4da19ba27a
4230: 31 65 37 32 39 39 35 36 62 38 62 37 31 35 65 36  1e729956b8b715e6
4240: 37 63 65 34 62 32 64 32 61 33 38 32 61 37 32 65  7ce4b2d2a382a72e
4250: 63 37 38 31 34 66 32 66 35 30 37 62 31 38 32 35  c7814f2f507b1825
4260: 32 30 39 61 32 30 66 63 63 5d 7d 20 5c 0a 09 2d  209a20fcc]} \..-
4270: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
4280: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
4290: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
42a0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
42b0: 65 73 75 6c 74 20 64 38 30 39 36 39 32 38 34 61  esult d80969284a
42c0: 34 35 36 35 61 64 64 34 64 61 64 36 61 62 39 62  4565add4dad6ab9b
42d0: 33 62 64 66 35 33 34 34 36 31 34 32 66 38 34 61  3bdf53446142f84a
42e0: 61 66 39 32 64 34 62 32 33 64 64 32 32 65 65 37  af92d4b23dd22ee7
42f0: 32 34 31 65 36 63 38 31 34 38 39 61 63 38 62 32  241e6c81489ac8b2
4300: 34 36 65 64 63 62 36 64 66 39 62 64 37 62 32 33  46edcb6df9bd7b23
4310: 64 39 31 61 30 63 35 31 37 66 35 34 36 66 65 62  d91a0c517f546feb
4320: 61 34 65 64 35 37 39 30 61 32 62 65 36 65 31 36  a4ed5790a2be6e16
4330: 35 63 31 37 30 39 0a 0a 74 63 6c 74 65 73 74 3a  5c1709..tcltest:
4340: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
4350: 32 2d 32 2e 34 38 20 7b 53 48 41 35 31 32 53 68  2-2.48 {SHA512Sh
4360: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4370: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
4380: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
4390: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
43a0: 65 20 68 65 78 20 63 66 63 34 32 35 37 35 39 61  e hex cfc425759a
43b0: 39 63 33 36 62 62 39 66 34 62 33 32 65 65 64 37  9c36bb9f4b32eed7
43c0: 37 36 37 61 66 36 35 36 36 66 36 38 64 65 64 30  767af6566f68ded0
43d0: 61 64 65 61 65 32 35 63 37 61 37 30 63 61 37 38  adeae25c7a70ca78
43e0: 65 63 30 39 37 37 34 64 31 36 63 38 62 63 33 35  ec09774d16c8bc35
43f0: 37 66 36 64 36 66 37 62 64 34 34 31 62 66 36 32  7f6d6f7bd441bf62
4400: 64 39 34 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d942]} \..-body 
4410: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4420: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
4430: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4440: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4450: 20 62 35 38 37 61 37 38 35 63 64 66 34 35 35 63   b587a785cdf455c
4460: 63 39 63 35 34 34 65 37 35 36 63 31 65 33 30 36  c9c544e756c1e306
4470: 33 30 30 61 61 33 63 35 39 66 38 37 32 35 30 31  300aa3c59f872501
4480: 32 65 36 38 61 62 34 64 35 34 30 32 30 62 36 64  2e68ab4d54020b6d
4490: 32 32 37 61 31 36 34 64 39 66 38 33 63 39 30 35  227a164d9f83c905
44a0: 65 38 36 66 38 63 65 62 65 65 66 37 30 38 61 36  e86f8cebeef708a6
44b0: 39 66 39 37 36 64 36 65 37 62 31 38 62 39 62 66  9f976d6e7b18b9bf
44c0: 37 38 65 39 62 39 38 63 63 34 61 35 63 64 31 62  78e9b98cc4a5cd1b
44d0: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
44e0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 34   Hash_SHA512-2.4
44f0: 39 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  9 {SHA512ShortMs
4500: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4510: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
4520: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4530: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4540: 20 30 39 37 63 39 64 62 39 31 39 35 31 35 32 34   097c9db91951524
4550: 32 63 39 39 64 39 37 33 61 63 62 31 64 63 34 65  2c99d973acb1dc4e
4560: 64 34 38 32 37 36 38 66 39 37 34 65 62 38 33 62  d482768f974eb83b
4570: 34 36 35 66 39 66 36 63 38 32 35 30 33 33 37 32  465f9f6c82503372
4580: 30 30 36 65 34 34 39 30 38 33 35 65 32 65 63 38  006e4490835e2ec8
4590: 66 39 32 33 30 31 31 33 30 62 66 62 37 39 30 62  f92301130bfb790b
45a0: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
45b0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
45c0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
45d0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
45e0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 66  exact -result ff
45f0: 35 61 33 37 36 66 39 33 38 65 37 33 30 31 34 63  5a376f938e73014c
4600: 61 65 66 37 66 65 33 39 36 32 39 34 34 61 37 32  aef7fe3962944a72
4610: 33 30 64 30 32 30 62 37 30 38 37 38 36 39 65 62  30d020b7087869eb
4620: 65 37 65 63 37 30 33 30 32 37 32 31 63 64 30 36  e7ec70302721cd06
4630: 66 63 64 63 39 38 31 63 38 39 33 61 34 32 35 64  fcdc981c893a425d
4640: 30 35 65 32 66 39 39 66 65 31 39 38 65 34 64 62  05e2f99fe198e4db
4650: 35 30 61 30 38 38 61 65 65 32 62 66 31 32 36 33  50a088aee2bf1263
4660: 32 31 32 31 31 30 65 66 65 64 34 32 32 63 0a 0a  212110efed422c..
4670: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4680: 73 68 5f 53 48 41 35 31 32 2d 32 2e 35 30 20 7b  sh_SHA512-2.50 {
4690: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
46a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
46b0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
46c0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
46d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 37  ry decode hex 77
46e0: 65 37 33 64 33 38 37 65 37 62 63 38 30 34 31 39  e73d387e7bc80419
46f0: 65 62 66 35 34 38 32 62 36 31 64 35 32 35 35 63  ebf5482b61d5255c
4700: 61 66 38 31 39 66 62 35 39 32 35 31 66 66 36 61  af819fb59251ff6a
4710: 33 38 34 65 37 35 66 36 30 31 65 61 30 32 36 64  384e75f601ea026d
4720: 38 33 65 66 39 35 30 65 64 30 62 36 37 35 31 38  83ef950ed0b67518
4730: 66 62 39 39 64 65 65 30 64 38 61 61 65 66 31 66  fb99dee0d8aaef1f
4740: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4750: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4760: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
4770: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4780: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 34 63  xact -result c4c
4790: 38 39 63 64 38 38 32 65 63 39 34 35 63 63 38 38  89cd882ec945cc88
47a0: 38 66 62 39 61 30 31 32 37 64 33 35 65 35 38 35  8fb9a0127d35e585
47b0: 65 63 63 31 34 61 37 35 65 34 62 35 62 33 64 38  ecc14a75e4b5b3d8
47c0: 33 33 30 35 33 38 64 32 32 64 61 32 38 63 66 36  330538d22da28cf6
47d0: 61 66 31 65 62 65 63 39 36 64 63 32 34 37 66 31  af1ebec96dc247f1
47e0: 30 39 63 64 32 61 61 61 62 39 37 35 36 65 36 39  09cd2aaab9756e69
47f0: 34 36 61 33 64 38 30 64 62 38 33 36 33 61 34 64  46a3d80db8363a4d
4800: 61 33 65 36 64 64 62 62 35 31 30 61 31 0a 0a 74  a3e6ddbb510a1..t
4810: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4820: 68 5f 53 48 41 35 31 32 2d 32 2e 35 31 20 7b 53  h_SHA512-2.51 {S
4830: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
4840: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4850: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
4860: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4870: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 31 37  y decode hex 317
4880: 65 35 64 39 61 63 37 33 65 64 30 36 33 33 66 61  e5d9ac73ed0633fa
4890: 31 38 65 62 65 62 62 63 61 37 39 30 39 65 63 33  18ebebbca7909ec3
48a0: 61 35 65 66 37 39 30 34 37 38 66 39 63 33 38 63  a5ef790478f9c38c
48b0: 61 63 65 63 34 34 66 31 39 36 64 38 39 35 38 33  acec44f196d89583
48c0: 35 62 34 32 35 37 37 34 34 38 33 30 34 33 33 34  5b42577448304334
48d0: 31 33 38 31 65 37 61 66 32 64 33 38 33 65 35 31  1381e7af2d383e51
48e0: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
48f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4900: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
4910: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4920: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 31  exact -result b1
4930: 30 62 62 30 34 34 39 31 62 39 63 30 63 33 33 34  0bb04491b9c0c334
4940: 37 30 39 62 34 30 37 63 64 61 31 64 35 30 33 65  709b407cda1d503e
4950: 66 62 36 62 36 33 65 65 39 34 34 66 32 64 33 36  fb6b63ee944f2d36
4960: 36 62 36 38 35 35 65 36 65 36 33 65 35 62 38 30  6b6855e6e63e5b80
4970: 31 31 35 62 65 34 62 65 37 66 66 36 33 65 64 65  115be4be7ff63ede
4980: 63 64 66 62 35 39 32 33 37 39 32 65 36 38 31 32  cdfb5923792e6812
4990: 33 39 37 36 64 37 39 32 31 32 62 33 38 38 34 64  3976d79212b3884d
49a0: 65 63 32 31 37 39 64 31 66 63 66 33 38 32 0a 0a  ec2179d1fcf382..
49b0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
49c0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 35 32 20 7b  sh_SHA512-2.52 {
49d0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
49e0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
49f0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
4a00: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
4a10: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 30  ry decode hex 20
4a20: 39 34 36 31 66 32 30 36 36 36 61 33 34 36 66 65  9461f20666a346fe
4a30: 64 66 34 61 35 33 30 66 34 31 61 36 66 61 32 38  df4a530f41a6fa28
4a40: 30 63 34 33 36 36 35 37 36 37 62 65 39 32 33 62  0c43665767be923b
4a50: 63 31 64 38 30 62 62 63 62 38 63 39 66 38 66 39  c1d80bbcb8c9f8f9
4a60: 33 61 64 37 35 37 38 32 65 61 32 36 38 39 63 38  3ad75782ea2689c8
4a70: 63 35 64 32 31 31 64 32 30 35 33 62 39 39 33 31  c5d211d2053b9931
4a80: 34 35 61 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  45a0]} \..-body 
4a90: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4aa0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
4ab0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4ac0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4ad0: 20 36 37 62 37 61 33 32 38 64 39 34 34 34 30 35   67b7a328d944405
4ae0: 36 61 35 32 63 61 32 66 36 39 35 63 35 64 33 66  6a52ca2f695c5d3f
4af0: 33 62 61 61 66 62 36 32 35 61 31 34 66 62 33 32  3baafb625a14fb32
4b00: 65 65 65 38 66 66 32 36 61 34 30 63 63 62 32 39  eee8ff26a40ccb29
4b10: 36 62 65 63 31 37 37 31 61 38 32 36 62 35 35 66  6bec1771a826b55f
4b20: 37 64 64 62 36 31 37 30 64 34 63 61 66 37 37 39  7ddb6170d4caf779
4b30: 35 62 36 31 32 34 34 38 65 36 36 61 30 66 31 39  5b612448e66a0f19
4b40: 33 35 36 66 65 35 30 35 39 32 37 31 34 39 62 34  356fe505927149b4
4b50: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  7..tcltest::test
4b60: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 35   Hash_SHA512-2.5
4b70: 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  3 {SHA512ShortMs
4b80: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4b90: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
4ba0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4bb0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4bc0: 20 35 64 36 31 61 61 34 35 63 34 34 36 66 33 62   5d61aa45c446f3b
4bd0: 66 39 33 36 30 34 62 30 35 31 31 33 31 33 62 34  f93604b0511313b4
4be0: 65 32 66 33 30 36 64 36 62 30 34 36 66 62 64 39  e2f306d6b046fbd9
4bf0: 34 37 39 37 62 39 32 36 37 34 36 38 33 36 66 32  4797b926746836f2
4c00: 65 31 64 62 64 63 35 36 31 32 34 30 36 30 63 36  e1dbdc56124060c6
4c10: 63 61 39 63 39 31 31 62 31 31 32 32 31 39 32 64  ca9c911b1122192d
4c20: 31 31 32 34 32 30 38 32 37 5d 7d 20 5c 0a 09 2d  112420827]} \..-
4c30: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
4c40: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
4c50: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
4c60: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
4c70: 65 73 75 6c 74 20 64 33 39 33 31 62 64 65 32 62  esult d3931bde2b
4c80: 64 65 38 32 37 31 65 64 31 38 63 61 30 62 39 31  de8271ed18ca0b91
4c90: 34 38 62 31 32 66 36 66 31 36 31 36 31 65 36 33  48b12f6f16161e63
4ca0: 37 65 33 37 36 66 63 39 36 31 66 36 35 62 63 33  7e376fc961f65bc3
4cb0: 33 62 63 61 63 66 32 66 36 61 64 64 66 32 36 61  3bcacf2f6addf26a
4cc0: 33 65 61 61 38 31 62 31 39 36 36 35 33 63 63 33  3eaa81b196653cc3
4cd0: 37 65 38 61 37 33 39 65 63 35 62 33 64 66 38 37  7e8a739ec5b3df87
4ce0: 30 64 38 63 33 38 63 38 66 32 38 36 39 31 63 32  0d8c38c8f28691c2
4cf0: 32 61 33 39 62 62 0a 0a 74 63 6c 74 65 73 74 3a  2a39bb..tcltest:
4d00: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
4d10: 32 2d 32 2e 35 34 20 7b 53 48 41 35 31 32 53 68  2-2.54 {SHA512Sh
4d20: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
4d30: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
4d40: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
4d50: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
4d60: 65 20 68 65 78 20 39 32 38 38 63 37 39 35 62 62  e hex 9288c795bb
4d70: 30 62 38 36 63 30 34 31 39 64 39 63 35 36 33 37  0b86c0419d9c5637
4d80: 64 63 63 33 37 62 33 39 62 66 61 31 38 64 34 34  dcc37b39bfa18d44
4d90: 31 65 33 66 62 66 63 61 37 35 62 63 30 33 30 36  1e3fbfca75bc0306
4da0: 65 35 34 33 32 65 38 65 37 62 33 61 35 36 32 37  e5432e8e7b3a5627
4db0: 62 35 62 63 37 66 64 63 34 32 34 61 37 37 35 32  b5bc7fdc424a7752
4dc0: 30 61 62 64 66 66 35 36 36 65 37 66 32 62 62 38  0abdff566e7f2bb8
4dd0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4de0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4df0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
4e00: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
4e10: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 33 36  xact -result e36
4e20: 33 64 30 65 39 35 64 38 63 64 31 38 63 33 38 34  3d0e95d8cd18c384
4e30: 30 31 36 65 62 65 65 64 36 64 39 39 63 34 66 61  016ebeed6d99c4fa
4e40: 32 37 36 38 65 32 62 64 35 38 66 63 61 30 31 39  2768e2bd58fca019
4e50: 63 35 31 30 38 62 39 63 64 65 31 63 62 34 36 66  c5108b9cde1cb46f
4e60: 33 66 38 38 34 30 32 38 61 35 35 63 65 32 38 32  3f884028a55ce282
4e70: 65 63 33 31 30 61 31 30 30 33 37 66 61 61 31 62  ec310a10037faa1b
4e80: 31 36 62 34 61 36 61 36 36 39 39 35 37 66 30 62  16b4a6a669957f0b
4e90: 30 30 66 33 35 30 62 62 64 36 33 64 30 0a 0a 74  00f350bbd63d0..t
4ea0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4eb0: 68 5f 53 48 41 35 31 32 2d 32 2e 35 35 20 7b 53  h_SHA512-2.55 {S
4ec0: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
4ed0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4ee0: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
4ef0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4f00: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 38 30  y decode hex 780
4f10: 34 32 37 64 63 31 36 34 62 32 66 36 39 62 38 63  427dc164b2f69b8c
4f20: 37 64 35 36 39 32 36 36 66 34 36 31 65 32 64 33  7d569266f461e2d3
4f30: 30 63 38 38 63 34 63 64 36 30 35 37 66 62 30 33  0c88c4cd6057fb03
4f40: 30 61 36 63 66 36 33 36 66 32 34 65 33 63 30 64  0a6cf636f24e3c0d
4f50: 30 64 62 37 34 32 61 37 62 36 31 39 33 66 64 61  0db742a7b6193fda
4f60: 61 31 35 65 65 63 35 30 64 66 62 34 66 61 65 36  a15eec50dfb4fae6
4f70: 65 63 37 36 35 33 63 39 31 5d 7d 20 5c 0a 09 2d  ec7653c91]} \..-
4f80: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
4f90: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
4fa0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
4fb0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
4fc0: 65 73 75 6c 74 20 32 39 36 34 62 30 30 39 66 62  esult 2964b009fb
4fd0: 31 62 66 39 39 36 64 65 31 32 65 30 33 30 62 39  1bf996de12e030b9
4fe0: 64 36 65 30 36 30 38 61 65 38 62 39 64 62 66 32  d6e0608ae8b9dbf2
4ff0: 61 63 66 62 39 62 65 62 37 36 66 63 35 33 36 31  acfb9beb76fc5361
5000: 63 63 31 30 34 65 65 38 35 63 32 61 34 36 66 62  cc104ee85c2a46fb
5010: 37 62 34 63 65 65 39 30 38 34 38 33 31 32 64 61  7b4cee90848312da
5020: 33 30 32 64 65 34 39 61 66 65 36 31 63 35 34 36  302de49afe61c546
5030: 34 37 37 65 32 62 32 35 64 32 32 33 64 35 65 33  477e2b25d223d5e3
5040: 64 33 33 35 36 30 0a 0a 74 63 6c 74 65 73 74 3a  d33560..tcltest:
5050: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
5060: 32 2d 32 2e 35 36 20 7b 53 48 41 35 31 32 53 68  2-2.56 {SHA512Sh
5070: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5080: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
5090: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
50a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
50b0: 65 20 68 65 78 20 65 63 32 61 39 32 65 34 37 66  e hex ec2a92e47f
50c0: 36 39 32 62 35 33 63 31 33 35 35 34 37 35 63 37  692b53c1355475c7
50d0: 31 63 65 66 66 30 62 30 39 35 32 61 38 62 33 35  1ceff0b0952a8b35
50e0: 34 31 62 32 39 33 38 32 37 30 32 34 37 64 34 34  41b2938270247d44
50f0: 65 37 63 35 63 63 30 34 65 31 37 32 33 36 62 33  e7c5cc04e17236b3
5100: 35 33 64 61 30 32 38 36 37 34 65 61 62 34 30 34  53da028674eab404
5110: 37 64 38 39 65 63 35 64 61 64 38 36 38 63 66 64  7d89ec5dad868cfd
5120: 39 31 63 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  91ce]} \..-body 
5130: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5140: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
5150: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5160: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5170: 20 63 38 33 61 63 61 36 31 34 37 62 66 63 62 62   c83aca6147bfcbb
5180: 63 37 32 63 33 37 37 65 66 61 38 64 35 33 36 35  c72c377efa8d5365
5190: 34 62 61 30 38 33 30 63 35 61 36 61 38 39 65 31  4ba0830c5a6a89e1
51a0: 64 32 61 31 39 62 37 31 33 65 36 38 66 62 35 33  d2a19b713e68fb53
51b0: 34 36 34 30 64 65 62 38 33 33 63 61 35 31 32 32  4640deb833ca5122
51c0: 34 37 31 36 36 64 64 32 37 33 62 35 38 39 37 65  47166dd273b5897e
51d0: 35 37 64 35 32 36 66 38 38 65 65 66 35 38 66 36  57d526f88eef58f6
51e0: 66 66 39 37 62 61 65 65 30 62 34 65 65 35 36 34  ff97baee0b4ee564
51f0: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
5200: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 35   Hash_SHA512-2.5
5210: 37 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  7 {SHA512ShortMs
5220: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
5230: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
5240: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5250: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5260: 20 63 39 39 65 33 31 61 64 34 65 32 33 61 63 36   c99e31ad4e23ac6
5270: 38 65 31 35 65 36 30 35 64 30 62 30 32 34 33 37  8e15e605d0b02437
5280: 66 38 31 34 37 63 34 34 66 35 34 34 35 61 35 35  f8147c44f5445a55
5290: 62 36 38 61 31 30 39 30 35 32 37 36 63 63 65 38  b68a10905276cce8
52a0: 36 37 36 34 38 31 63 33 33 65 38 63 64 33 65 66  676481c33e8cd3ef
52b0: 65 33 32 32 62 62 31 33 66 65 30 31 30 37 62 62  e322bb13fe0107bb
52c0: 35 34 36 63 63 62 65 63 37 62 38 62 33 38 64 31  546ccbec7b8b38d1
52d0: 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  0]} \..-body {tl
52e0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
52f0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
5300: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
5310: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 32  exact -result 52
5320: 39 39 32 64 34 35 61 38 38 32 32 31 64 39 37 32  992d45a88221d972
5330: 39 35 38 65 39 66 32 38 35 34 61 64 61 61 39 61  958e9f2854adaa9a
5340: 32 31 64 32 62 66 37 30 35 31 65 31 66 31 30 31  21d2bf7051e1f101
5350: 39 61 65 37 38 30 30 34 64 61 35 30 63 35 62 35  9ae78004da50c5b5
5360: 35 63 31 34 34 61 30 32 61 66 66 66 65 35 33 39  5c144a02afffe539
5370: 64 37 35 33 39 34 39 61 32 62 30 35 36 35 33 34  d753949a2b056534
5380: 66 35 62 34 63 32 31 66 32 34 38 61 30 35 62 61  f5b4c21f248a05ba
5390: 61 35 32 61 36 63 33 38 63 37 66 35 64 64 0a 0a  a52a6c38c7f5dd..
53a0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
53b0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 35 38 20 7b  sh_SHA512-2.58 {
53c0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
53d0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
53e0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
53f0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
5400: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 61  ry decode hex 9a
5410: 61 33 65 38 61 64 39 32 37 37 37 64 66 65 62 31  a3e8ad92777dfeb1
5420: 32 31 61 36 34 36 63 65 32 65 39 31 38 64 31 65  21a646ce2e918d1e
5430: 31 32 62 33 30 37 35 34 62 63 30 39 34 37 30 64  12b30754bc09470d
5440: 36 64 61 34 61 66 36 63 63 39 36 34 32 62 30 31  6da4af6cc9642b01
5450: 32 66 30 34 31 66 66 30 34 36 35 36 39 64 34 66  2f041ff046569d4f
5460: 64 38 64 30 64 63 63 66 65 34 34 38 65 35 39 66  d8d0dccfe448e59f
5470: 65 65 66 63 39 30 38 64 39 61 64 35 61 66 36 66  eefc908d9ad5af6f
5480: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5490: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
54a0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
54b0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
54c0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 39 34  xact -result 994
54d0: 64 31 63 64 61 34 64 65 34 30 61 66 66 34 37 31  d1cda4de40aff471
54e0: 33 32 33 37 63 66 39 66 37 38 66 37 30 33 33 61  3237cf9f78f7033a
54f0: 66 38 33 33 36 39 61 63 39 63 36 34 65 35 30 34  f83369ac9c64e504
5500: 30 39 31 65 61 32 66 31 63 61 66 66 36 63 35 31  091ea2f1caff6c51
5510: 35 32 64 36 61 30 63 35 36 30 38 66 38 32 38 38  52d6a0c5608f8288
5520: 36 63 30 30 39 33 62 33 64 37 66 62 61 64 64 34  6c0093b3d7fbadd4
5530: 39 64 66 64 31 66 39 65 30 66 38 35 61 63 63 66  9dfd1f9e0f85accf
5540: 32 33 62 63 37 64 61 64 34 38 39 30 34 0a 0a 74  23bc7dad48904..t
5550: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
5560: 68 5f 53 48 41 35 31 32 2d 32 2e 35 39 20 7b 53  h_SHA512-2.59 {S
5570: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
5580: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
5590: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
55a0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
55b0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 38 34  y decode hex 584
55c0: 32 35 31 32 63 33 37 33 31 32 35 31 31 61 33 64  2512c37312511a3d
55d0: 38 61 65 34 31 66 35 38 30 31 64 66 36 30 63 64  8ae41f5801df60cd
55e0: 36 38 32 64 35 38 62 34 61 39 39 37 33 34 32 62  682d58b4a997342b
55f0: 36 65 37 31 37 65 39 34 30 30 36 63 32 31 34 38  6e717e94006c2148
5600: 31 33 65 36 63 36 33 65 37 35 35 39 31 66 39 35  13e6c63e75591f95
5610: 37 61 37 65 63 33 30 31 37 37 39 38 33 38 62 65  7a7ec301779838be
5620: 63 38 61 65 33 65 64 37 66 65 62 61 64 30 38 30  c8ae3ed7febad080
5630: 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  5]} \..-body {tl
5640: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
5650: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
5660: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
5670: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 37  exact -result 97
5680: 36 33 63 34 33 33 33 31 61 64 30 65 62 32 37 39  63c43331ad0eb279
5690: 64 37 30 34 63 35 66 36 65 39 37 65 30 32 64 61  d704c5f6e97e02da
56a0: 38 37 32 34 31 31 35 30 32 36 38 32 37 66 38 38  8724115026827f88
56b0: 39 65 39 66 63 64 61 32 31 66 36 30 66 64 32 33  9e9fcda21f60fd23
56c0: 30 38 39 34 61 62 33 35 61 62 62 37 31 39 38 39  0894ab35abb71989
56d0: 30 66 33 61 66 61 35 31 61 66 64 33 31 62 63 36  0f3afa51afd31bc6
56e0: 38 35 32 31 38 33 62 39 63 35 31 30 35 39 39 31  852183b9c5105991
56f0: 30 61 66 34 36 30 61 62 64 32 34 37 34 64 0a 0a  0af460abd2474d..
5700: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
5710: 73 68 5f 53 48 41 35 31 32 2d 32 2e 36 30 20 7b  sh_SHA512-2.60 {
5720: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
5730: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
5740: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
5750: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
5760: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 61  ry decode hex ca
5770: 31 34 65 32 65 61 32 66 33 37 63 37 38 66 37 38  14e2ea2f37c78f78
5780: 65 66 32 38 30 66 35 38 37 30 37 65 63 35 34 39  ef280f58707ec549
5790: 61 33 31 61 39 34 33 36 31 30 37 33 65 33 37 37  a31a94361073e377
57a0: 30 31 62 66 65 35 30 33 65 34 63 30 31 65 65 31  01bfe503e4c01ee1
57b0: 66 32 65 31 32 33 65 30 30 65 38 31 61 31 38 38  f2e123e00e81a188
57c0: 66 30 38 66 61 30 35 30 38 32 35 37 30 39 31 32  f08fa05082570912
57d0: 38 61 39 62 36 36 62 62 38 61 65 36 65 61 34 37  8a9b66bb8ae6ea47
57e0: 65 34 31 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e41d]} \..-body 
57f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5800: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
5810: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5820: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5830: 20 34 36 30 30 65 30 32 32 61 30 32 32 35 38 37   4600e022a022587
5840: 33 39 66 36 37 66 64 64 33 36 37 63 63 31 65 36  39f67fdd367cc1e6
5850: 36 32 36 33 31 66 62 30 38 37 39 31 38 37 36 38  62631fb087918768
5860: 33 35 32 30 36 32 62 39 62 33 63 38 64 65 38 64  352062b9b3c8de8d
5870: 62 63 61 30 65 39 65 63 37 35 31 62 39 31 66 32  bca0e9ec751b91f2
5880: 38 34 36 39 34 66 62 64 64 62 38 64 33 32 35 63  84694fbddb8d325c
5890: 30 36 33 37 62 63 63 62 32 31 64 64 32 65 66 61  0637bccb21dd2efa
58a0: 39 32 65 34 38 64 62 61 62 32 65 35 65 39 63 32  92e48dbab2e5e9c2
58b0: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
58c0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 36   Hash_SHA512-2.6
58d0: 31 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  1 {SHA512ShortMs
58e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
58f0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
5900: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5910: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
5920: 20 36 34 37 36 32 39 63 37 37 39 62 32 34 63 31   647629c779b24c1
5930: 65 37 36 66 34 31 37 34 34 61 62 61 31 37 31 35  e76f41744aba1715
5940: 39 34 38 37 35 33 32 61 30 31 35 36 61 37 64 38  9487532a0156a7d8
5950: 32 36 34 64 62 35 30 64 36 34 35 65 39 35 39 35  264db50d645e9595
5960: 66 66 38 31 65 30 63 39 36 61 38 35 30 66 32 61  ff81e0c96a850f2a
5970: 61 35 36 63 38 34 34 63 36 31 33 61 34 62 38 39  a56c844c613a4b89
5980: 32 37 32 37 61 39 62 66 63 33 64 33 65 32 30 33  2727a9bfc3d3e203
5990: 38 36 37 36 36 66 38 30 35 5d 7d 20 5c 0a 09 2d  86766f805]} \..-
59a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
59b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
59c0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
59d0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
59e0: 65 73 75 6c 74 20 35 62 63 38 34 32 66 63 32 64  esult 5bc842fc2d
59f0: 33 62 37 65 62 33 31 64 32 64 33 30 34 34 64 66  3b7eb31d2d3044df
5a00: 33 65 63 33 32 61 66 31 31 34 66 65 61 61 37 63  3ec32af114feaa7c
5a10: 66 63 32 37 65 62 63 38 36 33 30 66 34 36 61 62  fc27ebc8630f46ab
5a20: 36 66 30 63 35 34 33 66 35 39 62 38 31 32 65 37  6f0c543f59b812e7
5a30: 37 36 65 35 33 30 33 38 36 31 64 31 37 64 61 33  76e5303861d17da3
5a40: 66 31 66 31 36 30 39 37 36 34 31 66 33 62 38 30  f1f16097641f3b80
5a50: 38 64 34 64 35 63 62 33 65 34 38 33 39 34 36 34  8d4d5cb3e4839464
5a60: 30 39 37 34 36 63 0a 0a 74 63 6c 74 65 73 74 3a  09746c..tcltest:
5a70: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
5a80: 32 2d 32 2e 36 32 20 7b 53 48 41 35 31 32 53 68  2-2.62 {SHA512Sh
5a90: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5aa0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
5ab0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
5ac0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
5ad0: 65 20 68 65 78 20 31 63 35 64 63 30 64 31 64 64  e hex 1c5dc0d1dd
5ae0: 32 65 34 63 37 31 37 36 33 35 66 66 33 65 39 62  2e4c717635ff3e9b
5af0: 36 37 63 61 66 39 35 37 61 65 63 30 66 38 66 36  67caf957aec0f8f6
5b00: 33 63 31 62 31 65 32 32 31 65 38 30 30 61 34 63  3c1b1e221e800a4c
5b10: 31 34 38 34 38 66 34 65 61 30 36 65 36 34 34 65  14848f4ea06e644e
5b20: 35 64 33 65 31 64 65 35 39 32 65 66 35 61 38 30  5d3e1de592ef5a80
5b30: 30 37 66 61 33 66 30 37 31 37 31 62 32 34 62 64  07fa3f07171b24bd
5b40: 30 37 35 37 38 64 36 38 39 36 33 65 35 63 62 31  07578d68963e5cb1
5b50: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
5b60: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
5b70: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
5b80: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
5b90: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 62 66  xact -result cbf
5ba0: 31 65 61 38 36 66 61 35 62 33 64 62 66 36 37 62  1ea86fa5b3dbf67b
5bb0: 65 38 32 66 61 63 34 31 65 38 34 63 63 63 64 30  e82fac41e84cccd0
5bc0: 64 32 39 36 63 37 35 37 31 36 39 62 33 37 38 33  d296c757169b3783
5bd0: 37 64 32 37 33 63 63 63 30 31 35 65 65 63 64 31  7d273ccc015eecd1
5be0: 30 32 62 39 63 65 31 63 66 66 36 38 66 64 63 37  02b9ce1cff68fdc7
5bf0: 66 30 35 64 32 32 66 32 62 37 37 34 37 33 34 66  f05d22f2b774734f
5c00: 36 32 64 65 64 35 34 63 38 65 65 30 62 66 35 37  62ded54c8ee0bf57
5c10: 61 35 61 38 32 30 31 30 64 37 34 66 35 0a 0a 74  a5a82010d74f5..t
5c20: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
5c30: 68 5f 53 48 41 35 31 32 2d 32 2e 36 33 20 7b 53  h_SHA512-2.63 {S
5c40: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
5c50: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
5c60: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
5c70: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
5c80: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 61 35  y decode hex 8a5
5c90: 35 35 65 37 35 34 37 37 64 30 36 35 62 33 61 66  55e75477d065b3af
5ca0: 37 65 36 31 35 34 37 35 66 33 37 63 30 61 36 36  7e615475f37c0a66
5cb0: 37 66 37 33 61 34 63 37 61 66 35 65 34 61 36 39  7f73a4c7af5e4a69
5cc0: 66 32 38 61 36 38 64 39 66 34 34 33 34 37 37 36  f28a68d9f4434776
5cd0: 61 38 66 39 30 65 61 62 37 66 31 64 31 33 37 65  a8f90eab7f1d137e
5ce0: 62 34 62 32 32 36 34 33 63 30 61 30 64 36 61 31  b4b22643c0a0d6a1
5cf0: 36 66 63 66 61 61 31 62 64 36 32 66 32 37 38 33  6fcfaa1bd62f2783
5d00: 35 34 36 61 39 36 39 35 66 5d 7d 20 5c 0a 09 2d  546a9695f]} \..-
5d10: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
5d20: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
5d30: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
5d40: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
5d50: 65 73 75 6c 74 20 63 30 38 38 65 34 61 33 64 37  esult c088e4a3d7
5d60: 64 61 32 66 36 66 39 39 61 38 66 33 66 37 31 37  da2f6f99a8f3f717
5d70: 33 36 31 31 30 38 38 37 32 62 38 66 66 65 66 39  361108872b8ffef9
5d80: 32 31 62 33 38 33 63 32 34 62 38 30 36 31 64 34  21b383c24b8061d4
5d90: 65 37 63 32 37 66 63 35 36 66 34 66 32 30 64 63  e7c27fc56f4f20dc
5da0: 38 66 39 35 32 61 31 34 30 34 33 63 35 36 35 30  8f952a14043c5650
5db0: 62 35 61 39 65 37 37 37 63 34 39 63 34 31 63 66  b5a9e777c49c41cf
5dc0: 65 62 33 66 32 64 65 39 37 65 65 32 65 31 36 62  eb3f2de97ee2e16b
5dd0: 32 63 33 39 32 34 0a 0a 74 63 6c 74 65 73 74 3a  2c3924..tcltest:
5de0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
5df0: 32 2d 32 2e 36 34 20 7b 53 48 41 35 31 32 53 68  2-2.64 {SHA512Sh
5e00: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
5e10: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
5e20: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
5e30: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
5e40: 65 20 68 65 78 20 65 62 62 33 65 32 61 64 37 38  e hex ebb3e2ad78
5e50: 30 33 35 30 38 62 61 34 36 65 38 31 65 32 32 30  03508ba46e81e220
5e60: 62 31 63 66 66 33 33 65 61 38 33 38 31 35 30 34  b1cff33ea8381504
5e70: 31 31 30 65 39 66 38 30 39 32 65 66 30 38 35 61  110e9f8092ef085a
5e80: 66 65 66 38 34 64 62 30 64 34 33 36 39 33 31 64  fef84db0d436931d
5e90: 30 38 35 64 30 65 31 62 30 36 62 64 32 31 38 63  085d0e1b06bd218c
5ea0: 66 35 37 31 63 37 39 33 33 38 64 61 33 31 61 38  f571c79338da31a8
5eb0: 33 62 34 63 62 31 65 63 36 63 30 36 64 36 62 39  3b4cb1ec6c06d6b9
5ec0: 38 37 36 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  8768]} \..-body 
5ed0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
5ee0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
5ef0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
5f00: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
5f10: 20 66 33 33 34 32 38 64 38 66 63 36 37 61 61 32   f33428d8fc67aa2
5f20: 63 63 31 61 64 63 62 32 38 32 32 66 33 37 66 32  cc1adcb2822f37f2
5f30: 39 63 62 64 37 32 61 62 66 66 36 38 31 39 30 34  9cbd72abff681904
5f40: 38 33 65 34 31 35 38 32 34 66 30 62 63 65 63 64  83e415824f0bcecd
5f50: 34 34 37 63 62 34 66 30 35 61 39 63 34 37 30 33  447cb4f05a9c4703
5f60: 31 62 39 63 35 30 65 30 34 31 31 63 35 35 32 66  1b9c50e0411c552f
5f70: 33 31 63 64 30 34 63 33 30 63 65 61 32 62 63 36  31cd04c30cea2bc6
5f80: 34 62 63 66 38 32 35 61 35 66 38 61 36 36 30 32  4bcf825a5f8a6602
5f90: 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  8..tcltest::test
5fa0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 36   Hash_SHA512-2.6
5fb0: 35 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  5 {SHA512ShortMs
5fc0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
5fd0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
5fe0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
5ff0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6000: 20 63 31 63 61 37 30 61 65 31 32 37 39 62 61 30   c1ca70ae1279ba0
6010: 62 39 31 38 31 35 37 35 35 38 62 34 39 32 30 64  b918157558b4920d
6020: 36 62 37 66 62 61 38 61 30 36 62 65 35 31 35 31  6b7fba8a06be5151
6030: 37 30 66 32 30 32 66 61 66 64 33 36 66 62 37 66  70f202fafd36fb7f
6040: 37 39 64 36 39 66 61 64 37 34 35 64 62 61 36 31  79d69fad745dba61
6050: 35 30 35 36 38 64 62 31 65 32 62 37 32 38 35 30  50568db1e2b72850
6060: 34 31 31 33 65 65 61 63 33 34 66 35 32 37 66 63  4113eeac34f527fc
6070: 38 32 66 32 32 30 30 62 34 36 32 65 63 62 66 35  82f2200b462ecbf5
6080: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
6090: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
60a0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
60b0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
60c0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 34  exact -result 04
60d0: 36 65 34 36 36 32 33 39 31 32 62 33 39 33 32 62  6e46623912b3932b
60e0: 38 64 36 36 32 61 62 34 32 35 38 33 34 32 33 38  8d662ab425834238
60f0: 34 33 32 30 36 33 30 31 62 35 38 62 66 32 30 61  43206301b58bf20a
6100: 62 36 64 37 36 66 64 34 37 66 31 63 62 62 63 66  b6d76fd47f1cbbcf
6110: 34 32 31 64 66 35 33 36 65 63 64 37 65 35 36 64  421df536ecd7e56d
6120: 62 35 33 35 34 65 37 65 30 66 39 38 38 32 32 64  b5354e7e0f98822d
6130: 32 31 32 39 63 31 39 37 66 36 66 30 66 32 32 32  2129c197f6f0f222
6140: 62 38 65 63 35 32 33 31 66 33 39 36 37 64 0a 0a  b8ec5231f3967d..
6150: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
6160: 73 68 5f 53 48 41 35 31 32 2d 32 2e 36 36 20 7b  sh_SHA512-2.66 {
6170: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
6180: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
6190: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
61a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
61b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 33  ry decode hex d3
61c0: 64 64 64 64 66 38 30 35 62 31 36 37 38 61 30 32  ddddf805b1678a02
61d0: 65 33 39 32 30 30 66 36 34 34 30 30 34 37 61 63  e39200f6440047ac
61e0: 62 62 30 36 32 65 34 61 32 66 30 34 36 61 33 63  bb062e4a2f046a3c
61f0: 61 37 66 31 64 64 36 65 62 30 33 61 31 38 62 65  a7f1dd6eb03a18be
6200: 30 30 63 64 31 65 62 31 35 38 37 30 36 61 36 34  00cd1eb158706a64
6210: 61 66 35 38 33 34 63 36 38 63 66 37 66 31 30 35  af5834c68cf7f105
6220: 62 34 31 35 31 39 34 36 30 35 32 32 32 63 39 39  b415194605222c99
6230: 61 32 63 62 66 37 32 63 35 30 63 62 31 34 62 66  a2cbf72c50cb14bf
6240: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6250: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6260: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
6270: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
6280: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 61 65  xact -result bae
6290: 37 63 35 64 35 39 30 62 66 32 35 61 34 39 33 64  7c5d590bf25a493d
62a0: 38 66 34 38 62 38 62 34 36 33 38 63 63 62 31 30  8f48b8b4638ccb10
62b0: 35 34 31 63 36 37 39 39 36 65 34 37 32 38 37 62  541c67996e47287b
62c0: 39 38 34 33 32 32 30 30 39 64 32 37 64 31 33 34  984322009d27d134
62d0: 38 66 33 65 66 32 39 39 39 66 35 65 65 30 64 33  8f3ef2999f5ee0d3
62e0: 38 65 31 31 32 63 64 35 61 38 30 37 61 35 37 38  8e112cd5a807a578
62f0: 33 30 63 64 63 33 31 38 61 31 31 38 31 65 36 63  30cdc318a1181e6c
6300: 34 36 35 33 63 64 62 38 63 66 31 32 32 0a 0a 74  4653cdb8cf122..t
6310: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6320: 68 5f 53 48 41 35 31 32 2d 32 2e 36 37 20 7b 53  h_SHA512-2.67 {S
6330: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
6340: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
6350: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
6360: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6370: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 65 38  y decode hex 8e8
6380: 65 66 38 61 61 33 33 36 62 33 62 39 38 38 39 34  ef8aa336b3b98894
6390: 63 33 31 32 36 63 37 31 38 37 38 39 31 30 36 31  c3126c7187891061
63a0: 38 38 33 38 63 30 30 61 63 38 35 39 30 31 37 33  8838c00ac8590173
63b0: 63 39 31 37 34 39 39 37 32 66 66 33 64 34 32 61  c91749972ff3d42a
63c0: 36 31 31 33 37 30 32 39 61 64 37 34 35 30 31 36  61137029ad745016
63d0: 38 34 66 37 35 65 31 62 38 64 31 64 37 34 33 33  84f75e1b8d1d7433
63e0: 36 61 61 39 30 38 63 34 34 30 38 32 61 65 39 65  6aa908c44082ae9e
63f0: 62 31 36 32 65 39 30 31 38 36 37 66 35 34 39 30  b162e901867f5490
6400: 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  5]} \..-body {tl
6410: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
6420: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
6430: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
6440: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 31  exact -result 41
6450: 36 37 32 39 33 31 35 35 38 61 39 33 37 36 32 35  672931558a937625
6460: 32 32 62 31 64 35 35 33 38 39 65 63 66 31 62 38  22b1d55389ecf1b8
6470: 63 30 66 65 62 38 62 38 38 66 34 35 38 37 66 62  c0feb8b88f4587fb
6480: 64 34 31 37 63 61 38 30 39 30 35 35 62 30 63 62  d417ca809055b0cb
6490: 36 33 30 64 38 62 65 61 31 33 33 61 62 37 66 36  630d8bea133ab7f6
64a0: 63 66 31 66 32 31 63 36 62 33 35 65 32 65 32 35  cf1f21c6b35e2e25
64b0: 63 30 64 31 39 35 38 33 32 35 38 38 30 38 65 36  c0d19583258808e6
64c0: 63 32 33 65 31 61 37 35 33 33 36 31 30 33 0a 0a  c23e1a75336103..
64d0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
64e0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 36 38 20 7b  sh_SHA512-2.68 {
64f0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
6500: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
6510: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
6520: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
6530: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 32  ry decode hex 52
6540: 37 36 31 65 31 64 61 63 30 65 61 65 61 38 39 38  761e1dac0eaea898
6550: 65 30 62 30 37 63 64 32 34 66 34 62 32 65 36 62  e0b07cd24f4b2e6b
6560: 62 37 62 63 32 30 30 65 61 34 62 30 35 32 38 38  b7bc200ea4b05288
6570: 34 32 66 31 37 62 38 37 31 35 34 35 35 39 61 32  42f17b87154559a2
6580: 65 61 39 34 34 35 39 61 30 65 34 38 30 61 65 30  ea94459a0e480ae0
6590: 62 64 66 39 66 37 35 37 64 64 34 61 33 33 35 61  bdf9f757dd4a335a
65a0: 65 64 30 65 35 31 30 31 33 38 62 30 32 34 61 30  ed0e510138b024a0
65b0: 34 65 64 31 64 35 39 31 62 34 33 32 33 32 33 34  4ed1d591b4323234
65c0: 64 62 64 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  dbd5]} \..-body 
65d0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
65e0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
65f0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6600: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6610: 20 62 38 32 36 66 65 38 30 34 39 34 65 31 39 63   b826fe80494e19c
6620: 35 31 62 34 32 66 32 35 38 32 62 32 64 30 38 30  51b42f2582b2d080
6630: 62 61 36 62 39 30 35 31 32 66 33 35 66 32 64 62  ba6b90512f35f2db
6640: 36 37 64 64 37 66 64 35 65 65 35 33 32 65 61 61  67dd7fd5ee532eaa
6650: 31 36 34 39 38 61 66 62 61 30 38 62 34 39 39 36  16498afba08b4996
6660: 63 62 63 66 64 66 38 64 31 61 32 64 66 36 62 31  cbcfdf8d1a2df6b1
6670: 64 61 39 33 39 65 38 32 36 35 31 31 35 61 34 38  da939e8265115a48
6680: 61 65 66 61 34 32 66 33 38 32 30 35 64 62 34 33  aefa42f38205db43
6690: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
66a0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 36   Hash_SHA512-2.6
66b0: 39 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  9 {SHA512ShortMs
66c0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
66d0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
66e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
66f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6700: 20 33 38 30 34 65 62 63 34 33 63 62 65 61 38 30   3804ebc43cbea80
6710: 63 32 62 64 37 65 34 66 64 61 35 63 35 35 31 35  c2bd7e4fda5c5515
6720: 35 30 30 63 64 32 64 32 62 38 34 36 61 31 33 37  500cd2d2b846a137
6730: 38 64 62 66 32 31 38 64 35 63 33 37 37 31 33 38  8dbf218d5c377138
6740: 36 30 36 65 62 33 63 62 38 61 63 38 38 66 39 30  606eb3cb8ac88f90
6750: 37 36 66 36 66 66 34 34 33 36 66 39 30 37 31 37  76f6ff4436f90717
6760: 34 32 37 63 39 64 66 31 62 61 30 35 32 61 63 62  427c9df1ba052acb
6770: 62 65 34 35 38 35 65 39 38 62 36 65 38 65 30 62  be4585e98b6e8e0b
6780: 66 38 30 30 66 31 39 34 36 5d 7d 20 5c 0a 09 2d  f800f1946]} \..-
6790: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
67a0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
67b0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
67c0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
67d0: 65 73 75 6c 74 20 31 37 64 64 36 64 38 37 62 63  esult 17dd6d87bc
67e0: 36 37 37 33 30 35 31 65 35 32 30 34 37 66 64 34  6773051e52047fd4
67f0: 34 34 39 39 36 61 66 61 38 31 32 34 62 30 34 38  44996afa8124b048
6800: 33 66 65 31 32 31 38 37 37 66 39 38 35 35 33 34  3fe121877f985534
6810: 34 38 37 37 32 62 64 30 65 37 37 35 31 66 63 36  48772bd0e7751fc6
6820: 35 35 65 39 63 63 32 64 32 39 38 33 30 32 31 31  55e9cc2d29830211
6830: 30 31 35 64 33 31 30 66 31 39 31 34 37 34 63 61  015d310f191474ca
6840: 36 61 64 63 30 34 37 37 61 31 38 37 63 30 33 62  6adc0477a187c03b
6850: 38 66 65 32 35 32 0a 0a 74 63 6c 74 65 73 74 3a  8fe252..tcltest:
6860: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
6870: 32 2d 32 2e 37 30 20 7b 53 48 41 35 31 32 53 68  2-2.70 {SHA512Sh
6880: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
6890: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
68a0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
68b0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
68c0: 65 20 68 65 78 20 32 32 34 39 64 36 39 38 63 34  e hex 2249d698c4
68d0: 64 38 30 37 61 38 65 37 62 34 64 65 32 31 63 34  d807a8e7b4de21c4
68e0: 38 35 37 33 38 39 35 39 61 30 64 36 37 65 35 64  85738959a0d67e5d
68f0: 32 63 61 36 66 37 37 39 38 33 64 66 63 63 62 35  2ca6f77983dfccb5
6900: 64 62 66 34 37 39 33 31 32 36 31 65 31 66 31 35  dbf47931261e1f15
6910: 33 37 66 33 63 62 63 61 32 35 33 61 66 62 36 62  37f3cbca253afb6b
6920: 66 34 66 65 35 65 37 36 37 32 65 31 64 63 63 38  f4fe5e7672e1dcc8
6930: 36 30 62 33 64 36 63 38 64 32 34 33 61 66 65 32  60b3d6c8d243afe2
6940: 64 39 37 35 38 62 33 37 35 65 39 35 35 36 39 32  d9758b375e955692
6950: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
6960: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
6970: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
6980: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
6990: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 61 66  xact -result 6af
69a0: 34 34 35 36 33 66 63 34 36 38 64 35 31 31 38 32  44563fc468d51182
69b0: 66 36 63 33 62 65 35 38 64 34 35 39 33 32 61 66  f6c3be58d45932af
69c0: 31 64 39 38 35 63 36 66 32 38 33 39 37 36 63 39  1d985c6f283976c9
69d0: 31 61 39 66 66 34 32 31 66 33 38 33 66 65 32 31  1a9ff421f383fe21
69e0: 64 63 37 33 32 32 66 33 39 37 63 63 65 61 64 35  dc7322f397ccead5
69f0: 38 33 65 32 36 62 33 65 33 66 64 61 30 36 37 39  83e26b3e3fda0679
6a00: 37 36 61 37 66 33 34 36 36 35 64 66 32 35 61 32  76a7f34665df25a2
6a10: 63 65 64 37 62 34 62 30 39 63 64 65 63 0a 0a 74  ced7b4b09cdec..t
6a20: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
6a30: 68 5f 53 48 41 35 31 32 2d 32 2e 37 31 20 7b 53  h_SHA512-2.71 {S
6a40: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
6a50: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
6a60: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
6a70: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
6a80: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 32 61  y decode hex 32a
6a90: 39 63 31 37 30 33 33 36 35 38 63 35 34 66 32 32  9c17033658c54f22
6aa0: 63 37 31 33 35 64 64 66 63 38 37 39 64 65 39 34  c7135ddfc879de94
6ab0: 64 37 39 35 39 33 65 66 32 64 63 37 64 33 30 34  d79593ef2dc7d304
6ac0: 31 62 66 61 38 37 32 37 33 38 33 38 39 38 36 34  1bfa872738389864
6ad0: 65 65 64 61 32 37 38 30 31 37 39 34 63 63 63 34  eeda27801794ccc4
6ae0: 66 66 31 66 63 62 35 65 66 33 66 63 34 38 38 33  ff1fcb5ef3fc4883
6af0: 33 38 30 31 64 36 66 65 39 35 39 65 33 36 32 37  3801d6fe959e3627
6b00: 66 38 65 61 31 35 33 36 61 64 30 30 66 61 39 63  f8ea1536ad00fa9c
6b10: 37 64 37 64 39 66 30 34 33 5d 7d 20 5c 0a 09 2d  7d7d9f043]} \..-
6b20: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
6b30: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
6b40: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
6b50: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
6b60: 65 73 75 6c 74 20 36 61 34 37 36 39 39 64 64 33  esult 6a47699dd3
6b70: 61 64 61 32 66 31 31 62 63 34 65 61 34 32 30 37  ada2f11bc4ea4207
6b80: 32 62 30 36 63 63 32 30 38 35 37 62 66 31 36 34  2b06cc20857bf164
6b90: 34 39 37 64 66 31 32 38 35 34 30 30 63 32 35 30  497df1285400c250
6ba0: 66 35 38 34 38 62 36 66 37 31 39 35 37 64 62 64  f5848b6f71957dbd
6bb0: 63 38 34 35 66 35 64 61 65 61 62 39 31 33 30 33  c845f5daeab91303
6bc0: 36 36 36 31 66 36 39 33 38 37 38 39 33 66 63 32  6661f69387893fc2
6bd0: 64 36 31 63 32 35 66 61 35 39 62 39 64 38 35 62  d61c25fa59b9d85b
6be0: 31 39 66 34 30 31 0a 0a 74 63 6c 74 65 73 74 3a  19f401..tcltest:
6bf0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
6c00: 32 2d 32 2e 37 32 20 7b 53 48 41 35 31 32 53 68  2-2.72 {SHA512Sh
6c10: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
6c20: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
6c30: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
6c40: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
6c50: 65 20 68 65 78 20 33 64 36 35 66 36 39 61 35 39  e hex 3d65f69a59
6c60: 30 61 35 62 61 61 61 62 63 64 32 37 34 66 65 33  0a5baaabcd274fe3
6c70: 65 66 39 65 38 38 39 32 30 66 66 63 37 61 64 66  ef9e88920ffc7adf
6c80: 30 35 63 31 36 64 37 62 30 66 34 64 31 38 64 37  05c16d7b0f4d18d7
6c90: 32 62 61 63 31 65 39 34 63 33 62 33 64 38 33 62  2bac1e94c3b3d83b
6ca0: 38 66 34 63 35 35 32 65 62 38 30 65 39 66 64 65  8f4c552eb80e9fde
6cb0: 33 39 31 31 34 30 33 66 38 62 30 30 30 35 37 39  3911403f8b000579
6cc0: 38 31 36 66 30 32 65 31 37 31 36 66 64 36 32 37  816f02e1716fd627
6cd0: 39 34 36 30 33 31 64 30 61 66 30 37 39 33 65 37  946031d0af0793e7
6ce0: 66 33 65 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f3e1]} \..-body 
6cf0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
6d00: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
6d10: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
6d20: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
6d30: 20 66 66 62 32 64 39 34 35 30 39 34 33 63 32 34   ffb2d9450943c24
6d40: 62 35 39 33 33 63 32 34 38 31 32 34 35 39 62 37  b5933c24812459b7
6d50: 35 64 33 64 39 66 33 38 30 33 34 34 63 39 62 63  5d3d9f380344c9bc
6d60: 30 36 66 61 33 65 31 37 65 65 34 34 38 65 63 61  06fa3e17ee448eca
6d70: 32 66 39 38 66 66 37 39 66 37 65 32 32 33 35 63  2f98ff79f7e2235c
6d80: 63 64 39 66 39 61 38 31 37 36 66 36 38 61 32 32  cd9f9a8176f68a22
6d90: 35 34 62 62 63 39 62 38 33 34 64 36 61 63 38 64  54bbc9b834d6ac8d
6da0: 32 62 66 64 62 63 31 35 39 37 63 34 33 32 63 39  2bfdbc1597c432c9
6db0: 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  f..tcltest::test
6dc0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 37   Hash_SHA512-2.7
6dd0: 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  3 {SHA512ShortMs
6de0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
6df0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
6e00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
6e10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
6e20: 20 37 36 66 66 38 62 32 30 61 31 38 63 66 31 30   76ff8b20a18cf10
6e30: 34 66 36 63 64 62 36 35 65 32 62 61 38 66 36 36  4f6cdb65e2ba8f66
6e40: 65 63 66 38 34 34 61 66 37 65 38 35 65 38 65 66  ecf844af7e85e8ef
6e50: 32 64 61 31 39 65 38 38 34 38 61 31 36 30 35 32  2da19e8848a16052
6e60: 65 63 34 30 35 61 36 34 34 64 61 66 62 35 63 61  ec405a644dafb5ca
6e70: 30 38 65 63 34 38 66 39 37 33 32 37 61 63 35 32  08ec48f97327ac52
6e80: 63 30 65 35 36 32 31 38 34 30 32 63 37 32 61 39  c0e56218402c72a9
6e90: 61 36 64 63 31 63 66 33 34 34 64 35 38 61 37 31  a6dc1cf344d58a71
6ea0: 36 61 37 38 64 37 64 37 35 32 39 36 38 30 62 61  6a78d7d7529680ba
6eb0: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
6ec0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
6ed0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
6ee0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
6ef0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 38  exact -result f8
6f00: 38 35 38 31 34 34 63 36 64 37 30 39 64 64 30 36  858144c6d709dd06
6f10: 38 39 61 35 32 36 61 35 34 38 61 34 33 66 31 37  89a526a548a43f17
6f20: 34 39 34 39 35 30 62 61 32 61 63 32 30 35 34 34  494950ba2ac20544
6f30: 37 39 39 65 38 65 61 32 37 32 30 31 64 37 38 62  799e8ea27201d78b
6f40: 63 65 35 62 39 32 31 65 32 39 61 37 62 34 30 32  ce5b921e29a7b402
6f50: 39 32 37 38 65 36 38 33 34 31 65 66 32 61 30 63  9278e68341ef2a0c
6f60: 61 34 62 61 33 38 39 34 35 36 36 62 33 63 38 66  a4ba3894566b3c8f
6f70: 38 39 35 30 65 33 65 35 34 35 61 36 38 39 0a 0a  8950e3e545a689..
6f80: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
6f90: 73 68 5f 53 48 41 35 31 32 2d 32 2e 37 34 20 7b  sh_SHA512-2.74 {
6fa0: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
6fb0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
6fc0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
6fd0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
6fe0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 61  ry decode hex ca
6ff0: 38 38 64 64 64 66 63 38 37 36 61 31 32 66 34 35  88dddfc876a12f45
7000: 66 31 39 35 36 32 62 63 39 63 61 32 35 30 66 34  f19562bc9ca250f4
7010: 33 32 36 37 61 62 32 35 31 61 37 66 33 34 35 63  3267ab251a7f345c
7020: 33 63 30 32 32 65 32 30 31 34 34 65 31 33 35 36  3c022e20144e1356
7030: 30 34 30 37 38 37 36 32 65 66 35 63 38 61 38 66  04078762ef5c8a8f
7040: 30 33 38 63 66 31 62 31 64 36 61 39 31 37 30 39  038cf1b1d6a91709
7050: 62 35 39 64 64 30 36 38 33 39 36 61 39 65 39 37  b59dd068396a9e97
7060: 31 61 62 36 32 38 66 37 34 38 38 36 65 37 36 35  1ab628f74886e765
7070: 33 38 34 61 32 33 36 30 37 63 31 61 31 65 36 65  384a23607c1a1e6e
7080: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7090: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
70a0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
70b0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
70c0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 66 33  xact -result 4f3
70d0: 64 39 65 65 65 66 33 34 39 63 61 35 31 61 37 65  d9eeef349ca51a7e
70e0: 34 31 39 61 66 31 36 38 36 66 34 32 37 39 35 61  419af1686f42795a
70f0: 62 64 65 35 38 61 38 35 33 33 35 63 65 36 38 64  bde58a85335ce68d
7100: 34 39 36 65 38 31 65 34 34 33 36 61 38 30 61 36  496e81e4436a80a6
7110: 31 64 63 31 34 33 61 34 33 30 30 30 30 38 63 32  1dc143a4300008c2
7120: 33 61 33 65 37 31 66 34 62 61 39 38 37 34 33 31  3a3e71f4ba987431
7130: 39 35 61 33 36 39 34 61 38 64 30 32 66 65 65 31  95a3694a8d02fee1
7140: 31 62 64 33 31 34 35 36 39 61 62 63 30 0a 0a 74  1bd314569abc0..t
7150: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
7160: 68 5f 53 48 41 35 31 32 2d 32 2e 37 35 20 7b 53  h_SHA512-2.75 {S
7170: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
7180: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
7190: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
71a0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
71b0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 61 37  y decode hex 0a7
71c0: 38 62 31 36 62 34 30 32 36 66 37 65 63 30 36 33  8b16b4026f7ec063
71d0: 64 62 34 65 37 62 37 37 63 34 32 61 32 39 38 65  db4e7b77c42a298e
71e0: 35 32 34 65 32 36 38 30 39 33 63 35 30 33 38 38  524e268093c50388
71f0: 35 33 65 32 31 37 64 63 64 36 35 66 36 36 34 32  53e217dcd65f6642
7200: 38 36 35 30 31 36 35 66 63 61 30 36 61 31 62 34  8650165fca06a1b4
7210: 63 39 63 66 31 35 33 37 66 62 35 64 34 36 33 36  c9cf1537fb5d4636
7220: 33 30 66 66 33 62 64 37 31 63 66 33 32 63 33 35  30ff3bd71cf32c35
7230: 33 38 62 31 66 64 64 61 33 66 65 64 35 63 39 66  38b1fdda3fed5c9f
7240: 36 30 31 32 30 33 33 31 39 62 37 65 31 38 36 39  601203319b7e1869
7250: 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  a]} \..-body {tl
7260: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
7270: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
7280: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
7290: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 30  exact -result 60
72a0: 39 35 63 33 64 66 35 62 39 64 62 37 63 65 35 32  95c3df5b9db7ce52
72b0: 34 64 37 36 31 32 33 66 37 37 34 32 31 63 65 38  4d76123f77421ce8
72c0: 38 38 62 38 36 61 34 37 37 61 65 38 63 36 64 62  88b86a477ae8c6db
72d0: 31 64 30 62 65 38 64 33 32 36 64 32 32 63 38 35  1d0be8d326d22c85
72e0: 32 39 31 35 61 62 30 33 63 30 63 38 31 61 35 62  2915ab03c0c81a5b
72f0: 37 61 63 37 31 65 32 63 31 34 65 37 34 62 64 61  7ac71e2c14e74bda
7300: 31 37 61 37 38 64 32 62 31 30 35 38 35 66 61 32  17a78d2b10585fa2
7310: 31 34 66 36 35 34 36 65 62 37 31 30 61 30 0a 0a  14f6546eb710a0..
7320: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
7330: 73 68 5f 53 48 41 35 31 32 2d 32 2e 37 36 20 7b  sh_SHA512-2.76 {
7340: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
7350: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
7360: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
7370: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
7380: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 30  ry decode hex 20
7390: 66 31 30 65 66 39 61 30 65 36 31 32 38 36 37 35  f10ef9a0e6128675
73a0: 33 34 30 31 37 31 63 64 32 34 38 64 66 33 30 62  340171cd248df30b
73b0: 35 38 36 35 35 37 36 32 30 62 36 31 35 63 61 33  586557620b615ca3
73c0: 39 61 30 30 64 62 35 33 34 33 31 35 61 39 30 31  9a00db534315a901
73d0: 32 64 62 64 62 66 64 36 61 39 39 34 39 38 36 65  2dbdbfd6a994986e
73e0: 62 38 32 39 64 62 65 36 63 64 61 66 33 61 33 37  b829dbe6cdaf3a37
73f0: 64 34 66 35 39 61 63 32 37 32 39 38 37 34 32 63  d4f59ac27298742c
7400: 38 66 37 37 37 62 36 62 31 32 36 37 37 66 32 31  8f777b6b12677f21
7410: 65 62 32 38 39 31 32 39 35 37 39 38 36 38 37 30  eb28912957986870
7420: 35 66 32 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5f27]} \..-body 
7430: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7440: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
7450: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
7460: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
7470: 20 62 34 65 61 64 33 66 38 36 30 65 61 62 62 64   b4ead3f860eabbd
7480: 33 36 63 37 37 30 64 36 36 63 37 33 35 36 66 38  36c770d66c7356f8
7490: 31 30 37 61 63 64 31 34 38 35 63 37 63 39 34 31  107acd1485c7c941
74a0: 37 38 63 32 65 61 61 62 64 35 30 32 36 36 64 37  78c2eaabd50266d7
74b0: 36 34 35 64 30 30 39 39 37 32 35 38 36 65 66 38  645d009972586ef8
74c0: 33 65 64 34 33 65 64 39 32 38 38 32 31 33 37 64  3ed43ed92882137d
74d0: 66 35 31 31 37 62 38 38 66 33 35 32 33 31 62 38  f5117b88f35231b8
74e0: 39 34 65 63 31 37 34 31 61 65 37 35 30 31 31 34  94ec1741ae750114
74f0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
7500: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 37   Hash_SHA512-2.7
7510: 37 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  7 {SHA512ShortMs
7520: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7530: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
7540: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7550: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7560: 20 39 39 35 63 38 66 37 34 37 65 61 34 31 38 66   995c8f747ea418f
7570: 37 64 36 33 61 62 61 32 32 36 30 62 33 34 61 63  7d63aba2260b34ac
7580: 33 63 37 64 63 65 65 62 62 37 38 34 33 38 63 61  3c7dceebb78438ca
7590: 34 62 31 66 39 38 32 62 37 64 62 39 37 39 38 65  4b1f982b7db9798e
75a0: 63 31 61 37 66 33 32 36 32 32 32 36 34 63 62 30  c1a7f32622264cb0
75b0: 32 34 63 30 64 39 65 36 30 65 39 35 35 61 36 65  24c0d9e60e955a6e
75c0: 31 64 36 37 37 63 39 32 33 35 31 38 38 35 31 39  1d677c9235188519
75d0: 39 30 61 34 35 39 62 37 36 37 64 30 66 31 33 63  90a459b767d0f13c
75e0: 64 38 30 33 34 36 30 66 36 31 38 37 30 64 62 33  d803460f61870db3
75f0: 33 39 31 62 34 34 36 39 33 5d 7d 20 5c 0a 09 2d  391b44693]} \..-
7600: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
7610: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
7620: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
7630: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
7640: 65 73 75 6c 74 20 61 30 30 61 36 30 31 65 64 65  esult a00a601ede
7650: 61 63 61 38 33 30 34 31 64 63 34 35 32 64 34 33  aca83041dc452d43
7660: 38 61 38 64 65 35 34 39 35 39 34 65 32 35 64 38  8a8de549594e25d8
7670: 34 33 63 32 63 66 36 30 61 30 65 30 30 39 66 62  43c2cf60a0e009fb
7680: 39 32 64 38 37 61 62 65 32 38 61 37 32 36 39 30  92d87abe28a72690
7690: 61 62 36 35 37 63 38 64 33 35 62 34 33 63 64 30  ab657c8d35b43cd0
76a0: 32 64 32 32 65 63 30 37 35 35 64 65 32 32 39 64  2d22ec0755de229d
76b0: 31 66 39 32 32 66 61 36 63 61 31 38 61 36 64 36  1f922fa6ca18a6d6
76c0: 63 32 61 61 61 65 0a 0a 74 63 6c 74 65 73 74 3a  c2aaae..tcltest:
76d0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
76e0: 32 2d 32 2e 37 38 20 7b 53 48 41 35 31 32 53 68  2-2.78 {SHA512Sh
76f0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
7700: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
7710: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
7720: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
7730: 65 20 68 65 78 20 30 66 65 62 32 33 63 37 65 34  e hex 0feb23c7e4
7740: 61 31 39 62 63 62 64 37 30 62 64 33 30 30 64 37  a19bcbd70bd300d7
7750: 36 65 63 39 30 34 35 64 36 39 36 66 38 63 39 36  6ec9045d696f8c96
7760: 38 37 66 34 39 65 63 34 31 35 34 34 30 30 65 32  87f49ec4154400e2
7770: 33 31 64 32 66 30 38 36 32 34 39 35 31 35 30 63  31d2f0862495150c
7780: 66 32 35 30 62 36 66 31 32 66 31 37 32 61 37 64  f250b6f12f172a7d
7790: 31 33 30 66 38 66 61 35 64 31 37 35 62 66 32 66  130f8fa5d175bf2f
77a0: 32 35 65 32 38 30 31 37 32 63 63 64 66 62 33 32  25e280172ccdfb32
77b0: 37 39 35 31 37 30 31 31 36 35 33 30 32 37 32 38  7951701165302728
77c0: 61 36 31 39 61 61 32 66 32 34 32 36 33 31 63 39  a619aa2f242631c9
77d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
77e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
77f0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
7800: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
7810: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 65 62  xact -result eeb
7820: 36 64 65 65 33 30 63 31 31 39 66 62 31 65 31 65  6dee30c119fb1e1e
7830: 62 35 63 31 35 66 66 32 62 33 32 64 38 62 39 63  b5c15ff2b32d8b9c
7840: 37 34 36 34 61 34 65 34 63 63 36 38 31 35 63 64  7464a4e4cc6815cd
7850: 32 35 31 61 36 62 61 65 32 39 62 34 39 39 36 31  251a6bae29b49961
7860: 64 64 35 63 32 66 61 39 63 34 34 61 39 62 31 34  dd5c2fa9c44a9b14
7870: 32 63 61 30 36 32 63 37 30 37 32 63 62 66 33 64  2ca062c7072cbf3d
7880: 62 30 34 32 39 39 62 37 36 37 37 38 39 30 34 30  b04299b767789040
7890: 31 39 36 62 66 30 63 30 36 61 61 37 36 0a 0a 74  196bf0c06aa76..t
78a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
78b0: 68 5f 53 48 41 35 31 32 2d 32 2e 37 39 20 7b 53  h_SHA512-2.79 {S
78c0: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
78d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
78e0: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
78f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
7900: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 63 35  y decode hex ac5
7910: 39 61 31 31 30 36 32 33 66 31 61 36 34 36 36 36  9a110623f1a64666
7920: 66 31 36 30 65 64 33 32 39 32 36 36 37 36 63 62  f160ed32926676cb
7930: 35 62 65 32 35 64 64 39 64 39 36 32 66 34 34 31  5be25dd9d962f441
7940: 39 35 31 62 30 65 66 63 62 35 64 36 61 36 37 61  951b0efcb5d6a67a
7950: 63 31 61 34 65 61 65 34 37 33 65 34 39 63 36 32  c1a4eae473e49c62
7960: 35 37 38 36 30 37 32 38 38 35 33 66 66 34 31 35  57860728853ff415
7970: 63 35 65 38 65 63 37 36 61 38 61 34 36 32 65 63  c5e8ec76a8a462ec
7980: 66 64 33 34 33 65 65 61 63 32 32 64 61 64 38 32  fd343eeac22dad82
7990: 30 37 32 32 63 35 39 37 33 33 32 66 62 66 64 39  0722c597332fbfd9
79a0: 34 65 62 62 64 33 32 63 36 5d 7d 20 5c 0a 09 2d  4ebbd32c6]} \..-
79b0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
79c0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
79d0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
79e0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
79f0: 65 73 75 6c 74 20 66 36 35 65 61 39 34 32 61 65  esult f65ea942ae
7a00: 30 61 34 37 65 37 33 62 30 32 62 31 34 34 32 65  0a47e73b02b1442e
7a10: 35 62 32 36 30 38 33 64 62 37 39 33 30 37 66 36  5b26083db79307f6
7a20: 34 64 64 33 34 61 30 33 39 63 34 37 36 66 61 66  4dd34a039c476faf
7a30: 31 38 64 35 63 35 31 34 62 62 37 37 61 32 63 34  18d5c514bb77a2c4
7a40: 31 32 61 36 30 37 34 61 37 61 66 63 33 32 36 65  12a6074a7afc326e
7a50: 61 36 36 63 37 34 65 35 37 30 35 66 65 32 61 62  a66c74e5705fe2ab
7a60: 62 61 62 66 32 37 34 33 33 33 33 32 35 61 31 35  babf274333325a15
7a70: 62 36 31 66 64 39 0a 0a 74 63 6c 74 65 73 74 3a  b61fd9..tcltest:
7a80: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
7a90: 32 2d 32 2e 38 30 20 7b 53 48 41 35 31 32 53 68  2-2.80 {SHA512Sh
7aa0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
7ab0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
7ac0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
7ad0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
7ae0: 65 20 68 65 78 20 39 65 33 65 31 30 37 37 65 31  e hex 9e3e1077e1
7af0: 33 33 33 61 31 66 62 31 61 61 36 33 33 63 63 66  333a1fb1aa633ccf
7b00: 32 66 37 34 36 35 38 38 61 64 34 32 36 34 38 39  2f746588ad426489
7b10: 65 61 30 38 64 66 66 35 35 31 31 34 33 38 62 35  ea08dff5511438b5
7b20: 66 34 63 30 62 31 31 30 64 31 61 34 64 34 37 62  f4c0b110d1a4d47b
7b30: 35 34 30 61 31 32 62 32 31 65 61 32 61 61 30 37  540a12b21ea2aa07
7b40: 30 35 37 38 63 63 66 61 35 63 32 32 66 65 30 62  0578ccfa5c22fe0b
7b50: 37 34 33 65 63 30 63 63 36 32 31 63 36 62 33 61  743ec0cc621c6b3a
7b60: 30 33 62 37 35 66 34 64 33 65 65 61 35 64 63 65  03b75f4d3eea5dce
7b70: 38 39 65 30 33 32 36 39 61 66 63 64 39 36 30 33  89e03269afcd9603
7b80: 64 30 64 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d0db]} \..-body 
7b90: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
7ba0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
7bb0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
7bc0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
7bd0: 20 34 62 35 63 35 64 66 38 30 63 33 34 34 63 31   4b5c5df80c344c1
7be0: 32 33 38 38 63 37 32 33 38 35 36 63 64 30 36 39  2388c723856cd069
7bf0: 36 35 62 32 31 39 30 61 66 36 35 32 34 38 30 34  65b2190af6524804
7c00: 37 36 37 34 37 64 63 32 31 39 35 65 61 33 37 31  76747dc2195ea371
7c10: 36 66 38 37 63 31 37 36 32 33 35 39 35 38 33 61  6f87c1762359583a
7c20: 35 66 33 31 35 32 32 66 38 33 66 37 38 33 33 62  5f31522f83f7833b
7c30: 65 63 33 30 66 31 66 34 37 64 31 34 35 34 30 34  ec30f1f47d145404
7c40: 31 37 64 64 34 36 33 66 35 64 32 35 38 63 64 34  17dd463f5d258cd4
7c50: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
7c60: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 38   Hash_SHA512-2.8
7c70: 31 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  1 {SHA512ShortMs
7c80: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
7c90: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
7ca0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
7cb0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
7cc0: 20 65 38 38 31 65 33 32 38 34 63 37 39 64 38 66   e881e3284c79d8f
7cd0: 35 32 33 37 65 36 39 39 65 34 66 62 63 61 38 34  5237e699e4fbca84
7ce0: 30 39 30 63 36 36 34 62 62 35 33 32 32 39 66 35  090c664bb53229f5
7cf0: 38 63 62 30 38 34 32 62 30 34 33 36 37 31 30 63  8cb0842b0436710c
7d00: 39 62 33 32 39 64 39 38 31 39 31 62 38 66 30 33  9b329d98191b8f03
7d10: 30 65 39 63 31 64 66 38 39 62 30 33 38 35 38 63  0e9c1df89b03858c
7d20: 31 35 36 39 63 36 66 66 34 39 61 37 63 30 37 63  1569c6ff49a7c07c
7d30: 34 61 32 33 61 38 61 34 33 34 62 30 66 64 65 31  4a23a8a434b0fde1
7d40: 33 62 65 34 66 39 34 63 62 34 34 65 65 36 32 39  3be4f94cb44ee629
7d50: 64 35 62 34 34 64 33 33 36 30 39 30 64 33 64 65  d5b44d336090d3de
7d60: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
7d70: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
7d80: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
7d90: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
7da0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 34  exact -result 14
7db0: 37 64 38 30 37 31 63 37 38 37 31 65 66 39 32 35  7d8071c7871ef925
7dc0: 36 63 66 66 33 32 61 61 36 33 65 61 30 33 31 34  6cff32aa63ea0314
7dd0: 30 34 66 61 35 65 65 34 65 63 30 39 63 35 36 61  04fa5ee4ec09c56a
7de0: 66 64 64 35 64 61 39 31 39 62 30 63 63 38 34 61  fdd5da919b0cc84a
7df0: 39 64 33 35 64 31 34 32 63 34 31 37 37 31 35 32  9d35d142c4177152
7e00: 30 33 33 31 36 30 31 31 63 63 36 32 30 63 64 36  03316011cc620cd6
7e10: 38 35 35 62 62 31 31 37 30 36 33 61 35 65 35 32  855bb117063a5e52
7e20: 38 36 37 66 61 63 63 36 38 30 64 35 66 34 0a 0a  867facc680d5f4..
7e30: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
7e40: 73 68 5f 53 48 41 35 31 32 2d 32 2e 38 32 20 7b  sh_SHA512-2.82 {
7e50: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
7e60: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
7e70: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
7e80: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
7e90: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 35  ry decode hex e5
7ea0: 38 35 32 31 30 39 38 39 31 31 35 30 33 64 65 38  8521098911503de8
7eb0: 34 33 31 31 33 38 37 64 33 37 35 63 32 35 39 32  4311387d375c2592
7ec0: 39 65 36 65 35 35 30 37 36 65 62 36 39 33 34 66  9e6e55076eb6934f
7ed0: 64 38 66 32 62 31 62 62 37 62 39 36 36 37 66 62  d8f2b1bb7b9667fb
7ee0: 64 37 36 64 35 65 65 32 30 34 38 32 38 37 36 39  d76d5ee204828769
7ef0: 61 33 34 31 62 31 66 37 31 36 64 61 35 62 64 66  a341b1f716da5bdf
7f00: 65 63 65 36 63 36 32 61 39 66 34 64 34 66 39 38  ece6c62a9f4d4f98
7f10: 38 32 36 37 66 63 65 31 66 35 36 31 35 35 34 30  8267fce1f5615540
7f20: 64 62 65 33 37 35 33 32 34 65 65 66 36 30 37 63  dbe375324eef607c
7f30: 39 31 30 64 39 37 36 62 34 35 61 35 65 61 35 66  910d976b45a5ea5f
7f40: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
7f50: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
7f60: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
7f70: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
7f80: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 39 37  xact -result f97
7f90: 62 61 30 35 36 66 61 34 31 66 34 33 62 38 65 31  ba056fa41f43b8e1
7fa0: 39 38 37 30 37 32 61 30 39 65 38 32 38 63 37 31  987072a09e828c71
7fb0: 63 35 66 66 36 61 64 34 65 33 37 66 39 61 62 36  c5ff6ad4e37f9ab6
7fc0: 62 38 39 65 32 61 30 37 38 39 33 33 64 64 32 33  b89e2a078933dd23
7fd0: 30 35 32 66 61 37 32 63 36 36 31 35 62 36 31 33  052fa72c6615b613
7fe0: 39 30 34 32 35 39 65 39 66 66 39 62 35 35 65 66  904259e9ff9b55ef
7ff0: 37 62 39 32 33 62 38 39 62 63 38 37 35 32 66 36  7b923b89bc8752f6
8000: 62 61 62 64 64 64 32 35 36 65 31 31 37 0a 0a 74  babddd256e117..t
8010: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8020: 68 5f 53 48 41 35 31 32 2d 32 2e 38 33 20 7b 53  h_SHA512-2.83 {S
8030: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
8040: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
8050: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
8060: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8070: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 37 39  y decode hex 379
8080: 36 63 66 35 31 62 38 37 32 36 36 35 32 61 34 32  6cf51b8726652a42
8090: 30 34 37 33 33 62 38 66 62 62 30 34 37 63 66 30  04733b8fbb047cf0
80a0: 30 66 62 39 31 61 39 38 33 37 65 32 32 65 63 32  0fb91a9837e22ec2
80b0: 32 62 31 61 32 36 38 66 38 38 65 32 63 39 66 31  2b1a268f88e2c9f1
80c0: 33 33 65 35 66 38 35 32 37 66 31 62 31 38 34 38  33e5f8527f1b1848
80d0: 33 30 65 30 37 63 33 34 35 38 63 38 33 61 38 63  30e07c3458c83a8c
80e0: 61 39 66 39 64 39 63 36 39 39 38 37 36 30 65 36  a9f9d9c6998760e6
80f0: 31 30 36 36 38 62 61 30 66 32 32 65 32 32 62 36  10668ba0f22e22b6
8100: 35 36 61 37 33 37 65 39 37 38 62 32 34 36 61 31  56a737e978b246a1
8110: 37 38 34 30 62 37 64 63 34 30 39 31 64 61 38 35  7840b7dc4091da85
8120: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
8130: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
8140: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
8150: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
8160: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 38  exact -result c8
8170: 61 34 36 36 31 39 39 61 63 62 63 62 63 39 33 66  a466199acbcbc93f
8180: 32 63 65 30 34 32 39 36 38 35 30 38 63 30 34 36  2ce042968508c046
8190: 39 30 31 36 33 31 65 33 31 31 38 61 32 64 30 62  901631e3118a2d0b
81a0: 66 33 39 61 39 62 34 32 62 34 31 39 37 61 33 37  f39a9b42b4197a37
81b0: 39 62 33 61 38 36 63 64 65 63 61 39 64 66 32 64  9b3a86cdeca9df2d
81c0: 65 31 61 33 65 62 37 31 62 37 39 61 65 39 62 66  e1a3eb71b79ae9bf
81d0: 32 64 36 35 37 35 65 61 64 66 31 38 37 38 30 32  2d6575eadf187802
81e0: 39 63 34 30 39 33 31 33 33 66 35 34 64 33 0a 0a  9c4093133f54d3..
81f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8200: 73 68 5f 53 48 41 35 31 32 2d 32 2e 38 34 20 7b  sh_SHA512-2.84 {
8210: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
8220: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
8230: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
8240: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
8250: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 61  ry decode hex 9a
8260: 66 36 30 38 64 30 33 31 63 63 66 33 30 39 64 37  f608d031ccf309d7
8270: 32 37 33 63 36 30 37 61 38 65 35 65 33 36 38 34  273c607a8e5e3684
8280: 30 64 34 34 39 62 35 35 64 62 35 62 31 33 66 30  0d449b55db5b13f0
8290: 33 61 65 62 39 61 66 34 39 66 61 37 65 37 63 66  3aeb9af49fa7e7cf
82a0: 31 33 38 33 65 65 32 65 64 39 63 35 61 38 62 37  1383ee2ed9c5a8b7
82b0: 35 31 35 66 31 36 66 62 31 63 37 63 38 34 61 36  515f16fb1c7c84a6
82c0: 38 31 35 39 30 62 66 39 30 66 35 36 35 39 37 62  81590bf90f56597b
82d0: 38 34 34 64 62 35 65 62 65 65 32 32 33 64 37 38  844db5ebee223d78
82e0: 31 30 39 62 37 32 33 35 30 37 37 32 66 37 63 37  109b72350772f7c7
82f0: 32 65 61 39 39 36 36 30 33 65 31 65 38 34 66 32  2ea996603e1e84f2
8300: 62 61 35 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ba5f]} \..-body 
8310: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8320: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
8330: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8340: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8350: 20 66 30 64 65 64 39 34 39 35 62 34 66 36 34 63   f0ded9495b4f64c
8360: 61 63 35 38 35 62 65 38 61 37 33 37 63 66 61 31  ac585be8a737cfa1
8370: 34 32 34 37 61 34 61 38 31 63 64 66 37 66 30 31  4247a4a81cdf7f01
8380: 65 62 63 62 31 33 34 61 63 65 37 31 66 35 61 38  ebcb134ace71f5a8
8390: 33 64 66 32 63 64 37 32 65 37 37 37 33 66 65 61  3df2cd72e7773fea
83a0: 31 65 38 32 62 65 61 65 31 37 65 31 33 38 35 37  1e82beae17e13857
83b0: 33 37 32 37 39 32 63 38 32 33 31 65 32 61 62 39  372792c8231e2ab9
83c0: 66 62 65 62 36 33 33 65 33 39 39 64 35 66 30 61  fbeb633e399d5f0a
83d0: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
83e0: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 38   Hash_SHA512-2.8
83f0: 35 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  5 {SHA512ShortMs
8400: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
8410: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
8420: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8430: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8440: 20 64 30 64 66 31 62 64 66 31 64 66 36 32 30 33   d0df1bdf1df6203
8450: 32 34 31 37 32 32 66 62 39 63 39 63 31 63 66 37  241722fb9c9c1cf7
8460: 34 30 35 30 31 37 34 39 37 61 65 31 35 34 35 33  405017497ae15453
8470: 38 63 63 66 39 32 32 34 61 64 37 35 32 65 36 63  8ccf9224ad752e6c
8480: 65 31 64 34 61 65 39 34 38 36 33 39 61 63 61 37  e1d4ae948639aca7
8490: 30 63 66 65 38 36 62 32 62 30 36 35 34 33 63 62  0cfe86b2b06543cb
84a0: 39 39 31 34 65 62 64 33 30 38 35 61 61 33 65 32  9914ebd3085aa3e2
84b0: 39 36 33 66 36 65 39 62 39 33 64 30 62 30 33 61  963f6e9b93d0b03a
84c0: 33 31 61 65 32 36 66 63 62 39 63 61 39 37 34 65  31ae26fcb9ca974e
84d0: 65 65 30 31 36 63 30 39 31 61 36 66 63 61 63 33  ee016c091a6fcac3
84e0: 37 62 32 31 63 63 31 64 37 5d 7d 20 5c 0a 09 2d  7b21cc1d7]} \..-
84f0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
8500: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
8510: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
8520: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
8530: 65 73 75 6c 74 20 63 32 64 61 33 65 61 33 63 38  esult c2da3ea3c8
8540: 61 33 66 64 38 38 61 35 62 63 35 64 65 61 32 62  a3fd88a5bc5dea2b
8550: 63 30 37 36 66 38 36 31 61 62 65 64 65 66 61 65  c076f861abedefae
8560: 35 61 35 66 62 64 39 34 31 64 64 66 64 31 63 34  5a5fbd941ddfd1c4
8570: 31 63 63 33 33 31 32 65 62 32 64 63 38 32 36 63  1cc3312eb2dc826c
8580: 32 63 30 66 36 35 34 31 34 66 65 37 32 65 62 65  2c0f65414fe72ebe
8590: 65 34 34 37 64 32 66 39 62 31 61 36 61 35 36 33  e447d2f9b1a6a563
85a0: 30 32 36 36 30 64 31 66 38 36 36 33 32 65 65 38  02660d1f86632ee8
85b0: 30 61 31 37 35 66 0a 0a 74 63 6c 74 65 73 74 3a  0a175f..tcltest:
85c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
85d0: 32 2d 32 2e 38 36 20 7b 53 48 41 35 31 32 53 68  2-2.86 {SHA512Sh
85e0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
85f0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
8600: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
8610: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
8620: 65 20 68 65 78 20 38 63 62 63 39 34 38 30 35 35  e hex 8cbc948055
8630: 33 61 63 65 66 37 62 63 64 62 61 39 37 31 36 65  3acef7bcdba9716e
8640: 61 38 64 36 36 62 34 31 33 31 37 38 30 39 31 37  a8d66b4131780917
8650: 64 65 32 62 30 62 30 34 38 30 34 35 66 63 62 33  de2b0b048045fcb3
8660: 32 62 35 63 61 63 30 35 34 38 30 38 65 31 66 63  2b5cac054808e1fc
8670: 65 36 65 39 34 61 64 38 35 31 65 63 62 34 37 66  e6e94ad851ecb47f
8680: 65 36 63 62 38 30 32 32 32 35 64 33 35 35 31 65  e6cb802225d3551e
8690: 30 38 65 61 31 32 32 30 39 33 64 30 30 37 38 64  08ea122093d0078d
86a0: 61 64 61 35 36 34 32 31 32 65 61 63 66 31 64 36  ada564212eacf1d6
86b0: 33 39 34 65 30 30 30 37 63 63 36 32 61 31 64 35  394e0007cc62a1d5
86c0: 39 35 61 62 31 34 63 61 30 38 61 32 38 34 62 63  95ab14ca08a284bc
86d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
86e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
86f0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
8700: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
8710: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 33 62  xact -result 63b
8720: 33 39 62 38 38 63 65 62 38 34 38 31 38 38 62 33  39b88ceb848188b3
8730: 37 33 31 36 65 30 34 35 36 30 65 37 35 61 35 33  7316e04560e75a53
8740: 34 30 61 62 38 64 34 31 37 39 33 32 64 32 33 31  40ab8d417932d231
8750: 63 39 39 37 65 38 39 32 62 34 31 64 61 61 36 39  c997e892b41daa69
8760: 64 39 66 65 33 65 39 61 31 34 64 64 31 39 63 63  d9fe3e9a14dd19cc
8770: 66 62 62 66 61 30 31 34 38 38 63 32 30 38 65 37  fbbfa01488c208e7
8780: 62 39 34 36 63 66 61 66 31 36 63 61 32 62 31 62  b946cfaf16ca2b1b
8790: 66 37 63 38 64 38 64 61 34 65 36 62 32 0a 0a 74  f7c8d8da4e6b2..t
87a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
87b0: 68 5f 53 48 41 35 31 32 2d 32 2e 38 37 20 7b 53  h_SHA512-2.87 {S
87c0: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
87d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
87e0: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
87f0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8800: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 38 66  y decode hex 38f
8810: 31 38 34 34 34 38 66 33 63 66 38 32 61 35 34 63  184448f3cf82a54c
8820: 61 66 63 35 35 36 61 66 66 33 33 36 66 32 33 66  afc556aff336f23f
8830: 39 31 34 39 65 36 31 32 31 33 34 62 33 66 63 30  9149e612134b3fc0
8840: 30 63 38 61 35 36 34 35 35 36 35 33 64 38 38 36  0c8a56455653d886
8850: 34 30 62 31 32 66 36 39 30 36 32 62 38 34 33 32  40b12f69062b8432
8860: 63 34 33 33 35 61 64 38 66 37 61 62 34 66 66 36  c4335ad8f7ab4ff6
8870: 36 63 62 37 65 62 35 34 66 33 33 32 35 36 31 61  6cb7eb54f332561a
8880: 33 36 66 30 32 34 64 39 32 63 33 65 32 36 32 37  36f024d92c3e2627
8890: 36 66 34 66 64 34 38 36 31 39 36 32 38 63 66 66  6f4fd48619628cff
88a0: 38 38 65 34 62 38 65 38 35 63 66 31 34 63 61 34  88e4b8e85cf14ca4
88b0: 37 36 37 65 64 39 39 30 64 5d 7d 20 5c 0a 09 2d  767ed990d]} \..-
88c0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
88d0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
88e0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
88f0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
8900: 65 73 75 6c 74 20 39 61 34 39 32 36 35 66 63 36  esult 9a49265fc6
8910: 34 31 63 35 39 66 31 61 39 31 38 37 32 63 64 61  41c59f1a91872cda
8920: 65 34 39 30 64 33 64 61 37 33 63 30 63 36 30 66  e490d3da73c0c60f
8930: 64 35 39 36 34 38 65 31 64 31 37 64 62 61 31 61  d59648e1d17dba1a
8940: 36 34 37 61 35 62 39 35 36 32 39 33 39 32 62 62  647a5b95629392bb
8950: 34 66 66 35 31 36 33 64 31 61 33 63 62 34 35 34  4ff5163d1a3cb454
8960: 32 37 63 31 34 33 37 61 33 62 32 65 31 64 39 66  27c1437a3b2e1d9f
8970: 30 33 30 63 30 61 38 62 63 63 35 65 64 32 32 64  030c0a8bcc5ed22d
8980: 61 39 65 32 65 64 0a 0a 74 63 6c 74 65 73 74 3a  a9e2ed..tcltest:
8990: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
89a0: 32 2d 32 2e 38 38 20 7b 53 48 41 35 31 32 53 68  2-2.88 {SHA512Sh
89b0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
89c0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
89d0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
89e0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
89f0: 65 20 68 65 78 20 37 30 39 30 30 36 31 38 62 31  e hex 70900618b1
8a00: 65 39 65 39 64 62 36 32 32 39 36 66 62 36 63 36  e9e9db62296fb6c6
8a10: 35 39 30 63 39 66 31 30 62 30 61 36 33 32 37 36  590c9f10b0a63276
8a20: 35 63 34 38 39 63 38 38 37 66 31 61 62 37 63 30  5c489c887f1ab7c0
8a30: 37 37 39 31 37 36 35 61 36 32 65 33 38 34 36 35  7791765a62e38465
8a40: 65 31 62 65 32 38 31 62 31 64 33 39 36 63 36 65  e1be281b1d396c6e
8a50: 30 38 30 62 37 65 65 33 65 36 66 61 35 36 61 33  080b7ee3e6fa56a3
8a60: 30 62 39 37 39 39 64 30 65 36 32 39 62 65 31 35  0b9799d0e629be15
8a70: 33 65 65 37 36 66 38 31 62 63 36 61 33 32 39 35  3ee76f81bc6a3295
8a80: 61 61 36 31 34 38 39 62 66 61 38 37 64 35 33 61  aa61489bfa87d53a
8a90: 38 61 64 32 34 32 34 38 61 36 65 64 65 30 64 66  8ad24248a6ede0df
8aa0: 63 66 65 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  cfe9]} \..-body 
8ab0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
8ac0: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
8ad0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
8ae0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
8af0: 20 31 63 38 63 33 33 35 37 66 66 31 66 38 64 36   1c8c3357ff1f8d6
8b00: 61 63 34 64 65 66 62 33 61 66 34 36 32 61 37 33  ac4defb3af462a73
8b10: 65 30 39 31 35 39 65 33 61 32 30 63 36 35 30 36  e09159e3a20c6506
8b20: 65 64 64 38 63 64 33 30 35 32 64 66 39 34 31 63  edd8cd3052df941c
8b30: 38 31 66 36 38 63 35 66 62 62 38 39 33 39 31 32  81f68c5fbb893912
8b40: 36 31 39 65 32 38 36 34 30 39 37 37 66 65 38 65  619e28640977fe8e
8b50: 61 61 65 38 65 39 64 35 64 34 65 37 64 35 66 31  aae8e9d5d4e7d5f1
8b60: 33 32 35 35 32 63 65 66 61 62 34 35 34 30 62 61  32552cefab4540ba
8b70: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
8b80: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 38   Hash_SHA512-2.8
8b90: 39 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  9 {SHA512ShortMs
8ba0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
8bb0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
8bc0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
8bd0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
8be0: 20 34 65 36 64 64 61 65 30 64 38 30 35 61 66 63   4e6ddae0d805afc
8bf0: 64 31 30 61 30 35 35 62 63 65 35 38 34 63 38 34  d10a055bce584c84
8c00: 38 64 30 35 30 66 62 32 39 66 65 38 66 31 63 36  8d050fb29fe8f1c6
8c10: 34 62 31 38 65 31 61 62 66 65 34 36 62 36 35 37  4b18e1abfe46b657
8c20: 38 32 65 36 66 66 35 33 36 65 38 39 64 38 64 34  82e6ff536e89d8d4
8c30: 30 39 32 38 62 34 31 65 64 37 33 37 31 33 36 35  0928b41ed7371365
8c40: 63 38 30 38 30 61 39 36 34 37 66 37 35 33 32 63  c8080a9647f7532c
8c50: 65 36 63 36 64 34 61 63 32 31 63 66 62 30 63 38  e6c6d4ac21cfb0c8
8c60: 30 32 30 37 38 33 38 35 31 65 63 39 61 37 64 62  020783851ec9a7db
8c70: 63 33 39 34 38 66 38 66 63 61 37 61 64 66 38 62  c3948f8fca7adf8b
8c80: 32 61 37 38 63 30 34 64 38 39 38 64 33 31 66 66  2a78c04d898d31ff
8c90: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
8ca0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
8cb0: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
8cc0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
8cd0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 63  exact -result 5c
8ce0: 32 66 39 39 36 63 37 37 39 62 39 31 62 33 63 34  2f996c779b91b3c4
8cf0: 36 33 39 33 31 31 66 35 34 66 61 62 62 64 64 65  639311f54fabbdde
8d00: 37 65 32 32 31 32 62 35 33 64 62 61 65 34 38 32  7e2212b53dbae482
8d10: 38 63 38 33 39 39 35 38 38 66 63 30 30 64 33 62  8c8399588fc00d3b
8d20: 32 61 65 36 30 39 31 38 61 61 61 66 36 62 62 34  2ae60918aaaf6bb4
8d30: 38 62 63 37 35 37 65 35 32 62 32 62 63 65 61 38  8bc757e52b2bcea8
8d40: 34 66 35 64 31 35 62 66 34 65 63 32 35 64 35 35  4f5d15bf4ec25d55
8d50: 31 39 66 62 35 34 66 36 66 32 36 65 31 62 0a 0a  19fb54f6f26e1b..
8d60: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
8d70: 73 68 5f 53 48 41 35 31 32 2d 32 2e 39 30 20 7b  sh_SHA512-2.90 {
8d80: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
8d90: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
8da0: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
8db0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
8dc0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 39  ry decode hex 69
8dd0: 36 38 32 35 66 36 64 36 65 61 38 31 37 33 65 63  6825f6d6ea8173ec
8de0: 34 37 64 30 39 35 39 61 34 30 31 63 34 64 64 66  47d0959a401c4ddf
8df0: 36 39 66 38 66 30 38 64 64 64 36 37 38 61 34 64  69f8f08ddd678a4d
8e00: 32 66 66 39 37 36 65 33 61 34 33 37 32 62 62 33  2ff976e3a4372bb3
8e10: 39 66 34 31 35 39 38 34 35 63 62 36 33 35 38 35  9f4159845cb63585
8e20: 65 31 64 34 31 30 38 64 33 32 65 31 32 66 61 37  e1d4108d32e12fa7
8e30: 63 35 63 39 64 37 63 65 33 35 30 38 61 37 66 35  c5c9d7ce3508a7f5
8e40: 33 61 63 61 32 62 34 62 64 39 35 31 61 64 62 63  3aca2b4bd951adbc
8e50: 64 38 39 38 34 65 62 62 37 35 33 36 35 36 33 66  d8984ebb7536563f
8e60: 35 38 38 34 63 39 30 62 63 35 30 32 33 62 33 33  5884c90bc5023b33
8e70: 31 36 66 37 65 34 64 63 36 39 35 38 66 37 34 33  16f7e4dc6958f743
8e80: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
8e90: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
8ea0: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
8eb0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
8ec0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 63 65  xact -result 3ce
8ed0: 39 34 30 63 61 39 36 62 30 30 30 31 31 33 37 35  940ca96b00011375
8ee0: 64 61 61 39 35 63 36 35 66 36 36 39 30 37 64 36  daa95c65f66907d6
8ef0: 39 62 33 65 62 33 62 38 64 37 37 39 65 36 66 63  9b3eb3b8d779e6fc
8f00: 39 37 31 61 66 63 63 30 35 65 39 39 30 62 63 34  971afcc05e990bc4
8f10: 63 35 34 31 66 34 33 34 35 39 30 66 36 62 31 38  c541f434590f6b18
8f20: 62 36 38 63 30 38 30 64 30 66 32 34 34 37 35 61  b68c080d0f24475a
8f30: 33 65 37 36 34 65 39 63 62 38 35 33 34 33 33 30  3e764e9cb8534330
8f40: 31 33 31 34 65 65 32 66 62 36 36 31 65 0a 0a 74  1314ee2fb661e..t
8f50: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
8f60: 68 5f 53 48 41 35 31 32 2d 32 2e 39 31 20 7b 53  h_SHA512-2.91 {S
8f70: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
8f80: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
8f90: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
8fa0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
8fb0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 39 65  y decode hex 79e
8fc0: 63 64 66 64 34 37 61 32 39 61 37 34 32 32 30 61  cdfd47a29a74220a
8fd0: 35 32 38 31 39 63 65 34 35 38 39 37 34 37 66 32  52819ce4589747f2
8fe0: 62 33 30 62 33 36 34 64 30 38 35 32 63 63 65 35  b30b364d0852cce5
8ff0: 32 66 39 31 65 34 66 30 66 34 38 65 36 31 63 37  2f91e4f0f48e61c7
9000: 32 66 61 37 36 62 36 30 64 33 30 30 32 63 61 65  2fa76b60d3002cae
9010: 38 39 64 66 63 35 35 31 39 64 33 34 33 30 62 39  89dfc5519d3430b9
9020: 35 63 30 39 38 66 61 34 36 37 38 35 31 36 62 35  5c098fa4678516b5
9030: 65 33 35 35 31 30 39 65 61 39 62 33 37 34 35 61  e355109ea9b3745a
9040: 61 34 31 64 36 66 38 32 30 36 65 65 36 34 61 65  a41d6f8206ee64ae
9050: 37 32 30 66 38 64 34 34 36 35 33 62 30 30 31 30  720f8d44653b0010
9060: 35 37 66 32 65 62 61 37 66 36 33 63 64 34 32 66  57f2eba7f63cd42f
9070: 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  9]} \..-body {tl
9080: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
9090: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
90a0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
90b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 61  exact -result ba
90c0: 33 64 30 66 65 30 34 34 37 30 66 34 63 66 38 66  3d0fe04470f4cf8f
90d0: 30 38 63 34 36 64 38 32 61 65 33 61 66 64 31 63  08c46d82ae3afd1c
90e0: 61 65 61 38 63 31 33 62 65 62 62 65 30 32 36 62  aea8c13bebbe026b
90f0: 35 63 31 37 37 37 61 61 35 39 38 36 30 61 66 32  5c1777aa59860af2
9100: 65 33 64 61 37 37 35 31 38 34 34 65 30 62 65 32  e3da7751844e0be2
9110: 34 30 37 32 61 66 34 38 62 63 38 61 36 66 64 37  4072af48bc8a6fd7
9120: 37 36 37 38 61 61 65 65 30 34 65 30 38 66 36 33  7678aaee04e08f63
9130: 33 39 35 66 35 63 38 61 34 36 35 37 36 33 0a 0a  395f5c8a465763..
9140: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
9150: 73 68 5f 53 48 41 35 31 32 2d 32 2e 39 32 20 7b  sh_SHA512-2.92 {
9160: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
9170: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
9180: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
9190: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
91a0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 32  ry decode hex 92
91b0: 36 33 66 65 37 35 65 38 66 36 63 37 64 35 64 36  63fe75e8f6c7d5d6
91c0: 34 32 65 32 63 61 36 61 36 65 65 61 34 66 34 34  42e2ca6a6eea4f44
91d0: 65 39 61 30 66 32 34 39 35 31 33 65 64 37 39 63  e9a0f249513ed79c
91e0: 39 34 30 39 66 66 63 61 35 35 32 36 63 61 34 34  9409ffca5526ca44
91f0: 39 31 61 65 62 62 31 33 38 32 30 35 37 63 63 37  91aebb1382057cc7
9200: 63 33 36 37 32 32 62 30 62 36 63 33 62 31 35 31  c36722b0b6c3b151
9210: 32 33 63 64 65 33 31 32 32 31 34 66 32 35 33 35  23cde312214f2535
9220: 33 61 62 66 65 33 30 62 63 61 31 37 30 35 36 38  3abfe30bca170568
9230: 61 38 65 31 62 61 35 34 30 38 39 31 37 34 30 33  a8e1ba5408917403
9240: 61 30 31 38 33 34 30 38 30 61 62 36 30 37 63 35  a01834080ab607c5
9250: 36 61 31 30 64 30 32 36 35 30 38 32 34 39 38 66  6a10d0265082498f
9260: 65 30 62 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  e0b6]} \..-body 
9270: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
9280: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
9290: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
92a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
92b0: 20 37 37 33 36 64 37 61 37 66 63 31 65 62 30 35   7736d7a7fc1eb05
92c0: 38 35 37 63 65 37 64 38 38 61 62 66 66 66 61 38  857ce7d88abfffa8
92d0: 37 66 35 38 63 36 37 30 62 66 64 66 63 30 61 38  7f58c670bfdfc0a8
92e0: 30 33 31 66 36 30 66 33 37 39 65 34 62 36 61 64  031f60f379e4b6ad
92f0: 39 34 61 63 38 66 31 33 66 66 65 32 38 63 36 39  94ac8f13ffe28c69
9300: 37 38 30 39 62 35 63 66 61 63 37 66 31 33 62 65  7809b5cfac7f13be
9310: 30 31 65 37 34 39 36 61 38 35 32 33 37 63 34 30  01e7496a85237c40
9320: 32 35 35 33 39 30 35 31 66 62 32 65 33 32 66 62  25539051fb2e32fb
9330: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
9340: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 39   Hash_SHA512-2.9
9350: 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  3 {SHA512ShortMs
9360: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
9370: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
9380: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
9390: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
93a0: 20 37 38 63 31 37 62 66 65 30 65 30 32 65 62 35   78c17bfe0e02eb5
93b0: 32 36 64 31 61 34 34 61 31 61 63 31 32 37 62 65  26d1a44a1ac127be
93c0: 30 38 32 31 38 31 34 35 32 62 36 32 35 33 39 34  082181452b625394
93d0: 62 64 36 64 63 30 39 33 61 32 63 62 34 33 32 65  bd6dc093a2cb432e
93e0: 36 65 65 35 39 63 32 66 38 62 35 35 30 33 61 62  6ee59c2f8b5503ab
93f0: 61 33 30 64 61 65 34 31 65 31 61 31 63 36 37 30  a30dae41e1a1c670
9400: 32 36 39 37 63 39 39 62 32 63 39 34 65 39 34 61  2697c99b2c94e94a
9410: 66 34 38 62 30 30 63 61 66 35 33 62 32 65 30 65  f48b00caf53b2e0e
9420: 34 65 31 62 62 65 65 38 31 65 65 32 38 32 63 37  4e1bbee81ee282c7
9430: 62 32 62 33 35 66 35 38 63 66 34 32 31 61 30 37  b2b35f58cf421a07
9440: 65 38 32 38 64 35 37 61 36 36 32 32 36 32 36 61  e828d57a6622626a
9450: 66 32 35 38 33 35 33 39 39 5d 7d 20 5c 0a 09 2d  f25835399]} \..-
9460: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9470: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
9480: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9490: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
94a0: 65 73 75 6c 74 20 62 35 36 62 36 65 33 34 33 31  esult b56b6e3431
94b0: 36 36 33 32 38 35 32 33 65 30 64 31 36 39 33 65  66328523e0d1693e
94c0: 35 31 37 34 64 61 36 34 33 61 65 38 33 63 66 36  5174da643ae83cf6
94d0: 39 63 38 35 61 37 62 33 63 33 62 65 65 32 34 37  9c85a7b3c3bee247
94e0: 62 37 37 62 38 34 37 30 32 30 36 39 64 39 65 36  b77b84702069d9e6
94f0: 62 34 63 61 62 30 33 62 66 31 37 66 65 36 31 32  b4cab03bf17fe612
9500: 30 30 39 62 66 34 32 33 39 36 38 33 63 61 37 38  009bf4239683ca78
9510: 63 61 37 65 38 37 36 61 63 61 37 64 30 37 36 30  ca7e876aca7d0760
9520: 33 62 61 37 31 34 0a 0a 74 63 6c 74 65 73 74 3a  3ba714..tcltest:
9530: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
9540: 32 2d 32 2e 39 34 20 7b 53 48 41 35 31 32 53 68  2-2.94 {SHA512Sh
9550: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
9560: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
9570: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
9580: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
9590: 65 20 68 65 78 20 32 39 38 62 62 33 30 34 61 39  e hex 298bb304a9
95a0: 32 30 66 39 36 30 34 34 37 64 38 66 64 33 38 62  20f960447d8fd38b
95b0: 30 36 31 62 66 38 66 65 34 61 63 31 66 38 37 31  061bf8fe4ac1f871
95c0: 64 38 61 30 66 65 62 34 35 34 39 66 65 62 37 32  d8a0feb4549feb72
95d0: 63 61 36 39 34 61 35 61 34 31 62 36 38 36 37 64  ca694a5a41b6867d
95e0: 39 34 63 64 35 61 66 37 37 64 34 36 38 61 64 32  94cd5af77d468ad2
95f0: 66 33 31 35 64 31 32 37 62 36 63 34 31 61 38 36  f315d127b6c41a86
9600: 32 38 30 30 66 33 39 38 35 65 35 37 33 65 30 33  2800f3985e573e03
9610: 37 37 34 30 32 39 38 65 32 63 35 63 36 31 38 36  7740298e2c5c6186
9620: 61 39 66 62 38 33 36 30 39 62 65 32 64 34 39 66  a9fb83609be2d49f
9630: 38 62 34 63 33 31 66 39 36 61 32 65 34 39 62 35  8b4c31f96a2e49b5
9640: 36 64 62 66 30 39 35 37 31 62 33 38 35 38 37 66  6dbf09571b38587f
9650: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
9660: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
9670: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
9680: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
9690: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 34 65  xact -result 34e
96a0: 33 38 37 38 36 32 37 39 30 34 66 66 62 62 62 64  3878627904ffbbbd
96b0: 38 35 32 36 36 63 63 39 37 33 63 33 34 66 39 33  85266cc973c34f93
96c0: 31 65 33 63 61 62 35 64 34 63 33 31 66 38 34 31  1e3cab5d4c31f841
96d0: 63 35 35 33 64 64 36 39 66 38 34 38 33 38 32 30  c553dd69f8483820
96e0: 36 30 36 37 64 66 34 66 39 66 33 62 39 31 30 32  6067df4f9f3b9102
96f0: 30 30 31 62 65 31 39 32 36 37 31 35 31 65 36 37  001be19267151e67
9700: 33 66 35 63 32 64 34 63 32 66 38 34 33 38 61 36  3f5c2d4c2f8438a6
9710: 39 39 39 61 30 61 33 32 35 34 38 37 64 0a 0a 74  999a0a325487d..t
9720: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
9730: 68 5f 53 48 41 35 31 32 2d 32 2e 39 35 20 7b 53  h_SHA512-2.95 {S
9740: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
9750: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9760: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
9770: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9780: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 33 63  y decode hex a3c
9790: 66 37 31 34 62 66 31 31 32 36 34 37 65 37 32 37  f714bf112647e727
97a0: 65 38 63 66 64 34 36 34 39 39 61 63 64 33 35 61  e8cfd46499acd35a
97b0: 36 34 30 64 64 33 39 33 64 64 64 32 36 33 63 64  640dd393ddd263cd
97c0: 38 35 63 66 36 32 32 35 66 35 39 38 39 30 61 30  85cf6225f59890a0
97d0: 36 38 36 64 61 64 31 63 35 34 65 62 38 64 38 30  686dad1c54eb8d80
97e0: 39 62 38 31 63 30 38 61 39 38 64 62 61 31 33 31  9b81c08a98dba131
97f0: 62 62 64 64 36 66 63 65 38 66 66 35 39 64 39 35  bbdd6fce8ff59d95
9800: 64 62 38 32 34 64 38 38 33 31 65 61 34 38 30 35  db824d8831ea4805
9810: 32 39 64 61 37 33 39 32 32 37 61 36 65 30 66 36  29da739227a6e0f6
9820: 32 62 36 30 33 62 33 38 63 33 35 63 64 63 32 35  2b603b38c35cdc25
9830: 38 31 66 36 31 34 61 33 31 38 37 39 62 38 62 65  81f614a31879b8be
9840: 35 34 61 65 65 66 61 61 30 5d 7d 20 5c 0a 09 2d  54aeefaa0]} \..-
9850: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
9860: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
9870: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
9880: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
9890: 65 73 75 6c 74 20 36 66 32 33 30 61 65 34 39 30  esult 6f230ae490
98a0: 33 64 64 62 65 66 30 62 61 33 38 34 63 32 65 33  3ddbef0ba384c2e3
98b0: 35 30 36 65 61 62 33 31 38 62 66 64 31 61 34 36  506eab318bfd1a46
98c0: 65 61 37 36 30 39 39 66 36 35 61 33 66 64 35 32  ea76099f65a3fd52
98d0: 39 63 39 31 62 63 32 38 36 35 62 39 66 64 39 34  9c91bc2865b9fd94
98e0: 33 65 33 34 36 64 65 36 34 36 32 36 62 38 35 32  3e346de64626b852
98f0: 39 66 39 64 62 31 33 37 37 62 66 32 63 35 65 30  9f9db1377bf2c5e0
9900: 31 32 39 63 36 36 62 35 30 63 36 61 35 63 66 62  129c66b50c6a5cfb
9910: 33 36 34 62 33 61 0a 0a 74 63 6c 74 65 73 74 3a  364b3a..tcltest:
9920: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
9930: 32 2d 32 2e 39 36 20 7b 53 48 41 35 31 32 53 68  2-2.96 {SHA512Sh
9940: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
9950: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c  traints SHA512 \
9960: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
9970: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
9980: 65 20 68 65 78 20 30 61 34 32 37 61 65 35 35 65  e hex 0a427ae55e
9990: 66 33 61 37 65 36 30 34 34 61 30 38 63 66 36 31  f3a7e6044a08cf61
99a0: 32 38 63 62 61 61 61 62 66 64 37 37 36 63 34 65  28cbaaabfd776c4e
99b0: 39 33 37 34 37 30 38 66 32 65 63 65 32 34 36 66  9374708f2ece246f
99c0: 64 37 33 36 30 33 64 32 66 35 34 61 63 33 65 30  d73603d2f54ac3e0
99d0: 31 64 31 36 63 66 61 63 32 62 64 61 66 37 31 33  1d16cfac2bdaf713
99e0: 39 32 30 64 36 36 65 38 66 30 61 33 64 35 34 65  920d66e8f0a3d54e
99f0: 65 36 38 63 66 66 36 34 32 36 37 64 35 35 32 38  e68cff64267d5528
9a00: 63 64 66 32 66 32 39 35 66 34 37 34 64 31 30 66  cdf2f295f474d10f
9a10: 38 31 31 37 33 65 30 31 34 33 34 38 38 61 63 35  81173e0143488ac5
9a20: 33 66 63 35 30 33 63 34 34 34 65 64 32 33 64 65  3fc503c444ed23de
9a30: 63 36 33 61 30 38 30 63 65 39 30 63 32 34 34 33  c63a080ce90c2443
9a40: 64 62 61 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  dba8]} \..-body 
9a50: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
9a60: 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74  gest SHA512 -dat
9a70: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
9a80: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
9a90: 20 66 36 62 62 65 35 64 30 63 66 31 33 64 64 66   f6bbe5d0cf13ddf
9aa0: 34 31 63 31 34 33 36 37 34 38 61 35 64 31 63 63  41c1436748a5d1cc
9ab0: 61 65 32 39 34 38 35 34 37 62 34 35 32 63 32 31  ae2948547b452c21
9ac0: 37 31 63 37 63 38 65 38 62 36 36 63 36 61 65 34  71c7c8e8b66c6ae4
9ad0: 64 65 33 63 30 65 38 62 32 39 36 32 62 63 62 36  de3c0e8b2962bcb6
9ae0: 30 64 33 64 65 33 36 30 38 34 37 39 66 38 30 65  0d3de3608479f80e
9af0: 34 35 35 63 39 30 32 34 64 39 37 31 36 63 33 38  455c9024d9716c38
9b00: 66 36 66 31 32 30 36 38 36 31 61 62 31 65 61 61  f6f1206861ab1eaa
9b10: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
9b20: 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 39   Hash_SHA512-2.9
9b30: 37 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  7 {SHA512ShortMs
9b40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
9b50: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
9b60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
9b70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
9b80: 20 32 63 62 62 62 38 37 35 31 31 66 34 39 34 38   2cbbb87511f4948
9b90: 65 66 65 63 33 61 36 31 62 35 31 31 65 64 65 64  efec3a61b511eded
9ba0: 62 31 64 64 61 38 62 36 65 63 66 63 30 32 31 30  b1dda8b6ecfc0210
9bb0: 63 31 31 65 34 33 61 37 37 65 65 33 32 64 63 32  c11e43a77ee32dc2
9bc0: 65 33 37 34 61 66 61 65 34 32 36 38 65 33 64 33  e374afae4268e3d3
9bd0: 30 34 32 37 38 30 34 38 36 38 32 33 32 61 39 36  0427804868232a96
9be0: 36 62 35 36 30 30 36 64 33 32 31 34 30 33 37 30  6b56006d32140370
9bf0: 37 36 62 66 36 61 32 36 35 62 37 32 31 33 35 61  76bf6a265b72135a
9c00: 66 30 66 62 32 65 66 37 39 30 39 66 65 61 32 64  f0fb2ef7909fea2d
9c10: 65 61 34 31 32 66 37 37 31 37 34 34 36 62 32 37  ea412f7717446b27
9c20: 36 66 66 31 35 33 37 35 33 36 36 32 62 34 64 34  6ff153753662b4d4
9c30: 31 34 38 63 30 32 33 34 37 65 33 32 35 39 31 36  148c02347e325916
9c40: 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  9]} \..-body {tl
9c50: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
9c60: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
9c70: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
9c80: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 36  exact -result 76
9c90: 38 39 37 62 38 37 61 38 61 31 63 66 38 33 35 63  897b87a8a1cf835c
9ca0: 34 33 34 66 36 64 33 39 31 63 39 65 35 32 32 37  434f6d391c9e5227
9cb0: 33 35 31 61 66 39 64 33 65 32 30 61 33 33 38 39  351af9d3e20a3389
9cc0: 63 37 39 36 62 39 38 62 34 32 34 32 38 31 61 35  c796b98b424281a5
9cd0: 39 30 36 38 64 39 63 38 64 35 36 37 65 63 32 62  9068d9c8d567ec2b
9ce0: 65 62 63 34 33 35 62 30 31 32 36 62 30 35 39 65  ebc435b0126b059e
9cf0: 32 64 38 36 33 39 34 61 39 38 35 34 64 36 36 31  2d86394a9854d661
9d00: 31 65 31 63 39 32 32 66 33 38 35 34 39 36 0a 0a  1e1c922f385496..
9d10: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
9d20: 73 68 5f 53 48 41 35 31 32 2d 32 2e 39 38 20 7b  sh_SHA512-2.98 {
9d30: 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20  SHA512ShortMsg} 
9d40: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
9d50: 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70  SHA512 \..-setup
9d60: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
9d70: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 62  ry decode hex 2b
9d80: 32 33 33 32 34 63 39 39 39 32 66 36 30 61 37 66  23324c9992f60a7f
9d90: 63 30 31 30 31 35 39 61 30 33 63 62 39 61 32 62  c010159a03cb9a2b
9da0: 32 39 30 64 66 34 66 61 36 61 38 32 33 35 39 62  290df4fa6a82359b
9db0: 39 61 66 36 30 32 66 30 61 34 30 33 61 35 65 66  9af602f0a403a5ef
9dc0: 33 33 65 64 35 64 61 35 62 32 63 61 66 38 37 62  33ed5da5b2caf87b
9dd0: 37 37 65 36 61 34 62 39 33 62 36 35 30 33 34 38  77e6a4b93b650348
9de0: 63 65 32 61 37 64 62 63 30 38 66 38 64 61 39 32  ce2a7dbc08f8da92
9df0: 30 33 64 37 31 30 62 35 38 37 62 61 35 39 34 37  03d710b587ba5947
9e00: 63 36 35 65 38 39 39 66 34 61 37 35 39 66 38 65  c65e899f4a759f8e
9e10: 32 62 30 34 39 61 65 37 38 35 30 61 38 65 33 65  2b049ae7850a8e3e
9e20: 32 39 36 32 66 36 65 66 39 33 65 61 34 63 36 33  2962f6ef93ea4c63
9e30: 31 64 65 35 64 37 38 65 37 32 39 65 63 35 62 63  1de5d78e729ec5bc
9e40: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
9e50: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
9e60: 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64   SHA512 -data $d
9e70: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
9e80: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 62 65  xact -result 3be
9e90: 65 61 30 62 33 37 33 65 64 30 39 63 66 31 63 39  ea0b373ed09cf1c9
9ea0: 31 39 63 35 31 64 38 36 64 36 34 32 63 39 31 32  19c51d86d642c912
9eb0: 35 65 30 65 65 38 31 36 39 38 64 63 34 63 62 61  5e0ee81698dc4cba
9ec0: 64 66 30 32 65 39 65 36 39 32 35 65 66 62 35 36  df02e9e6925efb56
9ed0: 32 66 64 39 62 38 37 33 30 31 61 36 33 37 37 63  2fd9b87301a6377c
9ee0: 61 31 39 32 62 65 37 39 63 34 31 31 38 64 65 61  a192be79c4118dea
9ef0: 62 63 34 35 30 62 35 34 36 33 39 30 30 30 63 32  bc450b54639000c2
9f00: 65 33 31 32 39 34 35 34 35 31 66 62 35 0a 0a 74  e312945451fb5..t
9f10: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
9f20: 68 5f 53 48 41 35 31 32 2d 32 2e 39 39 20 7b 53  h_SHA512-2.99 {S
9f30: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
9f40: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
9f50: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
9f60: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
9f70: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 30 32  y decode hex 402
9f80: 32 66 39 33 30 63 37 30 33 33 62 30 30 64 39 38  2f930c7033b00d98
9f90: 36 63 36 35 66 66 36 62 62 62 64 66 39 65 62 64  6c65ff6bbbdf9ebd
9fa0: 30 65 35 38 63 35 32 38 34 34 66 66 36 35 38 64  0e58c52844ff658d
9fb0: 66 33 38 39 33 63 33 32 30 32 64 63 35 33 33 66  f3893c3202dc533f
9fc0: 38 37 33 64 34 61 37 66 35 61 35 66 39 34 34 34  873d4a7f5a5f9444
9fd0: 31 39 66 62 35 35 32 38 63 39 62 36 37 38 38 34  19fb5528c9b67884
9fe0: 37 39 61 31 65 38 39 31 33 30 36 61 63 61 65 37  79a1e891306acae7
9ff0: 39 39 35 66 63 30 36 64 62 37 30 61 35 39 62 61  995fc06db70a59ba
a000: 61 39 35 62 65 66 37 64 61 37 39 66 35 65 37 39  a95bef7da79f5e79
a010: 33 66 32 64 62 37 66 32 61 35 35 38 32 35 65 34  3f2db7f2a55825e4
a020: 66 64 62 34 61 33 34 38 38 34 61 66 38 38 31 64  fdb4a34884af881d
a030: 65 64 31 30 38 39 66 64 35 33 33 34 35 30 32 61  ed1089fd5334502a
a040: 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  2]} \..-body {tl
a050: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
a060: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
a070: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
a080: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 33  exact -result 03
a090: 35 38 37 37 35 62 62 62 37 33 33 63 63 63 34 39  58775bbb733ccc49
a0a0: 65 37 38 66 35 34 34 61 65 65 65 35 31 32 33 37  e78f544aeee51237
a0b0: 30 64 34 38 30 64 30 65 31 33 63 37 65 38 64 35  0d480d0e13c7e8d5
a0c0: 63 34 34 34 63 34 32 33 65 35 39 32 31 34 36 62  c444c423e592146b
a0d0: 34 35 66 64 62 39 31 61 31 62 36 39 34 64 33 35  45fdb91a1b694d35
a0e0: 65 33 36 62 36 30 65 34 62 63 38 33 39 37 66 63  e36b60e4bc8397fc
a0f0: 61 38 62 62 39 37 39 30 65 36 31 39 33 33 39 37  a8bb9790e6193397
a100: 37 38 62 39 63 64 31 61 62 65 33 66 65 39 0a 0a  78b9cd1abe3fe9..
a110: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
a120: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 30 30 20  sh_SHA512-2.100 
a130: 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d  {SHA512ShortMsg}
a140: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
a150: 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75   SHA512 \..-setu
a160: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
a170: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31  ary decode hex 1
a180: 63 62 37 37 62 61 34 33 63 65 37 37 65 32 33 36  cb77ba43ce77e236
a190: 62 39 66 63 39 32 35 66 35 38 39 62 31 63 30 37  b9fc925f589b1c07
a1a0: 30 37 38 30 61 38 34 66 39 39 65 38 66 35 30 63  0780a84f99e8f50c
a1b0: 31 66 66 38 34 36 61 63 39 32 35 39 39 63 66 65  1ff846ac92599cfe
a1c0: 39 31 36 31 32 63 38 31 37 38 33 32 35 62 65 65  91612c8178325bee
a1d0: 36 34 32 61 33 34 66 34 64 66 66 64 62 61 32 61  642a34f4dffdba2a
a1e0: 61 32 65 62 63 66 37 30 36 34 33 33 39 38 32 39  a2ebcf7064339829
a1f0: 62 32 36 66 32 37 39 39 33 65 31 31 30 36 63 31  b26f27993e1106c1
a200: 33 39 63 37 30 64 35 37 38 63 63 30 35 66 30 65  39c70d578cc05f0e
a210: 31 61 37 37 37 63 63 65 64 64 62 31 30 61 32 63  1a777cceddb10a2c
a220: 36 37 66 64 39 36 37 35 65 34 61 30 30 39 64 66  67fd9675e4a009df
a230: 38 30 33 37 64 36 65 65 62 33 38 66 35 66 62 61  8037d6eeb38f5fba
a240: 32 33 33 64 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79  233df]} \..-body
a250: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
a260: 69 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61  igest SHA512 -da
a270: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
a280: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
a290: 74 20 36 35 30 32 66 34 36 35 35 31 61 33 66 61  t 6502f46551a3fa
a2a0: 62 33 61 39 36 34 32 38 66 62 39 37 38 30 31 64  b3a96428fb97801d
a2b0: 37 61 34 61 61 32 66 31 37 66 65 66 36 36 30 33  7a4aa2f17fef6603
a2c0: 32 33 38 64 66 38 34 65 31 37 63 37 34 33 30 39  238df84e17c74309
a2d0: 65 64 33 64 39 34 38 39 63 38 62 31 36 61 39 33  ed3d9489c8b16a93
a2e0: 38 34 65 65 36 33 34 61 33 66 38 36 64 30 62 33  84ee634a3f86d0b3
a2f0: 62 61 39 61 34 64 62 63 39 63 35 31 65 63 38 62  ba9a4dbc9c51ec8b
a300: 64 34 62 66 38 64 36 31 64 65 36 64 33 64 38 37  d4bf8d61de6d3d87
a310: 64 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  d7..tcltest::tes
a320: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e  t Hash_SHA512-2.
a330: 31 30 31 20 7b 53 48 41 35 31 32 53 68 6f 72 74  101 {SHA512Short
a340: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
a350: 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d  ints SHA512 \..-
a360: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
a370: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
a380: 65 78 20 35 32 31 36 37 64 65 32 64 36 63 35 30  ex 52167de2d6c50
a390: 32 64 39 39 66 61 31 30 63 32 37 62 32 61 62 36  2d99fa10c27b2ab6
a3a0: 32 30 33 62 64 65 62 63 32 63 61 66 62 62 66 64  203bdebc2cafbbfd
a3b0: 65 66 31 35 38 37 32 61 34 33 64 64 36 31 30 63  ef15872a43dd610c
a3c0: 32 33 36 32 66 37 39 36 61 64 39 62 63 62 35 35  2362f796ad9bcb55
a3d0: 32 38 64 39 35 38 37 30 30 35 38 66 61 34 35 34  28d95870058fa454
a3e0: 34 35 33 66 31 65 36 30 36 35 62 33 31 35 64 34  453f1e6065b315d4
a3f0: 31 30 61 33 66 32 36 35 30 65 35 64 37 31 65 36  10a3f2650e5d71e6
a400: 39 64 37 38 64 39 37 36 37 64 66 62 34 61 63 63  9d78d9767dfb4acc
a410: 63 30 35 37 66 64 32 30 36 39 32 36 36 62 30 66  c057fd2069266b0f
a420: 31 38 30 63 62 33 31 39 65 33 30 64 65 64 37 35  180cb319e30ded75
a430: 33 35 62 62 65 35 32 64 32 34 62 65 31 35 31 64  35bbe52d24be151d
a440: 65 34 62 62 35 39 38 66 63 35 63 5d 7d 20 5c 0a  e4bb598fc5c]} \.
a450: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
a460: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
a470: 31 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  12 -data $data} 
a480: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
a490: 2d 72 65 73 75 6c 74 20 32 35 63 62 33 65 64 33  -result 25cb3ed3
a4a0: 39 38 33 61 39 31 62 34 63 66 33 37 61 36 35 31  983a91b4cf37a651
a4b0: 39 33 39 31 36 63 35 65 33 65 32 31 31 62 36 33  93916c5e3e211b63
a4c0: 65 39 34 33 65 32 66 37 62 35 30 61 38 35 64 33  e943e2f7b50a85d3
a4d0: 34 39 61 34 36 33 62 39 34 31 61 61 64 33 33 65  49a463b941aad33e
a4e0: 66 66 31 36 35 36 31 62 64 66 64 63 39 32 66 64  ff16561bdfdc92fd
a4f0: 61 30 36 61 34 65 31 64 39 34 62 31 36 32 64 65  a06a4e1d94b162de
a500: 34 38 66 30 36 64 33 63 36 32 36 39 34 30 62 33  48f06d3c626940b3
a510: 31 30 32 30 39 32 35 66 0a 0a 74 63 6c 74 65 73  1020925f..tcltes
a520: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
a530: 35 31 32 2d 32 2e 31 30 32 20 7b 53 48 41 35 31  512-2.102 {SHA51
a540: 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  2ShortMsg} \..-c
a550: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
a560: 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  2 \..-setup {set
a570: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
a580: 63 6f 64 65 20 68 65 78 20 63 65 64 65 36 36 39  code hex cede669
a590: 37 64 34 32 32 64 64 61 61 37 38 65 32 64 35 35  7d422ddaa78e2d55
a5a0: 61 65 30 38 30 62 38 62 39 65 39 33 35 36 63 36  ae080b8b9e9356c6
a5b0: 39 62 63 35 35 38 32 30 31 61 32 64 34 62 30 62  9bc558201a2d4b0b
a5c0: 33 31 39 30 61 38 31 32 63 32 37 62 33 34 62 62  3190a812c27b34bb
a5d0: 63 65 65 33 61 36 32 62 37 38 31 33 37 38 62 31  cee3a62b781378b1
a5e0: 62 66 36 33 36 62 33 37 32 62 63 62 61 65 31 66  bf636b372bcbae1f
a5f0: 61 32 66 38 31 36 61 30 34 36 61 30 61 36 34 39  a2f816a046a0a649
a600: 61 35 63 35 35 35 63 36 34 31 66 65 61 34 63 63  a5c555c641fea4cc
a610: 64 38 34 31 63 63 37 36 31 66 33 38 66 37 37 37  d841cc761f38f777
a620: 39 37 32 66 38 63 39 31 62 30 33 32 34 65 37 31  972f8c91b0324e71
a630: 63 33 33 33 63 65 37 38 37 66 30 34 37 34 31 34  c333ce787f047414
a640: 33 39 62 66 30 38 37 65 66 35 65 38 39 35 30 31  39bf087ef5e89501
a650: 31 63 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  1c0]} \..-body {
a660: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
a670: 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74 61  est SHA512 -data
a680: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
a690: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
a6a0: 30 62 65 34 32 61 32 35 64 37 37 61 63 36 61 64  0be42a25d77ac6ad
a6b0: 39 39 35 63 36 62 65 34 38 65 37 38 33 33 38 30  995c6be48e783380
a6c0: 62 61 64 32 35 61 36 31 37 33 32 66 38 37 63 65  bad25a61732f87ce
a6d0: 66 62 30 63 63 65 31 61 37 36 39 63 64 36 39 30  fb0cce1a769cd690
a6e0: 38 31 66 34 39 34 61 31 61 31 32 64 36 35 37 36  81f494a1a12d6576
a6f0: 36 34 65 66 32 62 34 64 39 63 34 31 66 32 65 65  64ef2b4d9c41f2ee
a700: 38 33 66 36 65 39 61 38 34 33 32 37 64 38 37 35  83f6e9a84327d875
a710: 36 61 66 39 66 39 38 35 35 39 35 65 37 64 33 62  6af9f985595e7d3b
a720: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
a730: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 30  Hash_SHA512-2.10
a740: 33 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  3 {SHA512ShortMs
a750: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
a760: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
a770: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
a780: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
a790: 20 35 36 64 31 38 64 33 65 32 65 34 39 36 34 34   56d18d3e2e49644
a7a0: 30 64 30 61 35 63 39 65 31 62 63 62 34 36 34 66  0d0a5c9e1bcb464f
a7b0: 61 66 35 62 63 37 30 61 38 62 35 36 32 31 32 34  af5bc70a8b562124
a7c0: 66 35 66 63 39 65 39 64 65 62 35 66 65 65 36 35  f5fc9e9deb5fee65
a7d0: 34 34 62 39 34 35 65 38 33 33 62 38 62 35 64 31  44b945e833b8b5d1
a7e0: 33 31 62 37 37 33 65 63 62 32 63 64 64 37 38 30  31b773ecb2cdd780
a7f0: 63 64 34 65 31 62 62 39 65 34 66 31 65 33 63 62  cd4e1bb9e4f1e3cb
a800: 30 61 31 64 36 34 64 31 39 63 66 34 62 33 30 65  0a1d64d19cf4b30e
a810: 34 34 65 36 63 32 64 30 63 62 63 62 34 65 32 38  44e6c2d0cbcb4e28
a820: 34 63 65 35 30 64 62 37 61 38 61 38 30 36 32 64  4ce50db7a8a8062d
a830: 64 62 36 33 66 39 38 31 64 39 30 32 36 63 35 33  db63f981d9026c53
a840: 32 62 66 38 65 65 64 64 66 38 61 66 35 61 34 33  2bf8eeddf8af5a43
a850: 38 34 38 61 33 32 32 36 32 31 37 38 63 5d 7d 20  848a32262178c]} 
a860: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
a870: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
a880: 41 35 31 32 20 2d 64 61 74 61 20 24 64 61 74 61  A512 -data $data
a890: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
a8a0: 74 20 2d 72 65 73 75 6c 74 20 39 38 32 64 63 36  t -result 982dc6
a8b0: 31 63 39 31 61 39 33 37 37 30 35 38 32 65 65 65  1c91a93770582eee
a8c0: 38 30 32 35 61 61 35 35 64 61 38 65 39 65 64 62  8025aa55da8e9edb
a8d0: 39 36 36 62 66 35 63 66 37 30 64 34 61 36 35 33  966bf5cf70d4a653
a8e0: 34 63 30 64 35 33 61 32 37 38 39 61 38 63 34 66  4c0d53a2789a8c4f
a8f0: 62 36 35 62 37 66 65 64 34 37 38 63 64 61 30 32  b65b7fed478cda02
a900: 65 64 31 65 30 64 31 39 38 64 38 35 63 35 63 37  ed1e0d198d85c5c7
a910: 33 35 62 32 34 31 37 63 35 66 61 62 35 64 33 34  35b2417c5fab5d34
a920: 65 39 36 39 66 63 38 65 37 65 0a 0a 74 63 6c 74  e969fc8e7e..tclt
a930: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
a940: 48 41 35 31 32 2d 32 2e 31 30 34 20 7b 53 48 41  HA512-2.104 {SHA
a950: 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  512ShortMsg} \..
a960: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
a970: 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  512 \..-setup {s
a980: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
a990: 64 65 63 6f 64 65 20 68 65 78 20 32 35 61 37 33  decode hex 25a73
a9a0: 32 30 64 66 61 65 63 35 61 66 36 35 64 61 34 64  20dfaec5af65da4d
a9b0: 30 66 38 36 38 38 65 32 39 65 38 65 39 35 35 33  0f8688e29e8e9553
a9c0: 32 65 63 63 31 36 36 37 39 65 61 38 61 66 66 30  2ecc16679ea8aff0
a9d0: 66 34 30 37 64 38 39 38 64 62 36 39 32 32 38 35  f407d898db692285
a9e0: 35 62 30 65 38 39 30 31 61 61 39 36 38 31 61 61  5b0e8901aa9681aa
a9f0: 33 64 63 61 36 31 37 63 62 34 34 30 37 36 34 63  3dca617cb440764c
aa00: 64 63 37 32 39 33 66 62 65 61 66 37 66 35 38 35  dc7293fbeaf7f585
aa10: 62 35 39 33 63 32 62 30 35 33 31 37 33 38 65 30  b593c2b0531738e0
aa20: 61 64 65 37 63 38 36 32 36 62 39 39 39 35 66 34  ade7c8626b9995f4
aa30: 61 38 34 64 39 66 63 39 62 35 39 33 64 36 62 62  a84d9fc9b593d6bb
aa40: 65 65 30 31 61 62 63 35 33 63 35 62 65 31 34 62  ee01abc53c5be14b
aa50: 66 36 39 35 36 66 64 32 66 64 38 31 30 30 30 64  f6956fd2fd81000d
aa60: 61 66 63 37 63 37 36 38 36 5d 7d 20 5c 0a 09 2d  afc7c7686]} \..-
aa70: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
aa80: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
aa90: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
aaa0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
aab0: 65 73 75 6c 74 20 37 34 39 63 39 32 38 63 33 64  esult 749c928c3d
aac0: 35 35 31 30 39 32 35 62 66 65 39 38 36 35 39 30  5510925bfe986590
aad0: 32 35 62 30 65 64 37 63 30 31 61 63 64 34 64 35  25b0ed7c01acd4d5
aae0: 39 61 39 62 66 31 63 35 34 38 36 33 61 30 38 38  9a9bf1c54863a088
aaf0: 30 39 31 37 37 31 64 63 39 64 34 30 37 62 64 62  091771dc9d407bdb
ab00: 66 38 33 62 30 66 34 34 62 30 39 30 32 65 31 30  f83b0f44b0902e10
ab10: 33 34 39 62 61 37 39 63 38 34 64 30 39 38 31 64  349ba79c84d0981d
ab20: 35 65 38 63 34 66 35 63 37 33 33 61 31 31 37 66  5e8c4f5c733a117f
ab30: 65 64 30 37 39 30 0a 0a 74 63 6c 74 65 73 74 3a  ed0790..tcltest:
ab40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
ab50: 32 2d 32 2e 31 30 35 20 7b 53 48 41 35 31 32 53  2-2.105 {SHA512S
ab60: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
ab70: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20  straints SHA512 
ab80: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
ab90: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
aba0: 64 65 20 68 65 78 20 33 64 37 31 37 37 62 32 38  de hex 3d7177b28
abb0: 66 66 64 39 31 36 65 37 65 30 36 33 34 38 39 35  ffd916e7e0634895
abc0: 38 33 33 62 61 30 62 64 39 65 30 36 35 33 64 66  833ba0bd9e0653df
abd0: 32 63 63 34 32 30 32 63 38 31 31 35 33 36 61 30  2cc4202c811536a0
abe0: 30 35 61 65 63 38 35 33 61 35 30 35 65 37 35 64  05aec853a505e75d
abf0: 62 35 35 64 33 63 37 31 30 37 35 37 39 30 34 31  b55d3c7107579041
ac00: 30 39 39 65 33 38 32 61 31 66 65 61 63 38 30 64  099e382a1feac80d
ac10: 64 65 36 35 64 37 32 33 36 38 65 39 30 39 61 62  de65d72368e909ab
ac20: 38 35 66 35 36 64 38 38 65 36 38 64 37 63 33 63  85f56d88e68d7c3c
ac30: 38 30 63 33 38 66 38 35 62 66 38 63 32 62 33 36  80c38f85bf8c2b36
ac40: 39 35 39 34 30 39 63 63 33 34 62 61 38 65 33 61  959409cc34ba8e3a
ac50: 64 39 34 66 65 38 65 65 31 39 32 37 36 31 32 64  d94fe8ee1927612d
ac60: 36 37 32 64 39 32 31 34 31 61 33 32 39 63 34 64  672d92141a329c4d
ac70: 64 38 61 38 38 61 39 5d 7d 20 5c 0a 09 2d 62 6f  d8a88a9]} \..-bo
ac80: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
ac90: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 20 2d  -digest SHA512 -
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 31 34 61 33 33 31 35 30 38 63 64 37  ult 14a331508cd7
acd0: 64 39 34 66 63 63 65 35 36 61 36 36 62 66 36 35  d94fcce56a66bf65
ace0: 66 32 30 38 37 30 61 32 38 31 63 38 34 34 32 66  f20870a281c8442f
acf0: 38 64 62 64 34 63 32 33 37 31 34 35 34 61 32 62  8dbd4c2371454a2b
ad00: 36 36 66 38 64 30 39 39 34 61 30 62 36 37 36 39  66f8d0994a0b6769
ad10: 32 65 37 37 31 65 66 63 36 61 35 65 30 62 38 38  2e771efc6a5e0b88
ad20: 37 61 63 61 65 37 64 36 66 34 65 63 37 33 33 38  7acae7d6f4ec7338
ad30: 65 31 61 61 38 39 66 32 61 62 63 37 30 33 34 63  e1aa89f2abc7034c
ad40: 34 65 34 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  4e4c..tcltest::t
ad50: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
ad60: 32 2e 31 30 36 20 7b 53 48 41 35 31 32 53 68 6f  2.106 {SHA512Sho
ad70: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
ad80: 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a  raints SHA512 \.
ad90: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
ada0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
adb0: 20 68 65 78 20 63 30 33 33 65 34 61 35 31 32 32   hex c033e4a5122
adc0: 39 37 63 61 65 63 64 62 65 61 64 38 39 32 62 31  97caecdbead892b1
add0: 31 61 39 66 37 30 30 37 61 66 39 61 37 34 62 63  1a9f7007af9a74bc
ade0: 61 62 38 39 65 30 62 64 34 66 66 64 64 35 34 32  ab89e0bd4ffdd542
adf0: 63 61 30 33 65 61 31 32 65 31 37 61 30 36 63 34  ca03ea12e17a06c4
ae00: 32 62 64 34 33 66 63 35 66 33 66 37 35 37 66 63  2bd43fc5f3f757fc
ae10: 65 34 66 36 66 35 38 33 31 39 39 37 61 62 61 63  e4f6f5831997abac
ae20: 33 66 39 35 36 37 36 65 31 65 62 64 62 31 31 63  3f95676e1ebdb11c
ae30: 61 34 33 65 31 31 61 61 33 31 65 35 65 62 61 62  a43e11aa31e5ebab
ae40: 65 31 38 63 65 38 64 31 62 62 66 64 38 62 30 32  e18ce8d1bbfd8b02
ae50: 66 34 38 32 65 31 63 65 35 38 31 62 35 33 32 65  f482e1ce581b532e
ae60: 33 30 37 65 36 39 36 30 65 62 39 37 34 34 31 35  307e6960eb974415
ae70: 30 36 63 32 65 64 32 39 39 65 31 32 38 32 35 32  06c2ed299e128252
ae80: 33 66 34 31 35 32 37 5d 7d 20 5c 0a 09 2d 62 6f  3f41527]} \..-bo
ae90: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
aea0: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 20 2d  -digest SHA512 -
aeb0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
aec0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
aed0: 75 6c 74 20 39 35 61 63 39 62 37 64 32 32 61 61  ult 95ac9b7d22aa
aee0: 34 35 38 39 32 31 38 37 34 63 34 62 34 33 33 31  458921874c4b4331
aef0: 65 37 64 36 34 37 36 31 38 35 33 32 31 37 63 33  e7d64761853217c3
af00: 66 38 33 63 36 30 31 61 62 63 62 63 63 64 37 65  f83c601abcbccd7e
af10: 32 65 61 61 36 63 61 36 63 65 39 61 32 32 65 62  2eaa6ca6ce9a22eb
af20: 63 66 65 35 30 34 36 64 35 32 66 38 61 30 39 30  cfe5046d52f8a090
af30: 39 37 66 30 34 33 61 62 38 62 63 35 39 32 34 33  97f043ab8bc59243
af40: 66 64 37 37 30 30 39 30 62 62 34 33 32 63 33 31  fd770090bb432c31
af50: 35 35 65 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  55e9..tcltest::t
af60: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
af70: 32 2e 31 30 37 20 7b 53 48 41 35 31 32 53 68 6f  2.107 {SHA512Sho
af80: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
af90: 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a  raints SHA512 \.
afa0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
afb0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
afc0: 20 68 65 78 20 36 39 66 66 66 30 66 31 61 33 64   hex 69fff0f1a3d
afd0: 62 66 62 33 36 65 33 32 66 30 32 35 38 31 39 66  bfb36e32f025819f
afe0: 61 39 39 65 61 39 61 30 65 64 61 65 66 37 33 31  a99ea9a0edaef731
aff0: 34 35 62 66 37 66 63 64 30 35 64 38 62 62 30 61  45bf7fcd05d8bb0a
b000: 36 34 36 63 62 33 62 35 64 35 32 35 36 64 35 32  646cb3b5d5256d52
b010: 34 38 35 36 61 63 66 64 32 65 34 34 64 36 62 37  4856acfd2e44d6b7
b020: 32 65 34 65 62 66 31 66 66 32 33 63 30 66 66 36  2e4ebf1ff23c0ff6
b030: 63 35 36 66 38 32 31 65 37 38 32 64 35 61 31 35  c56f821e782d5a15
b040: 66 37 30 35 32 61 31 34 34 35 62 30 36 36 36 38  f7052a1445b06668
b050: 65 65 62 34 61 66 37 30 30 36 37 39 65 65 37 61  eeb4af700679ee7a
b060: 65 32 36 34 39 36 66 62 64 34 36 34 30 63 30 36  e26496fbd4640c06
b070: 61 61 31 34 39 39 36 34 64 66 64 36 30 31 31 64  aa149964dfd6011d
b080: 66 38 33 35 61 63 31 33 62 37 33 63 38 66 66 32  f835ac13b73c8ff2
b090: 31 31 35 31 65 38 34 34 30 5d 7d 20 5c 0a 09 2d  1151e8440]} \..-
b0a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
b0b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
b0c0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
b0d0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
b0e0: 65 73 75 6c 74 20 34 35 64 34 64 61 61 36 35 32  esult 45d4daa652
b0f0: 35 35 38 64 31 63 31 32 62 65 62 30 66 35 36 36  558d1c12beb0f566
b100: 32 63 37 31 32 66 33 32 35 62 34 63 38 30 32 66  2c712f325b4c802f
b110: 63 36 65 62 39 65 65 30 33 39 63 39 34 39 64 30  c6eb9ee039c949d0
b120: 30 32 62 62 37 38 36 66 31 61 37 33 32 37 31 32  02bb786f1a732712
b130: 62 65 39 34 31 66 39 63 35 63 37 39 62 33 65 35  be941f9c5c79b3e5
b140: 63 34 33 30 36 34 64 36 33 61 33 38 35 37 38 65  c43064d63a38578e
b150: 35 61 35 34 65 65 35 32 36 61 63 62 37 33 35 62  5a54ee526acb735b
b160: 39 61 64 34 35 66 0a 0a 74 63 6c 74 65 73 74 3a  9ad45f..tcltest:
b170: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
b180: 32 2d 32 2e 31 30 38 20 7b 53 48 41 35 31 32 53  2-2.108 {SHA512S
b190: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
b1a0: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20  straints SHA512 
b1b0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
b1c0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
b1d0: 64 65 20 68 65 78 20 62 32 63 34 33 39 63 39 37  de hex b2c439c97
b1e0: 61 62 37 63 36 33 37 33 36 62 33 37 39 36 33 32  ab7c63736b379632
b1f0: 34 64 36 38 65 65 62 37 61 34 37 31 65 64 31 34  4d68eeb7a471ed14
b200: 32 62 64 39 36 32 32 36 38 34 31 36 37 64 36 31  2bd9622684167d61
b210: 32 33 34 66 66 66 38 32 66 39 33 66 39 30 37 35  234fff82f93f9075
b220: 33 37 61 39 30 39 62 63 32 65 37 35 61 34 62 63  37a909bc2e75a4bc
b230: 62 63 31 33 33 63 66 35 37 31 39 37 36 36 32 63  bc133cf57197662c
b240: 31 61 66 37 34 36 61 65 38 62 38 31 65 35 62 38  1af746ae8b81e5b8
b250: 33 64 65 30 35 64 39 62 35 38 39 38 35 31 64 65  3de05d9b589851de
b260: 32 35 64 33 63 39 39 63 30 30 34 63 31 64 66 62  25d3c99c004c1dfb
b270: 31 32 64 39 33 62 66 35 30 64 34 35 30 61 66 34  12d93bf50d450af4
b280: 39 63 34 32 38 37 31 36 66 35 62 39 30 65 66 30  9c428716f5b90ef0
b290: 38 38 65 33 62 36 61 36 62 32 63 34 36 64 33 63  88e3b6a6b2c46d3c
b2a0: 65 36 37 62 33 37 39 35 39 39 30 31 38 5d 7d 20  e67b379599018]} 
b2b0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
b2c0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
b2d0: 41 35 31 32 20 2d 64 61 74 61 20 24 64 61 74 61  A512 -data $data
b2e0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
b2f0: 74 20 2d 72 65 73 75 6c 74 20 63 34 38 65 63 38  t -result c48ec8
b300: 33 62 65 35 66 61 36 36 39 65 36 65 63 38 64 62  3be5fa669e6ec8db
b310: 39 30 61 63 61 39 36 37 36 63 66 65 32 65 63 30  90aca9676cfe2ec0
b320: 64 35 65 38 65 37 61 32 34 33 31 36 38 37 62 62  d5e8e7a2431687bb
b330: 39 35 33 63 30 61 33 30 30 62 65 33 64 62 34 30  953c0a300be3db40
b340: 37 35 63 63 61 33 62 61 63 34 64 66 61 34 64 39  75cca3bac4dfa4d9
b350: 37 31 62 61 66 30 66 61 31 61 66 66 34 36 36 33  71baf0fa1aff4663
b360: 39 64 62 34 62 32 33 38 38 35 36 66 66 33 36 64  9db4b238856ff36d
b370: 31 64 66 63 64 35 32 30 66 31 0a 0a 74 63 6c 74  1dfcd520f1..tclt
b380: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
b390: 48 41 35 31 32 2d 32 2e 31 30 39 20 7b 53 48 41  HA512-2.109 {SHA
b3a0: 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  512ShortMsg} \..
b3b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
b3c0: 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  512 \..-setup {s
b3d0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
b3e0: 64 65 63 6f 64 65 20 68 65 78 20 63 30 31 36 66  decode hex c016f
b3f0: 35 32 32 66 32 36 62 37 34 37 30 65 39 32 32 62  522f26b7470e922b
b400: 39 61 32 38 37 65 36 64 34 35 66 36 63 32 38 38  9a287e6d45f6c288
b410: 31 33 62 36 38 63 31 34 35 37 65 33 36 64 39 62  13b68c1457e36d9b
b420: 61 32 36 36 37 30 38 32 37 32 66 39 63 62 63 35  a266708272f9cbc5
b430: 34 31 31 66 38 64 62 39 64 38 62 64 35 61 39 34  411f8db9d8bd5a94
b440: 34 39 66 62 36 65 62 30 63 64 65 37 64 34 64 30  49fb6eb0cde7d4d0
b450: 33 65 35 64 66 30 31 39 66 32 38 31 34 61 39 30  3e5df019f2814a90
b460: 63 65 65 64 33 37 37 63 35 39 64 37 64 39 32 36  ceed377c59d7d926
b470: 32 33 38 39 39 62 63 62 30 32 36 38 30 33 33 30  23899bcb02680330
b480: 37 33 35 35 39 64 34 64 38 64 65 34 38 38 36 38  73559d4d8de48868
b490: 36 63 62 65 33 64 36 37 37 39 36 65 36 64 66 36  6cbe3d67796e6df6
b4a0: 61 64 34 32 37 36 64 30 62 35 32 63 63 36 32 63  ad4276d0b52cc62c
b4b0: 34 39 65 62 62 35 38 64 37 63 39 35 32 38 37 61  49ebb58d7c95287a
b4c0: 61 36 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  a6c]} \..-body {
b4d0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
b4e0: 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74 61  est SHA512 -data
b4f0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
b500: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
b510: 37 34 30 32 66 31 61 39 39 62 34 37 65 31 30 32  7402f1a99b47e102
b520: 62 33 62 37 33 31 34 30 63 36 37 37 31 62 30 37  b3b73140c6771b07
b530: 65 65 36 63 33 33 62 33 37 31 35 65 39 63 34 30  ee6c33b3715e9c40
b540: 32 37 63 34 34 31 62 65 65 34 30 35 31 31 62 37  27c441bee40511b7
b550: 33 35 64 39 35 65 35 30 38 62 61 65 61 37 38 64  35d95e508baea78d
b560: 61 32 36 66 64 65 64 39 62 37 30 33 38 65 39 61  a26fded9b7038e9a
b570: 35 33 64 65 66 61 35 38 34 34 38 61 62 61 34 30  53defa58448aba40
b580: 64 63 31 65 36 32 64 37 65 63 35 39 32 31 30 37  dc1e62d7ec592107
b590: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
b5a0: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 31  Hash_SHA512-2.11
b5b0: 30 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  0 {SHA512ShortMs
b5c0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
b5d0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
b5e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
b5f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
b600: 20 61 37 36 36 62 32 61 37 65 66 39 31 36 37 32   a766b2a7ef91672
b610: 31 66 34 36 37 37 62 36 37 64 62 63 36 35 65 66  1f4677b67dbc65ef
b620: 39 62 34 64 31 62 64 61 31 61 64 34 65 35 33 66  9b4d1bda1ad4e53f
b630: 63 38 35 34 62 30 32 33 36 34 34 30 38 32 32 31  c854b02364408221
b640: 35 32 61 31 31 31 39 33 39 65 35 61 62 32 62 61  52a111939e5ab2ba
b650: 32 30 37 37 31 39 34 37 32 62 36 33 66 64 34 66  207719472b63fd4f
b660: 34 61 35 34 66 34 62 64 65 34 34 61 32 30 35 64  4a54f4bde44a205d
b670: 33 33 34 61 32 64 37 32 63 66 65 30 35 61 62 66  334a2d72cfe05abf
b680: 38 30 34 66 34 31 38 34 31 62 38 36 64 33 36 39  804f41841b86d369
b690: 32 30 62 65 36 62 30 62 35 32 39 33 33 31 61 63  20be6b0b529331ac
b6a0: 31 36 33 61 39 38 35 35 35 36 63 38 34 35 31 31  163a985556c84511
b6b0: 65 63 39 38 36 34 33 39 66 38 33 65 31 64 37 33  ec986439f83e1d73
b6c0: 31 31 66 35 37 64 38 34 38 63 66 61 30 32 64 66  11f57d848cfa02df
b6d0: 39 65 61 30 63 66 36 62 39 39 61 5d 7d 20 5c 0a  9ea0cf6b99a]} \.
b6e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
b6f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
b700: 31 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  12 -data $data} 
b710: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
b720: 2d 72 65 73 75 6c 74 20 64 64 64 36 30 66 39 33  -result ddd60f93
b730: 61 33 62 61 62 63 37 38 32 39 39 63 66 37 36 33  a3babc78299cf763
b740: 65 37 39 31 39 64 34 35 61 63 36 66 34 37 39 37  e7919d45ac6f4797
b750: 30 30 65 31 61 64 62 30 35 61 62 31 33 37 61 63  00e1adb05ab137ac
b760: 64 66 38 39 63 31 35 32 31 65 63 62 39 64 66 65  df89c1521ecb9dfe
b770: 61 63 64 30 39 31 65 35 38 63 61 35 37 61 31 64  acd091e58ca57a1d
b780: 62 39 36 34 61 39 63 33 63 64 31 66 61 33 39 31  b964a9c3cd1fa391
b790: 39 32 63 63 31 65 39 66 37 33 34 63 61 61 31 63  92cc1e9f734caa1c
b7a0: 35 66 61 36 32 39 37 35 0a 0a 74 63 6c 74 65 73  5fa62975..tcltes
b7b0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
b7c0: 35 31 32 2d 32 2e 31 31 31 20 7b 53 48 41 35 31  512-2.111 {SHA51
b7d0: 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  2ShortMsg} \..-c
b7e0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
b7f0: 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  2 \..-setup {set
b800: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
b810: 63 6f 64 65 20 68 65 78 20 31 30 66 32 62 65 37  code hex 10f2be7
b820: 37 61 34 30 35 35 37 37 31 61 36 37 30 30 37 63  7a4055771a67007c
b830: 64 38 36 33 30 65 33 32 33 30 65 33 38 32 38 38  d8630e3230e38288
b840: 34 39 39 63 62 31 36 30 33 38 30 32 39 30 31 37  499cb16038029017
b850: 34 64 36 36 64 61 35 37 34 35 35 62 36 62 61 61  4d66da57455b6baa
b860: 61 39 37 38 35 63 38 34 63 38 61 36 36 33 64 65  a9785c84c8a663de
b870: 34 31 65 64 33 62 64 35 34 34 30 35 35 62 39 31  41ed3bd544055b91
b880: 37 30 63 65 63 34 33 63 62 33 65 62 31 32 30 65  70cec43cb3eb120e
b890: 63 65 61 62 61 31 66 65 33 36 65 33 65 61 61 33  ceaba1fe36e3eaa3
b8a0: 66 61 34 66 39 39 62 34 32 35 63 64 32 35 31 39  fa4f99b425cd2519
b8b0: 66 30 39 62 63 30 32 38 32 62 61 64 61 35 32 64  f09bc0282bada52d
b8c0: 31 34 63 65 36 32 35 62 31 64 65 64 33 62 32 34  14ce625b1ded3b24
b8d0: 64 38 36 62 31 64 61 64 33 34 32 64 32 62 37 62  d86b1dad342d2b7b
b8e0: 65 33 32 32 62 37 37 35 62 30 34 66 63 36 62 38  e322b775b04fc6b8
b8f0: 36 61 66 62 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79  6afb4]} \..-body
b900: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
b910: 69 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61  igest SHA512 -da
b920: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
b930: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
b940: 74 20 61 38 37 32 66 61 33 33 64 34 36 33 62 33  t a872fa33d463b3
b950: 33 34 33 63 65 63 35 37 63 32 30 63 36 36 39 37  343cec57c20c6697
b960: 39 63 33 33 65 31 61 64 30 36 37 62 66 63 37 30  9c33e1ad067bfc70
b970: 33 34 35 34 36 39 36 61 61 62 35 64 64 30 30 30  3454696aab5dd000
b980: 33 62 63 31 39 34 33 31 38 66 34 61 38 65 62 62  3bc194318f4a8ebb
b990: 63 37 34 35 30 33 66 65 62 37 32 31 31 61 34 37  c74503feb7211a47
b9a0: 32 64 61 64 65 65 39 39 31 65 66 65 33 65 33 38  2dadee991efe3e38
b9b0: 66 32 31 61 31 33 31 30 66 38 61 37 36 65 61 63  f21a1310f8a76eac
b9c0: 38 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  80..tcltest::tes
b9d0: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e  t Hash_SHA512-2.
b9e0: 31 31 32 20 7b 53 48 41 35 31 32 53 68 6f 72 74  112 {SHA512Short
b9f0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
ba00: 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d  ints SHA512 \..-
ba10: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
ba20: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
ba30: 65 78 20 33 32 34 35 33 33 65 36 38 35 66 31 38  ex 324533e685f18
ba40: 35 32 65 33 35 38 65 65 61 38 65 61 38 62 38 31  52e358eea8ea8b81
ba50: 63 32 38 38 62 33 66 33 62 65 62 31 66 32 62 63  c288b3f3beb1f2bc
ba60: 32 62 38 64 33 66 64 62 61 63 33 31 38 33 38 32  2b8d3fdbac318382
ba70: 65 33 64 37 31 32 30 64 65 33 30 63 39 63 32 33  e3d7120de30c9c23
ba80: 37 61 61 30 61 33 34 38 33 31 64 65 62 31 65 35  7aa0a34831deb1e5
ba90: 65 30 36 30 61 37 39 36 39 63 64 33 61 39 37 34  e060a7969cd3a974
baa0: 32 65 63 31 65 36 34 62 33 35 34 66 37 65 62 32  2ec1e64b354f7eb2
bab0: 39 30 63 62 61 31 63 36 38 31 63 36 36 63 63 37  90cba1c681c66cc7
bac0: 65 61 39 39 34 66 64 66 35 36 31 34 66 36 30 34  ea994fdf5614f604
bad0: 64 31 61 32 37 31 38 61 61 62 35 38 31 63 31 63  d1a2718aab581c1c
bae0: 39 34 39 33 31 62 31 33 38 37 65 34 62 37 64 63  94931b1387e4b7dc
baf0: 37 33 36 33 35 62 66 33 61 37 33 30 31 31 37 34  73635bf3a7301174
bb00: 30 37 35 66 61 37 30 61 39 32 32 37 64 38 35 64  075fa70a9227d85d
bb10: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
bb20: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
bb30: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
bb40: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
bb50: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 62  exact -result 3b
bb60: 32 36 63 35 31 37 30 37 32 39 64 30 38 31 34 31  26c5170729d08141
bb70: 35 33 62 65 63 62 39 35 66 31 62 36 35 63 64 34  53becb95f1b65cd4
bb80: 32 66 39 61 36 64 30 36 34 39 64 39 31 34 65 34  2f9a6d0649d914e4
bb90: 66 36 39 64 39 33 38 62 35 65 39 64 63 30 34 31  f69d938b5e9dc041
bba0: 63 64 30 66 35 63 38 64 61 30 62 34 38 34 64 37  cd0f5c8da0b484d7
bbb0: 63 37 62 63 37 62 31 62 64 65 66 62 30 38 66 65  c7bc7b1bdefb08fe
bbc0: 38 62 31 62 66 65 64 63 38 31 31 30 39 33 34 35  8b1bfedc81109345
bbd0: 62 63 39 65 39 61 33 39 39 66 65 65 64 66 0a 0a  bc9e9a399feedf..
bbe0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
bbf0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 31 33 20  sh_SHA512-2.113 
bc00: 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d  {SHA512ShortMsg}
bc10: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
bc20: 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75   SHA512 \..-setu
bc30: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
bc40: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35  ary decode hex 5
bc50: 31 38 39 38 35 39 37 37 65 65 32 31 64 32 62 66  18985977ee21d2bf
bc60: 36 32 32 61 32 30 35 36 37 31 32 34 66 63 62 66  622a20567124fcbf
bc70: 31 31 63 37 32 64 66 38 30 35 33 36 35 38 33 35  11c72df805365835
bc80: 61 62 33 63 30 34 31 66 34 61 39 63 64 38 61 30  ab3c041f4a9cd8a0
bc90: 61 64 36 33 63 39 64 65 65 31 30 31 38 61 61 32  ad63c9dee1018aa2
bca0: 31 61 39 66 61 33 37 32 30 66 34 37 64 63 34 38  1a9fa3720f47dc48
bcb0: 30 30 36 66 31 61 61 33 64 62 61 35 34 34 39 35  006f1aa3dba54495
bcc0: 30 66 38 37 65 36 32 37 66 33 36 39 62 63 32 37  0f87e627f369bc27
bcd0: 39 33 65 64 65 32 31 32 32 33 32 37 34 34 39 32  93ede21223274492
bce0: 63 63 65 62 37 37 62 65 37 65 65 61 35 30 65 35  cceb77be7eea50e5
bcf0: 61 35 30 39 30 35 39 39 32 39 61 31 36 64 33 33  a509059929a16d33
bd00: 61 39 66 35 34 37 39 36 63 64 65 35 37 37 30 63  a9f54796cde5770c
bd10: 37 34 62 64 33 65 63 63 32 35 33 31 38 35 30 33  74bd3ecc25318503
bd20: 66 31 61 34 31 39 37 36 34 30 37 61 66 66 32 5d  f1a41976407aff2]
bd30: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
bd40: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
bd50: 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64 61  SHA512 -data $da
bd60: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
bd70: 61 63 74 20 2d 72 65 73 75 6c 74 20 63 30 30 39  act -result c009
bd80: 32 36 61 33 37 34 63 64 65 35 35 62 38 66 62 64  26a374cde55b8fbd
bd90: 37 37 66 35 30 64 61 31 33 36 33 64 61 31 39 37  77f50da1363da197
bda0: 34 34 64 33 66 34 36 34 65 30 37 63 65 33 31 37  44d3f464e07ce317
bdb0: 39 34 63 35 61 36 31 62 36 66 39 63 38 35 36 38  94c5a61b6f9c8568
bdc0: 39 66 61 31 63 66 65 31 33 36 35 35 33 35 32 37  9fa1cfe136553527
bdd0: 66 64 38 37 36 62 65 39 31 36 37 33 63 32 63 61  fd876be91673c2ca
bde0: 63 32 64 64 31 35 37 62 32 64 65 66 65 61 33 36  c2dd157b2defea36
bdf0: 30 38 35 31 62 36 64 39 32 63 66 34 0a 0a 74 63  0851b6d92cf4..tc
be00: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
be10: 5f 53 48 41 35 31 32 2d 32 2e 31 31 34 20 7b 53  _SHA512-2.114 {S
be20: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
be30: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
be40: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
be50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
be60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 31 35  y decode hex 915
be70: 39 37 36 37 32 37 35 62 61 36 66 37 39 63 62 62  9767275ba6f79cbb
be80: 33 64 35 38 63 30 31 30 38 33 33 39 64 38 63 36  3d58c0108339d8c6
be90: 61 34 31 31 33 38 39 39 31 61 62 37 61 61 35 38  a41138991ab7aa58
bea0: 62 31 34 37 39 33 62 35 34 35 62 30 34 62 64 61  b14793b545b04bda
beb0: 36 31 64 64 32 35 35 31 32 37 62 31 32 63 63 35  61dd255127b12cc5
bec0: 30 31 64 35 61 61 61 64 34 37 36 65 30 39 66 61  01d5aaad476e09fa
bed0: 31 34 61 65 63 32 31 36 32 36 65 38 64 35 37 62  14aec21626e8d57b
bee0: 37 64 30 38 63 33 36 63 64 62 37 39 65 65 61 33  7d08c36cdb79eea3
bef0: 31 34 62 64 64 37 37 65 36 35 37 37 39 61 30 62  14bdd77e65779a0b
bf00: 35 34 65 61 62 30 38 63 34 38 63 65 62 39 37 36  54eab08c48ceb976
bf10: 61 64 66 36 33 31 66 34 32 34 36 61 33 33 66 37  adf631f4246a33f7
bf20: 65 66 38 39 36 38 38 37 65 61 38 62 35 64 66 61  ef896887ea8b5dfa
bf30: 32 30 38 37 61 32 32 35 63 38 63 31 38 30 66 38  2087a225c8c180f8
bf40: 39 37 30 36 39 36 31 30 31 66 63 32 38 33 62 5d  970696101fc283b]
bf50: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
bf60: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
bf70: 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64 61  SHA512 -data $da
bf80: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
bf90: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 63 64 33  act -result 3cd3
bfa0: 33 38 30 61 39 30 38 36 38 64 65 31 37 64 65 65  380a90868de17dee
bfb0: 34 62 64 34 64 37 66 39 30 64 37 35 31 32 36 39  4bd4d7f90d751269
bfc0: 36 66 30 61 39 32 62 32 64 30 38 39 32 34 30 64  6f0a92b2d089240d
bfd0: 36 31 61 39 64 32 30 63 64 33 61 66 30 39 34 63  61a9d20cd3af094c
bfe0: 37 38 62 66 34 36 36 63 32 64 34 30 34 64 64 32  78bf466c2d404dd2
bff0: 66 36 36 32 65 63 35 66 34 61 32 39 39 62 65 32  f662ec5f4a299be2
c000: 61 64 65 61 64 66 36 32 37 62 39 38 65 35 30 65  adeadf627b98e50e
c010: 31 63 30 37 32 62 37 36 39 64 36 32 0a 0a 74 63  1c072b769d62..tc
c020: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
c030: 5f 53 48 41 35 31 32 2d 32 2e 31 31 35 20 7b 53  _SHA512-2.115 {S
c040: 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c  HA512ShortMsg} \
c050: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
c060: 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20  HA512 \..-setup 
c070: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
c080: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 65 32  y decode hex fe2
c090: 64 38 61 65 32 30 30 65 36 36 35 37 66 64 63 37  d8ae200e6657fdc7
c0a0: 34 39 34 61 66 35 61 31 32 62 32 61 65 39 34 30  494af5a12b2ae940
c0b0: 33 34 38 66 31 66 39 38 33 66 30 62 61 39 38 66  348f1f983f0ba98f
c0c0: 65 62 62 65 39 39 63 38 30 64 31 31 35 31 32 36  ebbe99c80d115126
c0d0: 64 35 37 64 62 66 33 37 32 39 36 37 36 35 65 62  d57dbf37296765eb
c0e0: 62 35 39 39 30 32 35 36 36 39 36 35 38 38 62 33  b5990256696588b3
c0f0: 38 35 31 64 35 34 63 38 66 62 65 37 61 64 65 39  851d54c8fbe7ade9
c100: 38 61 36 66 61 66 37 63 32 30 62 35 65 34 66 37  8a6faf7c20b5e4f7
c110: 33 30 66 35 34 61 37 66 39 31 32 63 61 30 61 63  30f54a7f912ca0ac
c120: 33 31 62 62 62 35 33 64 31 37 39 34 39 65 66 36  31bbb53d17949ef6
c130: 39 61 61 30 64 65 34 30 63 37 62 61 62 31 32 61  9aa0de40c7bab12a
c140: 38 37 31 61 39 62 39 30 66 36 38 38 31 33 63 61  871a9b90f68813ca
c150: 38 37 61 66 34 32 35 36 34 32 32 61 32 36 38 66  87af4256422a268f
c160: 34 61 31 64 38 65 63 33 61 61 31 61 39 34 37 66  4a1d8ec3aa1a947f
c170: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
c180: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
c190: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
c1a0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
c1b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 30  exact -result 80
c1c0: 32 35 61 38 36 30 38 64 66 30 66 36 61 30 31 63  25a8608df0f6a01c
c1d0: 33 34 63 64 65 63 30 31 32 64 34 63 62 32 35 38  34cdec012d4cb258
c1e0: 35 32 65 31 62 31 30 30 62 36 38 31 37 32 66 63  52e1b100b68172fc
c1f0: 34 65 38 36 61 63 38 62 37 31 32 36 62 36 34 38  4e86ac8b7126b648
c200: 35 39 63 62 39 65 37 36 37 61 37 65 35 39 30 36  59cb9e767a7e5906
c210: 30 39 38 39 63 65 64 62 64 39 32 35 61 66 63 34  0989cedbd925afc4
c220: 37 35 63 61 37 33 36 39 62 64 34 33 66 38 35 61  75ca7369bd43f85a
c230: 65 35 39 30 65 32 32 34 65 30 33 36 64 64 0a 0a  e590e224e036dd..
c240: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
c250: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 31 36 20  sh_SHA512-2.116 
c260: 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d  {SHA512ShortMsg}
c270: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
c280: 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75   SHA512 \..-setu
c290: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
c2a0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64  ary decode hex d
c2b0: 63 32 38 34 38 34 65 62 66 64 32 39 33 64 36 32  c28484ebfd293d62
c2c0: 61 63 37 35 39 64 35 37 35 34 62 64 66 35 30 32  ac759d5754bdf502
c2d0: 34 32 33 65 34 64 34 31 39 66 61 37 39 30 32 30  423e4d419fa79020
c2e0: 38 30 35 31 33 34 62 32 63 65 33 64 66 66 37 33  805134b2ce3dff73
c2f0: 38 63 37 35 35 36 63 39 31 64 38 31 30 61 64 62  8c7556c91d810adb
c300: 61 64 38 64 64 32 31 30 66 30 34 31 32 39 36 62  ad8dd210f041296b
c310: 37 33 63 32 31 38 35 64 34 36 34 36 63 39 37 66  73c2185d4646c97f
c320: 63 30 61 35 62 36 39 65 64 34 39 61 63 38 63 37  c0a5b69ed49ac8c7
c330: 63 65 64 30 62 64 31 63 66 64 37 65 33 63 33 63  ced0bd1cfd7e3c3c
c340: 63 61 34 37 33 37 34 64 31 38 39 32 34 37 64 61  ca47374d189247da
c350: 36 38 31 31 61 34 30 62 30 61 62 30 39 37 30 36  6811a40b0ab09706
c360: 37 65 64 34 61 64 34 30 61 64 65 32 65 34 37 39  7ed4ad40ade2e479
c370: 31 65 33 39 32 30 34 65 33 39 38 62 33 32 30 34  1e39204e398b3204
c380: 39 37 31 34 34 35 38 32 32 61 31 62 65 30 64 64  971445822a1be0dd
c390: 39 33 61 66 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79  93af8]} \..-body
c3a0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
c3b0: 69 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61  igest SHA512 -da
c3c0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
c3d0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
c3e0: 74 20 36 31 35 31 31 35 64 32 65 38 62 36 32 65  t 615115d2e8b62e
c3f0: 33 34 35 61 64 61 61 34 62 64 62 39 35 33 39 35  345adaa4bdb95395
c400: 61 33 62 34 66 65 32 37 64 37 31 63 34 61 31 31  a3b4fe27d71c4a11
c410: 31 62 38 36 63 31 38 34 31 34 36 33 63 35 66 30  1b86c1841463c5f0
c420: 33 64 36 62 32 30 64 31 36 34 61 33 39 39 34 38  3d6b20d164a39948
c430: 61 62 30 38 61 65 30 36 30 37 32 30 64 30 35 63  ab08ae060720d05c
c440: 31 30 66 36 30 32 32 65 35 63 38 63 61 66 32 66  10f6022e5c8caf2f
c450: 61 33 62 63 61 32 65 30 34 64 39 63 35 33 39 64  a3bca2e04d9c539d
c460: 65 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  ed..tcltest::tes
c470: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e  t Hash_SHA512-2.
c480: 31 31 37 20 7b 53 48 41 35 31 32 53 68 6f 72 74  117 {SHA512Short
c490: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
c4a0: 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d  ints SHA512 \..-
c4b0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
c4c0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
c4d0: 65 78 20 35 61 66 38 63 30 66 32 36 64 62 34 65  ex 5af8c0f26db4e
c4e0: 39 39 62 34 37 65 63 32 65 34 61 30 31 61 37 38  99b47ec2e4a01a78
c4f0: 36 65 37 37 38 39 39 65 34 36 64 34 36 34 61 63  6e77899e46d464ac
c500: 33 33 37 66 31 37 35 30 32 37 62 36 31 61 65 66  337f175027b61aef
c510: 33 31 34 39 38 34 38 61 66 38 34 39 64 37 36 61  3149848af849d76a
c520: 63 33 39 62 39 62 30 39 31 30 66 65 36 35 39 34  c39b9b0910fe6594
c530: 38 31 37 38 35 39 65 35 35 39 37 34 66 61 31 36  817859e55974fa16
c540: 37 35 31 38 65 64 37 32 64 30 38 38 64 61 65 36  7518ed72d088dae6
c550: 62 34 31 34 64 37 34 34 64 34 37 37 39 37 34 66  b414d744d477974f
c560: 62 37 31 39 63 36 32 36 64 61 37 39 32 66 39 38  b719c626da792f98
c570: 31 32 33 33 64 65 32 34 62 37 35 37 39 64 38 61  1233de24b7579d8a
c580: 63 63 61 35 31 30 61 32 36 36 64 37 33 63 30 65  cca510a266d73c0e
c590: 65 38 65 65 31 34 32 34 33 34 33 65 61 66 36 66  e8ee1424343eaf6f
c5a0: 66 63 63 35 39 63 38 36 63 31 62 65 63 63 65 35  fcc59c86c1becce5
c5b0: 38 39 34 30 37 32 63 36 63 31 31 5d 7d 20 5c 0a  894072c6c11]} \.
c5c0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
c5d0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
c5e0: 31 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  12 -data $data} 
c5f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
c600: 2d 72 65 73 75 6c 74 20 30 39 64 61 32 38 34 64  -result 09da284d
c610: 35 62 36 35 35 36 35 30 38 62 65 35 34 63 38 61  5b6556508be54c8a
c620: 62 36 63 39 37 62 62 64 34 37 32 39 39 35 63 36  b6c97bbd472995c6
c630: 62 62 64 35 38 35 39 31 37 65 63 64 62 35 34 65  bbd585917ecdb54e
c640: 61 39 31 36 37 32 30 38 64 61 61 61 30 37 30 61  a9167208daaa070a
c650: 37 62 32 62 37 64 38 65 39 33 63 65 31 33 31 35  7b2b7d8e93ce1315
c660: 66 30 64 31 65 66 38 64 36 39 36 36 37 34 32 39  f0d1ef8d69667429
c670: 63 34 34 64 63 35 65 65 31 34 39 39 64 65 35 37  c44dc5ee1499de57
c680: 62 32 32 39 61 33 39 38 0a 0a 74 63 6c 74 65 73  b229a398..tcltes
c690: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
c6a0: 35 31 32 2d 32 2e 31 31 38 20 7b 53 48 41 35 31  512-2.118 {SHA51
c6b0: 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  2ShortMsg} \..-c
c6c0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
c6d0: 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  2 \..-setup {set
c6e0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
c6f0: 63 6f 64 65 20 68 65 78 20 34 39 63 64 30 62 61  code hex 49cd0ba
c700: 30 64 66 35 62 62 33 66 34 33 66 36 38 34 36 34  0df5bb3f43f68464
c710: 65 33 65 38 33 65 39 63 62 64 35 64 35 65 65 30  e3e83e9cbd5d5ee0
c720: 37 37 66 66 61 35 35 39 31 65 33 30 66 39 33 39  77ffa5591e30f939
c730: 63 62 33 30 63 39 33 66 37 64 34 35 34 66 62 33  cb30c93f7d454fb3
c740: 66 62 66 38 62 62 30 35 33 32 37 61 38 39 63 30  fbf8bb05327a89c0
c750: 38 64 63 34 62 61 66 31 65 65 66 35 30 32 33 37  8dc4baf1eef50237
c760: 33 31 37 61 34 30 35 37 37 35 33 35 37 66 31 65  317a405775357f1e
c770: 30 64 31 66 33 31 64 39 66 30 66 30 64 39 38 31  0d1f31d9f0f0d981
c780: 32 34 30 31 39 64 34 37 62 66 31 38 33 36 33 62  24019d47bf18363b
c790: 31 65 63 66 62 66 65 31 35 35 63 31 30 63 62 63  1ecfbfe155c10cbc
c7a0: 38 33 33 30 30 65 30 31 62 63 39 63 65 30 33 34  83300e01bc9ce034
c7b0: 37 63 35 39 36 62 33 35 66 34 31 31 65 36 64 38  7c596b35f411e6d8
c7c0: 32 32 39 61 64 32 38 35 35 65 34 32 30 32 32 62  229ad2855e42022b
c7d0: 30 33 37 33 61 64 65 39 38 36 36 33 63 36 64 36  0373ade98663c6d6
c7e0: 65 39 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  e9c]} \..-body {
c7f0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
c800: 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74 61  est SHA512 -data
c810: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
c820: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
c830: 33 30 63 62 66 30 36 37 39 61 39 37 63 38 37 31  30cbf0679a97c871
c840: 35 37 34 64 32 66 63 30 35 64 37 61 61 37 36 30  574d2fc05d7aa760
c850: 63 36 62 63 38 61 38 36 34 62 37 64 32 34 36 63  c6bc8a864b7d246c
c860: 33 39 62 39 65 38 31 32 66 39 62 37 66 66 37 62  39b9e812f9b7ff7b
c870: 34 65 66 35 31 39 37 64 64 35 62 36 39 34 39 33  4ef5197dd5b69493
c880: 33 30 36 36 38 38 62 38 35 36 34 64 65 31 61 64  306688b8564de1ad
c890: 34 37 64 37 35 35 30 35 63 39 31 33 62 61 36 61  47d75505c913ba6a
c8a0: 37 38 37 38 38 66 38 63 61 66 35 37 38 38 62 64  78788f8caf5788bd
c8b0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
c8c0: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 31  Hash_SHA512-2.11
c8d0: 39 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  9 {SHA512ShortMs
c8e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
c8f0: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
c900: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
c910: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
c920: 20 61 38 61 33 37 64 66 63 30 38 33 61 64 32 66   a8a37dfc083ad2f
c930: 34 37 66 66 66 34 36 38 37 33 38 62 66 38 62 37  47fff468738bf8b7
c940: 32 38 65 62 37 66 31 39 30 37 65 34 32 37 66 61  28eb7f1907e427fa
c950: 31 35 63 62 34 34 32 34 62 63 36 38 35 65 35 35  15cb4424bc685e55
c960: 65 64 37 62 32 38 32 35 63 39 63 36 30 62 38 33  ed7b2825c9c60b83
c970: 39 63 63 63 32 66 65 35 66 62 33 33 65 33 36 66  9ccc2fe5fb33e36f
c980: 35 37 30 63 62 38 36 36 31 36 30 39 65 36 33 30  570cb8661609e630
c990: 62 64 61 30 35 65 65 36 34 31 64 39 33 38 34 32  bda05ee641d93842
c9a0: 38 38 36 37 64 39 30 65 30 30 37 34 34 61 34 61  8867d90e00744a4a
c9b0: 61 64 34 39 34 63 39 33 63 35 66 36 64 31 33 32  ad494c93c5f6d132
c9c0: 37 38 37 38 30 37 38 35 39 30 63 64 63 65 31 65  7878078590cdce1e
c9d0: 36 34 37 63 39 38 32 30 38 31 38 66 34 36 37 36  647c9820818f4676
c9e0: 34 31 66 63 64 35 30 38 65 32 66 32 65 62 66 64  41fcd508e2f2ebfd
c9f0: 30 66 66 33 64 34 66 32 37 32 33 39 33 34 37 38  0ff3d4f272393478
ca00: 66 33 62 39 65 36 66 38 30 36 62 34 33 5d 7d 20  f3b9e6f806b43]} 
ca10: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
ca20: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
ca30: 41 35 31 32 20 2d 64 61 74 61 20 24 64 61 74 61  A512 -data $data
ca40: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
ca50: 74 20 2d 72 65 73 75 6c 74 20 38 65 31 63 39 31  t -result 8e1c91
ca60: 37 32 39 62 65 38 65 62 34 30 32 32 36 66 36 63  729be8eb40226f6c
ca70: 35 38 61 30 32 39 33 38 30 65 66 37 65 64 62 39  58a029380ef7edb9
ca80: 64 63 31 36 36 61 35 63 33 63 64 62 63 65 66 65  dc166a5c3cdbcefe
ca90: 39 30 62 64 33 30 64 38 35 63 62 37 63 34 62 32  90bd30d85cb7c4b2
caa0: 34 38 65 36 36 61 62 66 30 61 33 61 34 63 38 34  48e66abf0a3a4c84
cab0: 32 32 38 31 32 39 39 62 65 66 36 64 62 38 38 38  2281299bef6db888
cac0: 35 38 64 39 65 35 61 62 35 32 34 34 66 37 30 62  58d9e5ab5244f70b
cad0: 37 39 36 39 65 31 63 30 37 32 0a 0a 74 63 6c 74  7969e1c072..tclt
cae0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
caf0: 48 41 35 31 32 2d 32 2e 31 32 30 20 7b 53 48 41  HA512-2.120 {SHA
cb00: 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  512ShortMsg} \..
cb10: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
cb20: 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  512 \..-setup {s
cb30: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
cb40: 64 65 63 6f 64 65 20 68 65 78 20 33 36 61 66 31  decode hex 36af1
cb50: 37 35 39 35 34 39 34 65 66 37 39 33 63 34 32 66  7595494ef793c42f
cb60: 34 38 34 31 30 32 34 36 64 66 30 37 64 30 35 39  48410246df07d059
cb70: 33 36 61 39 31 38 61 66 65 37 34 63 64 30 30 35  36a918afe74cd005
cb80: 65 35 33 37 63 35 38 36 62 32 38 34 33 37 30 31  e537c586b2843701
cb90: 66 35 64 66 38 39 35 32 32 34 32 62 37 34 35 38  f5df8952242b7458
cba0: 36 66 38 33 33 33 39 62 34 38 66 34 62 61 33 61  6f83339b48f4ba3a
cbb0: 36 36 62 64 65 62 34 35 37 65 63 64 66 36 31 37  66bdeb457ecdf617
cbc0: 38 34 65 61 63 36 37 36 35 63 64 39 62 38 63 35  84eac6765cd9b8c5
cbd0: 37 30 64 64 36 32 38 64 62 62 61 36 61 65 35 38  70dd628dbba6ae58
cbe0: 33 36 62 39 61 63 33 64 62 63 64 37 39 35 66 39  36b9ac3dbcd795f9
cbf0: 65 66 64 62 38 37 34 32 61 33 35 62 63 61 32 33  efdb8742a35bca23
cc00: 32 61 62 66 33 36 65 62 33 62 36 36 39 38 62 32  2abf36eb3b6698b2
cc10: 39 33 33 39 36 35 38 30 32 32 37 37 62 61 39 35  933965802277ba95
cc20: 33 61 36 65 64 63 61 63 61 66 33 33 30 63 31 65  3a6edcacaf330c1e
cc30: 34 65 38 63 37 64 34 35 66 5d 7d 20 5c 0a 09 2d  4e8c7d45f]} \..-
cc40: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
cc50: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
cc60: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
cc70: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
cc80: 65 73 75 6c 74 20 31 35 38 62 66 63 33 34 38 61  esult 158bfc348a
cc90: 33 30 62 34 66 61 62 62 65 33 35 35 61 37 64 34  30b4fabbe355a7d4
cca0: 34 62 64 63 32 31 32 32 61 34 63 38 35 30 34 34  4bdc2122a4c85044
ccb0: 34 63 30 33 66 32 38 39 30 30 33 63 65 30 31 62  4c03f289003ce01b
ccc0: 66 63 31 65 62 66 33 65 63 63 30 66 65 62 62 36  fc1ebf3ecc0febb6
ccd0: 61 38 66 66 35 32 33 64 32 35 64 62 37 36 38 31  a8ff523d25db7681
cce0: 62 30 35 62 64 63 65 30 34 38 64 31 31 39 34 33  b05bdce048d11943
ccf0: 61 62 34 37 36 63 31 39 36 37 63 66 36 35 35 36  ab476c1967cf6556
cd00: 63 34 61 31 32 30 0a 0a 74 63 6c 74 65 73 74 3a  c4a120..tcltest:
cd10: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
cd20: 32 2d 32 2e 31 32 31 20 7b 53 48 41 35 31 32 53  2-2.121 {SHA512S
cd30: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
cd40: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20  straints SHA512 
cd50: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
cd60: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
cd70: 64 65 20 68 65 78 20 34 32 64 36 36 65 64 63 35  de hex 42d66edc5
cd80: 66 32 32 65 30 63 31 33 63 32 35 35 30 34 63 35  f22e0c13c25504c5
cd90: 31 30 31 61 35 64 31 37 32 64 32 64 62 37 32 30  101a5d172d2db720
cda0: 39 65 34 36 31 65 66 61 33 32 33 63 30 62 66 61  9e461efa323c0bfa
cdb0: 65 64 32 37 65 35 66 38 30 38 30 34 32 65 61 39  ed27e5f808042ea9
cdc0: 63 33 38 33 38 65 61 33 31 66 39 62 37 36 64 65  c3838ea31f9b76de
cdd0: 34 36 35 32 32 35 63 63 66 62 64 30 63 30 39 63  465225ccfbd0c09c
cde0: 61 30 64 39 66 30 37 65 39 61 34 33 65 33 65 34  a0d9f07e9a43e3e4
cdf0: 36 63 37 36 39 33 65 30 30 61 37 65 31 64 34 38  6c7693e00a7e1d48
ce00: 33 39 30 30 64 64 62 30 61 36 32 39 64 35 35 36  3900ddb0a629d556
ce10: 33 34 35 36 64 62 62 66 32 39 39 61 63 39 31 66  3456dbbf299ac91f
ce20: 39 32 63 33 64 33 63 31 37 62 30 35 64 31 38 30  92c3d3c17b05d180
ce30: 65 36 63 38 37 63 36 63 39 33 31 39 34 63 33 39  e6c87c6c93194c39
ce40: 64 39 30 32 37 33 66 63 66 34 61 34 38 32 63 35  d90273fcf4a482c5
ce50: 36 30 38 34 66 39 35 65 33 34 63 30 34 33 31 31  6084f95e34c04311
ce60: 66 61 38 30 34 33 38 5d 7d 20 5c 0a 09 2d 62 6f  fa80438]} \..-bo
ce70: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
ce80: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 20 2d  -digest SHA512 -
ce90: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
cea0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
ceb0: 75 6c 74 20 30 36 31 61 66 62 31 31 39 61 33 63  ult 061afb119a3c
cec0: 36 30 38 37 36 65 30 34 63 31 30 66 31 32 61 64  60876e04c10f12ad
ced0: 30 66 34 62 39 37 37 35 39 33 64 63 35 61 32 64  0f4b977593dc5a2d
cee0: 32 31 30 39 36 61 35 37 65 37 64 33 66 37 64 34  21096a57e7d3f7d4
cef0: 64 34 34 66 64 65 66 39 33 34 62 32 63 31 37 64  d44fdef934b2c17d
cf00: 37 35 33 30 36 37 34 65 34 66 34 61 31 63 31 37  7530674e4f4a1c17
cf10: 36 64 62 64 63 63 35 34 38 31 31 61 32 32 65 31  6dbdcc54811a22e1
cf20: 62 38 37 31 32 65 34 31 39 32 66 63 32 64 34 62  b8712e4192fc2d4b
cf30: 66 38 65 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  f8e8..tcltest::t
cf40: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
cf50: 32 2e 31 32 32 20 7b 53 48 41 35 31 32 53 68 6f  2.122 {SHA512Sho
cf60: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
cf70: 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a  raints SHA512 \.
cf80: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
cf90: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
cfa0: 20 68 65 78 20 66 39 31 62 62 32 65 31 61 39 63   hex f91bb2e1a9c
cfb0: 34 63 64 39 36 62 66 32 35 30 34 32 36 62 33 61  4cd96bf250426b3a
cfc0: 36 61 66 64 39 62 38 37 61 63 35 31 65 39 33 32  6afd9b87ac51e932
cfd0: 35 34 64 32 64 61 65 33 62 31 36 65 63 36 38 36  54d2dae3b16ec686
cfe0: 62 61 38 30 66 62 30 62 64 37 61 38 34 64 32 31  ba80fb0bd7a84d21
cff0: 38 36 36 30 65 39 30 30 37 35 39 33 30 37 35 62  8660e9007593075b
d000: 63 34 66 34 63 36 36 35 36 37 66 30 63 37 61 35  c4f4c66567f0c7a5
d010: 66 64 32 30 31 30 63 39 39 39 61 38 61 30 65 66  fd2010c999a8a0ef
d020: 61 38 31 66 38 39 66 66 35 62 66 65 66 65 30 66  a81f89ff5bfefe0f
d030: 62 39 31 30 66 30 34 34 32 65 36 64 34 61 37 63  b910f0442e6d4a7c
d040: 35 35 62 62 62 36 31 38 63 36 39 61 37 39 61 32  55bbb618c69a79a2
d050: 64 64 64 38 32 61 30 39 33 38 39 32 37 66 36 66  ddd82a0938927f6f
d060: 65 33 61 38 30 66 30 34 62 65 61 65 62 37 63 37  e3a80f04beaeb7c7
d070: 36 33 36 65 33 34 33 35 64 31 32 64 63 66 31 63  636e3435d12dcf1c
d080: 36 62 62 36 65 64 30 61 34 65 64 62 36 39 63 39  6bb6ed0a4edb69c9
d090: 36 35 37 66 61 39 33 5d 7d 20 5c 0a 09 2d 62 6f  657fa93]} \..-bo
d0a0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
d0b0: 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 20 2d  -digest SHA512 -
d0c0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
d0d0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
d0e0: 75 6c 74 20 36 65 36 39 32 63 38 63 36 39 34 65  ult 6e692c8c694e
d0f0: 65 30 61 33 35 36 35 66 33 37 61 32 39 39 65 30  e0a3565f37a299e0
d100: 30 30 36 62 38 35 61 62 34 61 38 32 31 62 32 30  006b85ab4a821b20
d110: 65 37 36 37 39 38 32 32 30 32 32 39 66 36 35 36  e76798220229f656
d120: 65 66 63 36 61 32 30 32 31 31 61 34 65 37 65 34  efc6a20211a4e7e4
d130: 65 64 37 37 66 61 63 64 65 30 64 37 30 65 34 64  ed77facde0d70e4d
d140: 35 64 39 35 62 63 38 65 64 31 64 37 61 35 36 64  5d95bc8ed1d7a56d
d150: 38 64 66 31 34 34 36 64 35 36 32 66 30 34 34 62  8df1446d562f044b
d160: 33 34 34 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  344c..tcltest::t
d170: 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d  est Hash_SHA512-
d180: 32 2e 31 32 33 20 7b 53 48 41 35 31 32 53 68 6f  2.123 {SHA512Sho
d190: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
d1a0: 72 61 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a  raints SHA512 \.
d1b0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
d1c0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
d1d0: 20 68 65 78 20 64 31 65 62 39 36 31 63 61 36 61   hex d1eb961ca6a
d1e0: 38 66 36 37 63 34 39 62 36 31 65 34 64 33 63 65  8f67c49b61e4d3ce
d1f0: 61 61 32 61 31 64 65 36 66 30 65 61 39 32 37 62  aa2a1de6f0ea927b
d200: 31 33 32 62 66 39 38 37 61 62 64 61 61 37 32 35  132bf987abdaa725
d210: 62 30 65 31 65 32 37 34 65 34 36 38 33 30 65 39  b0e1e274e46830e9
d220: 39 61 32 66 37 35 61 66 36 30 38 39 36 34 64 66  9a2f75af608964df
d230: 30 64 66 66 39 61 39 39 30 32 34 66 63 36 38 33  0dff9a99024fc683
d240: 39 62 61 63 35 61 63 64 31 30 32 30 32 66 39 32  9bac5acd10202f92
d250: 31 61 63 37 31 61 32 37 66 63 64 61 36 38 31 61  1ac71a27fcda681a
d260: 61 33 31 30 39 65 62 66 35 66 32 31 65 65 33 61  a3109ebf5f21ee3a
d270: 38 34 39 30 39 38 65 61 33 61 35 35 31 65 38 34  849098ea3a551e84
d280: 34 66 61 65 34 62 34 38 62 35 63 35 62 62 39 37  4fae4b48b5c5bb97
d290: 63 63 63 38 30 32 62 63 35 35 32 30 64 36 38 61  ccc802bc5520d68a
d2a0: 31 34 63 62 37 65 35 66 63 30 35 36 62 36 37 64  14cb7e5fc056b67d
d2b0: 38 38 39 64 38 37 36 65 66 62 38 32 64 30 65 39  889d876efb82d0e9
d2c0: 61 39 61 32 34 39 39 66 31 5d 7d 20 5c 0a 09 2d  a9a2499f1]} \..-
d2d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
d2e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32  t -digest SHA512
d2f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
d300: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
d310: 65 73 75 6c 74 20 33 39 62 32 63 37 36 65 63 32  esult 39b2c76ec2
d320: 30 37 31 32 30 64 65 34 62 33 32 30 63 37 66 65  07120de4b320c7fe
d330: 30 36 39 65 36 30 32 63 39 63 33 38 66 32 35 37  069e602c9c38f257
d340: 35 39 36 64 61 37 33 36 39 33 39 35 65 38 37 65  596da7369395e87e
d350: 62 36 34 62 33 61 63 66 66 39 38 38 63 31 38 33  b64b3acff988c183
d360: 39 61 63 32 36 39 64 35 30 31 32 63 30 39 33 66  9ac269d5012c093f
d370: 39 65 64 64 34 62 37 63 61 62 66 31 33 62 64 65  9edd4b7cabf13bde
d380: 61 37 64 34 32 65 39 36 39 61 62 31 30 38 32 36  a7d42e969ab10826
d390: 39 63 36 61 62 30 0a 0a 74 63 6c 74 65 73 74 3a  9c6ab0..tcltest:
d3a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31  :test Hash_SHA51
d3b0: 32 2d 32 2e 31 32 34 20 7b 53 48 41 35 31 32 53  2-2.124 {SHA512S
d3c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
d3d0: 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 20  straints SHA512 
d3e0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64  \..-setup {set d
d3f0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f  ata [binary deco
d400: 64 65 20 68 65 78 20 61 64 66 32 32 36 33 32 30  de hex adf226320
d410: 30 66 33 37 36 38 38 36 62 61 37 62 36 66 35 65  0f376886ba7b6f5e
d420: 34 34 31 31 64 35 66 30 37 66 37 64 39 64 31 30  4411d5f07f7d9d10
d430: 31 35 39 30 63 37 33 61 63 65 31 31 34 62 61 66  1590c73ace114baf
d440: 62 63 62 30 66 64 63 39 39 32 36 39 65 38 37 63  bcb0fdc99269e87c
d450: 64 32 63 65 61 64 32 61 31 63 66 65 35 37 34 34  d2cead2a1cfe5744
d460: 33 39 34 64 33 33 33 61 62 61 34 30 38 61 30 37  394d333aba408a07
d470: 65 32 31 66 33 30 32 33 33 62 36 35 62 39 30 37  e21f30233b65b907
d480: 34 37 32 65 39 65 33 63 37 64 36 65 37 61 61 36  472e9e3c7d6e7aa6
d490: 64 32 63 34 37 61 30 38 61 31 62 65 37 62 62 38  d2c47a08a1be7bb8
d4a0: 37 37 39 31 33 61 36 62 35 36 30 34 63 37 32 33  77913a6b5604c723
d4b0: 33 38 34 34 37 38 39 31 31 63 33 33 39 65 33 62  384478911c339e3b
d4c0: 35 66 65 35 32 37 63 37 65 32 38 38 37 30 35 61  5fe527c7e288705a
d4d0: 38 39 63 39 35 64 39 37 30 62 34 34 33 33 34 37  89c95d970b443347
d4e0: 38 39 37 65 37 39 66 36 63 35 32 32 62 61 66 65  897e79f6c522bafe
d4f0: 36 32 62 31 31 65 66 38 66 33 31 33 35 5d 7d 20  62b11ef8f3135]} 
d500: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
d510: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
d520: 41 35 31 32 20 2d 64 61 74 61 20 24 64 61 74 61  A512 -data $data
d530: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
d540: 74 20 2d 72 65 73 75 6c 74 20 33 63 32 33 64 32  t -result 3c23d2
d550: 64 38 63 66 34 64 62 36 61 63 36 61 34 32 65 32  d8cf4db6ac6a42e2
d560: 37 32 30 38 31 38 30 66 33 37 36 36 38 62 65 66  7208180f37668bef
d570: 35 65 65 30 61 33 66 38 37 39 34 38 33 63 38 65  5ee0a3f879483c8e
d580: 36 30 34 65 37 66 34 32 35 38 33 66 32 30 32 30  604e7f42583f2020
d590: 33 37 62 38 64 32 34 32 63 30 34 61 38 37 33 34  37b8d242c04a8734
d5a0: 35 62 38 62 65 36 64 63 38 62 31 32 31 64 36 34  5b8be6dc8b121d64
d5b0: 38 34 62 39 65 64 61 64 30 64 37 33 63 38 39 34  84b9edad0d73c894
d5c0: 63 31 32 38 38 66 35 63 61 65 0a 0a 74 63 6c 74  c1288f5cae..tclt
d5d0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53  est::test Hash_S
d5e0: 48 41 35 31 32 2d 32 2e 31 32 35 20 7b 53 48 41  HA512-2.125 {SHA
d5f0: 35 31 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  512ShortMsg} \..
d600: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
d610: 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  512 \..-setup {s
d620: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
d630: 64 65 63 6f 64 65 20 68 65 78 20 31 38 65 37 35  decode hex 18e75
d640: 62 34 37 64 38 39 38 61 63 36 32 39 63 34 38 65  b47d898ac629c48e
d650: 38 30 64 62 66 62 37 35 64 61 65 31 65 31 37 30  80dbfb75dae1e170
d660: 30 62 37 37 31 31 36 35 65 63 63 64 62 31 38 64  0b771165eccdb18d
d670: 36 32 38 62 66 63 34 30 36 33 64 64 36 63 33 38  628bfc4063dd6c38
d680: 33 39 61 37 65 63 34 63 64 31 32 35 35 63 34 38  39a7ec4cd1255c48
d690: 32 31 62 30 37 38 63 64 31 37 34 36 34 37 62 33  21b078cd174647b3
d6a0: 32 30 62 62 36 38 35 35 34 31 64 35 31 37 63 35  20bb685541d517c5
d6b0: 37 39 66 36 62 38 65 33 63 64 64 32 65 31 30 39  79f6b8e3cdd2e109
d6c0: 61 36 31 30 63 37 61 39 32 31 36 35 33 62 32 30  a610c7a921653b20
d6d0: 34 61 64 30 31 38 64 30 33 34 30 64 39 39 33 38  4ad018d0340d9938
d6e0: 37 33 35 62 36 30 32 36 32 36 36 32 30 31 36 37  735b602626620167
d6f0: 36 37 65 31 64 38 38 32 34 61 36 34 39 35 34 30  67e1d8824a649540
d700: 38 36 32 32 39 63 30 65 33 62 35 62 64 39 61 64  86229c0e3b5bd9ad
d710: 38 38 63 35 34 63 31 64 63 35 61 61 34 65 37 36  88c54c1dc5aa4e76
d720: 38 66 66 31 61 39 34 37 30 65 65 36 66 36 65 39  8ff1a9470ee6f6e9
d730: 39 38 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  98f]} \..-body {
d740: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
d750: 65 73 74 20 53 48 41 35 31 32 20 2d 64 61 74 61  est SHA512 -data
d760: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
d770: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
d780: 30 31 63 37 35 36 62 37 63 32 30 62 35 66 39 35  01c756b7c20b5f95
d790: 66 64 32 62 30 37 39 61 62 36 61 35 30 66 32 38  fd2b079ab6a50f28
d7a0: 62 39 34 36 66 62 31 36 32 36 36 62 30 37 63 36  b946fb16266b07c6
d7b0: 30 36 30 39 34 35 64 63 34 66 65 39 65 30 64 32  060945dc4fe9e0d2
d7c0: 37 39 63 35 62 31 35 30 35 62 39 65 63 37 64 38  79c5b1505b9ec7d8
d7d0: 66 38 66 33 63 39 65 62 66 30 63 35 65 65 39 33  f8f3c9ebf0c5ee93
d7e0: 36 35 61 65 63 30 38 63 66 32 37 38 64 36 35 62  65aec08cf278d65b
d7f0: 36 34 64 61 65 63 63 63 31 39 64 33 63 62 66 34  64daeccc19d3cbf4
d800: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
d810: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 32  Hash_SHA512-2.12
d820: 36 20 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73  6 {SHA512ShortMs
d830: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
d840: 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65  ts SHA512 \..-se
d850: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
d860: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
d870: 20 63 32 39 36 33 33 34 32 63 66 61 61 38 38 63   c2963342cfaa88c
d880: 63 64 31 30 32 61 32 35 38 65 36 64 36 32 39 66  cd102a258e6d629f
d890: 36 62 30 64 33 36 37 64 64 35 35 31 31 36 35 30  6b0d367dd5511650
d8a0: 32 63 61 34 34 35 31 65 61 35 32 33 36 32 33 62  2ca4451ea523623b
d8b0: 63 34 31 37 35 38 31 39 61 30 36 34 38 64 66 33  c4175819a0648df3
d8c0: 31 36 38 65 38 65 61 38 66 31 30 65 64 32 37 33  168e8ea8f10ed273
d8d0: 35 34 38 30 37 64 37 36 65 30 32 65 65 31 66 64  54807d76e02ee1fd
d8e0: 66 31 63 39 63 36 35 35 65 65 32 62 39 66 64 30  f1c9c655ee2b9fd0
d8f0: 38 64 35 35 37 30 35 38 64 61 62 64 66 38 64 63  8d557058dabdf8dc
d900: 66 39 36 34 62 66 63 61 63 63 39 39 36 61 65 31  f964bfcacc996ae1
d910: 37 33 39 37 31 65 32 36 65 61 30 33 38 64 34 30  73971e26ea038d40
d920: 37 63 38 32 34 32 36 30 64 30 36 63 32 38 34 38  7c824260d06c2848
d930: 61 30 34 61 34 38 38 63 34 63 34 35 36 64 62 63  a04a488c4c456dbc
d940: 64 65 32 39 33 39 65 35 36 31 61 62 39 30 38 63  de2939e561ab908c
d950: 34 30 39 37 62 35 30 38 36 33 38 64 36 63 64 61  4097b508638d6cda
d960: 35 35 36 34 36 35 63 39 63 63 35 5d 7d 20 5c 0a  556465c9cc5]} \.
d970: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
d980: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 35  est -digest SHA5
d990: 31 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  12 -data $data} 
d9a0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
d9b0: 2d 72 65 73 75 6c 74 20 61 34 64 32 66 35 39 33  -result a4d2f593
d9c0: 39 33 61 35 66 65 61 36 31 32 63 33 63 37 34 35  93a5fea612c3c745
d9d0: 66 34 62 62 39 66 34 31 61 61 66 33 61 33 63 65  f4bb9f41aaf3a3ce
d9e0: 31 36 37 39 61 61 38 61 66 63 31 61 36 32 62 61  1679aa8afc1a62ba
d9f0: 61 34 65 64 34 35 32 38 31 39 34 31 38 63 38 61  a4ed452819418c8a
da00: 65 31 61 31 65 36 35 38 37 35 37 39 37 36 36 39  e1a1e65875797669
da10: 32 33 39 30 66 63 34 33 64 34 64 65 63 66 37 64  2390fc43d4decf7d
da20: 38 35 35 63 64 38 62 34 39 38 62 36 64 63 36 30  855cd8b498b6dc60
da30: 63 61 65 30 35 61 39 30 0a 0a 74 63 6c 74 65 73  cae05a90..tcltes
da40: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
da50: 35 31 32 2d 32 2e 31 32 37 20 7b 53 48 41 35 31  512-2.127 {SHA51
da60: 32 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  2ShortMsg} \..-c
da70: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31  onstraints SHA51
da80: 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  2 \..-setup {set
da90: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
daa0: 63 6f 64 65 20 68 65 78 20 38 35 33 36 30 63 33  code hex 85360c3
dab0: 64 34 32 35 37 64 39 38 37 38 65 32 66 35 63 31  d4257d9878e2f5c1
dac0: 36 64 33 63 64 37 64 30 37 34 37 64 66 33 64 32  6d3cd7d0747df3d2
dad0: 33 31 65 31 61 38 66 36 33 66 64 64 63 36 39 62  31e1a8f63fddc69b
dae0: 33 62 31 31 30 31 61 66 37 32 31 35 33 64 65 34  3b1101af72153de4
daf0: 63 38 31 35 34 62 30 39 30 63 39 38 31 35 66 32  c8154b090c9815f2
db00: 34 36 36 65 30 65 34 66 30 32 66 33 61 66 33 61  466e0e4f02f3af3a
db10: 38 39 61 37 66 64 30 34 65 33 30 36 36 36 34 66  89a7fd04e306664f
db20: 39 33 65 35 34 39 30 64 34 63 65 37 66 63 31 36  93e5490d4ce7fc16
db30: 39 64 35 35 33 63 35 32 30 61 65 31 35 64 64 30  9d553c520ae15dd0
db40: 32 63 37 63 36 31 33 63 33 39 62 34 61 63 64 30  2c7c613c39b4acd0
db50: 30 65 30 63 39 61 33 63 35 30 31 35 36 36 65 35  0e0c9a3c501566e5
db60: 32 63 65 63 65 61 31 31 66 37 33 30 33 64 64 31  2cecea11f7303dd1
db70: 64 61 36 31 61 62 66 33 66 32 35 33 32 66 64 33  da61abf3f2532fd3
db80: 39 36 30 34 37 62 31 38 38 37 32 35 35 66 34 62  96047b1887255f4b
db90: 32 35 36 63 30 61 66 63 66 35 38 66 33 61 65 34  256c0afcf58f3ae4
dba0: 38 63 39 34 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79  8c947]} \..-body
dbb0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64   {tls::digest -d
dbc0: 69 67 65 73 74 20 53 48 41 35 31 32 20 2d 64 61  igest SHA512 -da
dbd0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61  ta $data} \..-ma
dbe0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c  tch exact -resul
dbf0: 74 20 65 38 33 35 32 64 64 63 61 63 35 39 65 33  t e8352ddcac59e3
dc00: 37 37 65 61 30 66 39 63 33 32 62 62 62 34 33 64  77ea0f9c32bbb43d
dc10: 66 64 31 62 36 63 38 32 39 66 61 64 31 39 35 34  fd1b6c829fad1954
dc20: 32 34 30 63 34 31 62 37 63 34 35 62 30 62 30 39  240c41b7c45b0b09
dc30: 64 62 31 31 30 36 34 62 36 34 65 32 34 34 32 61  db11064b64e2442a
dc40: 39 36 66 36 35 33 30 61 61 63 32 63 34 61 62 66  96f6530aac2c4abf
dc50: 33 62 65 62 31 65 61 65 37 37 66 32 62 63 65 34  3beb1eae77f2bce4
dc60: 65 66 65 38 38 66 65 65 31 61 37 30 63 66 35 34  efe88fee1a70cf54
dc70: 32 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  23..tcltest::tes
dc80: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 2e  t Hash_SHA512-2.
dc90: 31 32 38 20 7b 53 48 41 35 31 32 53 68 6f 72 74  128 {SHA512Short
dca0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
dcb0: 69 6e 74 73 20 53 48 41 35 31 32 20 5c 0a 09 2d  ints SHA512 \..-
dcc0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
dcd0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
dce0: 65 78 20 63 31 33 65 36 63 61 33 61 62 62 38 39  ex c13e6ca3abb89
dcf0: 33 61 61 35 66 38 32 63 34 61 38 65 66 37 35 34  3aa5f82c4a8ef754
dd00: 34 36 30 36 32 38 61 66 36 62 37 35 61 66 30 32  460628af6b75af02
dd10: 31 36 38 66 34 35 62 37 32 66 38 66 30 39 65 34  168f45b72f8f09e4
dd20: 35 65 64 31 32 37 63 32 30 33 62 63 37 62 62 38  5ed127c203bc7bb8
dd30: 30 66 66 30 63 37 62 64 39 36 66 38 63 63 36 64  0ff0c7bd96f8cc6d
dd40: 38 31 31 30 38 36 38 65 62 32 63 66 63 30 31 30  8110868eb2cfc010
dd50: 33 37 64 38 30 35 38 39 39 32 61 36 63 66 32 65  37d8058992a6cf2e
dd60: 66 66 63 62 66 65 34 39 38 63 38 34 32 65 35 33  ffcbfe498c842e53
dd70: 61 32 65 36 38 61 37 39 33 38 36 37 39 36 38 62  a2e68a793867968b
dd80: 61 31 38 65 66 63 34 61 37 38 62 32 31 63 64 66  a18efc4a78b21cdf
dd90: 36 61 31 31 65 35 64 65 38 32 31 64 63 61 62 61  6a11e5de821dcaba
dda0: 62 31 34 39 32 31 64 64 62 33 33 36 32 35 64 34  b14921ddb33625d4
ddb0: 38 61 31 33 62 61 66 66 61 64 36 66 65 38 32 37  8a13baffad6fe827
ddc0: 32 64 62 64 66 34 34 33 33 62 64 30 66 37 62 38  2dbdf4433bd0f7b8
ddd0: 31 33 63 39 38 31 32 36 39 63 33 38 38 66 30 30  13c981269c388f00
dde0: 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  1]} \..-body {tl
ddf0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
de00: 74 20 53 48 41 35 31 32 20 2d 64 61 74 61 20 24  t SHA512 -data $
de10: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
de20: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 65  exact -result 6e
de30: 35 36 66 37 37 66 36 38 38 33 64 30 62 64 34 66  56f77f6883d0bd4f
de40: 61 63 65 38 62 38 64 35 35 37 66 31 34 34 36 36  ace8b8d557f14466
de50: 31 39 38 39 66 36 36 64 35 31 62 31 66 65 34 62  1989f66d51b1fe4b
de60: 38 66 63 37 31 32 34 64 36 36 64 39 64 32 30 32  8fc7124d66d9d202
de70: 31 38 36 31 36 66 65 61 31 62 63 66 38 36 63 30  18616fea1bcf86c0
de80: 38 64 36 33 62 66 38 66 32 66 32 31 38 34 35 61  8d63bf8f2f21845a
de90: 33 65 35 31 39 30 38 33 62 39 33 37 65 37 30 61  3e519083b937e70a
dea0: 61 37 63 33 35 38 33 31 30 62 35 61 37 63 0a 0a  a7c358310b5a7c..
deb0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
dec0: 73 68 5f 53 48 41 35 31 32 2d 32 2e 31 32 39 20  sh_SHA512-2.129 
ded0: 7b 53 48 41 35 31 32 53 68 6f 72 74 4d 73 67 7d  {SHA512ShortMsg}
dee0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
def0: 20 53 48 41 35 31 32 20 5c 0a 09 2d 73 65 74 75   SHA512 \..-setu
df00: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
df10: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66  ary decode hex f
df20: 64 32 32 30 33 65 34 36 37 35 37 34 65 38 33 34  d2203e467574e834
df30: 61 62 30 37 63 39 30 39 37 61 65 31 36 34 35 33  ab07c9097ae16453
df40: 32 66 32 34 62 65 31 65 62 35 64 38 38 66 31 61  2f24be1eb5d88f1a
df50: 66 37 37 34 38 63 65 66 66 30 64 32 63 36 37 61  f7748ceff0d2c67a
df60: 32 31 66 34 65 34 30 39 37 66 39 64 33 62 62 34  21f4e4097f9d3bb4
df70: 65 39 66 62 66 39 37 31 38 36 65 30 64 62 36 64  e9fbf97186e0db6d
df80: 62 30 31 30 30 32 33 30 61 35 32 62 34 35 33 64  b0100230a52b453d
df90: 34 32 31 66 38 61 62 39 63 39 61 36 30 34 33 61  421f8ab9c9a6043a
dfa0: 61 33 32 39 35 65 61 32 30 64 32 66 30 36 61 32  a3295ea20d2f06a2
dfb0: 66 33 37 34 37 30 64 38 61 39 39 30 37 35 66 31  f37470d8a99075f1
dfc0: 62 38 61 38 33 33 36 66 36 32 32 38 63 66 30 38  b8a8336f6228cf08
dfd0: 62 35 39 34 32 66 63 31 66 62 34 32 39 39 63 37  b5942fc1fb4299c7
dfe0: 64 32 34 38 30 65 38 65 38 32 62 63 65 31 37 35  d2480e8e82bce175
dff0: 35 34 30 62 64 66 61 64 37 37 35 32 62 63 39 35  540bdfad7752bc95
e000: 62 35 37 37 66 32 32 39 35 31 35 33 39 34 66 33  b577f229515394f3
e010: 61 65 35 63 65 63 38 37 30 61 34 62 32 66 38 5d  ae5cec870a4b2f8]
e020: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
e030: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
e040: 53 48 41 35 31 32 20 2d 64 61 74 61 20 24 64 61  SHA512 -data $da
e050: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
e060: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 32 31 62  act -result a21b
e070: 31 30 37 37 64 35 32 62 32 37 61 63 35 34 35 61  1077d52b27ac545a
e080: 66 36 33 62 33 32 37 34 36 63 36 65 33 63 35 31  f63b32746c6e3c51
e090: 63 62 30 63 62 39 66 32 38 31 65 62 39 66 33 35  cb0cb9f281eb9f35
e0a0: 38 30 61 36 64 34 39 39 36 64 35 63 39 39 31 37  80a6d4996d5c9917
e0b0: 64 32 61 36 65 34 38 34 36 32 37 61 39 64 35 61  d2a6e484627a9d5a
e0c0: 30 36 66 61 31 62 32 35 33 32 37 61 39 64 37 31  06fa1b25327a9d71
e0d0: 30 65 30 32 37 33 38 37 66 63 33 65 30 37 64 37  0e027387fc3e07d7
e0e0: 63 34 64 31 34 63 36 30 38 36 63 63 0a 0a 23 20  c4d14c6086cc..# 
e0f0: 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73  Cleanup.::tcltes
e100: 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a  t::cleanupTests.
e110: 72 65 74 75 72 6e 0a                             return.