Artifact
2538a9cfa36a99683f0a3e7ce97aefd62f91b2feaf2867cf529279b437f671ea:
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 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b t Symetric_Block
0150: 5f 44 45 53 2d 45 43 42 2d 31 2e 31 20 7b 45 6e _DES-ECB-1.1 {En
0160: 63 72 79 70 74 20 44 45 53 2d 45 43 42 7d 20 5c crypt DES-ECB} \
0170: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
0180: 45 53 5f 45 43 42 20 5c 0a 09 2d 62 6f 64 79 20 ES_ECB \..-body
0190: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
01a0: 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 ex [tls::encrypt
01b0: 20 2d 63 69 70 68 65 72 20 44 45 53 2d 45 43 42 -cipher DES-ECB
01c0: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
01d0: 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 -key [binary de
01e0: 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 36 code hex 0123456
01f0: 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 789abcdef] \...
0200: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
0210: 63 6f 64 65 20 68 65 78 20 34 65 36 66 37 37 32 code hex 4e6f772
0220: 30 36 39 37 33 32 30 37 34 5d 5d 7d 20 5c 0a 09 069732074]]} \..
0230: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0240: 73 75 6c 74 20 33 66 61 34 30 65 38 61 39 38 34 sult 3fa40e8a984
0250: 64 34 38 31 35 0a 0a 74 63 6c 74 65 73 74 3a 3a d4815..tcltest::
0260: 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c test Symetric_Bl
0270: 6f 63 6b 5f 44 45 53 2d 45 43 42 2d 31 2e 32 20 ock_DES-ECB-1.2
0280: 7b 44 65 63 72 79 70 74 20 44 45 53 2d 45 43 42 {Decrypt DES-ECB
0290: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
02a0: 73 20 44 45 53 5f 45 43 42 20 5c 0a 09 2d 62 6f s DES_ECB \..-bo
02b0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
02c0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
02d0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d ypt -cipher DES-
02e0: 45 43 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c ECB -padding 0 \
02f0: 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 ... -key [binary
0300: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 decode hex 0123
0310: 34 35 36 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 456789abcdef] \.
0320: 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 .. -data [binary
0330: 20 64 65 63 6f 64 65 20 68 65 78 20 33 66 61 34 decode hex 3fa4
0340: 30 65 38 61 39 38 34 64 34 38 31 35 5d 5d 7d 20 0e8a984d4815]]}
0350: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0360: 2d 72 65 73 75 6c 74 20 34 65 36 66 37 37 32 30 -result 4e6f7720
0370: 36 39 37 33 32 30 37 34 0a 0a 74 63 6c 74 65 73 69732074..tcltes
0380: 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 t::test Symetric
0390: 5f 42 6c 6f 63 6b 5f 44 45 53 2d 45 43 42 2d 31 _Block_DES-ECB-1
03a0: 2e 33 20 7b 45 6e 63 72 79 70 74 20 44 45 53 2d .3 {Encrypt DES-
03b0: 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 ECB} \..-constra
03c0: 69 6e 74 73 20 44 45 53 5f 45 43 42 20 5c 0a 09 ints DES_ECB \..
03d0: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
03e0: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 code hex [tls::e
03f0: 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ncrypt -cipher D
0400: 45 53 2d 45 43 42 20 2d 70 61 64 64 69 6e 67 20 ES-ECB -padding
0410: 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 0 \... -key [bin
0420: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
0430: 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 5d 123456789abcdef]
0440: 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e \... -data [bin
0450: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 ary decode hex 6
0460: 38 36 35 32 30 37 34 36 39 36 64 36 35 32 30 5d 8652074696d6520]
0470: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
0480: 63 74 20 2d 72 65 73 75 6c 74 20 36 61 32 37 31 ct -result 6a271
0490: 37 38 37 61 62 38 38 38 33 66 39 0a 0a 74 63 6c 787ab8883f9..tcl
04a0: 74 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 test::test Symet
04b0: 72 69 63 5f 42 6c 6f 63 6b 5f 44 45 53 2d 45 43 ric_Block_DES-EC
04c0: 42 2d 31 2e 34 20 7b 44 65 63 72 79 70 74 20 44 B-1.4 {Decrypt D
04d0: 45 53 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 ES-ECB} \..-cons
04e0: 74 72 61 69 6e 74 73 20 44 45 53 5f 45 43 42 20 traints DES_ECB
04f0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
0500: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
0510: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 ::decrypt -ciphe
0520: 72 20 44 45 53 2d 45 43 42 20 2d 70 61 64 64 69 r DES-ECB -paddi
0530: 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b ng 0 \... -key [
0540: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0550: 78 20 30 31 32 33 34 35 36 37 38 39 61 62 63 64 x 0123456789abcd
0560: 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b ef] \... -data [
0570: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0580: 78 20 36 61 32 37 31 37 38 37 61 62 38 38 38 33 x 6a271787ab8883
0590: 66 39 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 f9]]} \..-match
05a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 38 exact -result 68
05b0: 36 35 32 30 37 34 36 39 36 64 36 35 32 30 0a 0a 652074696d6520..
05c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79 tcltest::test Sy
05d0: 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 44 45 53 metric_Block_DES
05e0: 2d 45 43 42 2d 31 2e 35 20 7b 45 6e 63 72 79 70 -ECB-1.5 {Encryp
05f0: 74 20 44 45 53 2d 45 43 42 7d 20 5c 0a 09 2d 63 t DES-ECB} \..-c
0600: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 onstraints DES_E
0610: 43 42 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e CB \..-body {bin
0620: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
0630: 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 tls::encrypt -ci
0640: 70 68 65 72 20 44 45 53 2d 45 43 42 20 2d 70 61 pher DES-ECB -pa
0650: 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 dding 0 \... -ke
0660: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
0670: 20 68 65 78 20 30 31 32 33 34 35 36 37 38 39 61 hex 0123456789a
0680: 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 bcdef] \... -dat
0690: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
06a0: 20 68 65 78 20 36 36 36 66 37 32 32 30 36 31 36 hex 666f7220616
06b0: 63 36 63 32 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 c6c20]]} \..-mat
06c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
06d0: 20 38 39 33 64 35 31 65 63 34 62 35 36 33 62 35 893d51ec4b563b5
06e0: 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 3..tcltest::test
06f0: 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f Symetric_Block_
0700: 44 45 53 2d 45 43 42 2d 31 2e 36 20 7b 44 65 63 DES-ECB-1.6 {Dec
0710: 72 79 70 74 20 44 45 53 2d 45 43 42 7d 20 5c 0a rypt DES-ECB} \.
0720: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
0730: 53 5f 45 43 42 20 5c 0a 09 2d 62 6f 64 79 20 7b S_ECB \..-body {
0740: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
0750: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
0760: 2d 63 69 70 68 65 72 20 44 45 53 2d 45 43 42 20 -cipher DES-ECB
0770: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 -padding 0 \...
0780: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
0790: 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 ode hex 01234567
07a0: 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 89abcdef] \... -
07b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
07c0: 6f 64 65 20 68 65 78 20 38 39 33 64 35 31 65 63 ode hex 893d51ec
07d0: 34 62 35 36 33 62 35 33 5d 5d 7d 20 5c 0a 09 2d 4b563b53]]} \..-
07e0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
07f0: 75 6c 74 20 36 36 36 66 37 32 32 30 36 31 36 63 ult 666f7220616c
0800: 36 63 32 30 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 6c20..# Cleanup.
0810: 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e ::tcltest::clean
0820: 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a upTests.return.