Artifact c53c8d2ca7747f5191341318bb2695ac60d441ed60ed4a613295ca2f6fec7ffa:

• File tests/test_vectors/Hash/SHA1ShortMsg.test — part of check-in [8440f589be] at 2024-02-11 21:24:47 on branch crypto — Updated test cases for OpenSSL 3.0. Added load legacy provider for obsolete algorithms. (user: bohagan, size: 18846) [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 31 53 68 6f 72 74   from "SHA1Short
0020: 4d 73 67 2e 72 73 70 22 0a 6c 61 70 70 65 6e 64  Msg.rsp".lappend
0030: 20 61 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65   auto_path [file
0040: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64   dirname [file d
0050: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72  irname [file dir
0060: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61  name [file dirna
0070: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70  me [file join [p
0080: 77 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74  wd] [info script
0090: 5d 5d 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72  ]]]]]].package r
00a0: 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61  equire tls.packa
00b0: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65  ge require tclte
00c0: 73 74 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  st..tcltest::tes
00d0: 74 43 6f 6e 73 74 72 61 69 6e 74 20 53 48 41 31  tConstraint SHA1
00e0: 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68   [expr {[lsearch
00f0: 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 64   -nocase [tls::d
0100: 69 67 65 73 74 73 5d 20 53 48 41 31 5d 20 3e 20  igests] SHA1] > 
0110: 2d 31 7d 5d 0a 63 61 74 63 68 20 7b 74 6c 73 3a  -1}].catch {tls:
0120: 3a 70 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79  :provider legacy
0130: 7d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  }..tcltest::test
0140: 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31 20 7b   Hash_SHA1-2.1 {
0150: 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  SHA1ShortMsg} \.
0160: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0170: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  A1 \..-setup {se
0180: 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62  t data ""} \..-b
0190: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
01a0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
01b0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
01c0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
01d0: 6c 74 20 64 61 33 39 61 33 65 65 35 65 36 62 34  lt da39a3ee5e6b4
01e0: 62 30 64 33 32 35 35 62 66 65 66 39 35 36 30 31  b0d3255bfef95601
01f0: 38 39 30 61 66 64 38 30 37 30 39 0a 0a 74 63 6c  890afd80709..tcl
0200: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0210: 53 48 41 31 2d 32 2e 32 20 7b 53 48 41 31 53 68  SHA1-2.2 {SHA1Sh
0220: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0230: 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09  traints SHA1 \..
0240: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
0250: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0260: 68 65 78 20 33 36 5d 7d 20 5c 0a 09 2d 62 6f 64  hex 36]} \..-bod
0270: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
0280: 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74  digest SHA1 -dat
0290: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
02a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
02b0: 20 63 31 64 66 64 39 36 65 65 61 38 63 63 32 62   c1dfd96eea8cc2b
02c0: 36 32 37 38 35 32 37 35 62 63 61 33 38 61 63 32  62785275bca38ac2
02d0: 36 31 32 35 36 65 32 37 38 0a 0a 74 63 6c 74 65  61256e278..tclte
02e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
02f0: 41 31 2d 32 2e 33 20 7b 53 48 41 31 53 68 6f 72  A1-2.3 {SHA1Shor
0300: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
0310: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
0320: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0330: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0340: 78 20 31 39 35 61 5d 7d 20 5c 0a 09 2d 62 6f 64  x 195a]} \..-bod
0350: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
0360: 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74  digest SHA1 -dat
0370: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0380: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0390: 20 30 61 31 63 32 64 35 35 35 62 62 65 34 33 31   0a1c2d555bbe431
03a0: 61 64 36 32 38 38 61 66 35 61 35 34 66 39 33 65  ad6288af5a54f93e
03b0: 30 34 34 39 63 39 32 33 32 0a 0a 74 63 6c 74 65  0449c9232..tclte
03c0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
03d0: 41 31 2d 32 2e 34 20 7b 53 48 41 31 53 68 6f 72  A1-2.4 {SHA1Shor
03e0: 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72  tMsg} \..-constr
03f0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73  aints SHA1 \..-s
0400: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b  etup {set data [
0410: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65  binary decode he
0420: 78 20 64 66 34 62 64 32 5d 7d 20 5c 0a 09 2d 62  x df4bd2]} \..-b
0430: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0440: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
0450: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0460: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0470: 6c 74 20 62 66 33 36 65 64 35 64 37 34 37 32 37  lt bf36ed5d74727
0480: 64 66 64 35 64 37 38 35 34 65 63 36 62 31 64 34  dfd5d7854ec6b1d4
0490: 39 34 36 38 64 38 65 65 38 61 61 0a 0a 74 63 6c  9468d8ee8aa..tcl
04a0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
04b0: 53 48 41 31 2d 32 2e 35 20 7b 53 48 41 31 53 68  SHA1-2.5 {SHA1Sh
04c0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
04d0: 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09  traints SHA1 \..
04e0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61  -setup {set data
04f0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0500: 68 65 78 20 35 34 39 65 39 35 39 65 5d 7d 20 5c  hex 549e959e]} \
0510: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0520: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0530: 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  1 -data $data} \
0540: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
0550: 72 65 73 75 6c 74 20 62 37 38 62 61 65 36 64 31  result b78bae6d1
0560: 34 33 33 38 66 66 63 63 66 64 35 64 35 62 35 36  4338ffccfd5d5b56
0570: 37 34 61 32 37 35 66 36 65 66 39 63 37 31 37 0a  74a275f6ef9c717.
0580: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
0590: 61 73 68 5f 53 48 41 31 2d 32 2e 36 20 7b 53 48  ash_SHA1-2.6 {SH
05a0: 41 31 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  A1ShortMsg} \..-
05b0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31  constraints SHA1
05c0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
05d0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
05e0: 6f 64 65 20 68 65 78 20 66 37 66 62 31 62 65 32  ode hex f7fb1be2
05f0: 30 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  05]} \..-body {t
0600: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
0610: 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24 64  st SHA1 -data $d
0620: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65  ata} \..-match e
0630: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 30 62  xact -result 60b
0640: 37 64 35 62 62 35 36 30 61 31 61 63 66 36 66 61  7d5bb560a1acf6fa
0650: 34 35 37 32 31 62 64 30 61 62 62 34 31 39 61 38  45721bd0abb419a8
0660: 34 31 61 38 39 0a 0a 74 63 6c 74 65 73 74 3a 3a  41a89..tcltest::
0670: 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32  test Hash_SHA1-2
0680: 2e 37 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67  .7 {SHA1ShortMsg
0690: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
06a0: 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70  s SHA1 \..-setup
06b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
06c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 30  ry decode hex c0
06d0: 65 35 61 62 65 61 65 61 36 33 5d 7d 20 5c 0a 09  e5abeaea63]} \..
06e0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
06f0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20  st -digest SHA1 
0700: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0710: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0720: 73 75 6c 74 20 61 36 64 33 33 38 34 35 39 37 38  sult a6d33845978
0730: 30 63 30 38 33 36 33 30 39 30 66 64 38 66 63 37  0c08363090fd8fc7
0740: 64 32 38 64 63 38 30 65 38 65 30 31 66 0a 0a 74  d28dc80e8e01f..t
0750: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0760: 68 5f 53 48 41 31 2d 32 2e 38 20 7b 53 48 41 31  h_SHA1-2.8 {SHA1
0770: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0780: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c  nstraints SHA1 \
0790: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
07a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
07b0: 65 20 68 65 78 20 36 33 62 66 63 31 65 64 37 66  e hex 63bfc1ed7f
07c0: 37 38 61 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  78ab]} \..-body 
07d0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
07e0: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20  gest SHA1 -data 
07f0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
0800: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38   exact -result 8
0810: 36 30 33 32 38 64 38 30 35 30 39 35 30 30 63 31  60328d80509500c1
0820: 37 38 33 31 36 39 65 62 66 30 62 61 30 63 34 62  783169ebf0ba0c4b
0830: 39 34 64 61 35 65 35 0a 0a 74 63 6c 74 65 73 74  94da5e5..tcltest
0840: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31  ::test Hash_SHA1
0850: 2d 32 2e 39 20 7b 53 48 41 31 53 68 6f 72 74 4d  -2.9 {SHA1ShortM
0860: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0870: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
0880: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
0890: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
08a0: 37 65 33 64 37 62 33 65 61 64 61 39 38 38 36 36  7e3d7b3eada98866
08b0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
08c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
08d0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
08e0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
08f0: 63 74 20 2d 72 65 73 75 6c 74 20 32 34 61 32 63  ct -result 24a2c
0900: 33 34 62 39 37 36 33 30 35 32 37 37 63 65 35 38  34b976305277ce58
0910: 63 32 66 34 32 64 35 30 39 32 30 33 31 35 37 32  c2f42d5092031572
0920: 35 32 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  520..tcltest::te
0930: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31  st Hash_SHA1-2.1
0940: 30 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  0 {SHA1ShortMsg}
0950: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0960: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
0970: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0980: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 65 36  y decode hex 9e6
0990: 31 65 35 35 64 39 65 64 33 37 62 31 63 32 30 5d  1e55d9ed37b1c20]
09a0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
09b0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
09c0: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
09d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
09e0: 74 20 2d 72 65 73 75 6c 74 20 34 31 31 63 63 65  t -result 411cce
09f0: 65 31 66 36 65 33 36 37 37 64 66 31 32 36 39 38  e1f6e3677df12698
0a00: 34 31 31 65 62 30 39 64 33 66 66 35 38 30 61 66  411eb09d3ff580af
0a10: 39 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  97..tcltest::tes
0a20: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31 31  t Hash_SHA1-2.11
0a30: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
0a40: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0a50: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
0a60: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0a70: 20 64 65 63 6f 64 65 20 68 65 78 20 39 37 37 37   decode hex 9777
0a80: 63 66 39 30 64 64 37 63 37 65 38 36 33 35 30 36  cf90dd7c7e863506
0a90: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
0aa0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
0ab0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
0ac0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
0ad0: 63 74 20 2d 72 65 73 75 6c 74 20 30 35 63 39 31  ct -result 05c91
0ae0: 35 62 35 65 64 34 65 34 63 34 61 66 66 66 63 32  5b5ed4e4c4afffc2
0af0: 30 32 39 36 31 66 33 31 37 34 33 37 31 65 39 30  02961f3174371e90
0b00: 62 35 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  b5c..tcltest::te
0b10: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31  st Hash_SHA1-2.1
0b20: 32 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  2 {SHA1ShortMsg}
0b30: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
0b40: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
0b50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0b60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 65 62  y decode hex 4eb
0b70: 30 38 63 39 65 36 38 33 63 39 34 62 65 61 30 30  08c9e683c94bea00
0b80: 64 66 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  dfa]} \..-body {
0b90: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0ba0: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
0bb0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0bc0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 66  exact -result af
0bd0: 33 32 30 62 34 32 64 37 37 38 35 63 61 36 63 38  320b42d7785ca6c8
0be0: 64 64 32 32 30 34 36 33 62 65 32 33 61 32 64 32  dd220463be23a2d2
0bf0: 63 62 35 61 66 63 0a 0a 74 63 6c 74 65 73 74 3a  cb5afc..tcltest:
0c00: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
0c10: 32 2e 31 33 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.13 {SHA1ShortM
0c20: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
0c30: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
0c40: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
0c50: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
0c60: 30 39 33 38 66 32 65 32 65 62 62 36 34 66 38 61  0938f2e2ebb64f8a
0c70: 66 38 62 62 66 63 39 31 5d 7d 20 5c 0a 09 2d 62  f8bbfc91]} \..-b
0c80: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0c90: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
0ca0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0cb0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0cc0: 6c 74 20 39 66 34 65 36 36 62 36 63 65 65 61 34  lt 9f4e66b6ceea4
0cd0: 30 64 63 66 34 62 39 31 36 36 63 32 38 66 31 63  0dcf4b9166c28f1c
0ce0: 38 38 34 37 34 31 34 31 64 61 39 0a 0a 74 63 6c  88474141da9..tcl
0cf0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0d00: 53 48 41 31 2d 32 2e 31 34 20 7b 53 48 41 31 53  SHA1-2.14 {SHA1S
0d10: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0d20: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
0d30: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0d40: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0d50: 20 68 65 78 20 37 34 63 39 39 39 36 64 31 34 65   hex 74c9996d14e
0d60: 38 37 64 33 65 36 63 62 65 61 37 30 32 39 64 5d  87d3e6cbea7029d]
0d70: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0d80: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0d90: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
0da0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0db0: 74 20 2d 72 65 73 75 6c 74 20 65 36 63 34 33 36  t -result e6c436
0dc0: 33 63 30 38 35 32 39 35 31 39 39 31 30 35 37 66  3c0852951991057f
0dd0: 34 30 64 65 32 37 65 63 30 38 39 30 34 36 36 66  40de27ec0890466f
0de0: 30 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  01..tcltest::tes
0df0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31 35  t Hash_SHA1-2.15
0e00: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
0e10: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0e20: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
0e30: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0e40: 20 64 65 63 6f 64 65 20 68 65 78 20 35 31 64 63   decode hex 51dc
0e50: 61 35 63 30 66 38 65 35 64 34 39 35 39 36 66 33  a5c0f8e5d49596f3
0e60: 32 64 33 65 62 38 37 34 5d 7d 20 5c 0a 09 2d 62  2d3eb874]} \..-b
0e70: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0e80: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
0e90: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
0ea0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
0eb0: 6c 74 20 30 34 36 61 37 62 33 39 36 63 30 31 33  lt 046a7b396c013
0ec0: 37 39 61 36 38 34 61 38 39 34 35 35 38 37 37 39  79a684a894558779
0ed0: 62 30 37 64 38 63 37 64 61 32 30 0a 0a 74 63 6c  b07d8c7da20..tcl
0ee0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0ef0: 53 48 41 31 2d 32 2e 31 36 20 7b 53 48 41 31 53  SHA1-2.16 {SHA1S
0f00: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
0f10: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
0f20: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
0f30: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
0f40: 20 68 65 78 20 33 61 33 36 65 61 34 39 36 38 34   hex 3a36ea49684
0f50: 38 32 30 61 32 61 64 63 37 66 63 34 31 37 35 62  820a2adc7fc4175b
0f60: 61 37 38 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  a78]} \..-body {
0f70: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0f80: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
0f90: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0fa0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 35  exact -result d5
0fb0: 38 61 32 36 32 65 65 37 62 36 35 37 37 63 30 37  8a262ee7b6577c07
0fc0: 32 32 38 65 37 31 61 65 39 62 33 65 30 34 63 38  228e71ae9b3e04c8
0fd0: 61 62 63 64 61 39 0a 0a 74 63 6c 74 65 73 74 3a  abcda9..tcltest:
0fe0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
0ff0: 32 2e 31 37 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.17 {SHA1ShortM
1000: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1010: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
1020: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1030: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
1040: 33 35 35 32 36 39 34 63 64 66 36 36 33 66 64 39  3552694cdf663fd9
1050: 34 62 32 32 34 37 34 37 61 63 34 30 36 61 61 66  4b224747ac406aaf
1060: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1070: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1080: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
1090: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
10a0: 63 74 20 2d 72 65 73 75 6c 74 20 61 31 35 30 64  ct -result a150d
10b0: 65 39 32 37 34 35 34 32 30 32 64 39 34 65 36 35  e927454202d94e65
10c0: 36 64 65 34 63 37 63 30 63 61 36 39 31 64 65 39  6de4c7c0ca691de9
10d0: 35 35 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  55d..tcltest::te
10e0: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31  st Hash_SHA1-2.1
10f0: 38 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  8 {SHA1ShortMsg}
1100: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
1110: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
1120: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1130: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 32 31  y decode hex f21
1140: 36 61 31 63 62 64 65 32 34 34 36 62 31 65 64 66  6a1cbde2446b1edf
1150: 34 31 65 39 33 34 38 31 64 33 33 65 32 65 64 5d  41e93481d33e2ed]
1160: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1170: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1180: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
1190: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
11a0: 74 20 2d 72 65 73 75 6c 74 20 33 35 61 34 62 33  t -result 35a4b3
11b0: 39 66 65 66 35 36 30 65 37 65 61 36 31 32 34 36  9fef560e7ea61246
11c0: 36 37 36 65 31 62 37 65 31 33 64 35 38 37 62 65  676e1b7e13d587be
11d0: 33 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  30..tcltest::tes
11e0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 31 39  t Hash_SHA1-2.19
11f0: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
1200: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1210: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
1220: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1230: 20 64 65 63 6f 64 65 20 68 65 78 20 61 33 63 66   decode hex a3cf
1240: 37 31 34 62 66 31 31 32 36 34 37 65 37 32 37 65  714bf112647e727e
1250: 38 63 66 64 34 36 34 39 39 61 63 64 33 35 61 36  8cfd46499acd35a6
1260: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1270: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1280: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
1290: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
12a0: 63 74 20 2d 72 65 73 75 6c 74 20 37 63 65 36 39  ct -result 7ce69
12b0: 62 31 61 63 64 63 65 35 32 65 61 37 64 62 64 33  b1acdce52ea7dbd3
12c0: 38 32 35 33 31 66 61 31 61 38 33 64 66 31 33 63  82531fa1a83df13c
12d0: 61 65 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  ae7..tcltest::te
12e0: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 32  st Hash_SHA1-2.2
12f0: 30 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  0 {SHA1ShortMsg}
1300: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
1310: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
1320: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1330: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 34 38  y decode hex 148
1340: 64 65 36 34 30 66 33 63 31 31 35 39 31 61 36 66  de640f3c11591a6f
1350: 38 63 35 63 34 38 36 33 32 63 35 66 62 37 39 64  8c5c48632c5fb79d
1360: 33 62 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  3b7]} \..-body {
1370: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
1380: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
1390: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
13a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 34  exact -result b4
13b0: 37 62 65 32 63 36 34 31 32 34 66 61 39 61 31 32  7be2c64124fa9a12
13c0: 34 61 38 38 37 61 66 39 35 35 31 61 37 34 33 35  4a887af9551a7435
13d0: 34 63 61 34 31 31 0a 0a 74 63 6c 74 65 73 74 3a  4ca411..tcltest:
13e0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
13f0: 32 2e 32 31 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.21 {SHA1ShortM
1400: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1410: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
1420: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1430: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
1440: 36 33 61 33 63 63 38 33 66 64 31 65 63 31 62 36  63a3cc83fd1ec1b6
1450: 36 38 30 65 39 39 37 34 61 30 35 31 34 65 31 61  680e9974a0514e1a
1460: 39 65 63 65 62 62 36 61 5d 7d 20 5c 0a 09 2d 62  9ecebb6a]} \..-b
1470: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1480: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1490: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
14a0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
14b0: 6c 74 20 38 62 62 38 63 30 64 38 31 35 61 39 63  lt 8bb8c0d815a9c
14c0: 36 38 61 31 64 32 39 31 30 66 33 39 64 39 34 32  68a1d2910f39d942
14d0: 36 30 33 64 38 30 37 66 62 63 63 0a 0a 74 63 6c  603d807fbcc..tcl
14e0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
14f0: 53 48 41 31 2d 32 2e 32 32 20 7b 53 48 41 31 53  SHA1-2.22 {SHA1S
1500: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1510: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
1520: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1530: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1540: 20 68 65 78 20 38 37 35 61 39 30 39 30 39 61 38   hex 875a90909a8
1550: 61 66 63 39 32 66 62 37 30 37 30 30 34 37 65 39  afc92fb7070047e9
1560: 64 30 38 31 65 63 39 32 66 33 64 30 38 62 38 5d  d081ec92f3d08b8]
1570: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1580: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1590: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
15a0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
15b0: 74 20 2d 72 65 73 75 6c 74 20 62 34 38 36 66 38  t -result b486f8
15c0: 37 66 62 38 33 33 65 62 66 30 33 32 38 33 39 33  7fb833ebf0328393
15d0: 31 32 38 36 34 36 61 36 66 36 65 36 36 30 66 63  128646a6f6e660fc
15e0: 62 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  b1..tcltest::tes
15f0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 32 33  t Hash_SHA1-2.23
1600: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
1610: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1620: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
1630: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1640: 20 64 65 63 6f 64 65 20 68 65 78 20 34 34 34 62   decode hex 444b
1650: 32 35 66 39 63 39 32 35 39 64 63 32 31 37 37 37  25f9c9259dc21777
1660: 32 63 63 34 34 37 38 63 34 34 62 36 66 65 66 66  2cc4478c44b6feff
1670: 36 32 33 35 33 36 37 33 5d 7d 20 5c 0a 09 2d 62  62353673]} \..-b
1680: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1690: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
16a0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
16b0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
16c0: 6c 74 20 37 36 31 35 39 33 36 38 66 39 39 64 65  lt 76159368f99de
16d0: 63 65 33 30 61 61 64 63 66 62 39 62 37 62 34 31  ce30aadcfb9b7b41
16e0: 64 61 62 33 33 36 38 38 38 35 38 0a 0a 74 63 6c  dab33688858..tcl
16f0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
1700: 53 48 41 31 2d 32 2e 32 34 20 7b 53 48 41 31 53  SHA1-2.24 {SHA1S
1710: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1720: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
1730: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1740: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1750: 20 68 65 78 20 34 38 37 33 35 31 63 38 61 35 66   hex 487351c8a5f
1760: 34 34 30 65 34 64 30 33 33 38 36 34 38 33 64 35  440e4d03386483d5
1770: 66 65 37 62 62 36 36 39 64 34 31 61 64 63 62 66  fe7bb669d41adcbf
1780: 64 62 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  db7]} \..-body {
1790: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
17a0: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
17b0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
17c0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 62  exact -result db
17d0: 63 31 63 62 35 37 35 63 65 36 61 65 62 39 64 63  c1cb575ce6aeb9dc
17e0: 34 65 62 66 30 66 38 34 33 62 61 38 61 65 62 31  4ebf0f843ba8aeb1
17f0: 34 35 31 65 38 39 0a 0a 74 63 6c 74 65 73 74 3a  451e89..tcltest:
1800: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
1810: 32 2e 32 35 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.25 {SHA1ShortM
1820: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1830: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
1840: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1850: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
1860: 34 36 62 30 36 31 65 66 31 33 32 62 38 37 66 36  46b061ef132b87f6
1870: 64 33 62 30 65 65 32 34 36 32 66 36 37 64 39 31  d3b0ee2462f67d91
1880: 30 39 37 37 64 61 32 30 61 65 64 31 33 37 30 35  0977da20aed13705
1890: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
18a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
18b0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
18c0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
18d0: 63 74 20 2d 72 65 73 75 6c 74 20 64 37 61 39 38  ct -result d7a98
18e0: 32 38 39 36 37 39 30 30 35 65 62 39 33 30 61 62  289679005eb930ab
18f0: 37 35 65 66 64 38 66 36 35 30 66 39 39 31 65 65  75efd8f650f991ee
1900: 39 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  952..tcltest::te
1910: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 32  st Hash_SHA1-2.2
1920: 36 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  6 {SHA1ShortMsg}
1930: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
1940: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
1950: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1960: 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 38 34  y decode hex 384
1970: 32 62 36 31 33 37 62 62 39 64 32 37 66 33 63 61  2b6137bb9d27f3ca
1980: 35 62 61 66 65 35 62 62 62 36 32 38 35 38 33 34  5bafe5bbb6285834
1990: 34 66 65 34 62 61 35 63 34 31 35 38 39 61 35 5d  4fe4ba5c41589a5]
19a0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
19b0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
19c0: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
19d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
19e0: 74 20 2d 72 65 73 75 6c 74 20 66 64 61 32 36 66  t -result fda26f
19f0: 61 39 62 34 38 37 34 61 62 37 30 31 65 64 30 62  a9b4874ab701ed0b
1a00: 62 36 34 64 31 33 34 66 38 39 62 39 63 34 63 63  b64d134f89b9c4cc
1a10: 35 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  50..tcltest::tes
1a20: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 32 37  t Hash_SHA1-2.27
1a30: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
1a40: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1a50: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
1a60: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1a70: 20 64 65 63 6f 64 65 20 68 65 78 20 34 34 64 39   decode hex 44d9
1a80: 31 64 33 64 34 36 35 61 34 31 31 31 34 36 32 62  1d3d465a4111462b
1a90: 61 30 63 37 65 63 32 32 33 64 61 36 37 33 35 66  a0c7ec223da6735f
1aa0: 34 66 35 32 30 30 34 35 33 63 66 31 33 32 63 33  4f5200453cf132c3
1ab0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
1ac0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
1ad0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
1ae0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
1af0: 63 74 20 2d 72 65 73 75 6c 74 20 63 32 66 66 37  ct -result c2ff7
1b00: 63 63 64 65 31 34 33 63 38 66 30 36 30 31 66 36  ccde143c8f0601f6
1b10: 39 37 34 62 31 39 30 33 65 62 38 64 35 37 34 31  974b1903eb8d5741
1b20: 62 36 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  b6e..tcltest::te
1b30: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 32  st Hash_SHA1-2.2
1b40: 38 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  8 {SHA1ShortMsg}
1b50: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
1b60: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
1b70: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1b80: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 63 65  y decode hex cce
1b90: 37 33 66 32 65 61 62 63 62 35 32 66 37 38 35 64  73f2eabcb52f785d
1ba0: 35 61 36 64 66 36 33 63 30 61 31 30 35 66 33 34  5a6df63c0a105f34
1bb0: 61 39 31 63 61 32 33 37 66 65 35 33 34 65 65 33  a91ca237fe534ee3
1bc0: 39 39 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  99d]} \..-body {
1bd0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
1be0: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
1bf0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1c00: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 34  exact -result 64
1c10: 33 63 39 64 63 32 30 61 39 32 39 36 30 38 66 36  3c9dc20a929608f6
1c20: 63 61 61 39 37 30 39 64 38 34 33 63 61 36 66 61  caa9709d843ca6fa
1c30: 37 61 37 36 66 34 0a 0a 74 63 6c 74 65 73 74 3a  7a76f4..tcltest:
1c40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
1c50: 32 2e 32 39 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.29 {SHA1ShortM
1c60: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
1c70: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
1c80: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
1c90: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
1ca0: 36 36 34 65 36 65 37 39 34 36 38 33 39 32 30 33  664e6e7946839203
1cb0: 30 33 37 61 36 35 61 31 32 31 37 34 62 32 34 34  037a65a12174b244
1cc0: 64 65 38 63 62 63 36 65 63 33 66 35 37 38 39 36  de8cbc6ec3f57896
1cd0: 37 61 38 34 66 39 63 65 5d 7d 20 5c 0a 09 2d 62  7a84f9ce]} \..-b
1ce0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1cf0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1d00: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1d10: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1d20: 6c 74 20 35 30 39 65 66 37 38 37 33 34 33 64 35  lt 509ef787343d5
1d30: 62 35 61 32 36 39 32 32 39 62 39 36 31 62 39 36  b5a269229b961b96
1d40: 32 34 31 38 36 34 61 33 64 37 34 0a 0a 74 63 6c  241864a3d74..tcl
1d50: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
1d60: 53 48 41 31 2d 32 2e 33 30 20 7b 53 48 41 31 53  SHA1-2.30 {SHA1S
1d70: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1d80: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
1d90: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1da0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1db0: 20 68 65 78 20 39 35 39 37 66 37 31 34 62 32 65   hex 9597f714b2e
1dc0: 34 35 65 33 33 39 39 61 37 66 30 32 61 65 63 34  45e3399a7f02aec4
1dd0: 34 39 32 31 62 64 37 38 62 65 30 66 65 66 65 65  4921bd78be0fefee
1de0: 30 63 35 65 39 62 34 39 39 34 38 38 66 36 65 5d  0c5e9b499488f6e]
1df0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
1e00: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
1e10: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
1e20: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
1e30: 74 20 2d 72 65 73 75 6c 74 20 62 36 31 63 65 35  t -result b61ce5
1e40: 33 38 66 31 61 31 65 36 63 39 30 34 33 32 62 32  38f1a1e6c90432b2
1e50: 33 33 64 37 61 66 35 62 36 35 32 34 65 62 66 62  33d7af5b6524ebfb
1e60: 65 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  e3..tcltest::tes
1e70: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 33 31  t Hash_SHA1-2.31
1e80: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
1e90: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1ea0: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
1eb0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1ec0: 20 64 65 63 6f 64 65 20 68 65 78 20 37 35 63 35   decode hex 75c5
1ed0: 61 64 31 66 33 63 62 64 32 32 65 38 61 39 35 66  ad1f3cbd22e8a95f
1ee0: 63 33 62 30 38 39 35 32 36 37 38 38 66 62 34 65  c3b089526788fb4e
1ef0: 62 63 65 65 64 33 65 37 64 34 34 34 33 64 61 36  bceed3e7d4443da6
1f00: 65 30 38 31 61 33 35 65 5d 7d 20 5c 0a 09 2d 62  e081a35e]} \..-b
1f10: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1f20: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
1f30: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
1f40: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
1f50: 6c 74 20 35 62 37 62 39 34 30 37 36 62 32 66 63  lt 5b7b94076b2fc
1f60: 32 30 64 36 61 64 62 38 32 34 37 39 65 36 62 32  20d6adb82479e6b2
1f70: 38 64 30 37 63 39 30 32 62 37 35 0a 0a 74 63 6c  8d07c902b75..tcl
1f80: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
1f90: 53 48 41 31 2d 32 2e 33 32 20 7b 53 48 41 31 53  SHA1-2.32 {SHA1S
1fa0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
1fb0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
1fc0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
1fd0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
1fe0: 20 68 65 78 20 64 64 32 34 35 62 66 66 65 36 61   hex dd245bffe6a
1ff0: 36 33 38 38 30 36 36 36 37 37 36 38 33 36 30 61  638806667768360a
2000: 39 35 64 30 35 37 34 65 31 61 30 62 64 30 64 31  95d0574e1a0bd0d1
2010: 38 33 32 39 66 64 62 39 31 35 63 61 34 38 34 61  8329fdb915ca484a
2020: 63 30 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  c0d]} \..-body {
2030: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2040: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
2050: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2060: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 30  exact -result 60
2070: 36 36 64 62 39 39 66 63 33 35 38 39 35 32 63 66  66db99fc358952cf
2080: 37 66 62 30 65 63 34 64 38 39 63 62 30 31 35 38  7fb0ec4d89cb0158
2090: 65 64 39 31 64 37 0a 0a 74 63 6c 74 65 73 74 3a  ed91d7..tcltest:
20a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
20b0: 32 2e 33 33 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.33 {SHA1ShortM
20c0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
20d0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
20e0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
20f0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
2100: 30 33 32 31 37 39 34 62 37 33 39 34 31 38 63 32  0321794b739418c2
2110: 34 65 37 63 32 65 35 36 35 32 37 34 37 39 31 63  4e7c2e565274791c
2120: 34 62 65 37 34 39 37 35 32 61 64 32 33 34 65 64  4be749752ad234ed
2130: 35 36 63 62 30 61 36 33 34 37 34 33 30 63 36 62  56cb0a6347430c6b
2140: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2150: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2160: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
2170: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
2180: 63 74 20 2d 72 65 73 75 6c 74 20 62 38 39 39 36  ct -result b8996
2190: 32 63 39 34 64 36 30 66 36 61 33 33 32 66 64 36  2c94d60f6a332fd6
21a0: 30 66 36 66 30 37 64 34 66 30 33 32 61 35 38 36  0f6f07d4f032a586
21b0: 62 37 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  b76..tcltest::te
21c0: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 33  st Hash_SHA1-2.3
21d0: 34 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  4 {SHA1ShortMsg}
21e0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
21f0: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
2200: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2210: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 63 33  y decode hex 4c3
2220: 64 63 66 39 35 63 32 66 30 62 35 32 35 38 63 36  dcf95c2f0b5258c6
2230: 35 31 66 63 64 31 64 35 31 62 64 31 30 34 32 35  51fcd1d51bd10425
2240: 64 36 32 30 33 30 36 37 64 30 37 34 38 64 33 37  d6203067d0748d37
2250: 64 31 33 34 30 64 39 64 64 64 61 37 64 62 33 5d  d1340d9ddda7db3]
2260: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2270: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2280: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
2290: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
22a0: 74 20 2d 72 65 73 75 6c 74 20 31 37 62 64 61 38  t -result 17bda8
22b0: 39 39 63 31 33 64 33 35 34 31 33 64 32 35 34 36  99c13d35413d2546
22c0: 32 31 32 62 63 64 38 61 39 33 63 65 62 30 36 35  212bcd8a93ceb065
22d0: 37 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  7b..tcltest::tes
22e0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 33 35  t Hash_SHA1-2.35
22f0: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
2300: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2310: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
2320: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
2330: 20 64 65 63 6f 64 65 20 68 65 78 20 62 38 64 31   decode hex b8d1
2340: 32 35 38 32 64 32 35 62 34 35 32 39 30 61 36 65  2582d25b45290a6e
2350: 31 62 62 39 35 64 61 34 32 39 62 65 66 63 66 64  1bb95da429befcfd
2360: 62 66 35 62 34 64 64 34 31 63 64 66 33 33 31 31  bf5b4dd41cdf3311
2370: 64 36 39 38 38 66 61 31 37 63 65 63 30 37 32 33  d6988fa17cec0723
2380: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2390: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
23a0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
23b0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
23c0: 63 74 20 2d 72 65 73 75 6c 74 20 62 61 64 63 64  ct -result badcd
23d0: 64 35 33 66 64 63 31 34 34 62 38 62 66 32 63 63  d53fdc144b8bf2cc
23e0: 31 65 36 34 64 31 30 66 36 37 36 65 65 62 65 36  1e64d10f676eebe6
23f0: 36 65 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  6ed..tcltest::te
2400: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 33  st Hash_SHA1-2.3
2410: 36 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  6 {SHA1ShortMsg}
2420: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
2430: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
2440: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2450: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 66 64  y decode hex 6fd
2460: 61 39 37 35 32 37 61 36 36 32 35 35 32 62 65 31  a97527a662552be1
2470: 35 65 66 61 65 62 61 33 32 61 33 61 65 61 34 65  5efaeba32a3aea4e
2480: 64 34 34 39 61 62 62 35 63 31 65 64 38 64 39 62  d449abb5c1ed8d9b
2490: 66 66 66 35 34 34 37 30 38 61 34 32 35 64 36 39  fff544708a425d69
24a0: 62 37 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  b72]} \..-body {
24b0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
24c0: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
24d0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
24e0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 31  exact -result 01
24f0: 62 34 36 34 36 31 38 30 66 31 66 36 64 32 65 30  b4646180f1f6d2e0
2500: 36 62 62 65 32 32 63 32 30 65 35 30 30 33 30 33  6bbe22c20e500303
2510: 32 32 36 37 33 61 0a 0a 74 63 6c 74 65 73 74 3a  22673a..tcltest:
2520: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
2530: 32 2e 33 37 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.37 {SHA1ShortM
2540: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2550: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
2560: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
2570: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
2580: 30 39 66 61 32 37 39 32 61 63 62 62 32 34 31 37  09fa2792acbb2417
2590: 65 38 65 64 32 36 39 30 34 31 63 63 30 33 63 37  e8ed269041cc03c7
25a0: 37 30 30 36 34 36 36 65 36 65 37 61 65 30 30 32  7006466e6e7ae002
25b0: 63 66 33 66 31 61 66 35 35 31 65 38 63 65 30 62  cf3f1af551e8ce0b
25c0: 62 35 30 36 64 37 30 35 5d 7d 20 5c 0a 09 2d 62  b506d705]} \..-b
25d0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
25e0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
25f0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2600: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2610: 6c 74 20 31 30 30 31 36 64 63 33 61 32 37 31 39  lt 10016dc3a2719
2620: 66 39 30 33 34 66 66 63 63 36 38 39 34 32 36 64  f9034ffcc689426d
2630: 32 38 32 39 32 63 34 32 66 63 39 0a 0a 74 63 6c  28292c42fc9..tcl
2640: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
2650: 53 48 41 31 2d 32 2e 33 38 20 7b 53 48 41 31 53  SHA1-2.38 {SHA1S
2660: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2670: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
2680: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
2690: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
26a0: 20 68 65 78 20 35 65 66 61 32 39 38 37 64 61 30   hex 5efa2987da0
26b0: 62 61 66 30 61 35 34 64 38 64 37 32 38 37 39 32  baf0a54d8d728792
26c0: 62 63 66 61 37 30 37 61 31 35 37 39 38 64 63 36  bcfa707a15798dc6
26d0: 36 37 34 33 37 35 34 34 30 36 39 31 34 64 31 63  6743754406914d1c
26e0: 66 65 33 37 30 39 62 31 33 37 34 65 61 65 62 5d  fe3709b1374eaeb]
26f0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2700: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2710: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
2720: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
2730: 74 20 2d 72 65 73 75 6c 74 20 39 66 34 32 66 61  t -result 9f42fa
2740: 32 62 63 65 36 65 66 30 32 31 64 39 33 63 36 62  2bce6ef021d93c6b
2750: 32 64 39 30 32 32 37 33 37 39 37 65 34 32 36 35  2d902273797e4265
2760: 33 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  35..tcltest::tes
2770: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 33 39  t Hash_SHA1-2.39
2780: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
2790: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
27a0: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
27b0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
27c0: 20 64 65 63 6f 64 65 20 68 65 78 20 32 38 33 36   decode hex 2836
27d0: 64 65 39 39 63 30 66 36 34 31 63 64 35 35 65 38  de99c0f641cd55e8
27e0: 39 66 35 61 66 37 36 36 33 38 39 34 37 62 38 32  9f5af76638947b82
27f0: 32 37 33 37 37 65 66 38 38 62 66 62 61 36 36 32  27377ef88bfba662
2800: 65 35 36 38 32 62 61 62 63 31 65 63 39 36 63 36  e5682babc1ec96c6
2810: 39 39 32 62 63 39 61 30 5d 7d 20 5c 0a 09 2d 62  992bc9a0]} \..-b
2820: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2830: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
2840: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2850: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2860: 6c 74 20 63 64 66 34 38 62 61 63 62 66 66 36 66  lt cdf48bacbff6f
2870: 36 31 35 32 35 31 35 33 32 33 66 39 62 34 33 61  6152515323f9b43a
2880: 32 38 36 65 30 63 62 38 31 31 33 0a 0a 74 63 6c  286e0cb8113..tcl
2890: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
28a0: 53 48 41 31 2d 32 2e 34 30 20 7b 53 48 41 31 53  SHA1-2.40 {SHA1S
28b0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
28c0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
28d0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
28e0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
28f0: 20 68 65 78 20 34 32 31 34 33 61 32 62 39 65 31   hex 42143a2b9e1
2900: 64 30 62 33 35 34 64 66 33 32 36 34 64 30 38 66  d0b354df3264d08f
2910: 37 62 36 30 32 66 35 34 61 61 64 39 32 32 61 33  7b602f54aad922a3
2920: 64 36 33 30 30 36 64 30 39 37 66 36 38 33 64 63  d63006d097f683dc
2930: 31 31 62 39 30 31 37 38 34 32 33 62 66 66 32 66  11b90178423bff2f
2940: 37 66 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  7fe]} \..-body {
2950: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2960: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
2970: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2980: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 38  exact -result b8
2990: 38 66 62 37 35 32 37 34 62 39 62 30 66 64 35 37  8fb75274b9b0fd57
29a0: 63 30 30 34 35 39 38 38 63 66 63 65 66 36 63 33  c0045988cfcef6c3
29b0: 63 65 36 35 35 34 0a 0a 74 63 6c 74 65 73 74 3a  ce6554..tcltest:
29c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
29d0: 32 2e 34 31 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.41 {SHA1ShortM
29e0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
29f0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
2a00: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
2a10: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
2a20: 65 62 36 30 63 32 38 61 64 38 61 65 64 61 38 30  eb60c28ad8aeda80
2a30: 37 64 36 39 65 62 63 38 37 35 35 32 30 32 34 61  7d69ebc87552024a
2a40: 64 38 61 63 61 36 38 32 30 34 66 31 62 63 64 32  d8aca68204f1bcd2
2a50: 39 64 63 35 61 38 31 64 64 32 32 38 62 35 39 31  9dc5a81dd228b591
2a60: 65 32 65 66 62 37 63 34 64 66 37 35 65 66 30 33  e2efb7c4df75ef03
2a70: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2a80: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2a90: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
2aa0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
2ab0: 63 74 20 2d 72 65 73 75 6c 74 20 63 30 36 64 33  ct -result c06d3
2ac0: 61 36 61 31 32 64 39 65 38 64 62 36 32 65 38 63  a6a12d9e8db62e8c
2ad0: 66 66 34 30 63 61 32 33 38 32 30 64 36 31 64 38  ff40ca23820d61d8
2ae0: 61 61 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  aa7..tcltest::te
2af0: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 34  st Hash_SHA1-2.4
2b00: 32 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  2 {SHA1ShortMsg}
2b10: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
2b20: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
2b30: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2b40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 64 65  y decode hex 7de
2b50: 34 62 61 38 35 65 63 35 34 37 34 37 63 64 63 34  4ba85ec54747cdc4
2b60: 32 62 31 66 32 33 35 34 36 62 37 65 34 39 30 65  2b1f23546b7e490e
2b70: 33 31 32 38 30 66 30 36 36 65 35 32 66 61 63 31  31280f066e52fac1
2b80: 31 37 66 64 33 62 30 37 39 32 65 34 64 65 36 32  17fd3b0792e4de62
2b90: 64 35 38 34 33 65 65 39 38 63 37 32 30 31 35 5d  d5843ee98c72015]
2ba0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
2bb0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
2bc0: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
2bd0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
2be0: 74 20 2d 72 65 73 75 6c 74 20 36 65 34 30 66 39  t -result 6e40f9
2bf0: 65 38 33 61 34 62 65 39 33 38 37 34 62 63 39 37  e83a4be93874bc97
2c00: 63 64 65 62 62 38 64 61 36 38 38 39 61 65 32 63  cdebb8da6889ae2c
2c10: 37 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  7a..tcltest::tes
2c20: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 34 33  t Hash_SHA1-2.43
2c30: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
2c40: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2c50: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
2c60: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
2c70: 20 64 65 63 6f 64 65 20 68 65 78 20 65 37 30 36   decode hex e706
2c80: 35 33 36 33 37 62 63 35 65 33 38 38 63 63 64 38  53637bc5e388ccd8
2c90: 64 63 34 34 65 35 65 61 63 65 33 36 66 37 33 39  dc44e5eace36f739
2ca0: 38 66 32 62 61 63 39 39 33 30 34 32 62 39 62 63  8f2bac993042b9bc
2cb0: 32 66 34 66 62 33 62 30 65 65 37 65 32 33 61 39  2f4fb3b0ee7e23a9
2cc0: 36 34 33 39 64 63 30 31 31 33 34 62 38 63 37 64  6439dc01134b8c7d
2cd0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
2ce0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
2cf0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
2d00: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
2d10: 63 74 20 2d 72 65 73 75 6c 74 20 33 65 66 63 39  ct -result 3efc9
2d20: 34 30 63 33 31 32 65 66 30 64 66 64 34 65 31 31  40c312ef0dfd4e11
2d30: 34 33 38 31 32 32 34 38 64 62 38 39 35 34 32 66  43812248db89542f
2d40: 36 61 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  6a5..tcltest::te
2d50: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 34  st Hash_SHA1-2.4
2d60: 34 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  4 {SHA1ShortMsg}
2d70: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
2d80: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
2d90: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2da0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 64 33  y decode hex dd3
2db0: 37 62 63 39 66 30 62 33 61 34 37 38 38 66 39 62  7bc9f0b3a4788f9b
2dc0: 35 34 39 36 36 66 32 35 32 31 37 34 63 38 63 65  54966f252174c8ce
2dd0: 34 38 37 63 62 65 35 39 63 35 33 63 32 32 62 38  487cbe59c53c22b8
2de0: 31 62 66 37 37 36 32 31 61 37 63 65 37 36 31 36  1bf77621a7ce7616
2df0: 64 63 62 35 62 31 65 32 65 65 36 33 63 32 63 33  dcb5b1e2ee63c2c3
2e00: 30 39 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  09b]} \..-body {
2e10: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2e20: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
2e30: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2e40: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 30  exact -result a0
2e50: 63 66 30 33 66 37 62 61 64 64 30 63 33 63 33 63  cf03f7badd0c3c3c
2e60: 34 65 61 33 37 31 37 66 35 61 34 66 62 37 65 36  4ea3717f5a4fb7e6
2e70: 37 62 32 65 35 36 0a 0a 74 63 6c 74 65 73 74 3a  7b2e56..tcltest:
2e80: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
2e90: 32 2e 34 35 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.45 {SHA1ShortM
2ea0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
2eb0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
2ec0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
2ed0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
2ee0: 35 66 34 38 35 63 36 33 37 61 65 33 30 62 31 65  5f485c637ae30b1e
2ef0: 33 30 34 39 37 66 30 66 62 37 65 63 33 36 34 65  30497f0fb7ec364e
2f00: 31 33 63 39 30 36 65 32 38 31 33 64 61 61 33 34  13c906e2813daa34
2f10: 31 36 31 62 37 61 63 34 61 34 66 64 37 61 31 62  161b7ac4a4fd7a1b
2f20: 64 64 64 37 39 36 30 31 62 62 64 32 32 63 65 66  ddd79601bbd22cef
2f30: 31 66 35 37 63 62 63 37 5d 7d 20 5c 0a 09 2d 62  1f57cbc7]} \..-b
2f40: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2f50: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
2f60: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
2f70: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
2f80: 6c 74 20 61 35 34 34 65 30 36 66 31 61 30 37 63  lt a544e06f1a07c
2f90: 65 62 31 37 35 61 35 31 64 36 64 39 63 30 31 31  eb175a51d6d9c011
2fa0: 31 62 33 65 31 35 65 39 38 35 39 0a 0a 74 63 6c  1b3e15e9859..tcl
2fb0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
2fc0: 53 48 41 31 2d 32 2e 34 36 20 7b 53 48 41 31 53  SHA1-2.46 {SHA1S
2fd0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
2fe0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
2ff0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3000: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3010: 20 68 65 78 20 66 36 63 32 33 37 66 62 33 63 66   hex f6c237fb3cf
3020: 65 39 35 65 63 38 34 31 34 63 63 31 36 64 32 30  e95ec8414cc16d20
3030: 33 62 34 38 37 34 65 36 34 34 63 63 39 61 35 34  3b4874e644cc9a54
3040: 33 34 36 35 63 61 64 32 64 63 35 36 33 34 38 38  3465cad2dc563488
3050: 61 36 35 39 65 38 61 32 65 37 63 39 38 31 65 32  a659e8a2e7c981e2
3060: 61 39 66 32 32 65 35 65 38 36 38 66 66 65 31 5d  a9f22e5e868ffe1]
3070: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3080: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3090: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
30a0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
30b0: 74 20 2d 72 65 73 75 6c 74 20 31 39 39 64 39 38  t -result 199d98
30c0: 36 65 64 39 39 31 62 39 39 61 30 37 31 66 34 35  6ed991b99a071f45
30d0: 30 63 36 62 31 31 32 31 61 37 32 37 65 38 63 37  0c6b1121a727e8c7
30e0: 33 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  35..tcltest::tes
30f0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 34 37  t Hash_SHA1-2.47
3100: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
3110: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3120: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
3130: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3140: 20 64 65 63 6f 64 65 20 68 65 78 20 64 61 37 61   decode hex da7a
3150: 62 33 32 39 31 35 35 33 63 36 35 39 38 37 33 63  b3291553c659873c
3160: 39 35 39 31 33 37 36 38 39 35 33 63 36 65 35 32  95913768953c6e52
3170: 36 64 33 61 32 36 35 39 30 38 39 38 63 30 61 64  6d3a26590898c0ad
3180: 65 38 39 66 66 35 36 66 62 64 31 31 30 66 31 34  e89ff56fbd110f14
3190: 33 36 61 66 35 39 30 62 31 37 66 65 64 34 39 66  36af590b17fed49f
31a0: 38 63 34 62 32 62 31 65 5d 7d 20 5c 0a 09 2d 62  8c4b2b1e]} \..-b
31b0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
31c0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
31d0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
31e0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
31f0: 6c 74 20 33 33 62 61 63 36 31 30 34 62 30 61 64  lt 33bac6104b0ad
3200: 36 31 32 38 64 30 39 31 62 35 64 35 65 32 39 39  6128d091b5d5e299
3210: 39 30 39 39 63 39 66 30 35 64 65 0a 0a 74 63 6c  9099c9f05de..tcl
3220: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
3230: 53 48 41 31 2d 32 2e 34 38 20 7b 53 48 41 31 53  SHA1-2.48 {SHA1S
3240: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3250: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
3260: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3270: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3280: 20 68 65 78 20 38 63 66 61 35 66 64 35 36 65 65   hex 8cfa5fd56ee
3290: 32 33 39 63 61 34 37 37 33 37 35 39 31 63 62 61  239ca47737591cba
32a0: 31 30 33 65 34 31 61 31 38 61 63 66 38 65 38 64  103e41a18acf8e8d
32b0: 32 35 37 62 30 64 62 65 38 38 35 31 31 33 34 61  257b0dbe8851134a
32c0: 38 31 66 66 36 62 32 65 39 37 31 30 34 62 33 39  81ff6b2e97104b39
32d0: 62 37 36 65 31 39 64 61 32 35 36 61 31 37 63 65  b76e19da256a17ce
32e0: 35 32 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  52d]} \..-body {
32f0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3300: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
3310: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3320: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 36  exact -result 76
3330: 64 37 64 62 36 65 31 38 63 31 66 34 61 65 32 32  d7db6e18c1f4ae22
3340: 35 63 65 38 63 63 63 39 33 63 38 66 39 61 30 64  5ce8ccc93c8f9a0d
3350: 66 65 62 39 36 39 0a 0a 74 63 6c 74 65 73 74 3a  feb969..tcltest:
3360: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
3370: 32 2e 34 39 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.49 {SHA1ShortM
3380: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3390: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
33a0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
33b0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
33c0: 35 37 65 38 39 36 35 39 64 38 37 38 66 33 36 30  57e89659d878f360
33d0: 61 66 36 64 65 34 35 61 39 61 35 65 33 37 32 65  af6de45a9a5e372e
33e0: 66 34 30 63 33 38 34 39 38 38 65 38 32 36 34 30  f40c384988e82640
33f0: 61 33 64 35 65 34 62 37 36 64 32 65 66 31 38 31  a3d5e4b76d2ef181
3400: 37 38 30 62 39 61 30 39 39 61 63 30 36 65 66 30  780b9a099ac06ef0
3410: 66 38 61 37 66 33 66 37 36 34 32 30 39 37 32 30  f8a7f3f764209720
3420: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3430: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3440: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
3450: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
3460: 63 74 20 2d 72 65 73 75 6c 74 20 66 36 35 32 66  ct -result f652f
3470: 33 62 31 35 34 39 66 31 36 37 31 30 63 37 34 30  3b1549f16710c740
3480: 32 38 39 35 39 31 31 65 32 62 38 36 61 39 62 32  2895911e2b86a9b2
3490: 61 65 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  aee..tcltest::te
34a0: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 35  st Hash_SHA1-2.5
34b0: 30 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  0 {SHA1ShortMsg}
34c0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
34d0: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
34e0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
34f0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 39 31  y decode hex b91
3500: 65 36 34 32 33 35 64 62 64 32 33 34 65 65 61 32  e64235dbd234eea2
3510: 61 65 31 34 61 39 32 61 31 37 33 65 62 65 38 33  ae14a92a173ebe83
3520: 35 33 34 37 32 33 39 63 66 66 38 62 30 32 30 37  5347239cff8b0207
3530: 34 34 31 36 66 35 35 63 36 62 36 30 64 63 36 63  4416f55c6b60dc6c
3540: 65 64 30 36 61 65 39 66 38 64 37 30 35 35 30 35  ed06ae9f8d705505
3550: 66 30 64 36 31 37 65 34 62 32 39 61 65 66 39 5d  f0d617e4b29aef9]
3560: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3570: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3580: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
3590: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
35a0: 74 20 2d 72 65 73 75 6c 74 20 36 33 66 61 65 62  t -result 63faeb
35b0: 62 38 30 37 66 33 32 62 65 37 30 38 63 66 30 30  b807f32be708cf00
35c0: 66 63 33 35 35 31 39 39 39 31 64 63 34 65 37 66  fc35519991dc4e7f
35d0: 36 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  68..tcltest::tes
35e0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 35 31  t Hash_SHA1-2.51
35f0: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
3600: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3610: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
3620: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3630: 20 64 65 63 6f 64 65 20 68 65 78 20 65 34 32 61   decode hex e42a
3640: 36 37 33 36 32 61 35 38 31 65 38 63 66 33 64 38  67362a581e8cf3d8
3650: 34 37 35 30 32 32 31 35 37 35 35 64 37 61 64 34  47502215755d7ad4
3660: 32 35 63 61 30 33 30 63 34 33 36 30 62 30 66 37  25ca030c4360b0f7
3670: 65 66 35 31 33 65 36 39 38 30 32 36 35 66 36 31  ef513e6980265f61
3680: 63 39 66 61 31 38 64 64 39 63 65 36 36 38 66 33  c9fa18dd9ce668f3
3690: 38 64 62 63 32 61 31 65 66 38 66 38 33 63 64 36  8dbc2a1ef8f83cd6
36a0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
36b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
36c0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
36d0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
36e0: 63 74 20 2d 72 65 73 75 6c 74 20 30 65 36 37 33  ct -result 0e673
36f0: 30 62 63 34 61 30 65 39 33 32 32 65 61 32 30 35  0bc4a0e9322ea205
3700: 66 34 65 64 66 66 66 31 66 66 66 64 61 32 36 61  f4edfff1fffda26a
3710: 66 30 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  f0a..tcltest::te
3720: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 35  st Hash_SHA1-2.5
3730: 32 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  2 {SHA1ShortMsg}
3740: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
3750: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
3760: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3770: 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 33 34  y decode hex 634
3780: 64 62 39 32 63 32 32 30 31 30 65 31 63 62 66 31  db92c22010e1cbf1
3790: 65 31 36 32 33 39 32 33 31 38 30 34 30 36 63 35  e1623923180406c5
37a0: 31 35 32 37 32 32 30 39 61 38 61 63 63 34 32 64  15272209a8acc42d
37b0: 65 30 35 63 63 32 65 39 36 61 31 65 39 34 63 31  e05cc2e96a1e94c1
37c0: 66 39 66 36 62 39 33 32 33 34 62 37 66 34 63 35  f9f6b93234b7f4c5
37d0: 35 64 65 38 62 31 39 36 31 61 33 62 66 33 35 32  5de8b1961a3bf352
37e0: 32 35 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  259]} \..-body {
37f0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3800: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
3810: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3820: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 36  exact -result b6
3830: 31 61 33 61 36 66 34 32 65 38 65 36 36 30 34 62  1a3a6f42e8e6604b
3840: 39 33 31 39 36 63 34 33 63 39 65 38 34 64 35 33  93196c43c9e84d53
3850: 35 39 65 36 66 65 0a 0a 74 63 6c 74 65 73 74 3a  59e6fe..tcltest:
3860: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
3870: 32 2e 35 33 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.53 {SHA1ShortM
3880: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3890: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
38a0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
38b0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
38c0: 63 63 36 63 61 33 61 38 63 62 33 39 31 63 64 38  cc6ca3a8cb391cd8
38d0: 61 35 61 66 66 31 66 61 61 37 62 33 66 66 62 64  a5aff1faa7b3ffbd
38e0: 64 32 31 61 35 61 33 63 65 36 36 63 66 61 64 64  d21a5a3ce66cfadd
38f0: 62 66 65 38 62 31 37 39 65 34 63 38 36 30 62 65  bfe8b179e4c860be
3900: 35 65 63 36 36 62 64 32 63 36 64 65 36 61 33 39  5ec66bd2c6de6a39
3910: 61 32 35 36 32 32 66 39 66 32 66 63 62 33 66 63  a25622f9f2fcb3fc
3920: 30 35 61 66 31 32 62 35 5d 7d 20 5c 0a 09 2d 62  05af12b5]} \..-b
3930: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3940: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
3950: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3960: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
3970: 6c 74 20 33 32 64 39 37 39 63 61 31 62 33 65 64  lt 32d979ca1b3ed
3980: 30 65 64 38 63 38 39 30 64 39 39 65 63 36 64 64  0ed8c890d99ec6dd
3990: 38 35 65 36 63 31 36 61 62 66 34 0a 0a 74 63 6c  85e6c16abf4..tcl
39a0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
39b0: 53 48 41 31 2d 32 2e 35 34 20 7b 53 48 41 31 53  SHA1-2.54 {SHA1S
39c0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
39d0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
39e0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
39f0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3a00: 20 68 65 78 20 37 63 30 65 36 61 30 64 33 35 66   hex 7c0e6a0d35f
3a10: 38 61 63 38 35 34 63 37 32 34 35 65 62 63 37 33  8ac854c7245ebc73
3a20: 36 39 33 37 33 31 62 62 62 63 33 65 36 66 61 62  693731bbbc3e6fab
3a30: 36 34 34 34 36 36 64 65 32 37 62 62 35 32 32 66  644466de27bb522f
3a40: 63 62 39 39 33 30 37 31 32 36 61 65 37 31 38 66  cb99307126ae718f
3a50: 65 38 66 30 30 37 34 32 65 36 65 35 63 62 37 61  e8f00742e6e5cb7a
3a60: 36 38 37 63 38 38 34 34 37 63 62 63 39 36 31 5d  687c88447cbc961]
3a70: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3a80: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3a90: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
3aa0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
3ab0: 74 20 2d 72 65 73 75 6c 74 20 36 66 31 38 31 39  t -result 6f1819
3ac0: 30 62 64 32 64 30 32 66 63 39 33 62 63 65 36 34  0bd2d02fc93bce64
3ad0: 37 35 36 35 37 35 63 65 61 33 36 64 30 38 62 31  756575cea36d08b1
3ae0: 63 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  c3..tcltest::tes
3af0: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 35 35  t Hash_SHA1-2.55
3b00: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
3b10: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3b20: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
3b30: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3b40: 20 64 65 63 6f 64 65 20 68 65 78 20 63 35 35 38   decode hex c558
3b50: 31 64 34 30 62 33 33 31 65 32 34 30 30 33 39 30  1d40b331e2400390
3b60: 31 62 64 36 62 66 32 34 34 61 63 61 39 65 39 36  1bd6bf244aca9e96
3b70: 30 31 62 39 64 38 31 32 35 32 62 62 33 38 30 34  01b9d81252bb3804
3b80: 38 36 34 32 37 33 31 66 31 31 34 36 62 38 61 34  8642731f1146b8a4
3b90: 63 36 39 66 38 38 65 31 34 38 62 32 63 38 66 38  c69f88e148b2c8f8
3ba0: 63 31 34 66 31 35 65 31 64 36 64 61 35 37 62 32  c14f15e1d6da57b2
3bb0: 64 61 61 39 39 39 31 65 5d 7d 20 5c 0a 09 2d 62  daa9991e]} \..-b
3bc0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3bd0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
3be0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
3bf0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
3c00: 6c 74 20 36 38 66 35 32 35 66 65 65 61 31 64 38  lt 68f525feea1d8
3c10: 64 62 65 30 31 31 37 65 34 31 37 63 61 34 36 37  dbe0117e417ca467
3c20: 30 38 64 31 38 64 37 36 32 39 61 0a 0a 74 63 6c  08d18d7629a..tcl
3c30: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
3c40: 53 48 41 31 2d 32 2e 35 36 20 7b 53 48 41 31 53  SHA1-2.56 {SHA1S
3c50: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
3c60: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
3c70: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
3c80: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
3c90: 20 68 65 78 20 65 63 36 62 34 61 38 38 37 31 33   hex ec6b4a88713
3ca0: 64 66 32 37 63 30 66 32 64 30 32 65 37 33 38 62  df27c0f2d02e738b
3cb0: 36 39 64 62 34 33 61 62 64 61 33 39 32 31 33 31  69db43abda392131
3cc0: 37 32 35 39 63 38 36 34 63 31 63 33 38 36 65 39  7259c864c1c386e9
3cd0: 61 35 61 33 66 35 33 33 64 63 30 35 66 33 62 65  a5a3f533dc05f3be
3ce0: 65 62 32 62 65 63 32 61 61 63 38 65 30 36 64 62  eb2bec2aac8e06db
3cf0: 34 63 36 63 62 33 63 64 64 63 66 36 39 37 65 30  4c6cb3cddcf697e0
3d00: 33 64 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  3d5]} \..-body {
3d10: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3d20: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
3d30: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3d40: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 37  exact -result a7
3d50: 32 37 32 65 32 33 30 38 36 32 32 66 66 37 61 33  272e2308622ff7a3
3d60: 33 39 34 36 30 61 64 63 36 31 65 66 64 30 65 61  39460adc61efd0ea
3d70: 38 64 61 62 64 63 0a 0a 74 63 6c 74 65 73 74 3a  8dabdc..tcltest:
3d80: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
3d90: 32 2e 35 37 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.57 {SHA1ShortM
3da0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
3db0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
3dc0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
3dd0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
3de0: 30 33 32 31 37 33 36 62 65 62 61 35 37 38 65 39  0321736beba578e9
3df0: 30 61 62 63 31 61 39 30 61 61 35 36 31 35 37 64  0abc1a90aa56157d
3e00: 38 37 31 36 31 38 66 36 64 65 30 64 37 36 34 63  871618f6de0d764c
3e10: 63 38 63 39 31 65 30 36 63 36 38 65 63 64 33 62  c8c91e06c68ecd3b
3e20: 39 64 65 33 38 32 34 30 36 34 35 30 33 33 38 34  9de3824064503384
3e30: 64 62 36 37 62 65 62 37 66 65 30 31 32 32 33 32  db67beb7fe012232
3e40: 64 61 63 61 65 66 39 33 61 30 30 30 66 62 61 37  dacaef93a000fba7
3e50: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
3e60: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
3e70: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
3e80: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
3e90: 63 74 20 2d 72 65 73 75 6c 74 20 61 65 66 38 34  ct -result aef84
3ea0: 33 62 38 36 39 31 36 63 31 36 66 36 36 63 38 34  3b86916c16f66c84
3eb0: 64 38 33 61 36 30 30 35 64 32 33 66 64 30 30 35  d83a6005d23fd005
3ec0: 63 39 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  c9e..tcltest::te
3ed0: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 35  st Hash_SHA1-2.5
3ee0: 38 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  8 {SHA1ShortMsg}
3ef0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
3f00: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
3f10: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3f20: 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 30 61  y decode hex d0a
3f30: 32 34 39 61 39 37 62 35 66 31 34 38 36 37 32 31  249a97b5f1486721
3f40: 61 35 30 64 34 63 34 61 62 33 66 35 64 36 37 34  a50d4c4ab3f5d674
3f50: 61 30 65 32 39 39 32 35 64 35 62 66 32 36 37 38  a0e29925d5bf2678
3f60: 65 66 36 64 38 64 35 32 31 65 34 35 36 62 64 38  ef6d8d521e456bd8
3f70: 34 61 61 37 35 35 33 32 38 63 38 33 66 63 38 39  4aa755328c83fc89
3f80: 30 38 33 37 37 32 36 61 38 65 37 38 37 37 62 35  0837726a8e7877b5
3f90: 37 30 64 62 61 33 39 35 37 39 61 61 62 64 64 5d  70dba39579aabdd]
3fa0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
3fb0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
3fc0: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
3fd0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
3fe0: 74 20 2d 72 65 73 75 6c 74 20 62 65 32 63 64 36  t -result be2cd6
3ff0: 66 33 38 30 39 36 39 62 65 35 39 63 64 65 32 64  f380969be59cde2d
4000: 66 66 35 65 38 34 38 61 34 34 65 37 38 38 30 62  ff5e848a44e7880b
4010: 64 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  d6..tcltest::tes
4020: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 35 39  t Hash_SHA1-2.59
4030: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
4040: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4050: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
4060: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
4070: 20 64 65 63 6f 64 65 20 68 65 78 20 63 33 32 31   decode hex c321
4080: 33 38 35 33 31 31 31 38 66 30 38 63 37 64 63 63  38531118f08c7dcc
4090: 32 39 32 34 32 38 61 64 32 30 62 34 35 61 62 32  292428ad20b45ab2
40a0: 37 64 39 35 31 37 61 31 38 34 34 35 66 33 38 62  7d9517a18445f38b
40b0: 38 66 30 63 32 37 39 35 62 63 64 66 65 33 66 66  8f0c2795bcdfe3ff
40c0: 65 33 38 34 65 36 35 65 63 62 66 37 34 64 32 63  e384e65ecbf74d2c
40d0: 39 64 30 64 61 38 38 33 39 38 35 37 35 33 32 36  9d0da88398575326
40e0: 30 37 34 39 30 34 63 31 37 30 39 62 61 30 37 32  074904c1709ba072
40f0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4100: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4110: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
4120: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
4130: 63 74 20 2d 72 65 73 75 6c 74 20 65 35 65 62 34  ct -result e5eb4
4140: 35 34 33 64 65 65 65 38 66 36 61 35 32 38 37 38  543deee8f6a52878
4150: 34 35 61 66 38 62 35 39 33 61 39 35 61 39 37 34  45af8b593a95a974
4160: 39 61 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65  9a1..tcltest::te
4170: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 36  st Hash_SHA1-2.6
4180: 30 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d  0 {SHA1ShortMsg}
4190: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
41a0: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20   SHA1 \..-setup 
41b0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
41c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 30 66  y decode hex b0f
41d0: 34 63 66 62 39 33 39 65 61 37 38 35 65 61 62 62  4cfb939ea785eabb
41e0: 37 65 37 63 61 37 63 34 37 36 63 64 64 39 62 32  7e7ca7c476cdd9b2
41f0: 32 37 66 30 31 35 64 39 30 35 33 36 38 62 61 30  27f015d905368ba0
4200: 30 61 65 39 36 62 39 61 61 66 37 32 30 32 39 37  0ae96b9aaf720297
4210: 34 39 31 62 33 39 32 31 32 36 37 35 37 36 62 37  491b3921267576b7
4220: 32 63 38 66 35 38 64 35 37 37 36 31 37 65 38 34  2c8f58d577617e84
4230: 34 66 39 66 30 37 35 39 62 33 39 39 63 36 62 30  4f9f0759b399c6b0
4240: 36 34 63 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  64c]} \..-body {
4250: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
4260: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
4270: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4280: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 33  exact -result 53
4290: 34 63 38 35 30 34 34 38 64 64 34 38 36 37 38 37  4c850448dd486787
42a0: 62 36 32 62 64 65 63 32 64 34 61 30 62 31 34 30  b62bdec2d4a0b140
42b0: 61 31 62 31 37 30 0a 0a 74 63 6c 74 65 73 74 3a  a1b170..tcltest:
42c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
42d0: 32 2e 36 31 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.61 {SHA1ShortM
42e0: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
42f0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
4300: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
4310: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
4320: 62 64 30 32 65 35 31 62 30 63 66 32 63 32 62 38  bd02e51b0cf2c2b8
4330: 64 32 30 34 61 30 32 36 62 34 31 61 36 36 66 62  d204a026b41a66fb
4340: 66 63 32 61 63 33 37 65 65 39 34 31 31 66 63 34  fc2ac37ee9411fc4
4350: 34 39 63 38 64 31 31 39 34 61 30 37 39 32 61 32  49c8d1194a0792a2
4360: 38 65 65 37 33 31 34 30 37 64 66 63 38 39 62 36  8ee731407dfc89b6
4370: 64 66 63 32 62 31 30 66 61 61 32 37 37 32 33 61  dfc2b10faa27723a
4380: 31 38 34 61 66 65 66 38 66 64 38 33 64 65 66 38  184afef8fd83def8
4390: 35 38 61 33 32 64 33 66 5d 7d 20 5c 0a 09 2d 62  58a32d3f]} \..-b
43a0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
43b0: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
43c0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
43d0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
43e0: 6c 74 20 36 66 62 66 61 36 65 34 65 64 63 65 34  lt 6fbfa6e4edce4
43f0: 63 63 38 35 61 38 34 35 62 66 30 64 32 32 38 64  cc85a845bf0d228d
4400: 63 33 39 61 63 65 66 63 32 66 61 0a 0a 74 63 6c  c39acefc2fa..tcl
4410: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
4420: 53 48 41 31 2d 32 2e 36 32 20 7b 53 48 41 31 53  SHA1-2.62 {SHA1S
4430: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
4440: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
4450: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4460: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4470: 20 68 65 78 20 65 33 33 31 34 36 62 38 33 65 34   hex e33146b83e4
4480: 62 62 36 37 31 33 39 32 32 31 38 64 61 39 61 37  bb671392218da9a7
4490: 37 66 38 64 39 66 35 39 37 34 31 34 37 31 38 32  7f8d9f5974147182
44a0: 66 62 39 35 62 61 36 36 32 63 62 36 36 30 31 31  fb95ba662cb66011
44b0: 39 38 39 63 31 36 64 39 61 66 31 30 34 37 33 35  989c16d9af104735
44c0: 64 36 66 37 39 38 34 31 61 61 34 64 31 64 66 32  d6f79841aa4d1df2
44d0: 37 36 36 31 35 62 35 30 31 30 38 64 66 38 61 32  76615b50108df8a2
44e0: 39 64 62 63 39 64 65 33 31 66 34 32 36 30 64 5d  9dbc9de31f4260d]
44f0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
4500: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
4510: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61  SHA1 -data $data
4520: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
4530: 74 20 2d 72 65 73 75 6c 74 20 30 31 38 38 37 32  t -result 018872
4540: 36 39 31 64 39 62 30 34 65 38 32 32 30 65 30 39  691d9b04e8220e09
4550: 31 38 37 64 66 35 62 63 35 66 61 36 32 35 37 63  187df5bc5fa6257c
4560: 64 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  d9..tcltest::tes
4570: 74 20 48 61 73 68 5f 53 48 41 31 2d 32 2e 36 33  t Hash_SHA1-2.63
4580: 20 7b 53 48 41 31 53 68 6f 72 74 4d 73 67 7d 20   {SHA1ShortMsg} 
4590: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
45a0: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b  SHA1 \..-setup {
45b0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
45c0: 20 64 65 63 6f 64 65 20 68 65 78 20 34 31 31 63   decode hex 411c
45d0: 31 33 63 37 35 30 37 33 63 31 65 32 64 34 62 31  13c75073c1e2d4b1
45e0: 65 63 66 31 33 31 33 39 62 61 39 36 35 36 63 64  ecf13139ba9656cd
45f0: 33 35 63 31 34 32 30 31 66 31 63 37 63 36 66 30  35c14201f1c7c6f0
4600: 65 65 62 35 38 64 32 64 62 66 65 33 35 62 66 64  eeb58d2dbfe35bfd
4610: 65 63 63 63 39 32 63 33 39 36 31 63 66 61 62 62  eccc92c3961cfabb
4620: 35 39 30 62 63 31 65 62 37 37 65 61 63 31 35 37  590bc1eb77eac157
4630: 33 32 66 62 30 32 37 35 37 39 38 36 38 30 65 30  32fb0275798680e0
4640: 63 37 32 39 32 65 35 30 5d 7d 20 5c 0a 09 2d 62  c7292e50]} \..-b
4650: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
4660: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64   -digest SHA1 -d
4670: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
4680: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
4690: 6c 74 20 64 39 38 64 35 31 32 61 33 35 35 37 32  lt d98d512a35572
46a0: 66 38 62 64 32 30 64 65 36 32 65 39 35 31 30 63  f8bd20de62e9510c
46b0: 63 32 31 31 34 35 63 35 62 66 34 0a 0a 74 63 6c  c21145c5bf4..tcl
46c0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
46d0: 53 48 41 31 2d 32 2e 36 34 20 7b 53 48 41 31 53  SHA1-2.64 {SHA1S
46e0: 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e  hortMsg} \..-con
46f0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a  straints SHA1 \.
4700: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
4710: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
4720: 20 68 65 78 20 66 32 63 37 36 65 66 36 31 37 66   hex f2c76ef617f
4730: 61 32 62 66 63 38 61 34 64 36 62 63 62 62 31 35  a2bfc8a4d6bcbb15
4740: 66 65 38 38 34 33 36 66 64 63 32 31 36 35 64 33  fe88436fdc2165d3
4750: 30 37 34 36 32 39 35 37 39 30 37 39 64 34 64 35  074629579079d4d5
4760: 62 38 36 66 35 30 38 31 61 62 31 37 37 62 34 63  b86f5081ab177b4c
4770: 33 66 35 33 30 33 37 36 63 39 63 39 32 34 63 62  3f530376c9c924cb
4780: 64 34 32 31 61 38 64 61 66 38 38 33 30 64 30 39  d421a8daf8830d09
4790: 34 30 63 34 66 62 37 35 38 39 38 36 35 38 33 30  40c4fb7589865830
47a0: 36 39 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  699]} \..-body {
47b0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
47c0: 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24  est SHA1 -data $
47d0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
47e0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 66  exact -result 9f
47f0: 33 65 61 32 35 35 66 36 61 66 39 35 63 35 34 35  3ea255f6af95c545
4800: 34 65 35 35 64 37 33 35 34 63 61 62 62 34 35 33  4e55d7354cabb453
4810: 35 32 65 61 30 62 0a 0a 74 63 6c 74 65 73 74 3a  52ea0b..tcltest:
4820: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d  :test Hash_SHA1-
4830: 32 2e 36 35 20 7b 53 48 41 31 53 68 6f 72 74 4d  2.65 {SHA1ShortM
4840: 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  sg} \..-constrai
4850: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74  nts SHA1 \..-set
4860: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
4870: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
4880: 34 35 39 32 37 65 33 32 64 64 66 38 30 31 63 61  45927e32ddf801ca
4890: 66 33 35 65 31 38 65 37 62 35 30 37 38 62 37 66  f35e18e7b5078b7f
48a0: 35 34 33 35 32 37 38 32 31 32 65 63 36 62 62 39  5435278212ec6bb9
48b0: 39 64 66 38 38 34 66 34 39 62 33 32 37 63 36 34  9df884f49b327c64
48c0: 38 36 66 65 61 65 34 36 62 61 31 38 37 64 63 31  86feae46ba187dc1
48d0: 63 63 39 31 34 35 31 32 31 65 31 34 39 32 65 36  cc9145121e1492e6
48e0: 62 30 36 65 39 30 30 37 33 39 34 64 63 33 33 62  b06e9007394dc33b
48f0: 37 37 34 38 66 38 36 61 63 33 32 30 37 63 66 65  7748f86ac3207cfe
4900: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73  ]} \..-body {tls
4910: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74  ::digest -digest
4920: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74   SHA1 -data $dat
4930: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  a} \..-match exa
4940: 63 74 20 2d 72 65 73 75 6c 74 20 61 37 30 63 66  ct -result a70cf
4950: 62 66 65 37 35 36 33 64 64 30 65 36 36 35 63 37  bfe7563dd0e665c7
4960: 63 36 37 31 35 61 39 36 61 38 64 37 35 36 39 35  c6715a96a8d75695
4970: 30 63 30 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a  0c0..# Cleanup.:
4980: 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75  :tcltest::cleanu
4990: 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a        pTests.return.