Artifact
77cff59e3ad3b761dc88515b4b422c66efee6769d620d50ebc4a1805ce35b435:
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 44 45 53 2d 45 43 42 2e 74 from "DES-ECB.t
0020: 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f xt".lappend auto
0030: 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 6e _path [file dirn
0040: 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d ame [file dirnam
0050: 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 e [file dirname
0060: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
0070: 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b ile join [pwd] [
0080: 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d info script]]]]]
0090: 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ].package requir
00a0: 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 e tls.package re
00b0: 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 63 quire tcltest..c
00c0: 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 atch {tls::provi
00d0: 64 65 72 20 6c 65 67 61 63 79 7d 0a 74 63 6c 74 der legacy}.tclt
00e0: 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 est::testConstra
00f0: 69 6e 74 20 44 45 53 5f 45 43 42 20 5b 65 78 70 int DES_ECB [exp
0100: 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 r {[lsearch -noc
0110: 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 68 65 72 ase [tls::cipher
0120: 73 5d 20 44 45 53 2d 45 43 42 5d 20 3e 20 2d 31 s] DES-ECB] > -1
0130: 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 }]..tcltest::tes
0140: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 45 43 42 2d t Block_DES-ECB-
0150: 31 2e 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.1 {Encrypt DES
0160: 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 -ECB} \..-constr
0170: 61 69 6e 74 73 20 44 45 53 5f 45 43 42 20 5c 0a aints DES_ECB \.
0180: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
0190: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
01a0: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
01b0: 44 45 53 2d 45 43 42 20 2d 70 61 64 64 69 6e 67 DES-ECB -padding
01c0: 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 0 \... -key [bi
01d0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
01e0: 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 0123456789abcdef
01f0: 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 ] \... -data [bi
0200: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
0210: 34 65 36 66 37 37 32 30 36 39 37 33 32 30 37 34 4e6f772069732074
0220: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
0230: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 66 61 34 act -result 3fa4
0240: 30 65 38 61 39 38 34 64 34 38 31 35 0a 0a 74 63 0e8a984d4815..tc
0250: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
0260: 6b 5f 44 45 53 2d 45 43 42 2d 31 2e 32 20 7b 44 k_DES-ECB-1.2 {D
0270: 65 63 72 79 70 74 20 44 45 53 2d 45 43 42 7d 20 ecrypt DES-ECB}
0280: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0290: 44 45 53 5f 45 43 42 20 5c 0a 09 2d 62 6f 64 79 DES_ECB \..-body
02a0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
02b0: 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 hex [tls::decryp
02c0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d 45 43 t -cipher DES-EC
02d0: 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 B -padding 0 \..
02e0: 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 . -key [binary d
02f0: 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 ecode hex 012345
0300: 36 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 6789abcdef] \...
0310: 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 -data [binary d
0320: 65 63 6f 64 65 20 68 65 78 20 33 66 61 34 30 65 ecode hex 3fa40e
0330: 38 61 39 38 34 64 34 38 31 35 5d 5d 7d 20 5c 0a 8a984d4815]]} \.
0340: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0350: 65 73 75 6c 74 20 34 65 36 66 37 37 32 30 36 39 esult 4e6f772069
0360: 37 33 32 30 37 34 0a 0a 74 63 6c 74 65 73 74 3a 732074..tcltest:
0370: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
0380: 45 43 42 2d 31 2e 33 20 7b 45 6e 63 72 79 70 74 ECB-1.3 {Encrypt
0390: 20 44 45 53 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f DES-ECB} \..-co
03a0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 43 nstraints DES_EC
03b0: 42 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 B \..-body {bina
03c0: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
03d0: 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 ls::encrypt -cip
03e0: 68 65 72 20 44 45 53 2d 45 43 42 20 2d 70 61 64 her DES-ECB -pad
03f0: 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 ding 0 \... -key
0400: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
0410: 68 65 78 20 30 31 32 33 34 35 36 37 38 39 61 62 hex 0123456789ab
0420: 63 64 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 cdef] \... -data
0430: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
0440: 68 65 78 20 36 38 36 35 32 30 37 34 36 39 36 64 hex 68652074696d
0450: 36 35 32 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 6520]]} \..-matc
0460: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0470: 36 61 32 37 31 37 38 37 61 62 38 38 38 33 66 39 6a271787ab8883f9
0480: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0490: 42 6c 6f 63 6b 5f 44 45 53 2d 45 43 42 2d 31 2e Block_DES-ECB-1.
04a0: 34 20 7b 44 65 63 72 79 70 74 20 44 45 53 2d 45 4 {Decrypt DES-E
04b0: 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 CB} \..-constrai
04c0: 6e 74 73 20 44 45 53 5f 45 43 42 20 5c 0a 09 2d nts DES_ECB \..-
04d0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
04e0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 ode hex [tls::de
04f0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
0500: 53 2d 45 43 42 20 2d 70 61 64 64 69 6e 67 20 30 S-ECB -padding 0
0510: 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 \... -key [bina
0520: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
0530: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 5d 20 23456789abcdef]
0540: 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 \... -data [bina
0550: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 61 ry decode hex 6a
0560: 32 37 31 37 38 37 61 62 38 38 38 33 66 39 5d 5d 271787ab8883f9]]
0570: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0580: 74 20 2d 72 65 73 75 6c 74 20 36 38 36 35 32 30 t -result 686520
0590: 37 34 36 39 36 64 36 35 32 30 0a 0a 74 63 6c 74 74696d6520..tclt
05a0: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
05b0: 44 45 53 2d 45 43 42 2d 31 2e 35 20 7b 45 6e 63 DES-ECB-1.5 {Enc
05c0: 72 79 70 74 20 44 45 53 2d 45 43 42 7d 20 5c 0a rypt DES-ECB} \.
05d0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
05e0: 53 5f 45 43 42 20 5c 0a 09 2d 62 6f 64 79 20 7b S_ECB \..-body {
05f0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
0600: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
0610: 2d 63 69 70 68 65 72 20 44 45 53 2d 45 43 42 20 -cipher DES-ECB
0620: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 -padding 0 \...
0630: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
0640: 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 ode hex 01234567
0650: 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 89abcdef] \... -
0660: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
0670: 6f 64 65 20 68 65 78 20 36 36 36 66 37 32 32 30 ode hex 666f7220
0680: 36 31 36 63 36 63 32 30 5d 5d 7d 20 5c 0a 09 2d 616c6c20]]} \..-
0690: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
06a0: 75 6c 74 20 38 39 33 64 35 31 65 63 34 62 35 36 ult 893d51ec4b56
06b0: 33 62 35 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 3b53..tcltest::t
06c0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 45 43 est Block_DES-EC
06d0: 42 2d 31 2e 36 20 7b 44 65 63 72 79 70 74 20 44 B-1.6 {Decrypt D
06e0: 45 53 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 ES-ECB} \..-cons
06f0: 74 72 61 69 6e 74 73 20 44 45 53 5f 45 43 42 20 traints DES_ECB
0700: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
0710: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
0720: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 ::decrypt -ciphe
0730: 72 20 44 45 53 2d 45 43 42 20 2d 70 61 64 64 69 r DES-ECB -paddi
0740: 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b ng 0 \... -key [
0750: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0760: 78 20 30 31 32 33 34 35 36 37 38 39 61 62 63 64 x 0123456789abcd
0770: 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b ef] \... -data [
0780: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0790: 78 20 38 39 33 64 35 31 65 63 34 62 35 36 33 62 x 893d51ec4b563b
07a0: 35 33 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 53]]} \..-match
07b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 36 exact -result 66
07c0: 36 66 37 32 32 30 36 31 36 63 36 63 32 30 0a 0a 6f7220616c6c20..
07d0: 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 # Cleanup.::tclt
07e0: 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 est::cleanupTest
07f0: 73 0a 72 65 74 75 72 6e 0a s.return.