Artifact
e4ecada07317539cdd3eba1117e42596b661ce52b76c3c02e2ffaf45e98ea526:
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 2e from "DES-EDE3.
0020: 74 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 txt".lappend aut
0030: 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 o_path [file dir
0040: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0050: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0060: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0070: 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 file join [pwd]
0080: 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d [info script]]]]
0090: 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ]].package requi
00a0: 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 re tls.package r
00b0: 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a equire tcltest..
00c0: 63 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 catch {tls::prov
00d0: 69 64 65 72 20 6c 65 67 61 63 79 7d 0a 74 63 6c ider legacy}.tcl
00e0: 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 test::testConstr
00f0: 61 69 6e 74 20 44 45 53 5f 45 44 45 33 20 5b 65 aint DES_EDE3 [e
0100: 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e xpr {[lsearch -n
0110: 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 68 ocase [tls::ciph
0120: 65 72 73 5d 20 44 45 53 2d 45 44 45 33 5d 20 3e ers] DES-EDE3] >
0130: 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a -1}]..tcltest::
0140: 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c test Symetric_Bl
0150: 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d 31 2e 31 ock_DES-EDE3-1.1
0160: 20 7b 45 6e 63 72 79 70 74 20 44 45 53 2d 45 44 {Encrypt DES-ED
0170: 45 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 E3} \..-constrai
0180: 6e 74 73 20 44 45 53 5f 45 44 45 33 20 5c 0a 09 nts DES_EDE3 \..
0190: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
01a0: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 code hex [tls::e
01b0: 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ncrypt -cipher D
01c0: 45 53 2d 45 44 45 33 20 2d 70 61 64 64 69 6e 67 ES-EDE3 -padding
01d0: 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 0 \... -key [bi
01e0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
01f0: 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 0123456789abcdef
0200: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 30 31 23456789abcdef01
0210: 34 35 36 37 38 39 61 62 63 64 65 66 30 31 32 33 456789abcdef0123
0220: 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 ] \... -data [bi
0230: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
0240: 36 62 63 31 62 65 65 32 32 65 34 30 39 66 39 36 6bc1bee22e409f96
0250: 65 39 33 64 37 65 31 31 37 33 39 33 31 37 32 61 e93d7e117393172a
0260: 61 65 32 64 38 61 35 37 31 65 30 33 61 63 39 63 ae2d8a571e03ac9c
0270: 39 65 62 37 36 66 61 63 34 35 61 66 38 65 35 31 9eb76fac45af8e51
0280: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
0290: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 31 34 37 act -result 7147
02a0: 37 32 66 33 33 39 38 34 31 64 33 34 32 36 37 66 72f339841d34267f
02b0: 63 63 34 62 64 32 39 34 39 63 63 33 65 65 31 31 cc4bd2949cc3ee11
02c0: 63 32 32 61 35 37 36 61 33 30 33 38 37 36 31 38 c22a576a30387618
02d0: 33 66 39 39 63 30 62 36 64 65 38 37 0a 0a 74 63 3f99c0b6de87..tc
02e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 ltest::test Syme
02f0: 74 72 69 63 5f 42 6c 6f 63 6b 5f 44 45 53 2d 45 tric_Block_DES-E
0300: 44 45 33 2d 31 2e 32 20 7b 44 65 63 72 79 70 74 DE3-1.2 {Decrypt
0310: 20 44 45 53 2d 45 44 45 33 7d 20 5c 0a 09 2d 63 DES-EDE3} \..-c
0320: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 onstraints DES_E
0330: 44 45 33 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DE3 \..-body {bi
0340: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
0350: 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 [tls::decrypt -c
0360: 69 70 68 65 72 20 44 45 53 2d 45 44 45 33 20 2d ipher DES-EDE3 -
0370: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
0380: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
0390: 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 38 de hex 012345678
03a0: 39 61 62 63 64 65 66 32 33 34 35 36 37 38 39 61 9abcdef23456789a
03b0: 62 63 64 65 66 30 31 34 35 36 37 38 39 61 62 63 bcdef01456789abc
03c0: 64 65 66 30 31 32 33 5d 20 5c 0a 09 09 20 2d 64 def0123] \... -d
03d0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
03e0: 64 65 20 68 65 78 20 37 31 34 37 37 32 66 33 33 de hex 714772f33
03f0: 39 38 34 31 64 33 34 32 36 37 66 63 63 34 62 64 9841d34267fcc4bd
0400: 32 39 34 39 63 63 33 65 65 31 31 63 32 32 61 35 2949cc3ee11c22a5
0410: 37 36 61 33 30 33 38 37 36 31 38 33 66 39 39 63 76a303876183f99c
0420: 30 62 36 64 65 38 37 5d 5d 7d 20 5c 0a 09 2d 6d 0b6de87]]} \..-m
0430: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0440: 6c 74 20 36 62 63 31 62 65 65 32 32 65 34 30 39 lt 6bc1bee22e409
0450: 66 39 36 65 39 33 64 37 65 31 31 37 33 39 33 31 f96e93d7e1173931
0460: 37 32 61 61 65 32 64 38 61 35 37 31 65 30 33 61 72aae2d8a571e03a
0470: 63 39 63 39 65 62 37 36 66 61 63 34 35 61 66 38 c9c9eb76fac45af8
0480: 65 35 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 e51..tcltest::te
0490: 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 st Symetric_Bloc
04a0: 6b 5f 44 45 53 2d 45 44 45 33 2d 31 2e 33 20 7b k_DES-EDE3-1.3 {
04b0: 45 6e 63 72 79 70 74 20 44 45 53 2d 45 44 45 33 Encrypt DES-EDE3
04c0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
04d0: 73 20 44 45 53 5f 45 44 45 33 20 5c 0a 09 2d 62 s DES_EDE3 \..-b
04e0: 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f ody {binary enco
04f0: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 de hex [tls::enc
0500: 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 rypt -cipher DES
0510: 2d 45 44 45 33 20 2d 70 61 64 64 69 6e 67 20 30 -EDE3 -padding 0
0520: 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 \... -key [bina
0530: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
0540: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 32 33 23456789abcdef23
0550: 34 35 36 37 38 39 61 62 63 64 65 66 30 31 30 31 456789abcdef0101
0560: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 5d 20 23456789abcdef]
0570: 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 \... -data [bina
0580: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 62 ry decode hex 6b
0590: 63 31 62 65 65 32 32 65 34 30 39 66 39 36 65 39 c1bee22e409f96e9
05a0: 33 64 37 65 31 31 37 33 39 33 31 37 32 61 61 65 3d7e117393172aae
05b0: 32 64 38 61 35 37 31 65 30 33 61 63 39 63 39 65 2d8a571e03ac9c9e
05c0: 62 37 36 66 61 63 34 35 61 66 38 65 35 31 5d 5d b76fac45af8e51]]
05d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
05e0: 74 20 2d 72 65 73 75 6c 74 20 30 36 65 64 65 33 t -result 06ede3
05f0: 64 38 32 38 38 34 30 39 30 61 66 66 33 32 32 63 d82884090aff322c
0600: 31 39 66 30 35 31 38 34 38 36 37 33 30 35 37 36 19f0518486730576
0610: 39 37 32 61 36 36 36 65 35 38 62 36 63 38 38 63 972a666e58b6c88c
0620: 66 31 30 37 33 34 30 64 33 64 0a 0a 74 63 6c 74 f107340d3d..tclt
0630: 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 est::test Symetr
0640: 69 63 5f 42 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 ic_Block_DES-EDE
0650: 33 2d 31 2e 34 20 7b 44 65 63 72 79 70 74 20 44 3-1.4 {Decrypt D
0660: 45 53 2d 45 44 45 33 7d 20 5c 0a 09 2d 63 6f 6e ES-EDE3} \..-con
0670: 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 straints DES_EDE
0680: 33 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 3 \..-body {bina
0690: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
06a0: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
06b0: 68 65 72 20 44 45 53 2d 45 44 45 33 20 2d 70 61 her DES-EDE3 -pa
06c0: 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 dding 0 \... -ke
06d0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
06e0: 20 68 65 78 20 30 31 32 33 34 35 36 37 38 39 61 hex 0123456789a
06f0: 62 63 64 65 66 32 33 34 35 36 37 38 39 61 62 63 bcdef23456789abc
0700: 64 65 66 30 31 30 31 32 33 34 35 36 37 38 39 61 def010123456789a
0710: 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 bcdef] \... -dat
0720: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0730: 20 68 65 78 20 30 36 65 64 65 33 64 38 32 38 38 hex 06ede3d8288
0740: 34 30 39 30 61 66 66 33 32 32 63 31 39 66 30 35 4090aff322c19f05
0750: 31 38 34 38 36 37 33 30 35 37 36 39 37 32 61 36 18486730576972a6
0760: 36 36 65 35 38 62 36 63 38 38 63 66 31 30 37 33 66e58b6c88cf1073
0770: 34 30 64 33 64 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 40d3d]]} \..-mat
0780: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0790: 20 36 62 63 31 62 65 65 32 32 65 34 30 39 66 39 6bc1bee22e409f9
07a0: 36 65 39 33 64 37 65 31 31 37 33 39 33 31 37 32 6e93d7e117393172
07b0: 61 61 65 32 64 38 61 35 37 31 65 30 33 61 63 39 aae2d8a571e03ac9
07c0: 63 39 65 62 37 36 66 61 63 34 35 61 66 38 65 35 c9eb76fac45af8e5
07d0: 31 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 1..# Cleanup.::t
07e0: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 cltest::cleanupT
07f0: 65 73 74 73 0a 72 65 74 75 72 6e 0a ests.return.