Artifact
cb0cbf5ffa1510d077c5601d38b05bb353283d04d4718a95fa1353c2785b879e:
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 43 42 43 2e 74 from "DES-CBC.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 43 42 43 20 5b 65 78 70 int DES_CBC [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 43 42 43 5d 20 3e 20 2d 31 s] DES-CBC] > -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 43 42 43 2d t Block_DES-CBC-
0150: 31 2e 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.1 {Encrypt DES
0160: 2d 43 42 43 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 -CBC} \..-constr
0170: 61 69 6e 74 73 20 44 45 53 5f 43 42 43 20 5c 0a aints DES_CBC \.
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 43 42 43 20 2d 70 61 64 64 69 6e 67 DES-CBC -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 69 76 20 5b 62 69 6e 61 ] \... -iv [bina
0200: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 32 ry decode hex 12
0210: 33 34 35 36 37 38 39 30 61 62 63 64 65 66 5d 20 34567890abcdef]
0220: 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 \... -data [bina
0230: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 65 ry decode hex 4e
0240: 36 66 37 37 32 30 36 39 37 33 32 30 37 34 36 38 6f77206973207468
0250: 36 35 32 30 37 34 36 39 36 64 36 35 32 30 36 36 652074696d652066
0260: 36 66 37 32 32 30 36 31 36 63 36 63 32 30 5d 5d 6f7220616c6c20]]
0270: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0280: 74 20 2d 72 65 73 75 6c 74 20 65 35 63 37 63 64 t -result e5c7cd
0290: 64 65 38 37 32 62 66 32 37 63 34 33 65 39 33 34 de872bf27c43e934
02a0: 30 30 38 63 33 38 39 63 30 66 36 38 33 37 38 38 008c389c0f683788
02b0: 34 39 39 61 37 63 30 35 66 36 0a 0a 74 63 6c 74 499a7c05f6..tclt
02c0: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
02d0: 44 45 53 2d 43 42 43 2d 31 2e 32 20 7b 44 65 63 DES-CBC-1.2 {Dec
02e0: 72 79 70 74 20 44 45 53 2d 43 42 43 7d 20 5c 0a rypt DES-CBC} \.
02f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
0300: 53 5f 43 42 43 20 5c 0a 09 2d 62 6f 64 79 20 7b S_CBC \..-body {
0310: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
0320: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
0330: 2d 63 69 70 68 65 72 20 44 45 53 2d 43 42 43 20 -cipher DES-CBC
0340: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 -padding 0 \...
0350: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
0360: 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 ode hex 01234567
0370: 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 89abcdef] \... -
0380: 69 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 iv [binary decod
0390: 65 20 68 65 78 20 31 32 33 34 35 36 37 38 39 30 e hex 1234567890
03a0: 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 64 61 abcdef] \... -da
03b0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
03c0: 65 20 68 65 78 20 65 35 63 37 63 64 64 65 38 37 e hex e5c7cdde87
03d0: 32 62 66 32 37 63 34 33 65 39 33 34 30 30 38 63 2bf27c43e934008c
03e0: 33 38 39 63 30 66 36 38 33 37 38 38 34 39 39 61 389c0f683788499a
03f0: 37 63 30 35 66 36 5d 5d 7d 20 5c 0a 09 2d 6d 61 7c05f6]]} \..-ma
0400: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0410: 74 20 34 65 36 66 37 37 32 30 36 39 37 33 32 30 t 4e6f7720697320
0420: 37 34 36 38 36 35 32 30 37 34 36 39 36 64 36 35 7468652074696d65
0430: 32 30 36 36 36 66 37 32 32 30 36 31 36 63 36 63 20666f7220616c6c
0440: 32 30 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 20..# Cleanup.::
0450: 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 tcltest::cleanup
0460: 54 65 73 74 73 0a 72 65 74 75 72 6e 0a Tests.return.