Artifact
f8976db99ba95c9dccba4b4bb9fc89790ab7e6464756880c15e0ca83885345e2:
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 42 6c 6f 63 6b 5f 44 45 53 2d 45 test Block_DES-E
0150: 44 45 33 2d 31 2e 31 20 7b 45 6e 63 72 79 70 74 DE3-1.1 {Encrypt
0160: 20 44 45 53 2d 45 44 45 33 7d 20 5c 0a 09 2d 63 DES-EDE3} \..-c
0170: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 onstraints DES_E
0180: 44 45 33 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DE3 \..-body {bi
0190: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
01a0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
01b0: 69 70 68 65 72 20 44 45 53 2d 45 44 45 33 20 2d ipher DES-EDE3 -
01c0: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
01d0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
01e0: 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 38 de hex 012345678
01f0: 39 61 62 63 64 65 66 32 33 34 35 36 37 38 39 61 9abcdef23456789a
0200: 62 63 64 65 66 30 31 34 35 36 37 38 39 61 62 63 bcdef01456789abc
0210: 64 65 66 30 31 32 33 5d 20 5c 0a 09 09 20 2d 64 def0123] \... -d
0220: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
0230: 64 65 20 68 65 78 20 36 62 63 31 62 65 65 32 32 de hex 6bc1bee22
0240: 65 34 30 39 66 39 36 65 39 33 64 37 65 31 31 37 e409f96e93d7e117
0250: 33 39 33 31 37 32 61 61 65 32 64 38 61 35 37 31 393172aae2d8a571
0260: 65 30 33 61 63 39 63 39 65 62 37 36 66 61 63 34 e03ac9c9eb76fac4
0270: 35 61 66 38 65 35 31 5d 5d 7d 20 5c 0a 09 2d 6d 5af8e51]]} \..-m
0280: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0290: 6c 74 20 37 31 34 37 37 32 66 33 33 39 38 34 31 lt 714772f339841
02a0: 64 33 34 32 36 37 66 63 63 34 62 64 32 39 34 39 d34267fcc4bd2949
02b0: 63 63 33 65 65 31 31 63 32 32 61 35 37 36 61 33 cc3ee11c22a576a3
02c0: 30 33 38 37 36 31 38 33 66 39 39 63 30 62 36 64 03876183f99c0b6d
02d0: 65 38 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 e87..tcltest::te
02e0: 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 st Block_DES-EDE
02f0: 33 2d 31 2e 32 20 7b 44 65 63 72 79 70 74 20 44 3-1.2 {Decrypt D
0300: 45 53 2d 45 44 45 33 7d 20 5c 0a 09 2d 63 6f 6e ES-EDE3} \..-con
0310: 73 74 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 straints DES_EDE
0320: 33 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 3 \..-body {bina
0330: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
0340: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
0350: 68 65 72 20 44 45 53 2d 45 44 45 33 20 2d 70 61 her DES-EDE3 -pa
0360: 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 dding 0 \... -ke
0370: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
0380: 20 68 65 78 20 30 31 32 33 34 35 36 37 38 39 61 hex 0123456789a
0390: 62 63 64 65 66 32 33 34 35 36 37 38 39 61 62 63 bcdef23456789abc
03a0: 64 65 66 30 31 34 35 36 37 38 39 61 62 63 64 65 def01456789abcde
03b0: 66 30 31 32 33 5d 20 5c 0a 09 09 20 2d 64 61 74 f0123] \... -dat
03c0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
03d0: 20 68 65 78 20 37 31 34 37 37 32 66 33 33 39 38 hex 714772f3398
03e0: 34 31 64 33 34 32 36 37 66 63 63 34 62 64 32 39 41d34267fcc4bd29
03f0: 34 39 63 63 33 65 65 31 31 63 32 32 61 35 37 36 49cc3ee11c22a576
0400: 61 33 30 33 38 37 36 31 38 33 66 39 39 63 30 62 a303876183f99c0b
0410: 36 64 65 38 37 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 6de87]]} \..-mat
0420: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0430: 20 36 62 63 31 62 65 65 32 32 65 34 30 39 66 39 6bc1bee22e409f9
0440: 36 65 39 33 64 37 65 31 31 37 33 39 33 31 37 32 6e93d7e117393172
0450: 61 61 65 32 64 38 61 35 37 31 65 30 33 61 63 39 aae2d8a571e03ac9
0460: 63 39 65 62 37 36 66 61 63 34 35 61 66 38 65 35 c9eb76fac45af8e5
0470: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 1..tcltest::test
0480: 20 42 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d Block_DES-EDE3-
0490: 31 2e 33 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.3 {Encrypt DES
04a0: 2d 45 44 45 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 -EDE3} \..-const
04b0: 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 33 20 raints DES_EDE3
04c0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
04d0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
04e0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
04f0: 72 20 44 45 53 2d 45 44 45 33 20 2d 70 61 64 64 r DES-EDE3 -padd
0500: 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 ing 0 \... -key
0510: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0520: 65 78 20 30 31 32 33 34 35 36 37 38 39 61 62 63 ex 0123456789abc
0530: 64 65 66 32 33 34 35 36 37 38 39 61 62 63 64 65 def23456789abcde
0540: 66 30 31 30 31 32 33 34 35 36 37 38 39 61 62 63 f010123456789abc
0550: 64 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 def] \... -data
0560: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0570: 65 78 20 36 62 63 31 62 65 65 32 32 65 34 30 39 ex 6bc1bee22e409
0580: 66 39 36 65 39 33 64 37 65 31 31 37 33 39 33 31 f96e93d7e1173931
0590: 37 32 61 61 65 32 64 38 61 35 37 31 65 30 33 61 72aae2d8a571e03a
05a0: 63 39 63 39 65 62 37 36 66 61 63 34 35 61 66 38 c9c9eb76fac45af8
05b0: 65 35 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 e51]]} \..-match
05c0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 exact -result 0
05d0: 36 65 64 65 33 64 38 32 38 38 34 30 39 30 61 66 6ede3d82884090af
05e0: 66 33 32 32 63 31 39 66 30 35 31 38 34 38 36 37 f322c19f05184867
05f0: 33 30 35 37 36 39 37 32 61 36 36 36 65 35 38 62 30576972a666e58b
0600: 36 63 38 38 63 66 31 30 37 33 34 30 64 33 64 0a 6c88cf107340d3d.
0610: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
0620: 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d 31 2e lock_DES-EDE3-1.
0630: 34 20 7b 44 65 63 72 79 70 74 20 44 45 53 2d 45 4 {Decrypt DES-E
0640: 44 45 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 DE3} \..-constra
0650: 69 6e 74 73 20 44 45 53 5f 45 44 45 33 20 5c 0a ints DES_EDE3 \.
0660: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
0670: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
0680: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
0690: 44 45 53 2d 45 44 45 33 20 2d 70 61 64 64 69 6e DES-EDE3 -paddin
06a0: 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 g 0 \... -key [b
06b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
06c0: 20 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 0123456789abcde
06d0: 66 32 33 34 35 36 37 38 39 61 62 63 64 65 66 30 f23456789abcdef0
06e0: 31 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 10123456789abcde
06f0: 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 f] \... -data [b
0700: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0710: 20 30 36 65 64 65 33 64 38 32 38 38 34 30 39 30 06ede3d82884090
0720: 61 66 66 33 32 32 63 31 39 66 30 35 31 38 34 38 aff322c19f051848
0730: 36 37 33 30 35 37 36 39 37 32 61 36 36 36 65 35 6730576972a666e5
0740: 38 62 36 63 38 38 63 66 31 30 37 33 34 30 64 33 8b6c88cf107340d3
0750: 64 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 d]]} \..-match e
0760: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 62 63 xact -result 6bc
0770: 31 62 65 65 32 32 65 34 30 39 66 39 36 65 39 33 1bee22e409f96e93
0780: 64 37 65 31 31 37 33 39 33 31 37 32 61 61 65 32 d7e117393172aae2
0790: 64 38 61 35 37 31 65 30 33 61 63 39 63 39 65 62 d8a571e03ac9c9eb
07a0: 37 36 66 61 63 34 35 61 66 38 65 35 31 0a 0a 23 76fac45af8e51..#
07b0: 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 Cleanup.::tclte
07c0: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
07d0: 0a 72 65 74 75 72 6e 0a .return.