Artifact
abdc2637225d25f923ea5e8b7ad6a541e9c55861979d66c5c7b2256fd3943626:
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 33 2e 74 78 74 22 from "DES3.txt"
0020: 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 .lappend auto_pa
0030: 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 th [file dirname
0040: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0050: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 file dirname [fi
0060: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 le dirname [file
0070: 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 join [pwd] [inf
0080: 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 o script]]]]]].p
0090: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 ackage require t
00a0: 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ls.package requi
00b0: 72 65 20 74 63 6c 74 65 73 74 0a 0a 63 61 74 63 re tcltest..catc
00c0: 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 h {tls::provider
00d0: 20 6c 65 67 61 63 79 7d 0a 74 63 6c 74 65 73 74 legacy}.tcltest
00e0: 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 ::testConstraint
00f0: 20 44 45 53 33 20 5b 65 78 70 72 20 7b 5b 6c 73 DES3 [expr {[ls
0100: 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 earch -nocase [t
0110: 6c 73 3a 3a 63 69 70 68 65 72 73 5d 20 44 45 53 ls::ciphers] DES
0120: 33 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 3] > -1}]..tclte
0130: 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 st::test Symetri
0140: 63 5f 42 6c 6f 63 6b 5f 44 45 53 33 2d 31 2e 31 c_Block_DES3-1.1
0150: 20 7b 45 6e 63 72 79 70 74 20 44 45 53 33 7d 20 {Encrypt DES3}
0160: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0170: 44 45 53 33 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES3 \..-body {b
0180: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
0190: 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d [tls::encrypt -
01a0: 63 69 70 68 65 72 20 44 45 53 33 20 2d 70 61 64 cipher DES3 -pad
01b0: 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 ding 0 \... -key
01c0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
01d0: 68 65 78 20 30 31 32 33 34 35 36 37 38 39 61 62 hex 0123456789ab
01e0: 63 64 65 66 32 33 34 35 36 37 38 39 61 62 63 64 cdef23456789abcd
01f0: 65 66 30 31 34 35 36 37 38 39 61 62 63 64 65 66 ef01456789abcdef
0200: 30 31 32 33 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 0123] \... -iv [
0210: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0220: 78 20 66 36 39 66 32 34 34 35 64 66 34 66 39 62 x f69f2445df4f9b
0230: 31 37 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 17] \... -data [
0240: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0250: 78 20 36 62 63 31 62 65 65 32 32 65 34 30 39 66 x 6bc1bee22e409f
0260: 39 36 65 39 33 64 37 65 31 31 37 33 39 33 31 37 96e93d7e11739317
0270: 32 61 61 65 32 64 38 61 35 37 31 65 30 33 61 63 2aae2d8a571e03ac
0280: 39 63 39 65 62 37 36 66 61 63 34 35 61 66 38 65 9c9eb76fac45af8e
0290: 35 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 51]]} \..-match
02a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 30 exact -result 20
02b0: 37 39 63 33 64 35 33 61 61 37 36 33 65 31 39 33 79c3d53aa763e193
02c0: 62 37 39 65 32 35 36 39 61 62 35 32 36 32 35 31 b79e2569ab526251
02d0: 36 35 37 30 34 38 31 66 32 35 62 35 30 66 37 33 6570481f25b50f73
02e0: 63 30 62 64 61 38 35 63 38 65 30 64 61 37 0a 0a c0bda85c8e0da7..
02f0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79 tcltest::test Sy
0300: 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 44 45 53 metric_Block_DES
0310: 33 2d 31 2e 32 20 7b 44 65 63 72 79 70 74 20 44 3-1.2 {Decrypt D
0320: 45 53 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 ES3} \..-constra
0330: 69 6e 74 73 20 44 45 53 33 20 5c 0a 09 2d 62 6f ints DES3 \..-bo
0340: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
0350: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
0360: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 33 ypt -cipher DES3
0370: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
0380: 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 -key [binary de
0390: 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 36 code hex 0123456
03a0: 37 38 39 61 62 63 64 65 66 32 33 34 35 36 37 38 789abcdef2345678
03b0: 39 61 62 63 64 65 66 30 31 34 35 36 37 38 39 61 9abcdef01456789a
03c0: 62 63 64 65 66 30 31 32 33 5d 20 5c 0a 09 09 20 bcdef0123] \...
03d0: 2d 69 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f -iv [binary deco
03e0: 64 65 20 68 65 78 20 66 36 39 66 32 34 34 35 64 de hex f69f2445d
03f0: 66 34 66 39 62 31 37 5d 20 5c 0a 09 09 20 2d 64 f4f9b17] \... -d
0400: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
0410: 64 65 20 68 65 78 20 32 30 37 39 63 33 64 35 33 de hex 2079c3d53
0420: 61 61 37 36 33 65 31 39 33 62 37 39 65 32 35 36 aa763e193b79e256
0430: 39 61 62 35 32 36 32 35 31 36 35 37 30 34 38 31 9ab5262516570481
0440: 66 32 35 62 35 30 66 37 33 63 30 62 64 61 38 35 f25b50f73c0bda85
0450: 63 38 65 30 64 61 37 5d 5d 7d 20 5c 0a 09 2d 6d c8e0da7]]} \..-m
0460: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0470: 6c 74 20 36 62 63 31 62 65 65 32 32 65 34 30 39 lt 6bc1bee22e409
0480: 66 39 36 65 39 33 64 37 65 31 31 37 33 39 33 31 f96e93d7e1173931
0490: 37 32 61 61 65 32 64 38 61 35 37 31 65 30 33 61 72aae2d8a571e03a
04a0: 63 39 63 39 65 62 37 36 66 61 63 34 35 61 66 38 c9c9eb76fac45af8
04b0: 65 35 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 e51..tcltest::te
04c0: 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 st Symetric_Bloc
04d0: 6b 5f 44 45 53 33 2d 31 2e 33 20 7b 45 6e 63 72 k_DES3-1.3 {Encr
04e0: 79 70 74 20 44 45 53 33 7d 20 5c 0a 09 2d 63 6f ypt DES3} \..-co
04f0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 33 20 5c nstraints DES3 \
0500: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
0510: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
0520: 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 :encrypt -cipher
0530: 20 44 45 53 33 20 2d 70 61 64 64 69 6e 67 20 30 DES3 -padding 0
0540: 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 \... -key [bina
0550: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
0560: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 32 33 23456789abcdef23
0570: 34 35 36 37 38 39 61 62 63 64 65 66 30 31 30 31 456789abcdef0101
0580: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 5d 20 23456789abcdef]
0590: 5c 0a 09 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 \... -iv [binary
05a0: 20 64 65 63 6f 64 65 20 68 65 78 20 66 36 39 66 decode hex f69f
05b0: 32 34 34 35 64 66 34 66 39 62 31 37 5d 20 5c 0a 2445df4f9b17] \.
05c0: 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 .. -data [binary
05d0: 20 64 65 63 6f 64 65 20 68 65 78 20 36 62 63 31 decode hex 6bc1
05e0: 62 65 65 32 32 65 34 30 39 66 39 36 65 39 33 64 bee22e409f96e93d
05f0: 37 65 31 31 37 33 39 33 31 37 32 61 61 65 32 64 7e117393172aae2d
0600: 38 61 35 37 31 65 30 33 61 63 39 63 39 65 62 37 8a571e03ac9c9eb7
0610: 36 66 61 63 34 35 61 66 38 65 35 31 5d 5d 7d 20 6fac45af8e51]]}
0620: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0630: 2d 72 65 73 75 6c 74 20 37 34 30 31 63 65 31 65 -result 7401ce1e
0640: 61 62 36 64 30 30 33 63 61 66 66 38 34 62 66 34 ab6d003caff84bf4
0650: 37 62 33 36 63 63 32 31 35 34 66 30 32 33 38 66 7b36cc2154f0238f
0660: 39 66 66 65 63 64 38 66 36 61 63 66 31 31 38 33 9ffecd8f6acf1183
0670: 39 32 62 34 35 35 38 31 0a 0a 74 63 6c 74 65 73 92b45581..tcltes
0680: 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 t::test Symetric
0690: 5f 42 6c 6f 63 6b 5f 44 45 53 33 2d 31 2e 34 20 _Block_DES3-1.4
06a0: 7b 44 65 63 72 79 70 74 20 44 45 53 33 7d 20 5c {Decrypt DES3} \
06b0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
06c0: 45 53 33 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 ES3 \..-body {bi
06d0: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
06e0: 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 [tls::decrypt -c
06f0: 69 70 68 65 72 20 44 45 53 33 20 2d 70 61 64 64 ipher DES3 -padd
0700: 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 ing 0 \... -key
0710: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0720: 65 78 20 30 31 32 33 34 35 36 37 38 39 61 62 63 ex 0123456789abc
0730: 64 65 66 32 33 34 35 36 37 38 39 61 62 63 64 65 def23456789abcde
0740: 66 30 31 30 31 32 33 34 35 36 37 38 39 61 62 63 f010123456789abc
0750: 64 65 66 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 def] \... -iv [b
0760: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0770: 20 66 36 39 66 32 34 34 35 64 66 34 66 39 62 31 f69f2445df4f9b1
0780: 37 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 7] \... -data [b
0790: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
07a0: 20 37 34 30 31 63 65 31 65 61 62 36 64 30 30 33 7401ce1eab6d003
07b0: 63 61 66 66 38 34 62 66 34 37 62 33 36 63 63 32 caff84bf47b36cc2
07c0: 31 35 34 66 30 32 33 38 66 39 66 66 65 63 64 38 154f0238f9ffecd8
07d0: 66 36 61 63 66 31 31 38 33 39 32 62 34 35 35 38 f6acf118392b4558
07e0: 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 1]]} \..-match e
07f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 62 63 xact -result 6bc
0800: 31 62 65 65 32 32 65 34 30 39 66 39 36 65 39 33 1bee22e409f96e93
0810: 64 37 65 31 31 37 33 39 33 31 37 32 61 61 65 32 d7e117393172aae2
0820: 64 38 61 35 37 31 65 30 33 61 63 39 63 39 65 62 d8a571e03ac9c9eb
0830: 37 36 66 61 63 34 35 61 66 38 65 35 31 0a 0a 23 76fac45af8e51..#
0840: 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 Cleanup.::tclte
0850: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
0860: 0a 72 65 74 75 72 6e 0a .return.