Artifact
409677134b214c8be0850cf5cb82c53555a752e09330387f14b5054240a1d016:
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: 43 54 52 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64 CTR.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 43 54 52 20 5b 65 78 70 72 20 7b 5b 6c 73 3_CTR [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 43 54 52 5d 20 3e 20 2d 31 7d -EDE3-CTR] > -1}
0140: 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 ]..tcltest::test
0150: 20 42 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d Block_DES-EDE3-
0160: 43 54 52 2d 31 2e 31 20 7b 45 6e 63 72 79 70 74 CTR-1.1 {Encrypt
0170: 20 44 45 53 2d 45 44 45 33 2d 43 54 52 7d 20 5c DES-EDE3-CTR} \
0180: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
0190: 45 53 5f 45 44 45 33 5f 43 54 52 20 5c 0a 09 2d ES_EDE3_CTR \..-
01a0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
01b0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
01c0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
01d0: 53 2d 45 44 45 33 2d 43 54 52 20 2d 70 61 64 64 S-EDE3-CTR -padd
01e0: 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 ing 0 \... -key
01f0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0200: 65 78 20 30 31 32 33 34 35 36 37 38 39 61 62 63 ex 0123456789abc
0210: 64 65 66 32 33 34 35 36 37 38 39 61 62 63 64 65 def23456789abcde
0220: 66 30 31 34 35 36 37 38 39 61 62 63 64 65 66 30 f01456789abcdef0
0230: 31 32 33 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 123] \... -iv [b
0240: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0250: 20 66 36 39 66 32 34 34 35 64 66 34 66 39 62 31 f69f2445df4f9b1
0260: 37 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 7] \... -data [b
0270: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0280: 20 36 62 63 31 62 65 65 32 32 65 34 30 39 66 39 6bc1bee22e409f9
0290: 36 65 39 33 64 37 65 31 31 37 33 39 33 31 37 32 6e93d7e117393172
02a0: 61 61 65 32 64 38 61 35 37 31 65 30 33 61 63 39 aae2d8a571e03ac9
02b0: 63 39 65 62 37 36 66 61 63 34 35 61 66 38 65 35 c9eb76fac45af8e5
02c0: 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 1]]} \..-match e
02d0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 37 38 xact -result 078
02e0: 62 62 37 34 65 35 39 63 65 37 65 64 36 31 39 61 bb74e59ce7ed619a
02f0: 61 31 31 64 32 35 30 30 34 66 62 36 35 61 30 33 a11d25004fb65a03
0300: 63 65 64 66 31 62 61 30 62 30 39 62 61 61 33 62 cedf1ba0b09baa3b
0310: 63 38 31 62 38 66 36 39 63 31 64 61 39 0a 0a 74 c81b8f69c1da9..t
0320: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
0330: 63 6b 5f 44 45 53 2d 45 44 45 33 2d 43 54 52 2d ck_DES-EDE3-CTR-
0340: 31 2e 32 20 7b 44 65 63 72 79 70 74 20 44 45 53 1.2 {Decrypt DES
0350: 2d 45 44 45 33 2d 43 54 52 7d 20 5c 0a 09 2d 63 -EDE3-CTR} \..-c
0360: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 onstraints DES_E
0370: 44 45 33 5f 43 54 52 20 5c 0a 09 2d 62 6f 64 79 DE3_CTR \..-body
0380: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
0390: 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 hex [tls::decryp
03a0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d 45 44 t -cipher DES-ED
03b0: 45 33 2d 43 54 52 20 2d 70 61 64 64 69 6e 67 20 E3-CTR -padding
03c0: 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 0 \... -key [bin
03d0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
03e0: 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 32 123456789abcdef2
03f0: 33 34 35 36 37 38 39 61 62 63 64 65 66 30 31 34 3456789abcdef014
0400: 35 36 37 38 39 61 62 63 64 65 66 30 31 32 33 5d 56789abcdef0123]
0410: 20 5c 0a 09 09 20 2d 69 76 20 5b 62 69 6e 61 72 \... -iv [binar
0420: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 36 39 y decode hex f69
0430: 66 32 34 34 35 64 66 34 66 39 62 31 37 5d 20 5c f2445df4f9b17] \
0440: 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 ... -data [binar
0450: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 37 38 y decode hex 078
0460: 62 62 37 34 65 35 39 63 65 37 65 64 36 31 39 61 bb74e59ce7ed619a
0470: 61 31 31 64 32 35 30 30 34 66 62 36 35 61 30 33 a11d25004fb65a03
0480: 63 65 64 66 31 62 61 30 62 30 39 62 61 61 33 62 cedf1ba0b09baa3b
0490: 63 38 31 62 38 66 36 39 63 31 64 61 39 5d 5d 7d c81b8f69c1da9]]}
04a0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
04b0: 20 2d 72 65 73 75 6c 74 20 36 62 63 31 62 65 65 -result 6bc1bee
04c0: 32 32 65 34 30 39 66 39 36 65 39 33 64 37 65 31 22e409f96e93d7e1
04d0: 31 37 33 39 33 31 37 32 61 61 65 32 64 38 61 35 17393172aae2d8a5
04e0: 37 31 65 30 33 61 63 39 63 39 65 62 37 36 66 61 71e03ac9c9eb76fa
04f0: 63 34 35 61 66 38 65 35 31 0a 0a 74 63 6c 74 65 c45af8e51..tclte
0500: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
0510: 45 53 2d 45 44 45 33 2d 43 54 52 2d 31 2e 33 20 ES-EDE3-CTR-1.3
0520: 7b 45 6e 63 72 79 70 74 20 44 45 53 2d 45 44 45 {Encrypt DES-EDE
0530: 33 2d 43 54 52 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-CTR} \..-const
0540: 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 33 5f raints DES_EDE3_
0550: 43 54 52 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 CTR \..-body {bi
0560: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
0570: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
0580: 69 70 68 65 72 20 44 45 53 2d 45 44 45 33 2d 43 ipher DES-EDE3-C
0590: 54 52 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a TR -padding 0 \.
05a0: 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 .. -key [binary
05b0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 decode hex 01234
05c0: 35 36 37 38 39 61 62 63 64 65 66 32 33 34 35 36 56789abcdef23456
05d0: 37 38 39 61 62 63 64 65 66 30 31 30 31 32 33 34 789abcdef0101234
05e0: 35 36 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 56789abcdef] \..
05f0: 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 20 64 65 . -iv [binary de
0600: 63 6f 64 65 20 68 65 78 20 66 36 39 66 32 34 34 code hex f69f244
0610: 35 64 66 34 66 39 62 31 37 5d 20 5c 0a 09 09 20 5df4f9b17] \...
0620: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
0630: 63 6f 64 65 20 68 65 78 20 36 62 63 31 62 65 65 code hex 6bc1bee
0640: 32 32 65 34 30 39 66 39 36 65 39 33 64 37 65 31 22e409f96e93d7e1
0650: 31 37 33 39 33 31 37 32 61 61 65 32 64 38 61 35 17393172aae2d8a5
0660: 37 31 65 30 33 61 63 39 63 39 65 62 37 36 66 61 71e03ac9c9eb76fa
0670: 63 34 35 61 66 38 65 35 31 5d 5d 7d 20 5c 0a 09 c45af8e51]]} \..
0680: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0690: 73 75 6c 74 20 36 31 39 35 62 39 63 32 63 33 39 sult 6195b9c2c39
06a0: 39 30 39 63 35 64 62 64 66 39 32 64 61 64 62 61 909c5dbdf92dadba
06b0: 64 35 61 35 64 31 35 36 38 34 38 32 62 66 32 35 d5a5d1568482bf25
06c0: 63 34 32 63 39 36 64 33 38 35 33 61 38 65 37 31 c42c96d3853a8e71
06d0: 62 30 31 30 65 0a 0a 74 63 6c 74 65 73 74 3a 3a b010e..tcltest::
06e0: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 45 test Block_DES-E
06f0: 44 45 33 2d 43 54 52 2d 31 2e 34 20 7b 44 65 63 DE3-CTR-1.4 {Dec
0700: 72 79 70 74 20 44 45 53 2d 45 44 45 33 2d 43 54 rypt DES-EDE3-CT
0710: 52 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e R} \..-constrain
0720: 74 73 20 44 45 53 5f 45 44 45 33 5f 43 54 52 20 ts DES_EDE3_CTR
0730: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
0740: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
0750: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 ::decrypt -ciphe
0760: 72 20 44 45 53 2d 45 44 45 33 2d 43 54 52 20 2d r DES-EDE3-CTR -
0770: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
0780: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
0790: 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 38 de hex 012345678
07a0: 39 61 62 63 64 65 66 32 33 34 35 36 37 38 39 61 9abcdef23456789a
07b0: 62 63 64 65 66 30 31 30 31 32 33 34 35 36 37 38 bcdef01012345678
07c0: 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 69 9abcdef] \... -i
07d0: 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 v [binary decode
07e0: 20 68 65 78 20 66 36 39 66 32 34 34 35 64 66 34 hex f69f2445df4
07f0: 66 39 62 31 37 5d 20 5c 0a 09 09 20 2d 64 61 74 f9b17] \... -dat
0800: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0810: 20 68 65 78 20 36 31 39 35 62 39 63 32 63 33 39 hex 6195b9c2c39
0820: 39 30 39 63 35 64 62 64 66 39 32 64 61 64 62 61 909c5dbdf92dadba
0830: 64 35 61 35 64 31 35 36 38 34 38 32 62 66 32 35 d5a5d1568482bf25
0840: 63 34 32 63 39 36 64 33 38 35 33 61 38 65 37 31 c42c96d3853a8e71
0850: 62 30 31 30 65 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 b010e]]} \..-mat
0860: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0870: 20 36 62 63 31 62 65 65 32 32 65 34 30 39 66 39 6bc1bee22e409f9
0880: 36 65 39 33 64 37 65 31 31 37 33 39 33 31 37 32 6e93d7e117393172
0890: 61 61 65 32 64 38 61 35 37 31 65 30 33 61 63 39 aae2d8a571e03ac9
08a0: 63 39 65 62 37 36 66 61 63 34 35 61 66 38 65 35 c9eb76fac45af8e5
08b0: 31 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 1..# Cleanup.::t
08c0: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 cltest::cleanupT
08d0: 65 73 74 73 0a 72 65 74 75 72 6e 0a ests.return.