Artifact
3a9c3f08a37d049e8f84b7c6054923e1465d61cdadd1a4fba9fd75d5897c608b:
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 43 4d 41 43 2d 41 45 53 2d from "CMAC-AES-
0020: 31 32 38 2d 43 42 43 2e 74 78 74 22 0a 70 61 63 128-CBC.txt".pac
0030: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 kage require tls
0040: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0050: 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73 tcltest..tcltes
0060: 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e t::testConstrain
0070: 74 20 43 4d 41 43 20 5b 65 78 70 72 20 7b 5b 6c t CMAC [expr {[l
0080: 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b search -nocase [
0090: 74 6c 73 3a 3a 6d 61 63 73 5d 20 43 4d 41 43 5d tls::macs] CMAC]
00a0: 20 3e 20 2d 31 7d 5d 0a 74 63 6c 74 65 73 74 3a > -1}].tcltest:
00b0: 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20 :testConstraint
00c0: 41 45 53 5f 31 32 38 5f 43 42 43 20 5b 65 78 70 AES_128_CBC [exp
00d0: 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 r {[lsearch -noc
00e0: 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 68 65 72 ase [tls::cipher
00f0: 73 5d 20 41 45 53 2d 31 32 38 2d 43 42 43 5d 20 s] AES-128-CBC]
0100: 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a > -1}]..tcltest:
0110: 3a 74 65 73 74 20 4d 41 43 5f 43 4d 41 43 2d 41 :test MAC_CMAC-A
0120: 45 53 2d 31 32 38 2d 43 42 43 2d 31 2e 31 20 7b ES-128-CBC-1.1 {
0130: 43 4d 41 43 2d 41 45 53 2d 31 32 38 2d 43 42 43 CMAC-AES-128-CBC
0140: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0150: 73 20 7b 43 4d 41 43 20 20 41 45 53 5f 31 32 38 s {CMAC AES_128
0160: 5f 43 42 43 7d 20 5c 0a 09 2d 73 65 74 75 70 20 _CBC} \..-setup
0170: 7b 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 73 74 72 {} \..-body {str
0180: 69 6e 67 20 72 61 6e 67 65 20 5b 74 6c 73 3a 3a ing range [tls::
0190: 63 6d 61 63 20 2d 68 65 78 20 2d 63 69 70 68 65 cmac -hex -ciphe
01a0: 72 20 41 45 53 2d 31 32 38 2d 43 42 43 20 2d 6b r AES-128-CBC -k
01b0: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
01c0: 65 20 68 65 78 20 32 62 37 65 31 35 31 36 32 38 e hex 2b7e151628
01d0: 61 65 64 32 61 36 61 62 66 37 31 35 38 38 30 39 aed2a6abf7158809
01e0: 63 66 34 66 33 63 5d 20 2d 64 61 74 61 20 22 22 cf4f3c] -data ""
01f0: 5d 20 30 20 33 31 7d 20 5c 0a 09 2d 6d 61 74 63 ] 0 31} \..-matc
0200: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0210: 62 62 31 64 36 39 32 39 65 39 35 39 33 37 32 38 bb1d6929e9593728
0220: 37 66 61 33 37 64 31 32 39 62 37 35 36 37 34 36 7fa37d129b756746
0230: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0240: 4d 41 43 5f 43 4d 41 43 2d 41 45 53 2d 31 32 38 MAC_CMAC-AES-128
0250: 2d 43 42 43 2d 31 2e 32 20 7b 43 4d 41 43 2d 41 -CBC-1.2 {CMAC-A
0260: 45 53 2d 31 32 38 2d 43 42 43 7d 20 5c 0a 09 2d ES-128-CBC} \..-
0270: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 43 4d 41 constraints {CMA
0280: 43 20 20 41 45 53 5f 31 32 38 5f 43 42 43 7d 20 C AES_128_CBC}
0290: 5c 0a 09 2d 73 65 74 75 70 20 7b 7d 20 5c 0a 09 \..-setup {} \..
02a0: 2d 62 6f 64 79 20 7b 73 74 72 69 6e 67 20 72 61 -body {string ra
02b0: 6e 67 65 20 5b 74 6c 73 3a 3a 63 6d 61 63 20 2d nge [tls::cmac -
02c0: 68 65 78 20 2d 63 69 70 68 65 72 20 41 45 53 2d hex -cipher AES-
02d0: 31 32 38 2d 43 42 43 20 2d 6b 65 79 20 5b 62 69 128-CBC -key [bi
02e0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
02f0: 32 62 37 65 31 35 31 36 32 38 61 65 64 32 61 36 2b7e151628aed2a6
0300: 61 62 66 37 31 35 38 38 30 39 63 66 34 66 33 63 abf7158809cf4f3c
0310: 5d 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ] -data [binary
0320: 64 65 63 6f 64 65 20 68 65 78 20 36 62 63 31 62 decode hex 6bc1b
0330: 65 65 32 32 65 34 30 39 66 39 36 65 39 33 64 37 ee22e409f96e93d7
0340: 65 31 31 37 33 39 33 31 37 32 61 5d 5d 20 30 20 e117393172a]] 0
0350: 33 31 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 31} \..-match ex
0360: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 37 30 61 act -result 070a
0370: 31 36 62 34 36 62 34 64 34 31 34 34 66 37 39 62 16b46b4d4144f79b
0380: 64 64 39 64 64 30 34 61 32 38 37 63 0a 0a 74 63 dd9dd04a287c..tc
0390: 6c 74 65 73 74 3a 3a 74 65 73 74 20 4d 41 43 5f ltest::test MAC_
03a0: 43 4d 41 43 2d 41 45 53 2d 31 32 38 2d 43 42 43 CMAC-AES-128-CBC
03b0: 2d 31 2e 33 20 7b 43 4d 41 43 2d 41 45 53 2d 31 -1.3 {CMAC-AES-1
03c0: 32 38 2d 43 42 43 7d 20 5c 0a 09 2d 63 6f 6e 73 28-CBC} \..-cons
03d0: 74 72 61 69 6e 74 73 20 7b 43 4d 41 43 20 20 41 traints {CMAC A
03e0: 45 53 5f 31 32 38 5f 43 42 43 7d 20 5c 0a 09 2d ES_128_CBC} \..-
03f0: 73 65 74 75 70 20 7b 7d 20 5c 0a 09 2d 62 6f 64 setup {} \..-bod
0400: 79 20 7b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 y {string range
0410: 5b 74 6c 73 3a 3a 63 6d 61 63 20 2d 68 65 78 20 [tls::cmac -hex
0420: 2d 63 69 70 68 65 72 20 41 45 53 2d 31 32 38 2d -cipher AES-128-
0430: 43 42 43 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 CBC -key [binary
0440: 20 64 65 63 6f 64 65 20 68 65 78 20 32 62 37 65 decode hex 2b7e
0450: 31 35 31 36 32 38 61 65 64 32 61 36 61 62 66 37 151628aed2a6abf7
0460: 31 35 38 38 30 39 63 66 34 66 33 63 5d 20 2d 64 158809cf4f3c] -d
0470: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
0480: 64 65 20 68 65 78 20 36 62 63 31 62 65 65 32 32 de hex 6bc1bee22
0490: 65 34 30 39 66 39 36 65 39 33 64 37 65 31 31 37 e409f96e93d7e117
04a0: 33 39 33 31 37 32 61 61 65 32 64 38 61 35 37 31 393172aae2d8a571
04b0: 65 30 33 61 63 39 63 39 65 62 37 36 66 61 63 34 e03ac9c9eb76fac4
04c0: 35 61 66 38 65 35 31 33 30 63 38 31 63 34 36 61 5af8e5130c81c46a
04d0: 33 35 63 65 34 31 31 5d 5d 20 30 20 33 31 7d 20 35ce411]] 0 31}
04e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
04f0: 2d 72 65 73 75 6c 74 20 64 66 61 36 36 37 34 37 -result dfa66747
0500: 64 65 39 61 65 36 33 30 33 30 63 61 33 32 36 31 de9ae63030ca3261
0510: 31 34 39 37 63 38 32 37 0a 0a 74 63 6c 74 65 73 1497c827..tcltes
0520: 74 3a 3a 74 65 73 74 20 4d 41 43 5f 43 4d 41 43 t::test MAC_CMAC
0530: 2d 41 45 53 2d 31 32 38 2d 43 42 43 2d 31 2e 34 -AES-128-CBC-1.4
0540: 20 7b 43 4d 41 43 2d 41 45 53 2d 31 32 38 2d 43 {CMAC-AES-128-C
0550: 42 43 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 BC} \..-constrai
0560: 6e 74 73 20 7b 43 4d 41 43 20 20 41 45 53 5f 31 nts {CMAC AES_1
0570: 32 38 5f 43 42 43 7d 20 5c 0a 09 2d 73 65 74 75 28_CBC} \..-setu
0580: 70 20 7b 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 73 p {} \..-body {s
0590: 74 72 69 6e 67 20 72 61 6e 67 65 20 5b 74 6c 73 tring range [tls
05a0: 3a 3a 63 6d 61 63 20 2d 68 65 78 20 2d 63 69 70 ::cmac -hex -cip
05b0: 68 65 72 20 41 45 53 2d 31 32 38 2d 43 42 43 20 her AES-128-CBC
05c0: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
05d0: 6f 64 65 20 68 65 78 20 32 62 37 65 31 35 31 36 ode hex 2b7e1516
05e0: 32 38 61 65 64 32 61 36 61 62 66 37 31 35 38 38 28aed2a6abf71588
05f0: 30 39 63 66 34 66 33 63 5d 20 2d 64 61 74 61 20 09cf4f3c] -data
0600: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0610: 65 78 20 36 62 63 31 62 65 65 32 32 65 34 30 39 ex 6bc1bee22e409
0620: 66 39 36 65 39 33 64 37 65 31 31 37 33 39 33 31 f96e93d7e1173931
0630: 37 32 61 61 65 32 64 38 61 35 37 31 65 30 33 61 72aae2d8a571e03a
0640: 63 39 63 39 65 62 37 36 66 61 63 34 35 61 66 38 c9c9eb76fac45af8
0650: 65 35 31 33 30 63 38 31 63 34 36 61 33 35 63 65 e5130c81c46a35ce
0660: 34 31 31 65 35 66 62 63 31 31 39 31 61 30 61 35 411e5fbc1191a0a5
0670: 32 65 66 66 36 39 66 32 34 34 35 64 66 34 66 39 2eff69f2445df4f9
0680: 62 31 37 61 64 32 62 34 31 37 62 65 36 36 63 33 b17ad2b417be66c3
0690: 37 31 30 5d 5d 20 30 20 33 31 7d 20 5c 0a 09 2d 710]] 0 31} \..-
06a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
06b0: 75 6c 74 20 35 31 66 30 62 65 62 66 37 65 33 62 ult 51f0bebf7e3b
06c0: 39 64 39 32 66 63 34 39 37 34 31 37 37 39 33 36 9d92fc4974177936
06d0: 33 63 66 65 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3cfe..# Cleanup.
06e0: 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e ::tcltest::clean
06f0: 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a upTests.return.