Artifact
fc013101604d4422028be52ddacafbaf0782bfdec0d1dd08869fbf6395d760ba:
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 48 4d 41 43 5f 4d 44 35 2e from "HMAC_MD5.
0020: 74 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 txt".lappend aut
0030: 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 o_path [file dir
0040: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0050: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0060: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0070: 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 file join [pwd]
0080: 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d [info script]]]]
0090: 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ]].package requi
00a0: 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 re tls.package r
00b0: 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a equire tcltest..
00c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e tcltest::testCon
00d0: 73 74 72 61 69 6e 74 20 48 4d 41 43 20 5b 65 78 straint HMAC [ex
00e0: 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f pr {[lsearch -no
00f0: 63 61 73 65 20 5b 74 6c 73 3a 3a 6d 61 63 73 5d case [tls::macs]
0100: 20 48 4d 41 43 5d 20 3e 20 2d 31 7d 5d 0a 74 63 HMAC] > -1}].tc
0110: 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 ltest::testConst
0120: 72 61 69 6e 74 20 4d 44 35 20 5b 65 78 70 72 20 raint MD5 [expr
0130: 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 {[lsearch -nocas
0140: 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d e [tls::digests]
0150: 20 4d 44 35 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 MD5] > -1}].cat
0160: 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 ch {tls::provide
0170: 72 20 6c 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 r legacy}..tclte
0180: 73 74 3a 3a 74 65 73 74 20 4d 41 43 5f 48 4d 41 st::test MAC_HMA
0190: 43 2d 4d 44 35 2d 31 2e 31 20 7b 48 4d 41 43 5f C-MD5-1.1 {HMAC_
01a0: 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 MD5} \..-constra
01b0: 69 6e 74 73 20 7b 48 4d 41 43 20 4d 44 35 20 7d ints {HMAC MD5 }
01c0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 7d 20 5c 0a \..-setup {} \.
01d0: 09 2d 62 6f 64 79 20 7b 73 74 72 69 6e 67 20 72 .-body {string r
01e0: 61 6e 67 65 20 5b 74 6c 73 3a 3a 68 6d 61 63 20 ange [tls::hmac
01f0: 2d 68 65 78 20 2d 64 69 67 65 73 74 20 4d 44 35 -hex -digest MD5
0200: 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 -key [binary de
0210: 63 6f 64 65 20 68 65 78 20 30 62 30 62 30 62 30 code hex 0b0b0b0
0220: 62 30 62 30 62 30 62 30 62 30 62 30 62 30 62 30 b0b0b0b0b0b0b0b0
0230: 62 30 62 30 62 30 62 30 62 5d 20 2d 64 61 74 61 b0b0b0b0b] -data
0240: 20 22 48 69 20 54 68 65 72 65 22 5d 20 30 20 33 "Hi There"] 0 3
0250: 31 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 1} \..-match exa
0260: 63 74 20 2d 72 65 73 75 6c 74 20 39 32 39 34 37 ct -result 92947
0270: 32 37 61 33 36 33 38 62 62 31 63 31 33 66 34 38 27a3638bb1c13f48
0280: 65 66 38 31 35 38 62 66 63 39 64 0a 0a 74 63 6c ef8158bfc9d..tcl
0290: 74 65 73 74 3a 3a 74 65 73 74 20 4d 41 43 5f 48 test::test MAC_H
02a0: 4d 41 43 2d 4d 44 35 2d 31 2e 32 20 7b 48 4d 41 MAC-MD5-1.2 {HMA
02b0: 43 5f 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 C_MD5} \..-const
02c0: 72 61 69 6e 74 73 20 7b 48 4d 41 43 20 4d 44 35 raints {HMAC MD5
02d0: 20 7d 20 5c 0a 09 2d 73 65 74 75 70 20 7b 7d 20 } \..-setup {}
02e0: 5c 0a 09 2d 62 6f 64 79 20 7b 73 74 72 69 6e 67 \..-body {string
02f0: 20 72 61 6e 67 65 20 5b 74 6c 73 3a 3a 68 6d 61 range [tls::hma
0300: 63 20 2d 68 65 78 20 2d 64 69 67 65 73 74 20 4d c -hex -digest M
0310: 44 35 20 2d 6b 65 79 20 22 4a 65 66 65 22 20 2d D5 -key "Jefe" -
0320: 64 61 74 61 20 22 77 68 61 74 20 64 6f 20 79 61 data "what do ya
0330: 20 77 61 6e 74 20 66 6f 72 20 6e 6f 74 68 69 6e want for nothin
0340: 67 3f 22 5d 20 30 20 33 31 7d 20 5c 0a 09 2d 6d g?"] 0 31} \..-m
0350: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0360: 6c 74 20 37 35 30 63 37 38 33 65 36 61 62 30 62 lt 750c783e6ab0b
0370: 35 30 33 65 61 61 38 36 65 33 31 30 61 35 64 62 503eaa86e310a5db
0380: 37 33 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 738..tcltest::te
0390: 73 74 20 4d 41 43 5f 48 4d 41 43 2d 4d 44 35 2d st MAC_HMAC-MD5-
03a0: 31 2e 33 20 7b 48 4d 41 43 5f 4d 44 35 7d 20 5c 1.3 {HMAC_MD5} \
03b0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b ..-constraints {
03c0: 48 4d 41 43 20 4d 44 35 20 7d 20 5c 0a 09 2d 73 HMAC MD5 } \..-s
03d0: 65 74 75 70 20 7b 7d 20 5c 0a 09 2d 62 6f 64 79 etup {} \..-body
03e0: 20 7b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 5b {string range [
03f0: 74 6c 73 3a 3a 68 6d 61 63 20 2d 68 65 78 20 2d tls::hmac -hex -
0400: 64 69 67 65 73 74 20 4d 44 35 20 2d 6b 65 79 20 digest MD5 -key
0410: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0420: 65 78 20 61 61 61 61 61 61 61 61 61 61 61 61 61 ex aaaaaaaaaaaaa
0430: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0440: 61 61 61 5d 20 2d 64 61 74 61 20 5b 62 69 6e 61 aaa] -data [bina
0450: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 64 ry decode hex dd
0460: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0470: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0480: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0490: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
04a0: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
04b0: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
04c0: 64 64 5d 5d 20 30 20 33 31 7d 20 5c 0a 09 2d 6d dd]] 0 31} \..-m
04d0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
04e0: 6c 74 20 35 36 62 65 33 34 35 32 31 64 31 34 34 lt 56be34521d144
04f0: 63 38 38 64 62 62 38 63 37 33 33 66 30 65 38 62 c88dbb8c733f0e8b
0500: 33 66 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 3f6..tcltest::te
0510: 73 74 20 4d 41 43 5f 48 4d 41 43 2d 4d 44 35 2d st MAC_HMAC-MD5-
0520: 31 2e 34 20 7b 48 4d 41 43 5f 4d 44 35 7d 20 5c 1.4 {HMAC_MD5} \
0530: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b ..-constraints {
0540: 48 4d 41 43 20 4d 44 35 20 7d 20 5c 0a 09 2d 73 HMAC MD5 } \..-s
0550: 65 74 75 70 20 7b 7d 20 5c 0a 09 2d 62 6f 64 79 etup {} \..-body
0560: 20 7b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 5b {string range [
0570: 74 6c 73 3a 3a 68 6d 61 63 20 2d 68 65 78 20 2d tls::hmac -hex -
0580: 64 69 67 65 73 74 20 4d 44 35 20 2d 6b 65 79 20 digest MD5 -key
0590: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
05a0: 65 78 20 30 62 30 62 30 62 30 62 30 62 30 62 30 ex 0b0b0b0b0b0b0
05b0: 62 30 62 30 62 30 62 30 62 30 62 30 62 30 62 30 b0b0b0b0b0b0b0b0
05c0: 62 30 62 5d 20 2d 64 61 74 61 20 22 48 69 20 54 b0b] -data "Hi T
05d0: 68 65 72 65 22 5d 20 30 20 33 31 7d 20 5c 0a 09 here"] 0 31} \..
05e0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
05f0: 73 75 6c 74 20 39 32 39 34 37 32 37 61 33 36 33 sult 9294727a363
0600: 38 62 62 31 63 31 33 66 34 38 65 66 38 31 35 38 8bb1c13f48ef8158
0610: 62 66 63 39 64 0a 0a 74 63 6c 74 65 73 74 3a 3a bfc9d..tcltest::
0620: 74 65 73 74 20 4d 41 43 5f 48 4d 41 43 2d 4d 44 test MAC_HMAC-MD
0630: 35 2d 31 2e 35 20 7b 48 4d 41 43 5f 4d 44 35 7d 5-1.5 {HMAC_MD5}
0640: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0650: 20 7b 48 4d 41 43 20 4d 44 35 20 7d 20 5c 0a 09 {HMAC MD5 } \..
0660: 2d 73 65 74 75 70 20 7b 7d 20 5c 0a 09 2d 62 6f -setup {} \..-bo
0670: 64 79 20 7b 73 74 72 69 6e 67 20 72 61 6e 67 65 dy {string range
0680: 20 5b 74 6c 73 3a 3a 68 6d 61 63 20 2d 68 65 78 [tls::hmac -hex
0690: 20 2d 64 69 67 65 73 74 20 4d 44 35 20 2d 6b 65 -digest MD5 -ke
06a0: 79 20 22 4a 65 66 65 22 20 2d 64 61 74 61 20 22 y "Jefe" -data "
06b0: 77 68 61 74 20 64 6f 20 79 61 20 77 61 6e 74 20 what do ya want
06c0: 66 6f 72 20 6e 6f 74 68 69 6e 67 3f 22 5d 20 30 for nothing?"] 0
06d0: 20 33 31 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 31} \..-match e
06e0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 35 30 xact -result 750
06f0: 63 37 38 33 65 36 61 62 30 62 35 30 33 65 61 61 c783e6ab0b503eaa
0700: 38 36 65 33 31 30 61 35 64 62 37 33 38 0a 0a 74 86e310a5db738..t
0710: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 4d 41 43 cltest::test MAC
0720: 5f 48 4d 41 43 2d 4d 44 35 2d 31 2e 36 20 7b 48 _HMAC-MD5-1.6 {H
0730: 4d 41 43 5f 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e MAC_MD5} \..-con
0740: 73 74 72 61 69 6e 74 73 20 7b 48 4d 41 43 20 4d straints {HMAC M
0750: 44 35 20 7d 20 5c 0a 09 2d 73 65 74 75 70 20 7b D5 } \..-setup {
0760: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 73 74 72 69 } \..-body {stri
0770: 6e 67 20 72 61 6e 67 65 20 5b 74 6c 73 3a 3a 68 ng range [tls::h
0780: 6d 61 63 20 2d 68 65 78 20 2d 64 69 67 65 73 74 mac -hex -digest
0790: 20 4d 44 35 20 2d 6b 65 79 20 5b 62 69 6e 61 72 MD5 -key [binar
07a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 61 61 y decode hex aaa
07b0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
07c0: 61 61 61 61 61 61 61 61 61 61 61 61 61 5d 20 2d aaaaaaaaaaaaa] -
07d0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
07e0: 6f 64 65 20 68 65 78 20 64 64 64 64 64 64 64 64 ode hex dddddddd
07f0: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0800: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0810: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0820: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0830: 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 64 dddddddddddddddd
0840: 64 64 64 64 64 64 64 64 64 64 64 64 5d 5d 20 30 dddddddddddd]] 0
0850: 20 33 31 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 31} \..-match e
0860: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 36 62 xact -result 56b
0870: 65 33 34 35 32 31 64 31 34 34 63 38 38 64 62 62 e34521d144c88dbb
0880: 38 63 37 33 33 66 30 65 38 62 33 66 36 0a 0a 74 8c733f0e8b3f6..t
0890: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 4d 41 43 cltest::test MAC
08a0: 5f 48 4d 41 43 2d 4d 44 35 2d 31 2e 37 20 7b 48 _HMAC-MD5-1.7 {H
08b0: 4d 41 43 5f 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e MAC_MD5} \..-con
08c0: 73 74 72 61 69 6e 74 73 20 7b 48 4d 41 43 20 4d straints {HMAC M
08d0: 44 35 20 7d 20 5c 0a 09 2d 73 65 74 75 70 20 7b D5 } \..-setup {
08e0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 73 74 72 69 } \..-body {stri
08f0: 6e 67 20 72 61 6e 67 65 20 5b 74 6c 73 3a 3a 68 ng range [tls::h
0900: 6d 61 63 20 2d 68 65 78 20 2d 64 69 67 65 73 74 mac -hex -digest
0910: 20 4d 44 35 20 2d 6b 65 79 20 5b 62 69 6e 61 72 MD5 -key [binar
0920: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
0930: 32 30 33 30 34 30 35 30 36 30 37 30 38 30 39 30 2030405060708090
0940: 61 30 62 30 63 30 64 30 65 30 66 31 30 31 31 31 a0b0c0d0e0f10111
0950: 32 31 33 31 34 31 35 31 36 31 37 31 38 31 39 5d 213141516171819]
0960: 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 -data [binary d
0970: 65 63 6f 64 65 20 68 65 78 20 63 64 63 64 63 64 ecode hex cdcdcd
0980: 63 64 63 64 63 64 63 64 63 64 63 64 63 64 63 64 cdcdcdcdcdcdcdcd
0990: 63 64 63 64 63 64 63 64 63 64 63 64 63 64 63 64 cdcdcdcdcdcdcdcd
09a0: 63 64 63 64 63 64 63 64 63 64 63 64 63 64 63 64 cdcdcdcdcdcdcdcd
09b0: 63 64 63 64 63 64 63 64 63 64 63 64 63 64 63 64 cdcdcdcdcdcdcdcd
09c0: 63 64 63 64 63 64 63 64 63 64 63 64 63 64 63 64 cdcdcdcdcdcdcdcd
09d0: 63 64 63 64 63 64 63 64 63 64 63 64 63 64 5d 5d cdcdcdcdcdcdcd]]
09e0: 20 30 20 33 31 7d 20 5c 0a 09 2d 6d 61 74 63 68 0 31} \..-match
09f0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 exact -result 6
0a00: 39 37 65 61 66 30 61 63 61 33 61 33 61 65 61 33 97eaf0aca3a3aea3
0a10: 61 37 35 31 36 34 37 34 36 66 66 61 61 37 39 0a a75164746ffaa79.
0a20: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 4d .tcltest::test M
0a30: 41 43 5f 48 4d 41 43 2d 4d 44 35 2d 31 2e 38 20 AC_HMAC-MD5-1.8
0a40: 7b 48 4d 41 43 5f 4d 44 35 7d 20 5c 0a 09 2d 63 {HMAC_MD5} \..-c
0a50: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 48 4d 41 43 onstraints {HMAC
0a60: 20 4d 44 35 20 7d 20 5c 0a 09 2d 73 65 74 75 70 MD5 } \..-setup
0a70: 20 7b 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 73 74 {} \..-body {st
0a80: 72 69 6e 67 20 72 61 6e 67 65 20 5b 74 6c 73 3a ring range [tls:
0a90: 3a 68 6d 61 63 20 2d 68 65 78 20 2d 64 69 67 65 :hmac -hex -dige
0aa0: 73 74 20 4d 44 35 20 2d 6b 65 79 20 5b 62 69 6e st MD5 -key [bin
0ab0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
0ac0: 63 30 63 30 63 30 63 30 63 30 63 30 63 30 63 30 c0c0c0c0c0c0c0c0
0ad0: 63 30 63 30 63 30 63 30 63 30 63 30 63 30 63 5d c0c0c0c0c0c0c0c]
0ae0: 20 2d 64 61 74 61 20 22 54 65 73 74 20 57 69 74 -data "Test Wit
0af0: 68 20 54 72 75 6e 63 61 74 69 6f 6e 22 5d 20 30 h Truncation"] 0
0b00: 20 32 33 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 23} \..-match e
0b10: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 36 34 xact -result 564
0b20: 36 31 65 66 32 33 34 32 65 64 63 30 30 66 39 62 61ef2342edc00f9b
0b30: 61 62 39 39 35 0a 0a 74 63 6c 74 65 73 74 3a 3a ab995..tcltest::
0b40: 74 65 73 74 20 4d 41 43 5f 48 4d 41 43 2d 4d 44 test MAC_HMAC-MD
0b50: 35 2d 31 2e 39 20 7b 48 4d 41 43 5f 4d 44 35 7d 5-1.9 {HMAC_MD5}
0b60: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0b70: 20 7b 48 4d 41 43 20 4d 44 35 20 7d 20 5c 0a 09 {HMAC MD5 } \..
0b80: 2d 73 65 74 75 70 20 7b 7d 20 5c 0a 09 2d 62 6f -setup {} \..-bo
0b90: 64 79 20 7b 73 74 72 69 6e 67 20 72 61 6e 67 65 dy {string range
0ba0: 20 5b 74 6c 73 3a 3a 68 6d 61 63 20 2d 68 65 78 [tls::hmac -hex
0bb0: 20 2d 64 69 67 65 73 74 20 4d 44 35 20 2d 6b 65 -digest MD5 -ke
0bc0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
0bd0: 20 68 65 78 20 61 61 61 61 61 61 61 61 61 61 61 hex aaaaaaaaaaa
0be0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0bf0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c00: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c10: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c20: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c30: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c40: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c50: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c60: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0c70: 61 61 61 61 61 5d 20 2d 64 61 74 61 20 22 54 65 aaaaa] -data "Te
0c80: 73 74 20 55 73 69 6e 67 20 4c 61 72 67 65 72 20 st Using Larger
0c90: 54 68 61 6e 20 42 6c 6f 63 6b 2d 53 69 7a 65 20 Than Block-Size
0ca0: 4b 65 79 20 2d 20 48 61 73 68 20 4b 65 79 20 46 Key - Hash Key F
0cb0: 69 72 73 74 22 5d 20 30 20 33 31 7d 20 5c 0a 09 irst"] 0 31} \..
0cc0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0cd0: 73 75 6c 74 20 36 62 31 61 62 37 66 65 34 62 64 sult 6b1ab7fe4bd
0ce0: 37 62 66 38 66 30 62 36 32 65 36 63 65 36 31 62 7bf8f0b62e6ce61b
0cf0: 39 64 30 63 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 9d0cd..tcltest::
0d00: 74 65 73 74 20 4d 41 43 5f 48 4d 41 43 2d 4d 44 test MAC_HMAC-MD
0d10: 35 2d 31 2e 31 30 20 7b 48 4d 41 43 5f 4d 44 35 5-1.10 {HMAC_MD5
0d20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0d30: 73 20 7b 48 4d 41 43 20 4d 44 35 20 7d 20 5c 0a s {HMAC MD5 } \.
0d40: 09 2d 73 65 74 75 70 20 7b 7d 20 5c 0a 09 2d 62 .-setup {} \..-b
0d50: 6f 64 79 20 7b 73 74 72 69 6e 67 20 72 61 6e 67 ody {string rang
0d60: 65 20 5b 74 6c 73 3a 3a 68 6d 61 63 20 2d 68 65 e [tls::hmac -he
0d70: 78 20 2d 64 69 67 65 73 74 20 4d 44 35 20 2d 6b x -digest MD5 -k
0d80: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
0d90: 65 20 68 65 78 20 61 61 61 61 61 61 61 61 61 61 e hex aaaaaaaaaa
0da0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0db0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0dc0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0dd0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0de0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0df0: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0e00: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0e10: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0e20: 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 61 aaaaaaaaaaaaaaaa
0e30: 61 61 61 61 61 61 5d 20 2d 64 61 74 61 20 22 54 aaaaaa] -data "T
0e40: 65 73 74 20 55 73 69 6e 67 20 4c 61 72 67 65 72 est Using Larger
0e50: 20 54 68 61 6e 20 42 6c 6f 63 6b 2d 53 69 7a 65 Than Block-Size
0e60: 20 4b 65 79 20 61 6e 64 20 4c 61 72 67 65 72 20 Key and Larger
0e70: 54 68 61 6e 20 4f 6e 65 20 42 6c 6f 63 6b 2d 53 Than One Block-S
0e80: 69 7a 65 20 44 61 74 61 22 5d 20 30 20 33 31 7d ize Data"] 0 31}
0e90: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0ea0: 20 2d 72 65 73 75 6c 74 20 36 66 36 33 30 66 61 -result 6f630fa
0eb0: 64 36 37 63 64 61 30 65 65 31 66 62 31 66 35 36 d67cda0ee1fb1f56
0ec0: 32 64 62 33 61 61 35 33 65 0a 0a 74 63 6c 74 65 2db3aa53e..tclte
0ed0: 73 74 3a 3a 74 65 73 74 20 4d 41 43 5f 48 4d 41 st::test MAC_HMA
0ee0: 43 2d 4d 44 35 2d 31 2e 31 31 20 7b 48 4d 41 43 C-MD5-1.11 {HMAC
0ef0: 5f 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 _MD5} \..-constr
0f00: 61 69 6e 74 73 20 7b 48 4d 41 43 20 4d 44 35 20 aints {HMAC MD5
0f10: 7d 20 5c 0a 09 2d 73 65 74 75 70 20 7b 7d 20 5c } \..-setup {} \
0f20: 0a 09 2d 62 6f 64 79 20 7b 73 74 72 69 6e 67 20 ..-body {string
0f30: 72 61 6e 67 65 20 5b 74 6c 73 3a 3a 68 6d 61 63 range [tls::hmac
0f40: 20 2d 68 65 78 20 2d 64 69 67 65 73 74 20 4d 44 -hex -digest MD
0f50: 35 20 2d 6b 65 79 20 22 6b 65 79 22 20 2d 64 61 5 -key "key" -da
0f60: 74 61 20 22 54 68 65 20 71 75 69 63 6b 20 62 72 ta "The quick br
0f70: 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 own fox jumps ov
0f80: 65 72 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 er the lazy dog"
0f90: 5d 20 30 20 33 31 7d 20 5c 0a 09 2d 6d 61 74 63 ] 0 31} \..-matc
0fa0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0fb0: 38 30 30 37 30 37 31 33 34 36 33 65 37 37 34 39 80070713463e7749
0fc0: 62 39 30 63 32 64 63 32 34 39 31 31 65 32 37 35 b90c2dc24911e275
0fd0: 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 ..# Cleanup.::tc
0fe0: 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 ltest::cleanupTe
0ff0: 73 74 73 0a 72 65 74 75 72 6e 0a sts.return.