Artifact
1fedef3a3bd3e87a9f3e68dc3c91cce04645cc5e42738f170c6480e42a90475a:
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 44 45 33 2d from "DES-EDE3-
0020: 45 43 42 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64 ECB.txt".lappend
0030: 20 61 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 auto_path [file
0040: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 dirname [file d
0050: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 irname [file dir
0060: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0070: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 me [file join [p
0080: 77 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 wd] [info script
0090: 5d 5d 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72 ]]]]]].package r
00a0: 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 equire tls.packa
00b0: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
00c0: 73 74 0a 0a 63 61 74 63 68 20 7b 74 6c 73 3a 3a st..catch {tls::
00d0: 70 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79 7d provider legacy}
00e0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f .tcltest::testCo
00f0: 6e 73 74 72 61 69 6e 74 20 44 45 53 5f 45 44 45 nstraint DES_EDE
0100: 33 5f 45 43 42 20 5b 65 78 70 72 20 7b 5b 6c 73 3_ECB [expr {[ls
0110: 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 earch -nocase [t
0120: 6c 73 3a 3a 63 69 70 68 65 72 73 5d 20 44 45 53 ls::ciphers] DES
0130: 2d 45 44 45 33 2d 45 43 42 5d 20 3e 20 2d 31 7d -EDE3-ECB] > -1}
0140: 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 ]..tcltest::test
0150: 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f Symetric_Block_
0160: 44 45 53 2d 45 44 45 33 2d 45 43 42 2d 31 2e 31 DES-EDE3-ECB-1.1
0170: 20 7b 45 6e 63 72 79 70 74 20 44 45 53 2d 45 44 {Encrypt DES-ED
0180: 45 33 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 E3-ECB} \..-cons
0190: 74 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 33 traints DES_EDE3
01a0: 5f 45 43 42 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 _ECB \..-body {b
01b0: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
01c0: 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d [tls::encrypt -
01d0: 63 69 70 68 65 72 20 44 45 53 2d 45 44 45 33 2d cipher DES-EDE3-
01e0: 45 43 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c ECB -padding 0 \
01f0: 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 ... -key [binary
0200: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 decode hex 0123
0210: 34 35 36 37 38 39 61 62 63 64 65 66 32 33 34 35 456789abcdef2345
0220: 36 37 38 39 61 62 63 64 65 66 30 31 34 35 36 37 6789abcdef014567
0230: 38 39 61 62 63 64 65 66 30 31 32 33 5d 20 5c 0a 89abcdef0123] \.
0240: 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 .. -data [binary
0250: 20 64 65 63 6f 64 65 20 68 65 78 20 36 62 63 31 decode hex 6bc1
0260: 62 65 65 32 32 65 34 30 39 66 39 36 65 39 33 64 bee22e409f96e93d
0270: 37 65 31 31 37 33 39 33 31 37 32 61 61 65 32 64 7e117393172aae2d
0280: 38 61 35 37 31 65 30 33 61 63 39 63 39 65 62 37 8a571e03ac9c9eb7
0290: 36 66 61 63 34 35 61 66 38 65 35 31 5d 5d 7d 20 6fac45af8e51]]}
02a0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
02b0: 2d 72 65 73 75 6c 74 20 37 31 34 37 37 32 66 33 -result 714772f3
02c0: 33 39 38 34 31 64 33 34 32 36 37 66 63 63 34 62 39841d34267fcc4b
02d0: 64 32 39 34 39 63 63 33 65 65 31 31 63 32 32 61 d2949cc3ee11c22a
02e0: 35 37 36 61 33 30 33 38 37 36 31 38 33 66 39 39 576a303876183f99
02f0: 63 30 62 36 64 65 38 37 0a 0a 74 63 6c 74 65 73 c0b6de87..tcltes
0300: 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 t::test Symetric
0310: 5f 42 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d _Block_DES-EDE3-
0320: 45 43 42 2d 31 2e 32 20 7b 44 65 63 72 79 70 74 ECB-1.2 {Decrypt
0330: 20 44 45 53 2d 45 44 45 33 2d 45 43 42 7d 20 5c DES-EDE3-ECB} \
0340: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
0350: 45 53 5f 45 44 45 33 5f 45 43 42 20 5c 0a 09 2d ES_EDE3_ECB \..-
0360: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
0370: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 ode hex [tls::de
0380: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
0390: 53 2d 45 44 45 33 2d 45 43 42 20 2d 70 61 64 64 S-EDE3-ECB -padd
03a0: 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 ing 0 \... -key
03b0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
03c0: 65 78 20 30 31 32 33 34 35 36 37 38 39 61 62 63 ex 0123456789abc
03d0: 64 65 66 32 33 34 35 36 37 38 39 61 62 63 64 65 def23456789abcde
03e0: 66 30 31 34 35 36 37 38 39 61 62 63 64 65 66 30 f01456789abcdef0
03f0: 31 32 33 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 123] \... -data
0400: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0410: 65 78 20 37 31 34 37 37 32 66 33 33 39 38 34 31 ex 714772f339841
0420: 64 33 34 32 36 37 66 63 63 34 62 64 32 39 34 39 d34267fcc4bd2949
0430: 63 63 33 65 65 31 31 63 32 32 61 35 37 36 61 33 cc3ee11c22a576a3
0440: 30 33 38 37 36 31 38 33 66 39 39 63 30 62 36 64 03876183f99c0b6d
0450: 65 38 37 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 e87]]} \..-match
0460: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 exact -result 6
0470: 62 63 31 62 65 65 32 32 65 34 30 39 66 39 36 65 bc1bee22e409f96e
0480: 39 33 64 37 65 31 31 37 33 39 33 31 37 32 61 61 93d7e117393172aa
0490: 65 32 64 38 61 35 37 31 65 30 33 61 63 39 63 39 e2d8a571e03ac9c9
04a0: 65 62 37 36 66 61 63 34 35 61 66 38 65 35 31 0a eb76fac45af8e51.
04b0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 .tcltest::test S
04c0: 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 44 45 ymetric_Block_DE
04d0: 53 2d 45 44 45 33 2d 45 43 42 2d 31 2e 33 20 7b S-EDE3-ECB-1.3 {
04e0: 45 6e 63 72 79 70 74 20 44 45 53 2d 45 44 45 33 Encrypt DES-EDE3
04f0: 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 -ECB} \..-constr
0500: 61 69 6e 74 73 20 44 45 53 5f 45 44 45 33 5f 45 aints DES_EDE3_E
0510: 43 42 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e CB \..-body {bin
0520: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
0530: 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 tls::encrypt -ci
0540: 70 68 65 72 20 44 45 53 2d 45 44 45 33 2d 45 43 pher DES-EDE3-EC
0550: 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 B -padding 0 \..
0560: 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 . -key [binary d
0570: 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 ecode hex 012345
0580: 36 37 38 39 61 62 63 64 65 66 32 33 34 35 36 37 6789abcdef234567
0590: 38 39 61 62 63 64 65 66 30 31 30 31 32 33 34 35 89abcdef01012345
05a0: 36 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 6789abcdef] \...
05b0: 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 -data [binary d
05c0: 65 63 6f 64 65 20 68 65 78 20 36 62 63 31 62 65 ecode hex 6bc1be
05d0: 65 32 32 65 34 30 39 66 39 36 65 39 33 64 37 65 e22e409f96e93d7e
05e0: 31 31 37 33 39 33 31 37 32 61 61 65 32 64 38 61 117393172aae2d8a
05f0: 35 37 31 65 30 33 61 63 39 63 39 65 62 37 36 66 571e03ac9c9eb76f
0600: 61 63 34 35 61 66 38 65 35 31 5d 5d 7d 20 5c 0a ac45af8e51]]} \.
0610: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0620: 65 73 75 6c 74 20 30 36 65 64 65 33 64 38 32 38 esult 06ede3d828
0630: 38 34 30 39 30 61 66 66 33 32 32 63 31 39 66 30 84090aff322c19f0
0640: 35 31 38 34 38 36 37 33 30 35 37 36 39 37 32 61 518486730576972a
0650: 36 36 36 65 35 38 62 36 63 38 38 63 66 31 30 37 666e58b6c88cf107
0660: 33 34 30 64 33 64 0a 0a 74 63 6c 74 65 73 74 3a 340d3d..tcltest:
0670: 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42 :test Symetric_B
0680: 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d 45 43 lock_DES-EDE3-EC
0690: 42 2d 31 2e 34 20 7b 44 65 63 72 79 70 74 20 44 B-1.4 {Decrypt D
06a0: 45 53 2d 45 44 45 33 2d 45 43 42 7d 20 5c 0a 09 ES-EDE3-ECB} \..
06b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
06c0: 5f 45 44 45 33 5f 45 43 42 20 5c 0a 09 2d 62 6f _EDE3_ECB \..-bo
06d0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
06e0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
06f0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d ypt -cipher DES-
0700: 45 44 45 33 2d 45 43 42 20 2d 70 61 64 64 69 6e EDE3-ECB -paddin
0710: 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 g 0 \... -key [b
0720: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0730: 20 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 0123456789abcde
0740: 66 32 33 34 35 36 37 38 39 61 62 63 64 65 66 30 f23456789abcdef0
0750: 31 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 10123456789abcde
0760: 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 f] \... -data [b
0770: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0780: 20 30 36 65 64 65 33 64 38 32 38 38 34 30 39 30 06ede3d82884090
0790: 61 66 66 33 32 32 63 31 39 66 30 35 31 38 34 38 aff322c19f051848
07a0: 36 37 33 30 35 37 36 39 37 32 61 36 36 36 65 35 6730576972a666e5
07b0: 38 62 36 63 38 38 63 66 31 30 37 33 34 30 64 33 8b6c88cf107340d3
07c0: 64 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 d]]} \..-match e
07d0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 62 63 xact -result 6bc
07e0: 31 62 65 65 32 32 65 34 30 39 66 39 36 65 39 33 1bee22e409f96e93
07f0: 64 37 65 31 31 37 33 39 33 31 37 32 61 61 65 32 d7e117393172aae2
0800: 64 38 61 35 37 31 65 30 33 61 63 39 63 39 65 62 d8a571e03ac9c9eb
0810: 37 36 66 61 63 34 35 61 66 38 65 35 31 0a 0a 23 76fac45af8e51..#
0820: 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 Cleanup.::tclte
0830: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
0840: 0a 72 65 74 75 72 6e 0a .return.