Artifact
c46752a3787b623bb0a61ec1bc5e2cde497e3252d8f710e518ad98dace70fc69:
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 2e 74 78 74 22 from "SHA1.txt"
0020: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0030: 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 tls.package req
0040: 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 uire tcltest..tc
0050: 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 ltest::testConst
0060: 72 61 69 6e 74 20 53 48 41 31 20 5b 65 78 70 72 raint SHA1 [expr
0070: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 {[lsearch -noca
0080: 73 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 se [tls::digests
0090: 5d 20 53 48 41 31 5d 20 3e 20 2d 31 7d 5d 0a 0a ] SHA1] > -1}]..
00a0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
00b0: 73 68 5f 53 48 41 31 2d 31 2e 31 20 7b 53 48 41 sh_SHA1-1.1 {SHA
00c0: 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 1} \..-constrain
00d0: 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 ts SHA1 \..-setu
00e0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 p {set data ""}
00f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0100: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
0110: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 A1 -data $data}
0120: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0130: 2d 72 65 73 75 6c 74 20 64 61 33 39 61 33 65 65 -result da39a3ee
0140: 35 65 36 62 34 62 30 64 33 32 35 35 62 66 65 66 5e6b4b0d3255bfef
0150: 39 35 36 30 31 38 39 30 61 66 64 38 30 37 30 39 95601890afd80709
0160: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0170: 48 61 73 68 5f 53 48 41 31 2d 31 2e 32 20 7b 53 Hash_SHA1-1.2 {S
0180: 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 HA1} \..-constra
0190: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 ints SHA1 \..-se
01a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 tup {set data "a
01b0: 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 bc"} \..-body {t
01c0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
01d0: 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 st SHA1 -data $d
01e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
01f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 39 39 xact -result a99
0200: 39 33 65 33 36 34 37 30 36 38 31 36 61 62 61 33 93e364706816aba3
0210: 65 32 35 37 31 37 38 35 30 63 32 36 63 39 63 64 e25717850c26c9cd
0220: 30 64 38 39 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 0d89d..tcltest::
0230: 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d 31 test Hash_SHA1-1
0240: 2e 33 20 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 6f .3 {SHA1} \..-co
0250: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c nstraints SHA1 \
0260: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0270: 74 61 20 22 61 62 63 64 62 63 64 65 63 64 65 66 ta "abcdbcdecdef
0280: 64 65 66 67 65 66 67 68 66 67 68 69 67 68 69 6a defgefghfghighij
0290: 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e hijkijkljklmklmn
02a0: 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 22 7d 20 5c lmnomnopnopq"} \
02b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
02c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
02d0: 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 1 -data $data} \
02e0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
02f0: 72 65 73 75 6c 74 20 38 34 39 38 33 65 34 34 31 result 84983e441
0300: 63 33 62 64 32 36 65 62 61 61 65 34 61 61 31 66 c3bd26ebaae4aa1f
0310: 39 35 31 32 39 65 35 65 35 34 36 37 30 66 31 0a 95129e5e54670f1.
0320: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0330: 61 73 68 5f 53 48 41 31 2d 31 2e 34 20 7b 53 48 ash_SHA1-1.4 {SH
0340: 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 A1} \..-constrai
0350: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 nts SHA1 \..-set
0360: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
0370: 63 64 65 66 67 68 62 63 64 65 66 67 68 69 63 64 cdefghbcdefghicd
0380: 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 efghijdefghijkef
0390: 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 ghijklfghijklmgh
03a0: 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a ijklmnhijklmnoij
03b0: 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c klmnopjklmnopqkl
03c0: 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e mnopqrlmnopqrsmn
03d0: 6f 70 71 72 73 74 6e 6f 70 71 72 73 74 75 22 7d opqrstnopqrstu"}
03e0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
03f0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0400: 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d HA1 -data $data}
0410: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0420: 20 2d 72 65 73 75 6c 74 20 61 34 39 62 32 34 34 -result a49b244
0430: 36 61 30 32 63 36 34 35 62 66 34 31 39 66 39 39 6a02c645bf419f99
0440: 35 62 36 37 30 39 31 32 35 33 61 30 34 61 32 35 5b67091253a04a25
0450: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 9..tcltest::test
0460: 20 48 61 73 68 5f 53 48 41 31 2d 31 2e 35 20 7b Hash_SHA1-1.5 {
0470: 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 SHA1} \..-constr
0480: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 aints SHA1 \..-s
0490: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b etup {set data [
04a0: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 61 string repeat "a
04b0: 22 20 31 30 30 30 30 30 30 5d 7d 20 5c 0a 09 2d " 1000000]} \..-
04c0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
04d0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d t -digest SHA1 -
04e0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
04f0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0500: 75 6c 74 20 33 34 61 61 39 37 33 63 64 34 63 34 ult 34aa973cd4c4
0510: 64 61 61 34 66 36 31 65 65 62 32 62 64 62 61 64 daa4f61eeb2bdbad
0520: 32 37 33 31 36 35 33 34 30 31 36 66 0a 0a 74 63 27316534016f..tc
0530: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0540: 5f 53 48 41 31 2d 31 2e 36 20 7b 53 48 41 31 7d _SHA1-1.6 {SHA1}
0550: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0560: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 SHA1 \..-setup
0570: 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e {set data [strin
0580: 67 20 72 65 70 65 61 74 20 22 61 62 63 64 65 66 g repeat "abcdef
0590: 67 68 62 63 64 65 66 67 68 69 63 64 65 66 67 68 ghbcdefghicdefgh
05a0: 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 6a ijdefghijkefghij
05b0: 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c klfghijklmghijkl
05c0: 6d 6e 68 69 6a 6b 6c 6d 6e 6f 22 20 31 36 37 37 mnhijklmno" 1677
05d0: 37 32 31 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7216]} \..-body
05e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
05f0: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 gest SHA1 -data
0600: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0610: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 exact -result 7
0620: 37 38 39 66 30 63 39 65 66 37 62 66 63 34 30 64 789f0c9ef7bfc40d
0630: 39 33 33 31 31 31 34 33 64 66 62 65 36 39 65 32 93311143dfbe69e2
0640: 30 31 37 66 35 39 32 0a 0a 74 63 6c 74 65 73 74 017f592..tcltest
0650: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 ::test Hash_SHA1
0660: 2d 31 2e 37 20 7b 53 48 41 31 7d 20 5c 0a 09 2d -1.7 {SHA1} \..-
0670: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 constraints SHA1
0680: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0690: 64 61 74 61 20 22 54 68 65 20 71 75 69 63 6b 20 data "The quick
06a0: 62 72 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 brown fox jumps
06b0: 6f 76 65 72 20 74 68 65 20 6c 61 7a 79 20 64 6f over the lazy do
06c0: 67 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c g"} \..-body {tl
06d0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
06e0: 74 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 t SHA1 -data $da
06f0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0700: 61 63 74 20 2d 72 65 73 75 6c 74 20 32 66 64 34 act -result 2fd4
0710: 65 31 63 36 37 61 32 64 32 38 66 63 65 64 38 34 e1c67a2d28fced84
0720: 39 65 65 31 62 62 37 36 65 37 33 39 31 62 39 33 9ee1bb76e7391b93
0730: 65 62 31 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 eb12..tcltest::t
0740: 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d 31 2e est Hash_SHA1-1.
0750: 38 20 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 8 {SHA1} \..-con
0760: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a straints SHA1 \.
0770: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0780: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
0790: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
07a0: 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 digest SHA1 -dat
07b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
07c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
07d0: 20 61 39 39 39 33 65 33 36 34 37 30 36 38 31 36 a9993e364706816
07e0: 61 62 61 33 65 32 35 37 31 37 38 35 30 63 32 36 aba3e25717850c26
07f0: 63 39 63 64 30 64 38 39 64 0a 0a 74 63 6c 74 65 c9cd0d89d..tclte
0800: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0810: 41 31 2d 31 2e 39 20 7b 53 48 41 31 7d 20 5c 0a A1-1.9 {SHA1} \.
0820: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0830: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 A1 \..-setup {se
0840: 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 65 t data "abcdbcde
0850: 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 69 cdefdefgefghfghi
0860: 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d ghijhijkijkljklm
0870: 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 klmnlmnomnopnopq
0880: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0890: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
08a0: 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 SHA1 -data $dat
08b0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
08c0: 63 74 20 2d 72 65 73 75 6c 74 20 38 34 39 38 33 ct -result 84983
08d0: 65 34 34 31 63 33 62 64 32 36 65 62 61 61 65 34 e441c3bd26ebaae4
08e0: 61 61 31 66 39 35 31 32 39 65 35 65 35 34 36 37 aa1f95129e5e5467
08f0: 30 66 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 0f1..tcltest::te
0900: 73 74 20 48 61 73 68 5f 53 48 41 31 2d 31 2e 31 st Hash_SHA1-1.1
0910: 30 20 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 0 {SHA1} \..-con
0920: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a straints SHA1 \.
0930: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0940: 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 a [string repeat
0950: 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d 20 5c "a" 1000000]} \
0960: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0970: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0980: 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 1 -data $data} \
0990: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
09a0: 72 65 73 75 6c 74 20 33 34 61 61 39 37 33 63 64 result 34aa973cd
09b0: 34 63 34 64 61 61 34 66 36 31 65 65 62 32 62 64 4c4daa4f61eeb2bd
09c0: 62 61 64 32 37 33 31 36 35 33 34 30 31 36 66 0a bad27316534016f.
09d0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
09e0: 61 73 68 5f 53 48 41 31 2d 31 2e 31 31 20 7b 53 ash_SHA1-1.11 {S
09f0: 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 HA1} \..-constra
0a00: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 ints SHA1 \..-se
0a10: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 tup {set data [s
0a20: 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 30 31 tring repeat "01
0a30: 32 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 2345670123456701
0a40: 32 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 2345670123456701
0a50: 32 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 2345670123456701
0a60: 32 33 34 35 36 37 30 31 32 33 34 35 36 37 22 20 23456701234567"
0a70: 31 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 10]} \..-body {t
0a80: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0a90: 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 st SHA1 -data $d
0aa0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0ab0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 65 61 xact -result dea
0ac0: 33 35 36 61 32 63 64 64 64 39 30 63 37 61 37 65 356a2cddd90c7a7e
0ad0: 63 65 64 63 35 65 62 62 35 36 33 39 33 34 66 34 cedc5ebb563934f4
0ae0: 36 30 34 35 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 60452..tcltest::
0af0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d 31 test Hash_SHA1-1
0b00: 2e 31 32 20 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 .12 {SHA1} \..-c
0b10: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 onstraints SHA1
0b20: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0b30: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
0b40: 64 65 20 68 65 78 20 35 65 5d 7d 20 5c 0a 09 2d de hex 5e]} \..-
0b50: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0b60: 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d t -digest SHA1 -
0b70: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0b80: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0b90: 75 6c 74 20 35 65 36 66 38 30 61 33 34 61 39 37 ult 5e6f80a34a97
0ba0: 39 38 63 61 66 63 36 61 35 64 62 39 36 63 63 35 98cafc6a5db96cc5
0bb0: 37 62 61 34 63 34 64 62 35 39 63 32 0a 0a 74 63 7ba4c4db59c2..tc
0bc0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0bd0: 5f 53 48 41 31 2d 31 2e 31 33 20 7b 53 48 41 31 _SHA1-1.13 {SHA1
0be0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0bf0: 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 s SHA1 \..-setup
0c00: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 {set data [bina
0c10: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 61 ry decode hex 9a
0c20: 37 64 66 64 66 31 65 63 65 61 64 30 36 65 64 36 7dfdf1ecead06ed6
0c30: 34 36 61 61 35 35 66 65 37 35 37 31 34 36 5d 7d 46aa55fe757146]}
0c40: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0c50: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0c60: 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d HA1 -data $data}
0c70: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0c80: 20 2d 72 65 73 75 6c 74 20 38 32 61 62 66 66 36 -result 82abff6
0c90: 36 30 35 64 62 65 31 63 31 37 64 65 66 31 32 61 605dbe1c17def12a
0ca0: 33 39 34 66 61 32 32 61 38 32 62 35 34 34 61 33 394fa22a82b544a3
0cb0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 5..tcltest::test
0cc0: 20 48 61 73 68 5f 53 48 41 31 2d 31 2e 31 34 20 Hash_SHA1-1.14
0cd0: 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 {SHA1} \..-const
0ce0: 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d raints SHA1 \..-
0cf0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0d00: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0d10: 65 78 20 66 37 38 66 39 32 31 34 31 62 63 64 31 ex f78f92141bcd1
0d20: 37 30 61 65 38 39 62 34 66 62 61 31 35 61 31 64 70ae89b4fba15a1d
0d30: 35 39 66 33 66 64 38 34 64 32 32 33 63 39 32 35 59f3fd84d223c925
0d40: 31 62 64 61 63 62 62 61 65 36 31 64 30 35 65 64 1bdacbbae61d05ed
0d50: 31 31 35 61 30 36 61 37 63 65 31 31 37 62 37 62 115a06a7ce117b7b
0d60: 65 65 61 64 32 34 34 32 31 64 65 64 39 63 33 32 eead24421ded9c32
0d70: 35 39 32 62 64 35 37 65 64 65 61 65 33 39 63 33 592bd57edeae39c3
0d80: 39 66 61 31 66 65 38 39 34 36 61 38 34 64 30 63 9fa1fe8946a84d0c
0d90: 66 31 66 37 62 65 65 61 64 31 37 31 33 65 32 65 f1f7beead1713e2e
0da0: 30 39 35 39 38 39 37 33 34 37 66 36 37 63 38 30 0959897347f67c80
0db0: 62 30 34 30 30 63 32 30 39 38 31 35 64 36 62 31 b0400c209815d6b1
0dc0: 30 61 36 38 33 38 33 36 66 64 35 35 36 32 61 35 0a683836fd5562a5
0dd0: 36 63 61 62 31 61 32 38 65 38 31 62 36 35 37 36 6cab1a28e81b6576
0de0: 36 35 34 36 33 31 63 66 31 36 35 36 36 62 38 36 654631cf16566b86
0df0: 65 33 62 33 33 61 31 30 38 62 30 35 33 30 37 63 e3b33a108b05307c
0e00: 30 30 61 66 66 31 34 61 37 36 38 65 64 37 33 35 00aff14a768ed735
0e10: 30 36 30 36 61 30 66 38 35 65 36 61 39 31 64 33 0606a0f85e6a91d3
0e20: 39 36 66 35 62 35 63 62 65 35 37 37 66 39 62 33 96f5b5cbe577f9b3
0e30: 38 38 30 37 63 37 64 35 32 33 64 36 64 37 39 32 8807c7d523d6d792
0e40: 66 36 65 62 63 32 34 61 34 65 63 66 32 62 33 61 f6ebc24a4ecf2b3a
0e50: 34 32 37 63 64 62 62 66 62 5d 7d 20 5c 0a 09 2d 427cdbbfb]} \..-
0e60: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0e70: 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d t -digest SHA1 -
0e80: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0e90: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0ea0: 75 6c 74 20 63 62 30 30 38 32 63 38 66 31 39 37 ult cb0082c8f197
0eb0: 64 32 36 30 39 39 31 62 61 36 61 34 36 30 65 37 d260991ba6a460e7
0ec0: 36 65 32 30 32 62 61 64 32 37 62 33 0a 0a 6e202bad27b3..