Artifact
862208e8573c8d2a34f41ea0955622317fb5ff96f7a68bd3246630f5fc5f3d4f:
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 2e 74 78 74 22 0a from "DES.txt".
0020: 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 74 lappend auto_pat
0030: 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 h [file dirname
0040: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
0050: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c ile dirname [fil
0060: 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 e dirname [file
0070: 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f join [pwd] [info
0080: 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 script]]]]]].pa
0090: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c ckage require tl
00a0: 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 s.package requir
00b0: 65 20 74 63 6c 74 65 73 74 0a 0a 63 61 74 63 68 e tcltest..catch
00c0: 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20 {tls::provider
00d0: 6c 65 67 61 63 79 7d 0a 74 63 6c 74 65 73 74 3a legacy}.tcltest:
00e0: 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20 :testConstraint
00f0: 44 45 53 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 DES [expr {[lsea
0100: 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73 rch -nocase [tls
0110: 3a 3a 63 69 70 68 65 72 73 5d 20 44 45 53 5d 20 ::ciphers] DES]
0120: 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a > -1}]..tcltest:
0130: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
0140: 31 2e 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.1 {Encrypt DES
0150: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0160: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
0170: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
0180: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
0190: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
01a0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
01b0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
01c0: 65 78 20 31 30 33 31 36 45 30 32 38 43 38 46 33 ex 10316E028C8F3
01d0: 42 34 41 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b B4A] \...-data [
01e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
01f0: 78 20 30 30 30 30 30 30 30 30 30 30 30 30 30 30 x 00000000000000
0200: 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 00]]} \..-match
0210: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 32 exact -result 82
0220: 64 63 62 61 66 62 64 65 61 62 36 36 30 32 0a 0a dcbafbdeab6602..
0230: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
0240: 6f 63 6b 5f 44 45 53 2d 31 2e 32 20 7b 44 65 63 ock_DES-1.2 {Dec
0250: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
0260: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
0270: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
0280: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
0290: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
02a0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
02b0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
02c0: 64 65 63 6f 64 65 20 68 65 78 20 31 30 33 31 36 decode hex 10316
02d0: 45 30 32 38 43 38 46 33 42 34 41 5d 20 5c 0a 09 E028C8F3B4A] \..
02e0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
02f0: 65 63 6f 64 65 20 68 65 78 20 38 32 44 43 42 41 ecode hex 82DCBA
0300: 46 42 44 45 41 42 36 36 30 32 5d 5d 7d 20 5c 0a FBDEAB6602]]} \.
0310: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0320: 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 esult 0000000000
0330: 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 000000..tcltest:
0340: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
0350: 31 2e 33 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.3 {Encrypt DES
0360: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0370: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
0380: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
0390: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
03a0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
03b0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
03c0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
03d0: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
03e0: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
03f0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0400: 78 20 39 35 46 38 41 35 45 35 44 44 33 31 44 39 x 95F8A5E5DD31D9
0410: 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 00]]} \..-match
0420: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 30 exact -result 80
0430: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 00000000000000..
0440: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
0450: 6f 63 6b 5f 44 45 53 2d 31 2e 34 20 7b 44 65 63 ock_DES-1.4 {Dec
0460: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
0470: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
0480: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
0490: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
04a0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
04b0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
04c0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
04d0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
04e0: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
04f0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
0500: 65 63 6f 64 65 20 68 65 78 20 38 30 30 30 30 30 ecode hex 800000
0510: 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 0000000000]]} \.
0520: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0530: 65 73 75 6c 74 20 39 35 66 38 61 35 65 35 64 64 esult 95f8a5e5dd
0540: 33 31 64 39 30 30 0a 0a 74 63 6c 74 65 73 74 3a 31d900..tcltest:
0550: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
0560: 31 2e 35 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.5 {Encrypt DES
0570: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0580: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
0590: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
05a0: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
05b0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
05c0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
05d0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
05e0: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
05f0: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
0600: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0610: 78 20 44 44 37 46 31 32 31 43 41 35 30 31 35 36 x DD7F121CA50156
0620: 31 39 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 19]]} \..-match
0630: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 30 exact -result 40
0640: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 00000000000000..
0650: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
0660: 6f 63 6b 5f 44 45 53 2d 31 2e 36 20 7b 44 65 63 ock_DES-1.6 {Dec
0670: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
0680: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
0690: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
06a0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
06b0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
06c0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
06d0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
06e0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
06f0: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
0700: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
0710: 65 63 6f 64 65 20 68 65 78 20 34 30 30 30 30 30 ecode hex 400000
0720: 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 0000000000]]} \.
0730: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0740: 65 73 75 6c 74 20 64 64 37 66 31 32 31 63 61 35 esult dd7f121ca5
0750: 30 31 35 36 31 39 0a 0a 74 63 6c 74 65 73 74 3a 015619..tcltest:
0760: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
0770: 31 2e 37 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.7 {Encrypt DES
0780: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0790: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
07a0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
07b0: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
07c0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
07d0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
07e0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
07f0: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
0800: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
0810: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0820: 78 20 32 45 38 36 35 33 31 30 34 46 33 38 33 34 x 2E8653104F3834
0830: 45 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 EA]]} \..-match
0840: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 30 exact -result 20
0850: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 00000000000000..
0860: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
0870: 6f 63 6b 5f 44 45 53 2d 31 2e 38 20 7b 44 65 63 ock_DES-1.8 {Dec
0880: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
0890: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
08a0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
08b0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
08c0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
08d0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
08e0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
08f0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
0900: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
0910: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
0920: 65 63 6f 64 65 20 68 65 78 20 32 30 30 30 30 30 ecode hex 200000
0930: 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 0000000000]]} \.
0940: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0950: 65 73 75 6c 74 20 32 65 38 36 35 33 31 30 34 66 esult 2e8653104f
0960: 33 38 33 34 65 61 0a 0a 74 63 6c 74 65 73 74 3a 3834ea..tcltest:
0970: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
0980: 31 2e 39 20 7b 45 6e 63 72 79 70 74 20 44 45 53 1.9 {Encrypt DES
0990: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
09a0: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
09b0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
09c0: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
09d0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
09e0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
09f0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0a00: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
0a10: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
0a20: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0a30: 78 20 34 42 44 33 38 38 46 46 36 43 44 38 31 44 x 4BD388FF6CD81D
0a40: 34 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 4F]]} \..-match
0a50: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 30 exact -result 10
0a60: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 00000000000000..
0a70: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
0a80: 6f 63 6b 5f 44 45 53 2d 31 2e 31 30 20 7b 44 65 ock_DES-1.10 {De
0a90: 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 crypt DES} \..-c
0aa0: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c onstraints DES \
0ab0: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
0ac0: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
0ad0: 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 :decrypt -cipher
0ae0: 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 DES -padding 0
0af0: 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 \...-key [binary
0b00: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 decode hex 0101
0b10: 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 010101010101] \.
0b20: 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ..-data [binary
0b30: 64 65 63 6f 64 65 20 68 65 78 20 31 30 30 30 30 decode hex 10000
0b40: 30 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 00000000000]]} \
0b50: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0b60: 72 65 73 75 6c 74 20 34 62 64 33 38 38 66 66 36 result 4bd388ff6
0b70: 63 64 38 31 64 34 66 0a 0a 74 63 6c 74 65 73 74 cd81d4f..tcltest
0b80: 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 ::test Block_DES
0b90: 2d 31 2e 31 31 20 7b 45 6e 63 72 79 70 74 20 44 -1.11 {Encrypt D
0ba0: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
0bb0: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
0bc0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
0bd0: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
0be0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
0bf0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
0c00: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
0c10: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
0c20: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
0c30: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
0c40: 68 65 78 20 32 30 42 39 45 37 36 37 42 32 46 42 hex 20B9E767B2FB
0c50: 31 34 35 36 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 1456]]} \..-matc
0c60: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0c70: 30 38 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0800000000000000
0c80: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0c90: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 32 20 7b Block_DES-1.12 {
0ca0: 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 Decrypt DES} \..
0cb0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
0cc0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
0cd0: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
0ce0: 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 s::decrypt -ciph
0cf0: 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 er DES -padding
0d00: 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 0 \...-key [bina
0d10: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
0d20: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 01010101010101]
0d30: 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 \...-data [binar
0d40: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 38 30 y decode hex 080
0d50: 30 30 30 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 0000000000000]]}
0d60: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0d70: 20 2d 72 65 73 75 6c 74 20 32 30 62 39 65 37 36 -result 20b9e76
0d80: 37 62 32 66 62 31 34 35 36 0a 0a 74 63 6c 74 65 7b2fb1456..tclte
0d90: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
0da0: 45 53 2d 31 2e 31 33 20 7b 45 6e 63 72 79 70 74 ES-1.13 {Encrypt
0db0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
0dc0: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
0dd0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
0de0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 e hex [tls::encr
0df0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
0e00: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
0e10: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
0e20: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
0e30: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
0e40: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
0e50: 65 20 68 65 78 20 35 35 35 37 39 33 38 30 44 37 e hex 55579380D7
0e60: 37 31 33 38 45 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 7138EF]]} \..-ma
0e70: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0e80: 74 20 30 34 30 30 30 30 30 30 30 30 30 30 30 30 t 04000000000000
0e90: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 00..tcltest::tes
0ea0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 34 t Block_DES-1.14
0eb0: 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c {Decrypt DES} \
0ec0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
0ed0: 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ES \..-body {bin
0ee0: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
0ef0: 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 tls::decrypt -ci
0f00: 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e pher DES -paddin
0f10: 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 g 0 \...-key [bi
0f20: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
0f30: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 0101010101010101
0f40: 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e ] \...-data [bin
0f50: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
0f60: 34 30 30 30 30 30 30 30 30 30 30 30 30 30 30 5d 400000000000000]
0f70: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
0f80: 63 74 20 2d 72 65 73 75 6c 74 20 35 35 35 37 39 ct -result 55579
0f90: 33 38 30 64 37 37 31 33 38 65 66 0a 0a 74 63 6c 380d77138ef..tcl
0fa0: 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b test::test Block
0fb0: 5f 44 45 53 2d 31 2e 31 35 20 7b 45 6e 63 72 79 _DES-1.15 {Encry
0fc0: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
0fd0: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
0fe0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
0ff0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
1000: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
1010: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
1020: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
1030: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
1040: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
1050: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
1060: 6f 64 65 20 68 65 78 20 36 43 43 35 44 45 46 41 ode hex 6CC5DEFA
1070: 41 46 30 34 35 31 32 46 5d 5d 7d 20 5c 0a 09 2d AF04512F]]} \..-
1080: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
1090: 75 6c 74 20 30 32 30 30 30 30 30 30 30 30 30 30 ult 020000000000
10a0: 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0000..tcltest::t
10b0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
10c0: 31 36 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 16 {Decrypt DES}
10d0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
10e0: 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES \..-body {b
10f0: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
1100: 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d [tls::decrypt -
1110: 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 cipher DES -padd
1120: 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b ing 0 \...-key [
1130: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
1140: 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 x 01010101010101
1150: 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 01] \...-data [b
1160: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
1170: 20 30 32 30 30 30 30 30 30 30 30 30 30 30 30 30 020000000000000
1180: 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 0]]} \..-match e
1190: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 63 63 xact -result 6cc
11a0: 35 64 65 66 61 61 66 30 34 35 31 32 66 0a 0a 74 5defaaf04512f..t
11b0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
11c0: 63 6b 5f 44 45 53 2d 31 2e 31 37 20 7b 45 6e 63 ck_DES-1.17 {Enc
11d0: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
11e0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
11f0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
1200: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
1210: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
1220: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
1230: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
1240: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
1250: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
1260: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
1270: 65 63 6f 64 65 20 68 65 78 20 30 44 39 46 32 37 ecode hex 0D9F27
1280: 39 42 41 35 44 38 37 32 36 30 5d 5d 7d 20 5c 0a 9BA5D87260]]} \.
1290: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
12a0: 65 73 75 6c 74 20 30 31 30 30 30 30 30 30 30 30 esult 0100000000
12b0: 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 000000..tcltest:
12c0: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
12d0: 31 2e 31 38 20 7b 44 65 63 72 79 70 74 20 44 45 1.18 {Decrypt DE
12e0: 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e S} \..-constrain
12f0: 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 ts DES \..-body
1300: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
1310: 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 ex [tls::decrypt
1320: 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 -cipher DES -pa
1330: 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 dding 0 \...-key
1340: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
1350: 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 hex 010101010101
1360: 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 0101] \...-data
1370: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
1380: 65 78 20 30 31 30 30 30 30 30 30 30 30 30 30 30 ex 0100000000000
1390: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 000]]} \..-match
13a0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 exact -result 0
13b0: 64 39 66 32 37 39 62 61 35 64 38 37 32 36 30 0a d9f279ba5d87260.
13c0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
13d0: 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 39 20 7b 45 lock_DES-1.19 {E
13e0: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
13f0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
1400: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
1410: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
1420: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
1430: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
1440: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
1450: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
1460: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
1470: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
1480: 20 64 65 63 6f 64 65 20 68 65 78 20 44 39 30 33 decode hex D903
1490: 31 42 30 32 37 31 42 44 35 41 30 41 5d 5d 7d 20 1B0271BD5A0A]]}
14a0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
14b0: 2d 72 65 73 75 6c 74 20 30 30 38 30 30 30 30 30 -result 00800000
14c0: 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 00000000..tcltes
14d0: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
14e0: 53 2d 31 2e 32 30 20 7b 44 65 63 72 79 70 74 20 S-1.20 {Decrypt
14f0: 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 DES} \..-constra
1500: 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 ints DES \..-bod
1510: 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 y {binary encode
1520: 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 hex [tls::decry
1530: 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d pt -cipher DES -
1540: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b padding 0 \...-k
1550: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
1560: 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 e hex 0101010101
1570: 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 010101] \...-dat
1580: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
1590: 20 68 65 78 20 30 30 38 30 30 30 30 30 30 30 30 hex 00800000000
15a0: 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 00000]]} \..-mat
15b0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
15c0: 20 64 39 30 33 31 62 30 32 37 31 62 64 35 61 30 d9031b0271bd5a0
15d0: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 a..tcltest::test
15e0: 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 32 31 20 Block_DES-1.21
15f0: 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Encrypt DES} \.
1600: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
1610: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
1620: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
1630: 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 ls::encrypt -cip
1640: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
1650: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
1660: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
1670: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
1680: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
1690: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 32 ry decode hex 42
16a0: 34 32 35 30 42 33 37 43 33 44 44 39 35 31 5d 5d 4250B37C3DD951]]
16b0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
16c0: 74 20 2d 72 65 73 75 6c 74 20 30 30 34 30 30 30 t -result 004000
16d0: 30 30 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 0000000000..tclt
16e0: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
16f0: 44 45 53 2d 31 2e 32 32 20 7b 44 65 63 72 79 70 DES-1.22 {Decryp
1700: 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 t DES} \..-const
1710: 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 raints DES \..-b
1720: 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f ody {binary enco
1730: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 de hex [tls::dec
1740: 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 rypt -cipher DES
1750: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
1760: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
1770: 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 ode hex 01010101
1780: 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 01010101] \...-d
1790: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
17a0: 64 65 20 68 65 78 20 30 30 34 30 30 30 30 30 30 de hex 004000000
17b0: 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 0000000]]} \..-m
17c0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
17d0: 6c 74 20 34 32 34 32 35 30 62 33 37 63 33 64 64 lt 424250b37c3dd
17e0: 39 35 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 951..tcltest::te
17f0: 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 32 st Block_DES-1.2
1800: 33 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 3 {Encrypt DES}
1810: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
1820: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
1830: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
1840: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
1850: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
1860: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
1870: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
1880: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
1890: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
18a0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
18b0: 42 38 30 36 31 42 37 45 43 44 39 41 32 31 45 35 B8061B7ECD9A21E5
18c0: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
18d0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 32 30 act -result 0020
18e0: 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 74 63 000000000000..tc
18f0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
1900: 6b 5f 44 45 53 2d 31 2e 32 34 20 7b 44 65 63 72 k_DES-1.24 {Decr
1910: 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e ypt DES} \..-con
1920: 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 straints DES \..
1930: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
1940: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 code hex [tls::d
1950: 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ecrypt -cipher D
1960: 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a ES -padding 0 \.
1970: 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 ..-key [binary d
1980: 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 ecode hex 010101
1990: 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 0101010101] \...
19a0: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
19b0: 63 6f 64 65 20 68 65 78 20 30 30 32 30 30 30 30 code hex 0020000
19c0: 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 000000000]]} \..
19d0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
19e0: 73 75 6c 74 20 62 38 30 36 31 62 37 65 63 64 39 sult b8061b7ecd9
19f0: 61 32 31 65 35 0a 0a 74 63 6c 74 65 73 74 3a 3a a21e5..tcltest::
1a00: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 test Block_DES-1
1a10: 2e 32 35 20 7b 45 6e 63 72 79 70 74 20 44 45 53 .25 {Encrypt DES
1a20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
1a30: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
1a40: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
1a50: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
1a60: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
1a70: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
1a80: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
1a90: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
1aa0: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
1ab0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
1ac0: 78 20 46 31 35 44 30 46 32 38 36 42 36 35 42 44 x F15D0F286B65BD
1ad0: 32 38 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 28]]} \..-match
1ae0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 exact -result 00
1af0: 31 30 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 10000000000000..
1b00: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
1b10: 6f 63 6b 5f 44 45 53 2d 31 2e 32 36 20 7b 44 65 ock_DES-1.26 {De
1b20: 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 crypt DES} \..-c
1b30: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c onstraints DES \
1b40: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
1b50: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
1b60: 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 :decrypt -cipher
1b70: 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 DES -padding 0
1b80: 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 \...-key [binary
1b90: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 decode hex 0101
1ba0: 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 010101010101] \.
1bb0: 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ..-data [binary
1bc0: 64 65 63 6f 64 65 20 68 65 78 20 30 30 31 30 30 decode hex 00100
1bd0: 30 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 00000000000]]} \
1be0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
1bf0: 72 65 73 75 6c 74 20 66 31 35 64 30 66 32 38 36 result f15d0f286
1c00: 62 36 35 62 64 32 38 0a 0a 74 63 6c 74 65 73 74 b65bd28..tcltest
1c10: 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 ::test Block_DES
1c20: 2d 31 2e 32 37 20 7b 45 6e 63 72 79 70 74 20 44 -1.27 {Encrypt D
1c30: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
1c40: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
1c50: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
1c60: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
1c70: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
1c80: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
1c90: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
1ca0: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
1cb0: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
1cc0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
1cd0: 68 65 78 20 41 44 44 30 43 43 38 44 36 45 35 44 hex ADD0CC8D6E5D
1ce0: 45 42 41 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 EBA1]]} \..-matc
1cf0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
1d00: 30 30 30 38 30 30 30 30 30 30 30 30 30 30 30 30 0008000000000000
1d10: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
1d20: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 32 38 20 7b Block_DES-1.28 {
1d30: 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 Decrypt DES} \..
1d40: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
1d50: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
1d60: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
1d70: 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 s::decrypt -ciph
1d80: 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 er DES -padding
1d90: 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 0 \...-key [bina
1da0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
1db0: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 01010101010101]
1dc0: 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 \...-data [binar
1dd0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 y decode hex 000
1de0: 38 30 30 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 8000000000000]]}
1df0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
1e00: 20 2d 72 65 73 75 6c 74 20 61 64 64 30 63 63 38 -result add0cc8
1e10: 64 36 65 35 64 65 62 61 31 0a 0a 74 63 6c 74 65 d6e5deba1..tclte
1e20: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
1e30: 45 53 2d 31 2e 32 39 20 7b 45 6e 63 72 79 70 74 ES-1.29 {Encrypt
1e40: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
1e50: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
1e60: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
1e70: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 e hex [tls::encr
1e80: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
1e90: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
1ea0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
1eb0: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
1ec0: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
1ed0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
1ee0: 65 20 68 65 78 20 45 36 44 35 46 38 32 37 35 32 e hex E6D5F82752
1ef0: 41 44 36 33 44 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 AD63D1]]} \..-ma
1f00: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
1f10: 74 20 30 30 30 34 30 30 30 30 30 30 30 30 30 30 t 00040000000000
1f20: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 00..tcltest::tes
1f30: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 33 30 t Block_DES-1.30
1f40: 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c {Decrypt DES} \
1f50: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
1f60: 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ES \..-body {bin
1f70: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
1f80: 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 tls::decrypt -ci
1f90: 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e pher DES -paddin
1fa0: 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 g 0 \...-key [bi
1fb0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
1fc0: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 0101010101010101
1fd0: 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e ] \...-data [bin
1fe0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
1ff0: 30 30 34 30 30 30 30 30 30 30 30 30 30 30 30 5d 004000000000000]
2000: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
2010: 63 74 20 2d 72 65 73 75 6c 74 20 65 36 64 35 66 ct -result e6d5f
2020: 38 32 37 35 32 61 64 36 33 64 31 0a 0a 74 63 6c 82752ad63d1..tcl
2030: 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b test::test Block
2040: 5f 44 45 53 2d 31 2e 33 31 20 7b 45 6e 63 72 79 _DES-1.31 {Encry
2050: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
2060: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
2070: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
2080: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
2090: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
20a0: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
20b0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
20c0: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
20d0: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
20e0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
20f0: 6f 64 65 20 68 65 78 20 45 43 42 46 45 33 42 44 ode hex ECBFE3BD
2100: 33 46 35 39 31 41 35 45 5d 5d 7d 20 5c 0a 09 2d 3F591A5E]]} \..-
2110: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
2120: 75 6c 74 20 30 30 30 32 30 30 30 30 30 30 30 30 ult 000200000000
2130: 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0000..tcltest::t
2140: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
2150: 33 32 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 32 {Decrypt DES}
2160: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
2170: 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES \..-body {b
2180: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
2190: 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d [tls::decrypt -
21a0: 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 cipher DES -padd
21b0: 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b ing 0 \...-key [
21c0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
21d0: 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 x 01010101010101
21e0: 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 01] \...-data [b
21f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
2200: 20 30 30 30 32 30 30 30 30 30 30 30 30 30 30 30 000200000000000
2210: 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 0]]} \..-match e
2220: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 63 62 xact -result ecb
2230: 66 65 33 62 64 33 66 35 39 31 61 35 65 0a 0a 74 fe3bd3f591a5e..t
2240: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
2250: 63 6b 5f 44 45 53 2d 31 2e 33 33 20 7b 45 6e 63 ck_DES-1.33 {Enc
2260: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
2270: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
2280: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
2290: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
22a0: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
22b0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
22c0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
22d0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
22e0: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
22f0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
2300: 65 63 6f 64 65 20 68 65 78 20 46 33 35 36 38 33 ecode hex F35683
2310: 34 33 37 39 44 31 36 35 43 44 5d 5d 7d 20 5c 0a 4379D165CD]]} \.
2320: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
2330: 65 73 75 6c 74 20 30 30 30 31 30 30 30 30 30 30 esult 0001000000
2340: 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 000000..tcltest:
2350: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
2360: 31 2e 33 34 20 7b 44 65 63 72 79 70 74 20 44 45 1.34 {Decrypt DE
2370: 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e S} \..-constrain
2380: 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 ts DES \..-body
2390: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
23a0: 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 ex [tls::decrypt
23b0: 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 -cipher DES -pa
23c0: 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 dding 0 \...-key
23d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
23e0: 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 hex 010101010101
23f0: 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 0101] \...-data
2400: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
2410: 65 78 20 30 30 30 31 30 30 30 30 30 30 30 30 30 ex 0001000000000
2420: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 000]]} \..-match
2430: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 exact -result f
2440: 33 35 36 38 33 34 33 37 39 64 31 36 35 63 64 0a 356834379d165cd.
2450: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
2460: 6c 6f 63 6b 5f 44 45 53 2d 31 2e 33 35 20 7b 45 lock_DES-1.35 {E
2470: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
2480: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
2490: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
24a0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
24b0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
24c0: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
24d0: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
24e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
24f0: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
2500: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
2510: 20 64 65 63 6f 64 65 20 68 65 78 20 32 42 39 46 decode hex 2B9F
2520: 39 38 32 46 32 30 30 33 37 46 41 39 5d 5d 7d 20 982F20037FA9]]}
2530: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
2540: 2d 72 65 73 75 6c 74 20 30 30 30 30 38 30 30 30 -result 00008000
2550: 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 00000000..tcltes
2560: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
2570: 53 2d 31 2e 33 36 20 7b 44 65 63 72 79 70 74 20 S-1.36 {Decrypt
2580: 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 DES} \..-constra
2590: 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 ints DES \..-bod
25a0: 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 y {binary encode
25b0: 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 hex [tls::decry
25c0: 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d pt -cipher DES -
25d0: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b padding 0 \...-k
25e0: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
25f0: 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 e hex 0101010101
2600: 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 010101] \...-dat
2610: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
2620: 20 68 65 78 20 30 30 30 30 38 30 30 30 30 30 30 hex 00008000000
2630: 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 00000]]} \..-mat
2640: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
2650: 20 32 62 39 66 39 38 32 66 32 30 30 33 37 66 61 2b9f982f20037fa
2660: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 9..tcltest::test
2670: 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 33 37 20 Block_DES-1.37
2680: 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Encrypt DES} \.
2690: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
26a0: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
26b0: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
26c0: 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 ls::encrypt -cip
26d0: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
26e0: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
26f0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
2700: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
2710: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
2720: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 38 ry decode hex 88
2730: 39 44 45 30 36 38 41 31 36 46 30 42 45 36 5d 5d 9DE068A16F0BE6]]
2740: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
2750: 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 34 30 t -result 000040
2760: 30 30 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 0000000000..tclt
2770: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
2780: 44 45 53 2d 31 2e 33 38 20 7b 44 65 63 72 79 70 DES-1.38 {Decryp
2790: 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 t DES} \..-const
27a0: 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 raints DES \..-b
27b0: 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f ody {binary enco
27c0: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 de hex [tls::dec
27d0: 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 rypt -cipher DES
27e0: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
27f0: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
2800: 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 ode hex 01010101
2810: 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 01010101] \...-d
2820: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
2830: 64 65 20 68 65 78 20 30 30 30 30 34 30 30 30 30 de hex 000040000
2840: 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 0000000]]} \..-m
2850: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
2860: 6c 74 20 38 38 39 64 65 30 36 38 61 31 36 66 30 lt 889de068a16f0
2870: 62 65 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 be6..tcltest::te
2880: 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 33 st Block_DES-1.3
2890: 39 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 9 {Encrypt DES}
28a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
28b0: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
28c0: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
28d0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
28e0: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
28f0: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
2900: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
2910: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
2920: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
2930: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
2940: 45 31 39 45 32 37 35 44 38 34 36 41 31 32 39 38 E19E275D846A1298
2950: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
2960: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
2970: 32 30 30 30 30 30 30 30 30 30 30 30 0a 0a 74 63 200000000000..tc
2980: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
2990: 6b 5f 44 45 53 2d 31 2e 34 30 20 7b 44 65 63 72 k_DES-1.40 {Decr
29a0: 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e ypt DES} \..-con
29b0: 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 straints DES \..
29c0: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
29d0: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 code hex [tls::d
29e0: 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ecrypt -cipher D
29f0: 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a ES -padding 0 \.
2a00: 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 ..-key [binary d
2a10: 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 ecode hex 010101
2a20: 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 0101010101] \...
2a30: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
2a40: 63 6f 64 65 20 68 65 78 20 30 30 30 30 32 30 30 code hex 0000200
2a50: 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 000000000]]} \..
2a60: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
2a70: 73 75 6c 74 20 65 31 39 65 32 37 35 64 38 34 36 sult e19e275d846
2a80: 61 31 32 39 38 0a 0a 74 63 6c 74 65 73 74 3a 3a a1298..tcltest::
2a90: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 test Block_DES-1
2aa0: 2e 34 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 .41 {Encrypt DES
2ab0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
2ac0: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
2ad0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
2ae0: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
2af0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
2b00: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
2b10: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
2b20: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
2b30: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
2b40: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
2b50: 78 20 33 32 39 41 38 45 44 35 32 33 44 37 31 41 x 329A8ED523D71A
2b60: 45 43 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 EC]]} \..-match
2b70: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 exact -result 00
2b80: 30 30 31 30 30 30 30 30 30 30 30 30 30 30 0a 0a 00100000000000..
2b90: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
2ba0: 6f 63 6b 5f 44 45 53 2d 31 2e 34 32 20 7b 44 65 ock_DES-1.42 {De
2bb0: 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 crypt DES} \..-c
2bc0: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c onstraints DES \
2bd0: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
2be0: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
2bf0: 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 :decrypt -cipher
2c00: 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 DES -padding 0
2c10: 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 \...-key [binary
2c20: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 decode hex 0101
2c30: 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 010101010101] \.
2c40: 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ..-data [binary
2c50: 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 31 decode hex 00001
2c60: 30 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 00000000000]]} \
2c70: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
2c80: 72 65 73 75 6c 74 20 33 32 39 61 38 65 64 35 32 result 329a8ed52
2c90: 33 64 37 31 61 65 63 0a 0a 74 63 6c 74 65 73 74 3d71aec..tcltest
2ca0: 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 ::test Block_DES
2cb0: 2d 31 2e 34 33 20 7b 45 6e 63 72 79 70 74 20 44 -1.43 {Encrypt D
2cc0: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
2cd0: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
2ce0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
2cf0: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
2d00: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
2d10: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
2d20: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
2d30: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
2d40: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
2d50: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
2d60: 68 65 78 20 45 37 46 43 45 32 32 35 35 37 44 32 hex E7FCE22557D2
2d70: 33 43 39 37 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 3C97]]} \..-matc
2d80: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
2d90: 30 30 30 30 30 38 30 30 30 30 30 30 30 30 30 30 0000080000000000
2da0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
2db0: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 34 34 20 7b Block_DES-1.44 {
2dc0: 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 Decrypt DES} \..
2dd0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
2de0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
2df0: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
2e00: 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 s::decrypt -ciph
2e10: 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 er DES -padding
2e20: 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 0 \...-key [bina
2e30: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
2e40: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 01010101010101]
2e50: 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 \...-data [binar
2e60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 y decode hex 000
2e70: 30 30 38 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 0080000000000]]}
2e80: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
2e90: 20 2d 72 65 73 75 6c 74 20 65 37 66 63 65 32 32 -result e7fce22
2ea0: 35 35 37 64 32 33 63 39 37 0a 0a 74 63 6c 74 65 557d23c97..tclte
2eb0: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
2ec0: 45 53 2d 31 2e 34 35 20 7b 45 6e 63 72 79 70 74 ES-1.45 {Encrypt
2ed0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
2ee0: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
2ef0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
2f00: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 e hex [tls::encr
2f10: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
2f20: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
2f30: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
2f40: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
2f50: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
2f60: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
2f70: 65 20 68 65 78 20 31 32 41 39 46 35 38 31 37 46 e hex 12A9F5817F
2f80: 46 32 44 36 35 44 5d 5d 7d 20 5c 0a 09 2d 6d 61 F2D65D]]} \..-ma
2f90: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
2fa0: 74 20 30 30 30 30 30 34 30 30 30 30 30 30 30 30 t 00000400000000
2fb0: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 00..tcltest::tes
2fc0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 34 36 t Block_DES-1.46
2fd0: 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c {Decrypt DES} \
2fe0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
2ff0: 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ES \..-body {bin
3000: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
3010: 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 tls::decrypt -ci
3020: 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e pher DES -paddin
3030: 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 g 0 \...-key [bi
3040: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
3050: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 0101010101010101
3060: 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e ] \...-data [bin
3070: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
3080: 30 30 30 30 34 30 30 30 30 30 30 30 30 30 30 5d 000040000000000]
3090: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
30a0: 63 74 20 2d 72 65 73 75 6c 74 20 31 32 61 39 66 ct -result 12a9f
30b0: 35 38 31 37 66 66 32 64 36 35 64 0a 0a 74 63 6c 5817ff2d65d..tcl
30c0: 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b test::test Block
30d0: 5f 44 45 53 2d 31 2e 34 37 20 7b 45 6e 63 72 79 _DES-1.47 {Encry
30e0: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
30f0: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
3100: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
3110: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
3120: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
3130: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
3140: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
3150: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
3160: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
3170: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
3180: 6f 64 65 20 68 65 78 20 41 34 38 34 43 33 41 44 ode hex A484C3AD
3190: 33 38 44 43 39 43 31 39 5d 5d 7d 20 5c 0a 09 2d 38DC9C19]]} \..-
31a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
31b0: 75 6c 74 20 30 30 30 30 30 32 30 30 30 30 30 30 ult 000002000000
31c0: 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0000..tcltest::t
31d0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
31e0: 34 38 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 48 {Decrypt DES}
31f0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
3200: 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES \..-body {b
3210: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
3220: 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d [tls::decrypt -
3230: 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 cipher DES -padd
3240: 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b ing 0 \...-key [
3250: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
3260: 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 x 01010101010101
3270: 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 01] \...-data [b
3280: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
3290: 20 30 30 30 30 30 32 30 30 30 30 30 30 30 30 30 000002000000000
32a0: 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 0]]} \..-match e
32b0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 34 38 xact -result a48
32c0: 34 63 33 61 64 33 38 64 63 39 63 31 39 0a 0a 74 4c3ad38dc9c19..t
32d0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
32e0: 63 6b 5f 44 45 53 2d 31 2e 34 39 20 7b 45 6e 63 ck_DES-1.49 {Enc
32f0: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
3300: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
3310: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
3320: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
3330: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
3340: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
3350: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
3360: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
3370: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
3380: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
3390: 65 63 6f 64 65 20 68 65 78 20 46 42 45 30 30 41 ecode hex FBE00A
33a0: 38 41 31 45 46 38 41 44 37 32 5d 5d 7d 20 5c 0a 8A1EF8AD72]]} \.
33b0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
33c0: 65 73 75 6c 74 20 30 30 30 30 30 31 30 30 30 30 esult 0000010000
33d0: 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 000000..tcltest:
33e0: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
33f0: 31 2e 35 30 20 7b 44 65 63 72 79 70 74 20 44 45 1.50 {Decrypt DE
3400: 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e S} \..-constrain
3410: 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 ts DES \..-body
3420: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
3430: 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 ex [tls::decrypt
3440: 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 -cipher DES -pa
3450: 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 dding 0 \...-key
3460: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
3470: 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 hex 010101010101
3480: 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 0101] \...-data
3490: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
34a0: 65 78 20 30 30 30 30 30 31 30 30 30 30 30 30 30 ex 0000010000000
34b0: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 000]]} \..-match
34c0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 exact -result f
34d0: 62 65 30 30 61 38 61 31 65 66 38 61 64 37 32 0a be00a8a1ef8ad72.
34e0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
34f0: 6c 6f 63 6b 5f 44 45 53 2d 31 2e 35 31 20 7b 45 lock_DES-1.51 {E
3500: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
3510: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
3520: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
3530: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
3540: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
3550: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
3560: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
3570: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
3580: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
3590: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
35a0: 20 64 65 63 6f 64 65 20 68 65 78 20 37 35 30 44 decode hex 750D
35b0: 30 37 39 34 30 37 35 32 31 33 36 33 5d 5d 7d 20 079407521363]]}
35c0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
35d0: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 38 30 -result 00000080
35e0: 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 00000000..tcltes
35f0: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
3600: 53 2d 31 2e 35 32 20 7b 44 65 63 72 79 70 74 20 S-1.52 {Decrypt
3610: 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 DES} \..-constra
3620: 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 ints DES \..-bod
3630: 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 y {binary encode
3640: 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 hex [tls::decry
3650: 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d pt -cipher DES -
3660: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b padding 0 \...-k
3670: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
3680: 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 e hex 0101010101
3690: 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 010101] \...-dat
36a0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
36b0: 20 68 65 78 20 30 30 30 30 30 30 38 30 30 30 30 hex 00000080000
36c0: 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 00000]]} \..-mat
36d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
36e0: 20 37 35 30 64 30 37 39 34 30 37 35 32 31 33 36 750d07940752136
36f0: 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 3..tcltest::test
3700: 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 35 33 20 Block_DES-1.53
3710: 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Encrypt DES} \.
3720: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
3730: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
3740: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
3750: 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 ls::encrypt -cip
3760: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
3770: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
3780: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
3790: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
37a0: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
37b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 34 ry decode hex 64
37c0: 46 45 45 44 39 43 37 32 34 43 32 46 41 46 5d 5d FEED9C724C2FAF]]
37d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
37e0: 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 t -result 000000
37f0: 34 30 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 4000000000..tclt
3800: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
3810: 44 45 53 2d 31 2e 35 34 20 7b 44 65 63 72 79 70 DES-1.54 {Decryp
3820: 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 t DES} \..-const
3830: 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 raints DES \..-b
3840: 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f ody {binary enco
3850: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 de hex [tls::dec
3860: 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 rypt -cipher DES
3870: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
3880: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
3890: 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 ode hex 01010101
38a0: 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 01010101] \...-d
38b0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
38c0: 64 65 20 68 65 78 20 30 30 30 30 30 30 34 30 30 de hex 000000400
38d0: 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 0000000]]} \..-m
38e0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
38f0: 6c 74 20 36 34 66 65 65 64 39 63 37 32 34 63 32 lt 64feed9c724c2
3900: 66 61 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 faf..tcltest::te
3910: 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 35 st Block_DES-1.5
3920: 35 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5 {Encrypt DES}
3930: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
3940: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
3950: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
3960: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
3970: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
3980: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
3990: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
39a0: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
39b0: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
39c0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
39d0: 46 30 32 42 32 36 33 42 33 32 38 45 32 42 36 30 F02B263B328E2B60
39e0: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
39f0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
3a00: 30 30 32 30 30 30 30 30 30 30 30 30 0a 0a 74 63 002000000000..tc
3a10: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
3a20: 6b 5f 44 45 53 2d 31 2e 35 36 20 7b 44 65 63 72 k_DES-1.56 {Decr
3a30: 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e ypt DES} \..-con
3a40: 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 straints DES \..
3a50: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
3a60: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 code hex [tls::d
3a70: 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ecrypt -cipher D
3a80: 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a ES -padding 0 \.
3a90: 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 ..-key [binary d
3aa0: 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 ecode hex 010101
3ab0: 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 0101010101] \...
3ac0: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
3ad0: 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 32 code hex 0000002
3ae0: 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 000000000]]} \..
3af0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
3b00: 73 75 6c 74 20 66 30 32 62 32 36 33 62 33 32 38 sult f02b263b328
3b10: 65 32 62 36 30 0a 0a 74 63 6c 74 65 73 74 3a 3a e2b60..tcltest::
3b20: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 test Block_DES-1
3b30: 2e 35 37 20 7b 45 6e 63 72 79 70 74 20 44 45 53 .57 {Encrypt DES
3b40: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
3b50: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
3b60: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
3b70: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
3b80: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
3b90: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
3ba0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
3bb0: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
3bc0: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
3bd0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
3be0: 78 20 39 44 36 34 35 35 35 41 39 41 31 30 42 38 x 9D64555A9A10B8
3bf0: 35 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 52]]} \..-match
3c00: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 exact -result 00
3c10: 30 30 30 30 31 30 30 30 30 30 30 30 30 30 0a 0a 00001000000000..
3c20: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
3c30: 6f 63 6b 5f 44 45 53 2d 31 2e 35 38 20 7b 44 65 ock_DES-1.58 {De
3c40: 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 crypt DES} \..-c
3c50: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c onstraints DES \
3c60: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
3c70: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
3c80: 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 :decrypt -cipher
3c90: 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 DES -padding 0
3ca0: 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 \...-key [binary
3cb0: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 decode hex 0101
3cc0: 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 010101010101] \.
3cd0: 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ..-data [binary
3ce0: 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 decode hex 00000
3cf0: 30 31 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 01000000000]]} \
3d00: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
3d10: 72 65 73 75 6c 74 20 39 64 36 34 35 35 35 61 39 result 9d64555a9
3d20: 61 31 30 62 38 35 32 0a 0a 74 63 6c 74 65 73 74 a10b852..tcltest
3d30: 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 ::test Block_DES
3d40: 2d 31 2e 35 39 20 7b 45 6e 63 72 79 70 74 20 44 -1.59 {Encrypt D
3d50: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
3d60: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
3d70: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
3d80: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
3d90: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
3da0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
3db0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
3dc0: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
3dd0: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
3de0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
3df0: 68 65 78 20 44 31 30 36 46 46 30 42 45 44 35 32 hex D106FF0BED52
3e00: 35 35 44 37 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 55D7]]} \..-matc
3e10: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
3e20: 30 30 30 30 30 30 30 38 30 30 30 30 30 30 30 30 0000000800000000
3e30: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
3e40: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 36 30 20 7b Block_DES-1.60 {
3e50: 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 Decrypt DES} \..
3e60: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
3e70: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
3e80: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
3e90: 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 s::decrypt -ciph
3ea0: 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 er DES -padding
3eb0: 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 0 \...-key [bina
3ec0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
3ed0: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 01010101010101]
3ee0: 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 \...-data [binar
3ef0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 y decode hex 000
3f00: 30 30 30 30 38 30 30 30 30 30 30 30 30 5d 5d 7d 0000800000000]]}
3f10: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
3f20: 20 2d 72 65 73 75 6c 74 20 64 31 30 36 66 66 30 -result d106ff0
3f30: 62 65 64 35 32 35 35 64 37 0a 0a 74 63 6c 74 65 bed5255d7..tclte
3f40: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
3f50: 45 53 2d 31 2e 36 31 20 7b 45 6e 63 72 79 70 74 ES-1.61 {Encrypt
3f60: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
3f70: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
3f80: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
3f90: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 e hex [tls::encr
3fa0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
3fb0: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
3fc0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
3fd0: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
3fe0: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
3ff0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
4000: 65 20 68 65 78 20 45 31 36 35 32 43 36 42 31 33 e hex E1652C6B13
4010: 38 43 36 34 41 35 5d 5d 7d 20 5c 0a 09 2d 6d 61 8C64A5]]} \..-ma
4020: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
4030: 74 20 30 30 30 30 30 30 30 34 30 30 30 30 30 30 t 00000004000000
4040: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 00..tcltest::tes
4050: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 36 32 t Block_DES-1.62
4060: 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c {Decrypt DES} \
4070: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
4080: 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ES \..-body {bin
4090: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
40a0: 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 tls::decrypt -ci
40b0: 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e pher DES -paddin
40c0: 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 g 0 \...-key [bi
40d0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
40e0: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 0101010101010101
40f0: 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e ] \...-data [bin
4100: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
4110: 30 30 30 30 30 30 34 30 30 30 30 30 30 30 30 5d 000000400000000]
4120: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
4130: 63 74 20 2d 72 65 73 75 6c 74 20 65 31 36 35 32 ct -result e1652
4140: 63 36 62 31 33 38 63 36 34 61 35 0a 0a 74 63 6c c6b138c64a5..tcl
4150: 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b test::test Block
4160: 5f 44 45 53 2d 31 2e 36 33 20 7b 45 6e 63 72 79 _DES-1.63 {Encry
4170: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
4180: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
4190: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
41a0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
41b0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
41c0: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
41d0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
41e0: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
41f0: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
4200: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
4210: 6f 64 65 20 68 65 78 20 45 34 32 38 35 38 31 31 ode hex E4285811
4220: 38 36 45 43 38 46 34 36 5d 5d 7d 20 5c 0a 09 2d 86EC8F46]]} \..-
4230: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
4240: 75 6c 74 20 30 30 30 30 30 30 30 32 30 30 30 30 ult 000000020000
4250: 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0000..tcltest::t
4260: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
4270: 36 34 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 64 {Decrypt DES}
4280: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
4290: 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES \..-body {b
42a0: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
42b0: 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d [tls::decrypt -
42c0: 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 cipher DES -padd
42d0: 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b ing 0 \...-key [
42e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
42f0: 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 x 01010101010101
4300: 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 01] \...-data [b
4310: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
4320: 20 30 30 30 30 30 30 30 32 30 30 30 30 30 30 30 000000020000000
4330: 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 0]]} \..-match e
4340: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 34 32 xact -result e42
4350: 38 35 38 31 31 38 36 65 63 38 66 34 36 0a 0a 74 8581186ec8f46..t
4360: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
4370: 63 6b 5f 44 45 53 2d 31 2e 36 35 20 7b 45 6e 63 ck_DES-1.65 {Enc
4380: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
4390: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
43a0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
43b0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
43c0: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
43d0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
43e0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
43f0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
4400: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
4410: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
4420: 65 63 6f 64 65 20 68 65 78 20 41 45 42 35 46 35 ecode hex AEB5F5
4430: 45 44 45 32 32 44 31 41 33 36 5d 5d 7d 20 5c 0a EDE22D1A36]]} \.
4440: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
4450: 65 73 75 6c 74 20 30 30 30 30 30 30 30 31 30 30 esult 0000000100
4460: 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 000000..tcltest:
4470: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
4480: 31 2e 36 36 20 7b 44 65 63 72 79 70 74 20 44 45 1.66 {Decrypt DE
4490: 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e S} \..-constrain
44a0: 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 ts DES \..-body
44b0: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
44c0: 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 ex [tls::decrypt
44d0: 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 -cipher DES -pa
44e0: 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 dding 0 \...-key
44f0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
4500: 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 hex 010101010101
4510: 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 0101] \...-data
4520: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
4530: 65 78 20 30 30 30 30 30 30 30 31 30 30 30 30 30 ex 0000000100000
4540: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 000]]} \..-match
4550: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 exact -result a
4560: 65 62 35 66 35 65 64 65 32 32 64 31 61 33 36 0a eb5f5ede22d1a36.
4570: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
4580: 6c 6f 63 6b 5f 44 45 53 2d 31 2e 36 37 20 7b 45 lock_DES-1.67 {E
4590: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
45a0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
45b0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
45c0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
45d0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
45e0: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
45f0: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
4600: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
4610: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
4620: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
4630: 20 64 65 63 6f 64 65 20 68 65 78 20 45 39 34 33 decode hex E943
4640: 44 37 35 36 38 41 45 43 30 43 35 43 5d 5d 7d 20 D7568AEC0C5C]]}
4650: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
4660: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 -result 00000000
4670: 38 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 80000000..tcltes
4680: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
4690: 53 2d 31 2e 36 38 20 7b 44 65 63 72 79 70 74 20 S-1.68 {Decrypt
46a0: 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 DES} \..-constra
46b0: 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 ints DES \..-bod
46c0: 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 y {binary encode
46d0: 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 hex [tls::decry
46e0: 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d pt -cipher DES -
46f0: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b padding 0 \...-k
4700: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
4710: 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 e hex 0101010101
4720: 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 010101] \...-dat
4730: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
4740: 20 68 65 78 20 30 30 30 30 30 30 30 30 38 30 30 hex 00000000800
4750: 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 00000]]} \..-mat
4760: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
4770: 20 65 39 34 33 64 37 35 36 38 61 65 63 30 63 35 e943d7568aec0c5
4780: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 c..tcltest::test
4790: 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 36 39 20 Block_DES-1.69
47a0: 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Encrypt DES} \.
47b0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
47c0: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
47d0: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
47e0: 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 ls::encrypt -cip
47f0: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
4800: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
4810: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
4820: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
4830: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
4840: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 44 46 ry decode hex DF
4850: 39 38 43 38 32 37 36 46 35 34 42 30 34 42 5d 5d 98C8276F54B04B]]
4860: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
4870: 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 t -result 000000
4880: 30 30 34 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 0040000000..tclt
4890: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
48a0: 44 45 53 2d 31 2e 37 30 20 7b 44 65 63 72 79 70 DES-1.70 {Decryp
48b0: 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 t DES} \..-const
48c0: 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 raints DES \..-b
48d0: 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f ody {binary enco
48e0: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 de hex [tls::dec
48f0: 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 rypt -cipher DES
4900: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
4910: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
4920: 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 ode hex 01010101
4930: 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 01010101] \...-d
4940: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
4950: 64 65 20 68 65 78 20 30 30 30 30 30 30 30 30 34 de hex 000000004
4960: 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 0000000]]} \..-m
4970: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
4980: 6c 74 20 64 66 39 38 63 38 32 37 36 66 35 34 62 lt df98c8276f54b
4990: 30 34 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 04b..tcltest::te
49a0: 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 37 st Block_DES-1.7
49b0: 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 1 {Encrypt DES}
49c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
49d0: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
49e0: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
49f0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
4a00: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
4a10: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
4a20: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
4a30: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
4a40: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
4a50: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
4a60: 42 31 36 30 45 34 36 38 30 46 36 43 36 39 36 46 B160E4680F6C696F
4a70: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
4a80: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
4a90: 30 30 30 30 32 30 30 30 30 30 30 30 0a 0a 74 63 000020000000..tc
4aa0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
4ab0: 6b 5f 44 45 53 2d 31 2e 37 32 20 7b 44 65 63 72 k_DES-1.72 {Decr
4ac0: 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e ypt DES} \..-con
4ad0: 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 straints DES \..
4ae0: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
4af0: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 code hex [tls::d
4b00: 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ecrypt -cipher D
4b10: 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a ES -padding 0 \.
4b20: 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 ..-key [binary d
4b30: 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 ecode hex 010101
4b40: 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 0101010101] \...
4b50: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
4b60: 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 30 code hex 0000000
4b70: 30 32 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 020000000]]} \..
4b80: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
4b90: 73 75 6c 74 20 62 31 36 30 65 34 36 38 30 66 36 sult b160e4680f6
4ba0: 63 36 39 36 66 0a 0a 74 63 6c 74 65 73 74 3a 3a c696f..tcltest::
4bb0: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 test Block_DES-1
4bc0: 2e 37 33 20 7b 45 6e 63 72 79 70 74 20 44 45 53 .73 {Encrypt DES
4bd0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
4be0: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
4bf0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
4c00: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
4c10: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
4c20: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
4c30: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
4c40: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
4c50: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
4c60: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
4c70: 78 20 46 41 30 37 35 32 42 30 37 44 39 43 34 41 x FA0752B07D9C4A
4c80: 42 38 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 B8]]} \..-match
4c90: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 exact -result 00
4ca0: 30 30 30 30 30 30 31 30 30 30 30 30 30 30 0a 0a 00000010000000..
4cb0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
4cc0: 6f 63 6b 5f 44 45 53 2d 31 2e 37 34 20 7b 44 65 ock_DES-1.74 {De
4cd0: 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 crypt DES} \..-c
4ce0: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c onstraints DES \
4cf0: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
4d00: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
4d10: 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 :decrypt -cipher
4d20: 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 DES -padding 0
4d30: 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 \...-key [binary
4d40: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 decode hex 0101
4d50: 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 010101010101] \.
4d60: 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ..-data [binary
4d70: 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 decode hex 00000
4d80: 30 30 30 31 30 30 30 30 30 30 30 5d 5d 7d 20 5c 00010000000]]} \
4d90: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
4da0: 72 65 73 75 6c 74 20 66 61 30 37 35 32 62 30 37 result fa0752b07
4db0: 64 39 63 34 61 62 38 0a 0a 74 63 6c 74 65 73 74 d9c4ab8..tcltest
4dc0: 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 ::test Block_DES
4dd0: 2d 31 2e 37 35 20 7b 45 6e 63 72 79 70 74 20 44 -1.75 {Encrypt D
4de0: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
4df0: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
4e00: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
4e10: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
4e20: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
4e30: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
4e40: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
4e50: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
4e60: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
4e70: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
4e80: 68 65 78 20 43 41 33 41 32 42 30 33 36 44 42 43 hex CA3A2B036DBC
4e90: 38 35 30 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 8502]]} \..-matc
4ea0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
4eb0: 30 30 30 30 30 30 30 30 30 38 30 30 30 30 30 30 0000000008000000
4ec0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
4ed0: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 37 36 20 7b Block_DES-1.76 {
4ee0: 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 Decrypt DES} \..
4ef0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
4f00: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
4f10: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
4f20: 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 s::decrypt -ciph
4f30: 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 er DES -padding
4f40: 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 0 \...-key [bina
4f50: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
4f60: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 01010101010101]
4f70: 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 \...-data [binar
4f80: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 y decode hex 000
4f90: 30 30 30 30 30 30 38 30 30 30 30 30 30 5d 5d 7d 0000008000000]]}
4fa0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
4fb0: 20 2d 72 65 73 75 6c 74 20 63 61 33 61 32 62 30 -result ca3a2b0
4fc0: 33 36 64 62 63 38 35 30 32 0a 0a 74 63 6c 74 65 36dbc8502..tclte
4fd0: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
4fe0: 45 53 2d 31 2e 37 37 20 7b 45 6e 63 72 79 70 74 ES-1.77 {Encrypt
4ff0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
5000: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
5010: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
5020: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 e hex [tls::encr
5030: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
5040: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
5050: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
5060: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
5070: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
5080: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
5090: 65 20 68 65 78 20 35 45 30 39 30 35 35 31 37 42 e hex 5E0905517B
50a0: 42 35 39 42 43 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 B59BCF]]} \..-ma
50b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
50c0: 74 20 30 30 30 30 30 30 30 30 30 34 30 30 30 30 t 00000000040000
50d0: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 00..tcltest::tes
50e0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 37 38 t Block_DES-1.78
50f0: 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c {Decrypt DES} \
5100: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
5110: 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ES \..-body {bin
5120: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
5130: 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 tls::decrypt -ci
5140: 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e pher DES -paddin
5150: 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 g 0 \...-key [bi
5160: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
5170: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 0101010101010101
5180: 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e ] \...-data [bin
5190: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
51a0: 30 30 30 30 30 30 30 30 34 30 30 30 30 30 30 5d 000000004000000]
51b0: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
51c0: 63 74 20 2d 72 65 73 75 6c 74 20 35 65 30 39 30 ct -result 5e090
51d0: 35 35 31 37 62 62 35 39 62 63 66 0a 0a 74 63 6c 5517bb59bcf..tcl
51e0: 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b test::test Block
51f0: 5f 44 45 53 2d 31 2e 37 39 20 7b 45 6e 63 72 79 _DES-1.79 {Encry
5200: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
5210: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
5220: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
5230: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
5240: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
5250: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
5260: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
5270: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
5280: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
5290: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
52a0: 6f 64 65 20 68 65 78 20 38 31 34 45 45 42 33 42 ode hex 814EEB3B
52b0: 39 31 44 39 30 37 32 36 5d 5d 7d 20 5c 0a 09 2d 91D90726]]} \..-
52c0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
52d0: 75 6c 74 20 30 30 30 30 30 30 30 30 30 32 30 30 ult 000000000200
52e0: 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0000..tcltest::t
52f0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
5300: 38 30 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 80 {Decrypt DES}
5310: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
5320: 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES \..-body {b
5330: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
5340: 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d [tls::decrypt -
5350: 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 cipher DES -padd
5360: 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b ing 0 \...-key [
5370: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
5380: 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 x 01010101010101
5390: 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 01] \...-data [b
53a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
53b0: 20 30 30 30 30 30 30 30 30 30 32 30 30 30 30 30 000000000200000
53c0: 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 0]]} \..-match e
53d0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 31 34 xact -result 814
53e0: 65 65 62 33 62 39 31 64 39 30 37 32 36 0a 0a 74 eeb3b91d90726..t
53f0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
5400: 63 6b 5f 44 45 53 2d 31 2e 38 31 20 7b 45 6e 63 ck_DES-1.81 {Enc
5410: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
5420: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
5430: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
5440: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
5450: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
5460: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
5470: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
5480: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
5490: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
54a0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
54b0: 65 63 6f 64 65 20 68 65 78 20 34 44 34 39 44 42 ecode hex 4D49DB
54c0: 31 35 33 32 39 31 39 43 39 46 5d 5d 7d 20 5c 0a 1532919C9F]]} \.
54d0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
54e0: 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 30 31 esult 0000000001
54f0: 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 000000..tcltest:
5500: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
5510: 31 2e 38 32 20 7b 44 65 63 72 79 70 74 20 44 45 1.82 {Decrypt DE
5520: 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e S} \..-constrain
5530: 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 ts DES \..-body
5540: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
5550: 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 ex [tls::decrypt
5560: 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 -cipher DES -pa
5570: 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 dding 0 \...-key
5580: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
5590: 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 hex 010101010101
55a0: 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 0101] \...-data
55b0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
55c0: 65 78 20 30 30 30 30 30 30 30 30 30 31 30 30 30 ex 0000000001000
55d0: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 000]]} \..-match
55e0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 exact -result 4
55f0: 64 34 39 64 62 31 35 33 32 39 31 39 63 39 66 0a d49db1532919c9f.
5600: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
5610: 6c 6f 63 6b 5f 44 45 53 2d 31 2e 38 33 20 7b 45 lock_DES-1.83 {E
5620: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
5630: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
5640: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
5650: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
5660: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
5670: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
5680: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
5690: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
56a0: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
56b0: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
56c0: 20 64 65 63 6f 64 65 20 68 65 78 20 32 35 45 42 decode hex 25EB
56d0: 35 46 43 33 46 38 43 46 30 36 32 31 5d 5d 7d 20 5FC3F8CF0621]]}
56e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
56f0: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 -result 00000000
5700: 30 30 38 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 00800000..tcltes
5710: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
5720: 53 2d 31 2e 38 34 20 7b 44 65 63 72 79 70 74 20 S-1.84 {Decrypt
5730: 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 DES} \..-constra
5740: 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 ints DES \..-bod
5750: 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 y {binary encode
5760: 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 hex [tls::decry
5770: 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d pt -cipher DES -
5780: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b padding 0 \...-k
5790: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ey [binary decod
57a0: 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 e hex 0101010101
57b0: 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 010101] \...-dat
57c0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
57d0: 20 68 65 78 20 30 30 30 30 30 30 30 30 30 30 38 hex 00000000008
57e0: 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 00000]]} \..-mat
57f0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
5800: 20 32 35 65 62 35 66 63 33 66 38 63 66 30 36 32 25eb5fc3f8cf062
5810: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 1..tcltest::test
5820: 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 38 35 20 Block_DES-1.85
5830: 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Encrypt DES} \.
5840: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
5850: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
5860: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
5870: 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 ls::encrypt -cip
5880: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
5890: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
58a0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
58b0: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
58c0: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
58d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 41 42 ry decode hex AB
58e0: 36 41 32 30 43 30 36 32 30 44 31 43 36 46 5d 5d 6A20C0620D1C6F]]
58f0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
5900: 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 t -result 000000
5910: 30 30 30 30 34 30 30 30 30 30 0a 0a 74 63 6c 74 0000400000..tclt
5920: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
5930: 44 45 53 2d 31 2e 38 36 20 7b 44 65 63 72 79 70 DES-1.86 {Decryp
5940: 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 t DES} \..-const
5950: 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 raints DES \..-b
5960: 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f ody {binary enco
5970: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 de hex [tls::dec
5980: 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 rypt -cipher DES
5990: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
59a0: 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 -key [binary dec
59b0: 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 ode hex 01010101
59c0: 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 01010101] \...-d
59d0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
59e0: 64 65 20 68 65 78 20 30 30 30 30 30 30 30 30 30 de hex 000000000
59f0: 30 34 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 0400000]]} \..-m
5a00: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
5a10: 6c 74 20 61 62 36 61 32 30 63 30 36 32 30 64 31 lt ab6a20c0620d1
5a20: 63 36 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 c6f..tcltest::te
5a30: 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 38 st Block_DES-1.8
5a40: 37 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 7 {Encrypt DES}
5a50: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
5a60: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
5a70: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
5a80: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
5a90: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
5aa0: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
5ab0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
5ac0: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
5ad0: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
5ae0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
5af0: 37 39 45 39 30 44 42 43 39 38 46 39 32 43 43 41 79E90DBC98F92CCA
5b00: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
5b10: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
5b20: 30 30 30 30 30 30 32 30 30 30 30 30 0a 0a 74 63 000000200000..tc
5b30: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
5b40: 6b 5f 44 45 53 2d 31 2e 38 38 20 7b 44 65 63 72 k_DES-1.88 {Decr
5b50: 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e ypt DES} \..-con
5b60: 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 straints DES \..
5b70: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
5b80: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 code hex [tls::d
5b90: 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ecrypt -cipher D
5ba0: 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a ES -padding 0 \.
5bb0: 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 ..-key [binary d
5bc0: 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 ecode hex 010101
5bd0: 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 0101010101] \...
5be0: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
5bf0: 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 30 code hex 0000000
5c00: 30 30 30 32 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 000200000]]} \..
5c10: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
5c20: 73 75 6c 74 20 37 39 65 39 30 64 62 63 39 38 66 sult 79e90dbc98f
5c30: 39 32 63 63 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 92cca..tcltest::
5c40: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 test Block_DES-1
5c50: 2e 38 39 20 7b 45 6e 63 72 79 70 74 20 44 45 53 .89 {Encrypt DES
5c60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
5c70: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
5c80: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
5c90: 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 x [tls::encrypt
5ca0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
5cb0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
5cc0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
5cd0: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
5ce0: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
5cf0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
5d00: 78 20 38 36 36 45 43 45 44 44 38 30 37 32 42 42 x 866ECEDD8072BB
5d10: 30 45 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 0E]]} \..-match
5d20: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 exact -result 00
5d30: 30 30 30 30 30 30 30 30 31 30 30 30 30 30 0a 0a 00000000100000..
5d40: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
5d50: 6f 63 6b 5f 44 45 53 2d 31 2e 39 30 20 7b 44 65 ock_DES-1.90 {De
5d60: 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 crypt DES} \..-c
5d70: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c onstraints DES \
5d80: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
5d90: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
5da0: 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 :decrypt -cipher
5db0: 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 DES -padding 0
5dc0: 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 \...-key [binary
5dd0: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 decode hex 0101
5de0: 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 010101010101] \.
5df0: 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 ..-data [binary
5e00: 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 decode hex 00000
5e10: 30 30 30 30 30 31 30 30 30 30 30 5d 5d 7d 20 5c 00000100000]]} \
5e20: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
5e30: 72 65 73 75 6c 74 20 38 36 36 65 63 65 64 64 38 result 866ecedd8
5e40: 30 37 32 62 62 30 65 0a 0a 74 63 6c 74 65 73 74 072bb0e..tcltest
5e50: 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 ::test Block_DES
5e60: 2d 31 2e 39 31 20 7b 45 6e 63 72 79 70 74 20 44 -1.91 {Encrypt D
5e70: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
5e80: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
5e90: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
5ea0: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
5eb0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
5ec0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
5ed0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
5ee0: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
5ef0: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
5f00: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
5f10: 68 65 78 20 38 42 35 34 35 33 36 46 32 46 33 45 hex 8B54536F2F3E
5f20: 36 34 41 38 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 64A8]]} \..-matc
5f30: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
5f40: 30 30 30 30 30 30 30 30 30 30 30 38 30 30 30 30 0000000000080000
5f50: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
5f60: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 39 32 20 7b Block_DES-1.92 {
5f70: 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 Decrypt DES} \..
5f80: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 -constraints DES
5f90: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
5fa0: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
5fb0: 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 s::decrypt -ciph
5fc0: 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 er DES -padding
5fd0: 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 0 \...-key [bina
5fe0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 ry decode hex 01
5ff0: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 01010101010101]
6000: 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 \...-data [binar
6010: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 y decode hex 000
6020: 30 30 30 30 30 30 30 30 38 30 30 30 30 5d 5d 7d 0000000080000]]}
6030: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
6040: 20 2d 72 65 73 75 6c 74 20 38 62 35 34 35 33 36 -result 8b54536
6050: 66 32 66 33 65 36 34 61 38 0a 0a 74 63 6c 74 65 f2f3e64a8..tclte
6060: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
6070: 45 53 2d 31 2e 39 33 20 7b 45 6e 63 72 79 70 74 ES-1.93 {Encrypt
6080: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
6090: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
60a0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
60b0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 e hex [tls::encr
60c0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
60d0: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
60e0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
60f0: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
6100: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
6110: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
6120: 65 20 68 65 78 20 45 41 35 31 44 33 39 37 35 35 e hex EA51D39755
6130: 39 35 42 38 36 42 5d 5d 7d 20 5c 0a 09 2d 6d 61 95B86B]]} \..-ma
6140: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
6150: 74 20 30 30 30 30 30 30 30 30 30 30 30 34 30 30 t 00000000000400
6160: 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 00..tcltest::tes
6170: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 39 34 t Block_DES-1.94
6180: 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c {Decrypt DES} \
6190: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
61a0: 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ES \..-body {bin
61b0: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
61c0: 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 tls::decrypt -ci
61d0: 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e pher DES -paddin
61e0: 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 g 0 \...-key [bi
61f0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
6200: 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 0101010101010101
6210: 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e ] \...-data [bin
6220: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
6230: 30 30 30 30 30 30 30 30 30 30 34 30 30 30 30 5d 000000000040000]
6240: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
6250: 63 74 20 2d 72 65 73 75 6c 74 20 65 61 35 31 64 ct -result ea51d
6260: 33 39 37 35 35 39 35 62 38 36 62 0a 0a 74 63 6c 3975595b86b..tcl
6270: 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b test::test Block
6280: 5f 44 45 53 2d 31 2e 39 35 20 7b 45 6e 63 72 79 _DES-1.95 {Encry
6290: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
62a0: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
62b0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
62c0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
62d0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
62e0: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
62f0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
6300: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
6310: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
6320: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
6330: 6f 64 65 20 68 65 78 20 43 41 46 46 43 36 41 43 ode hex CAFFC6AC
6340: 34 35 34 32 44 45 33 31 5d 5d 7d 20 5c 0a 09 2d 4542DE31]]} \..-
6350: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
6360: 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 30 32 ult 000000000002
6370: 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0000..tcltest::t
6380: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
6390: 39 36 20 7b 44 65 63 72 79 70 74 20 44 45 53 7d 96 {Decrypt DES}
63a0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
63b0: 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 DES \..-body {b
63c0: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
63d0: 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d [tls::decrypt -
63e0: 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 cipher DES -padd
63f0: 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b ing 0 \...-key [
6400: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
6410: 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 x 01010101010101
6420: 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 01] \...-data [b
6430: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
6440: 20 30 30 30 30 30 30 30 30 30 30 30 32 30 30 30 000000000002000
6450: 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 0]]} \..-match e
6460: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 61 66 xact -result caf
6470: 66 63 36 61 63 34 35 34 32 64 65 33 31 0a 0a 74 fc6ac4542de31..t
6480: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
6490: 63 6b 5f 44 45 53 2d 31 2e 39 37 20 7b 45 6e 63 ck_DES-1.97 {Enc
64a0: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
64b0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
64c0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
64d0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
64e0: 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 encrypt -cipher
64f0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
6500: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
6510: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
6520: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
6530: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
6540: 65 63 6f 64 65 20 68 65 78 20 38 44 44 34 35 41 ecode hex 8DD45A
6550: 32 44 44 46 39 30 37 39 36 43 5d 5d 7d 20 5c 0a 2DDF90796C]]} \.
6560: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
6570: 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 esult 0000000000
6580: 30 31 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 010000..tcltest:
6590: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
65a0: 31 2e 39 38 20 7b 44 65 63 72 79 70 74 20 44 45 1.98 {Decrypt DE
65b0: 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e S} \..-constrain
65c0: 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 ts DES \..-body
65d0: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
65e0: 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 ex [tls::decrypt
65f0: 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 -cipher DES -pa
6600: 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 dding 0 \...-key
6610: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
6620: 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 hex 010101010101
6630: 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 0101] \...-data
6640: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
6650: 65 78 20 30 30 30 30 30 30 30 30 30 30 30 31 30 ex 0000000000010
6660: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 000]]} \..-match
6670: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 exact -result 8
6680: 64 64 34 35 61 32 64 64 66 39 30 37 39 36 63 0a dd45a2ddf90796c.
6690: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 .tcltest::test B
66a0: 6c 6f 63 6b 5f 44 45 53 2d 31 2e 39 39 20 7b 45 lock_DES-1.99 {E
66b0: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
66c0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
66d0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
66e0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
66f0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
6700: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
6710: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
6720: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
6730: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
6740: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
6750: 20 64 65 63 6f 64 65 20 68 65 78 20 31 30 32 39 decode hex 1029
6760: 44 35 35 45 38 38 30 45 43 32 44 30 5d 5d 7d 20 D55E880EC2D0]]}
6770: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
6780: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 -result 00000000
6790: 30 30 30 30 38 30 30 30 0a 0a 74 63 6c 74 65 73 00008000..tcltes
67a0: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
67b0: 53 2d 31 2e 31 30 30 20 7b 44 65 63 72 79 70 74 S-1.100 {Decrypt
67c0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
67d0: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
67e0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
67f0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
6800: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
6810: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
6820: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
6830: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
6840: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
6850: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
6860: 65 20 68 65 78 20 30 30 30 30 30 30 30 30 30 30 e hex 0000000000
6870: 30 30 38 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 008000]]} \..-ma
6880: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
6890: 74 20 31 30 32 39 64 35 35 65 38 38 30 65 63 32 t 1029d55e880ec2
68a0: 64 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 d0..tcltest::tes
68b0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 30 t Block_DES-1.10
68c0: 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 1 {Encrypt DES}
68d0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
68e0: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
68f0: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
6900: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
6910: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
6920: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
6930: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
6940: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
6950: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
6960: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
6970: 35 44 38 36 43 42 32 33 36 33 39 44 42 45 41 39 5D86CB23639DBEA9
6980: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
6990: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
69a0: 30 30 30 30 30 30 30 30 34 30 30 30 0a 0a 74 63 000000004000..tc
69b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
69c0: 6b 5f 44 45 53 2d 31 2e 31 30 32 20 7b 44 65 63 k_DES-1.102 {Dec
69d0: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
69e0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
69f0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
6a00: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
6a10: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
6a20: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
6a30: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
6a40: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
6a50: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
6a60: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
6a70: 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 ecode hex 000000
6a80: 30 30 30 30 30 30 34 30 30 30 5d 5d 7d 20 5c 0a 0000004000]]} \.
6a90: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
6aa0: 65 73 75 6c 74 20 35 64 38 36 63 62 32 33 36 33 esult 5d86cb2363
6ab0: 39 64 62 65 61 39 0a 0a 74 63 6c 74 65 73 74 3a 9dbea9..tcltest:
6ac0: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
6ad0: 31 2e 31 30 33 20 7b 45 6e 63 72 79 70 74 20 44 1.103 {Encrypt D
6ae0: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
6af0: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
6b00: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
6b10: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
6b20: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
6b30: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
6b40: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
6b50: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
6b60: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
6b70: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
6b80: 68 65 78 20 31 44 31 43 41 38 35 33 41 45 37 43 hex 1D1CA853AE7C
6b90: 30 43 35 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 0C5F]]} \..-matc
6ba0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
6bb0: 30 30 30 30 30 30 30 30 30 30 30 30 32 30 30 30 0000000000002000
6bc0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
6bd0: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 30 34 20 Block_DES-1.104
6be0: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
6bf0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
6c00: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
6c10: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
6c20: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
6c30: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
6c40: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
6c50: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
6c60: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
6c70: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
6c80: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 ry decode hex 00
6c90: 30 30 30 30 30 30 30 30 30 30 32 30 30 30 5d 5d 00000000002000]]
6ca0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
6cb0: 74 20 2d 72 65 73 75 6c 74 20 31 64 31 63 61 38 t -result 1d1ca8
6cc0: 35 33 61 65 37 63 30 63 35 66 0a 0a 74 63 6c 74 53ae7c0c5f..tclt
6cd0: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
6ce0: 44 45 53 2d 31 2e 31 30 35 20 7b 45 6e 63 72 79 DES-1.105 {Encry
6cf0: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
6d00: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
6d10: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
6d20: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
6d30: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
6d40: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
6d50: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
6d60: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
6d70: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
6d80: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
6d90: 6f 64 65 20 68 65 78 20 43 45 33 33 32 33 32 39 ode hex CE332329
6da0: 32 34 38 46 33 32 32 38 5d 5d 7d 20 5c 0a 09 2d 248F3228]]} \..-
6db0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
6dc0: 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 30 30 ult 000000000000
6dd0: 31 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 1000..tcltest::t
6de0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
6df0: 31 30 36 20 7b 44 65 63 72 79 70 74 20 44 45 53 106 {Decrypt DES
6e00: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
6e10: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
6e20: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
6e30: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
6e40: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
6e50: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
6e60: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
6e70: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
6e80: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
6e90: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
6ea0: 78 20 30 30 30 30 30 30 30 30 30 30 30 30 31 30 x 00000000000010
6eb0: 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 00]]} \..-match
6ec0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 65 exact -result ce
6ed0: 33 33 32 33 32 39 32 34 38 66 33 32 32 38 0a 0a 332329248f3228..
6ee0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
6ef0: 6f 63 6b 5f 44 45 53 2d 31 2e 31 30 37 20 7b 45 ock_DES-1.107 {E
6f00: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
6f10: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
6f20: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
6f30: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
6f40: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
6f50: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
6f60: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
6f70: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
6f80: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
6f90: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
6fa0: 20 64 65 63 6f 64 65 20 68 65 78 20 38 34 30 35 decode hex 8405
6fb0: 44 31 41 42 45 32 34 46 42 39 34 32 5d 5d 7d 20 D1ABE24FB942]]}
6fc0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
6fd0: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 -result 00000000
6fe0: 30 30 30 30 30 38 30 30 0a 0a 74 63 6c 74 65 73 00000800..tcltes
6ff0: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
7000: 53 2d 31 2e 31 30 38 20 7b 44 65 63 72 79 70 74 S-1.108 {Decrypt
7010: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
7020: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
7030: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
7040: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
7050: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
7060: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
7070: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
7080: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
7090: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
70a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
70b0: 65 20 68 65 78 20 30 30 30 30 30 30 30 30 30 30 e hex 0000000000
70c0: 30 30 30 38 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 000800]]} \..-ma
70d0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
70e0: 74 20 38 34 30 35 64 31 61 62 65 32 34 66 62 39 t 8405d1abe24fb9
70f0: 34 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 42..tcltest::tes
7100: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 30 t Block_DES-1.10
7110: 39 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 9 {Encrypt DES}
7120: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
7130: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
7140: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
7150: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
7160: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
7170: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
7180: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
7190: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
71a0: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
71b0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
71c0: 45 36 34 33 44 37 38 30 39 30 43 41 34 32 30 37 E643D78090CA4207
71d0: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
71e0: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
71f0: 30 30 30 30 30 30 30 30 30 34 30 30 0a 0a 74 63 000000000400..tc
7200: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
7210: 6b 5f 44 45 53 2d 31 2e 31 31 30 20 7b 44 65 63 k_DES-1.110 {Dec
7220: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
7230: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
7240: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
7250: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
7260: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
7270: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
7280: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
7290: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
72a0: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
72b0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
72c0: 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 ecode hex 000000
72d0: 30 30 30 30 30 30 30 34 30 30 5d 5d 7d 20 5c 0a 0000000400]]} \.
72e0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
72f0: 65 73 75 6c 74 20 65 36 34 33 64 37 38 30 39 30 esult e643d78090
7300: 63 61 34 32 30 37 0a 0a 74 63 6c 74 65 73 74 3a ca4207..tcltest:
7310: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
7320: 31 2e 31 31 31 20 7b 45 6e 63 72 79 70 74 20 44 1.111 {Encrypt D
7330: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
7340: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
7350: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
7360: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
7370: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
7380: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
7390: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
73a0: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
73b0: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
73c0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
73d0: 68 65 78 20 34 38 32 32 31 42 39 39 33 37 37 34 hex 48221B993774
73e0: 38 41 32 33 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 8A23]]} \..-matc
73f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
7400: 30 30 30 30 30 30 30 30 30 30 30 30 30 32 30 30 0000000000000200
7410: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
7420: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 31 32 20 Block_DES-1.112
7430: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
7440: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
7450: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
7460: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
7470: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
7480: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
7490: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
74a0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
74b0: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
74c0: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
74d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 ry decode hex 00
74e0: 30 30 30 30 30 30 30 30 30 30 30 32 30 30 5d 5d 00000000000200]]
74f0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
7500: 74 20 2d 72 65 73 75 6c 74 20 34 38 32 32 31 62 t -result 48221b
7510: 39 39 33 37 37 34 38 61 32 33 0a 0a 74 63 6c 74 9937748a23..tclt
7520: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
7530: 44 45 53 2d 31 2e 31 31 33 20 7b 45 6e 63 72 79 DES-1.113 {Encry
7540: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
7550: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
7560: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
7570: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
7580: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
7590: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
75a0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
75b0: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
75c0: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
75d0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
75e0: 6f 64 65 20 68 65 78 20 44 44 37 43 30 42 42 44 ode hex DD7C0BBD
75f0: 36 31 46 41 46 44 35 34 5d 5d 7d 20 5c 0a 09 2d 61FAFD54]]} \..-
7600: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
7610: 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 30 30 ult 000000000000
7620: 30 31 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0100..tcltest::t
7630: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
7640: 31 31 34 20 7b 44 65 63 72 79 70 74 20 44 45 53 114 {Decrypt DES
7650: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
7660: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
7670: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
7680: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
7690: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
76a0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
76b0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
76c0: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
76d0: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
76e0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
76f0: 78 20 30 30 30 30 30 30 30 30 30 30 30 30 30 31 x 00000000000001
7700: 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 00]]} \..-match
7710: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 64 exact -result dd
7720: 37 63 30 62 62 64 36 31 66 61 66 64 35 34 0a 0a 7c0bbd61fafd54..
7730: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
7740: 6f 63 6b 5f 44 45 53 2d 31 2e 31 31 35 20 7b 45 ock_DES-1.115 {E
7750: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
7760: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
7770: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
7780: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
7790: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
77a0: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
77b0: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
77c0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
77d0: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
77e0: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
77f0: 20 64 65 63 6f 64 65 20 68 65 78 20 32 46 42 43 decode hex 2FBC
7800: 32 39 31 41 35 37 30 44 42 35 43 34 5d 5d 7d 20 291A570DB5C4]]}
7810: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
7820: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 -result 00000000
7830: 30 30 30 30 30 30 38 30 0a 0a 74 63 6c 74 65 73 00000080..tcltes
7840: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
7850: 53 2d 31 2e 31 31 36 20 7b 44 65 63 72 79 70 74 S-1.116 {Decrypt
7860: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
7870: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
7880: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
7890: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
78a0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
78b0: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
78c0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
78d0: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
78e0: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
78f0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
7900: 65 20 68 65 78 20 30 30 30 30 30 30 30 30 30 30 e hex 0000000000
7910: 30 30 30 30 38 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 000080]]} \..-ma
7920: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
7930: 74 20 32 66 62 63 32 39 31 61 35 37 30 64 62 35 t 2fbc291a570db5
7940: 63 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 c4..tcltest::tes
7950: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 31 t Block_DES-1.11
7960: 37 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 7 {Encrypt DES}
7970: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
7980: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
7990: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
79a0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
79b0: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
79c0: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
79d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
79e0: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
79f0: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
7a00: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
7a10: 45 30 37 43 33 30 44 37 45 34 45 32 36 45 31 32 E07C30D7E4E26E12
7a20: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
7a30: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
7a40: 30 30 30 30 30 30 30 30 30 30 34 30 0a 0a 74 63 000000000040..tc
7a50: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
7a60: 6b 5f 44 45 53 2d 31 2e 31 31 38 20 7b 44 65 63 k_DES-1.118 {Dec
7a70: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
7a80: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
7a90: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
7aa0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
7ab0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
7ac0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
7ad0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
7ae0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
7af0: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
7b00: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
7b10: 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 ecode hex 000000
7b20: 30 30 30 30 30 30 30 30 34 30 5d 5d 7d 20 5c 0a 0000000040]]} \.
7b30: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
7b40: 65 73 75 6c 74 20 65 30 37 63 33 30 64 37 65 34 esult e07c30d7e4
7b50: 65 32 36 65 31 32 0a 0a 74 63 6c 74 65 73 74 3a e26e12..tcltest:
7b60: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
7b70: 31 2e 31 31 39 20 7b 45 6e 63 72 79 70 74 20 44 1.119 {Encrypt D
7b80: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
7b90: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
7ba0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
7bb0: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
7bc0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
7bd0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
7be0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
7bf0: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
7c00: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
7c10: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
7c20: 68 65 78 20 30 39 35 33 45 32 32 35 38 45 38 45 hex 0953E2258E8E
7c30: 39 30 41 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 90A1]]} \..-matc
7c40: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
7c50: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 32 30 0000000000000020
7c60: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
7c70: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 32 30 20 Block_DES-1.120
7c80: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
7c90: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
7ca0: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
7cb0: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
7cc0: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
7cd0: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
7ce0: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
7cf0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
7d00: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
7d10: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
7d20: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 ry decode hex 00
7d30: 30 30 30 30 30 30 30 30 30 30 30 30 32 30 5d 5d 00000000000020]]
7d40: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
7d50: 74 20 2d 72 65 73 75 6c 74 20 30 39 35 33 65 32 t -result 0953e2
7d60: 32 35 38 65 38 65 39 30 61 31 0a 0a 74 63 6c 74 258e8e90a1..tclt
7d70: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
7d80: 44 45 53 2d 31 2e 31 32 31 20 7b 45 6e 63 72 79 DES-1.121 {Encry
7d90: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
7da0: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
7db0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
7dc0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
7dd0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
7de0: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
7df0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
7e00: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
7e10: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
7e20: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
7e30: 6f 64 65 20 68 65 78 20 35 42 37 31 31 42 43 34 ode hex 5B711BC4
7e40: 43 45 45 42 46 32 45 45 5d 5d 7d 20 5c 0a 09 2d CEEBF2EE]]} \..-
7e50: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
7e60: 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 30 30 ult 000000000000
7e70: 30 30 31 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0010..tcltest::t
7e80: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
7e90: 31 32 32 20 7b 44 65 63 72 79 70 74 20 44 45 53 122 {Decrypt DES
7ea0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
7eb0: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
7ec0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
7ed0: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
7ee0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
7ef0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
7f00: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
7f10: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
7f20: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
7f30: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
7f40: 78 20 30 30 30 30 30 30 30 30 30 30 30 30 30 30 x 00000000000000
7f50: 31 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 10]]} \..-match
7f60: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 62 exact -result 5b
7f70: 37 31 31 62 63 34 63 65 65 62 66 32 65 65 0a 0a 711bc4ceebf2ee..
7f80: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
7f90: 6f 63 6b 5f 44 45 53 2d 31 2e 31 32 33 20 7b 45 ock_DES-1.123 {E
7fa0: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
7fb0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
7fc0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
7fd0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
7fe0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
7ff0: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
8000: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
8010: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
8020: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
8030: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
8040: 20 64 65 63 6f 64 65 20 68 65 78 20 43 43 30 38 decode hex CC08
8050: 33 46 31 45 36 44 39 45 38 35 46 36 5d 5d 7d 20 3F1E6D9E85F6]]}
8060: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
8070: 2d 72 65 73 75 6c 74 20 30 30 30 30 30 30 30 30 -result 00000000
8080: 30 30 30 30 30 30 30 38 0a 0a 74 63 6c 74 65 73 00000008..tcltes
8090: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
80a0: 53 2d 31 2e 31 32 34 20 7b 44 65 63 72 79 70 74 S-1.124 {Decrypt
80b0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
80c0: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
80d0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
80e0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
80f0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
8100: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
8110: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
8120: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
8130: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
8140: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
8150: 65 20 68 65 78 20 30 30 30 30 30 30 30 30 30 30 e hex 0000000000
8160: 30 30 30 30 30 38 5d 5d 7d 20 5c 0a 09 2d 6d 61 000008]]} \..-ma
8170: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
8180: 74 20 63 63 30 38 33 66 31 65 36 64 39 65 38 35 t cc083f1e6d9e85
8190: 66 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 f6..tcltest::tes
81a0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 32 t Block_DES-1.12
81b0: 35 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5 {Encrypt DES}
81c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
81d0: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
81e0: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
81f0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
8200: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
8210: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
8220: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
8230: 20 30 31 30 31 30 31 30 31 30 31 30 31 30 31 30 010101010101010
8240: 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 1] \...-data [bi
8250: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
8260: 44 32 46 44 38 38 36 37 44 35 30 44 32 44 46 45 D2FD8867D50D2DFE
8270: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
8280: 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 30 act -result 0000
8290: 30 30 30 30 30 30 30 30 30 30 30 34 0a 0a 74 63 000000000004..tc
82a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
82b0: 6b 5f 44 45 53 2d 31 2e 31 32 36 20 7b 44 65 63 k_DES-1.126 {Dec
82c0: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
82d0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
82e0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
82f0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
8300: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
8310: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
8320: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
8330: 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 decode hex 01010
8340: 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 10101010101] \..
8350: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
8360: 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 ecode hex 000000
8370: 30 30 30 30 30 30 30 30 30 34 5d 5d 7d 20 5c 0a 0000000004]]} \.
8380: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
8390: 65 73 75 6c 74 20 64 32 66 64 38 38 36 37 64 35 esult d2fd8867d5
83a0: 30 64 32 64 66 65 0a 0a 74 63 6c 74 65 73 74 3a 0d2dfe..tcltest:
83b0: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
83c0: 31 2e 31 32 37 20 7b 45 6e 63 72 79 70 74 20 44 1.127 {Encrypt D
83d0: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
83e0: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
83f0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
8400: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
8410: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
8420: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
8430: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
8440: 20 68 65 78 20 30 31 30 31 30 31 30 31 30 31 30 hex 01010101010
8450: 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 10101] \...-data
8460: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
8470: 68 65 78 20 30 36 45 37 45 41 32 32 43 45 39 32 hex 06E7EA22CE92
8480: 37 30 38 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 708F]]} \..-matc
8490: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
84a0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 32 0000000000000002
84b0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
84c0: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 32 38 20 Block_DES-1.128
84d0: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
84e0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
84f0: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
8500: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
8510: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
8520: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
8530: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
8540: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
8550: 31 30 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 101010101010101]
8560: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
8570: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 ry decode hex 00
8580: 30 30 30 30 30 30 30 30 30 30 30 30 30 32 5d 5d 00000000000002]]
8590: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
85a0: 74 20 2d 72 65 73 75 6c 74 20 30 36 65 37 65 61 t -result 06e7ea
85b0: 32 32 63 65 39 32 37 30 38 66 0a 0a 74 63 6c 74 22ce92708f..tclt
85c0: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
85d0: 44 45 53 2d 31 2e 31 32 39 20 7b 45 6e 63 72 79 DES-1.129 {Encry
85e0: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
85f0: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
8600: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
8610: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
8620: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
8630: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
8640: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
8650: 63 6f 64 65 20 68 65 78 20 30 31 30 31 30 31 30 code hex 0101010
8660: 31 30 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 101010101] \...-
8670: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
8680: 6f 64 65 20 68 65 78 20 31 36 36 42 34 30 42 34 ode hex 166B40B4
8690: 34 41 42 41 34 42 44 36 5d 5d 7d 20 5c 0a 09 2d 4ABA4BD6]]} \..-
86a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
86b0: 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 30 30 ult 000000000000
86c0: 30 30 30 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 0001..tcltest::t
86d0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
86e0: 31 33 30 20 7b 44 65 63 72 79 70 74 20 44 45 53 130 {Decrypt DES
86f0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
8700: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
8710: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
8720: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
8730: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
8740: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
8750: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
8760: 65 78 20 30 31 30 31 30 31 30 31 30 31 30 31 30 ex 0101010101010
8770: 31 30 31 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 101] \...-data [
8780: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
8790: 78 20 30 30 30 30 30 30 30 30 30 30 30 30 30 30 x 00000000000000
87a0: 30 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 01]]} \..-match
87b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 36 exact -result 16
87c0: 36 62 34 30 62 34 34 61 62 61 34 62 64 36 0a 0a 6b40b44aba4bd6..
87d0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
87e0: 6f 63 6b 5f 44 45 53 2d 31 2e 31 33 31 20 7b 45 ock_DES-1.131 {E
87f0: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
8800: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
8810: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
8820: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
8830: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
8840: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
8850: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
8860: 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 43 41 y decode hex 7CA
8870: 31 31 30 34 35 34 41 31 41 36 45 35 37 5d 20 5c 110454A1A6E57] \
8880: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
8890: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 41 31 decode hex 01A1
88a0: 44 36 44 30 33 39 37 37 36 37 34 32 5d 5d 7d 20 D6D039776742]]}
88b0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
88c0: 2d 72 65 73 75 6c 74 20 36 39 30 66 35 62 30 64 -result 690f5b0d
88d0: 39 61 32 36 39 33 39 62 0a 0a 74 63 6c 74 65 73 9a26939b..tcltes
88e0: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
88f0: 53 2d 31 2e 31 33 32 20 7b 44 65 63 72 79 70 74 S-1.132 {Decrypt
8900: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
8910: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
8920: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
8930: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
8940: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
8950: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
8960: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
8970: 64 65 20 68 65 78 20 37 43 41 31 31 30 34 35 34 de hex 7CA110454
8980: 41 31 41 36 45 35 37 5d 20 5c 0a 09 09 2d 64 61 A1A6E57] \...-da
8990: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
89a0: 65 20 68 65 78 20 36 39 30 46 35 42 30 44 39 41 e hex 690F5B0D9A
89b0: 32 36 39 33 39 42 5d 5d 7d 20 5c 0a 09 2d 6d 61 26939B]]} \..-ma
89c0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
89d0: 74 20 30 31 61 31 64 36 64 30 33 39 37 37 36 37 t 01a1d6d0397767
89e0: 34 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 42..tcltest::tes
89f0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 33 t Block_DES-1.13
8a00: 33 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 3 {Encrypt DES}
8a10: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
8a20: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
8a30: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
8a40: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
8a50: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
8a60: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
8a70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
8a80: 20 30 31 33 31 44 39 36 31 39 44 43 31 33 37 36 0131D9619DC1376
8a90: 45 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 E] \...-data [bi
8aa0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
8ab0: 35 43 44 35 34 43 41 38 33 44 45 46 35 37 44 41 5CD54CA83DEF57DA
8ac0: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
8ad0: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 61 33 38 act -result 7a38
8ae0: 39 64 31 30 33 35 34 62 64 32 37 31 0a 0a 74 63 9d10354bd271..tc
8af0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
8b00: 6b 5f 44 45 53 2d 31 2e 31 33 34 20 7b 44 65 63 k_DES-1.134 {Dec
8b10: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
8b20: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
8b30: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
8b40: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
8b50: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
8b60: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
8b70: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
8b80: 64 65 63 6f 64 65 20 68 65 78 20 30 31 33 31 44 decode hex 0131D
8b90: 39 36 31 39 44 43 31 33 37 36 45 5d 20 5c 0a 09 9619DC1376E] \..
8ba0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
8bb0: 65 63 6f 64 65 20 68 65 78 20 37 41 33 38 39 44 ecode hex 7A389D
8bc0: 31 30 33 35 34 42 44 32 37 31 5d 5d 7d 20 5c 0a 10354BD271]]} \.
8bd0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
8be0: 65 73 75 6c 74 20 35 63 64 35 34 63 61 38 33 64 esult 5cd54ca83d
8bf0: 65 66 35 37 64 61 0a 0a 74 63 6c 74 65 73 74 3a ef57da..tcltest:
8c00: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
8c10: 31 2e 31 33 35 20 7b 45 6e 63 72 79 70 74 20 44 1.135 {Encrypt D
8c20: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
8c30: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
8c40: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
8c50: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
8c60: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
8c70: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
8c80: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
8c90: 20 68 65 78 20 30 37 41 31 31 33 33 45 34 41 30 hex 07A1133E4A0
8ca0: 42 32 36 38 36 5d 20 5c 0a 09 09 2d 64 61 74 61 B2686] \...-data
8cb0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
8cc0: 68 65 78 20 30 32 34 38 44 34 33 38 30 36 46 36 hex 0248D43806F6
8cd0: 37 31 37 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 7172]]} \..-matc
8ce0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
8cf0: 38 36 38 65 62 62 35 31 63 61 62 34 35 39 39 61 868ebb51cab4599a
8d00: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
8d10: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 33 36 20 Block_DES-1.136
8d20: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
8d30: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
8d40: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
8d50: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
8d60: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
8d70: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
8d80: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
8d90: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
8da0: 37 41 31 31 33 33 45 34 41 30 42 32 36 38 36 5d 7A1133E4A0B2686]
8db0: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
8dc0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 36 ry decode hex 86
8dd0: 38 45 42 42 35 31 43 41 42 34 35 39 39 41 5d 5d 8EBB51CAB4599A]]
8de0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
8df0: 74 20 2d 72 65 73 75 6c 74 20 30 32 34 38 64 34 t -result 0248d4
8e00: 33 38 30 36 66 36 37 31 37 32 0a 0a 74 63 6c 74 3806f67172..tclt
8e10: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
8e20: 44 45 53 2d 31 2e 31 33 37 20 7b 45 6e 63 72 79 DES-1.137 {Encry
8e30: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
8e40: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
8e50: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
8e60: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
8e70: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
8e80: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
8e90: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
8ea0: 63 6f 64 65 20 68 65 78 20 33 38 34 39 36 37 34 code hex 3849674
8eb0: 43 32 36 30 32 33 31 39 45 5d 20 5c 0a 09 09 2d C2602319E] \...-
8ec0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
8ed0: 6f 64 65 20 68 65 78 20 35 31 34 35 34 42 35 38 ode hex 51454B58
8ee0: 32 44 44 46 34 34 30 41 5d 5d 7d 20 5c 0a 09 2d 2DDF440A]]} \..-
8ef0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
8f00: 75 6c 74 20 37 31 37 38 38 37 36 65 30 31 66 31 ult 7178876e01f1
8f10: 39 62 32 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 9b2a..tcltest::t
8f20: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
8f30: 31 33 38 20 7b 44 65 63 72 79 70 74 20 44 45 53 138 {Decrypt DES
8f40: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
8f50: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
8f60: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
8f70: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
8f80: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
8f90: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
8fa0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
8fb0: 65 78 20 33 38 34 39 36 37 34 43 32 36 30 32 33 ex 3849674C26023
8fc0: 31 39 45 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 19E] \...-data [
8fd0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
8fe0: 78 20 37 31 37 38 38 37 36 45 30 31 46 31 39 42 x 7178876E01F19B
8ff0: 32 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 2A]]} \..-match
9000: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 31 exact -result 51
9010: 34 35 34 62 35 38 32 64 64 66 34 34 30 61 0a 0a 454b582ddf440a..
9020: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
9030: 6f 63 6b 5f 44 45 53 2d 31 2e 31 33 39 20 7b 45 ock_DES-1.139 {E
9040: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
9050: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
9060: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
9070: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
9080: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
9090: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
90a0: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
90b0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 34 42 y decode hex 04B
90c0: 39 31 35 42 41 34 33 46 45 42 35 42 36 5d 20 5c 915BA43FEB5B6] \
90d0: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
90e0: 20 64 65 63 6f 64 65 20 68 65 78 20 34 32 46 44 decode hex 42FD
90f0: 34 34 33 30 35 39 35 37 37 46 41 32 5d 5d 7d 20 443059577FA2]]}
9100: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
9110: 2d 72 65 73 75 6c 74 20 61 66 33 37 66 62 34 32 -result af37fb42
9120: 31 66 38 63 34 30 39 35 0a 0a 74 63 6c 74 65 73 1f8c4095..tcltes
9130: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
9140: 53 2d 31 2e 31 34 30 20 7b 44 65 63 72 79 70 74 S-1.140 {Decrypt
9150: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
9160: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
9170: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
9180: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
9190: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
91a0: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
91b0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
91c0: 64 65 20 68 65 78 20 30 34 42 39 31 35 42 41 34 de hex 04B915BA4
91d0: 33 46 45 42 35 42 36 5d 20 5c 0a 09 09 2d 64 61 3FEB5B6] \...-da
91e0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
91f0: 65 20 68 65 78 20 41 46 33 37 46 42 34 32 31 46 e hex AF37FB421F
9200: 38 43 34 30 39 35 5d 5d 7d 20 5c 0a 09 2d 6d 61 8C4095]]} \..-ma
9210: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
9220: 74 20 34 32 66 64 34 34 33 30 35 39 35 37 37 66 t 42fd443059577f
9230: 61 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 a2..tcltest::tes
9240: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 34 t Block_DES-1.14
9250: 31 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 1 {Encrypt DES}
9260: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
9270: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
9280: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
9290: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
92a0: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
92b0: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
92c0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
92d0: 20 30 31 31 33 42 39 37 30 46 44 33 34 46 32 43 0113B970FD34F2C
92e0: 45 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 E] \...-data [bi
92f0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
9300: 30 35 39 42 35 45 30 38 35 31 43 46 31 34 33 41 059B5E0851CF143A
9310: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
9320: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 36 61 35 act -result 86a5
9330: 36 30 66 31 30 65 63 36 64 38 35 62 0a 0a 74 63 60f10ec6d85b..tc
9340: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
9350: 6b 5f 44 45 53 2d 31 2e 31 34 32 20 7b 44 65 63 k_DES-1.142 {Dec
9360: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
9370: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
9380: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
9390: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
93a0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
93b0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
93c0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
93d0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 31 33 42 decode hex 0113B
93e0: 39 37 30 46 44 33 34 46 32 43 45 5d 20 5c 0a 09 970FD34F2CE] \..
93f0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
9400: 65 63 6f 64 65 20 68 65 78 20 38 36 41 35 36 30 ecode hex 86A560
9410: 46 31 30 45 43 36 44 38 35 42 5d 5d 7d 20 5c 0a F10EC6D85B]]} \.
9420: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
9430: 65 73 75 6c 74 20 30 35 39 62 35 65 30 38 35 31 esult 059b5e0851
9440: 63 66 31 34 33 61 0a 0a 74 63 6c 74 65 73 74 3a cf143a..tcltest:
9450: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
9460: 31 2e 31 34 33 20 7b 45 6e 63 72 79 70 74 20 44 1.143 {Encrypt D
9470: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
9480: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
9490: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
94a0: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
94b0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
94c0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
94d0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
94e0: 20 68 65 78 20 30 31 37 30 46 31 37 35 34 36 38 hex 0170F175468
94f0: 46 42 35 45 36 5d 20 5c 0a 09 09 2d 64 61 74 61 FB5E6] \...-data
9500: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
9510: 68 65 78 20 30 37 35 36 44 38 45 30 37 37 34 37 hex 0756D8E07747
9520: 36 31 44 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 61D2]]} \..-matc
9530: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
9540: 30 63 64 33 64 61 30 32 30 30 32 31 64 63 30 39 0cd3da020021dc09
9550: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
9560: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 34 34 20 Block_DES-1.144
9570: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
9580: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
9590: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
95a0: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
95b0: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
95c0: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
95d0: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
95e0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
95f0: 31 37 30 46 31 37 35 34 36 38 46 42 35 45 36 5d 170F175468FB5E6]
9600: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
9610: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 43 ry decode hex 0C
9620: 44 33 44 41 30 32 30 30 32 31 44 43 30 39 5d 5d D3DA020021DC09]]
9630: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
9640: 74 20 2d 72 65 73 75 6c 74 20 30 37 35 36 64 38 t -result 0756d8
9650: 65 30 37 37 34 37 36 31 64 32 0a 0a 74 63 6c 74 e0774761d2..tclt
9660: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
9670: 44 45 53 2d 31 2e 31 34 35 20 7b 45 6e 63 72 79 DES-1.145 {Encry
9680: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
9690: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
96a0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
96b0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
96c0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
96d0: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
96e0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
96f0: 63 6f 64 65 20 68 65 78 20 34 33 32 39 37 46 41 code hex 43297FA
9700: 44 33 38 45 33 37 33 46 45 5d 20 5c 0a 09 09 2d D38E373FE] \...-
9710: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
9720: 6f 64 65 20 68 65 78 20 37 36 32 35 31 34 42 38 ode hex 762514B8
9730: 32 39 42 46 34 38 36 41 5d 5d 7d 20 5c 0a 09 2d 29BF486A]]} \..-
9740: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
9750: 75 6c 74 20 65 61 36 37 36 62 32 63 62 37 64 62 ult ea676b2cb7db
9760: 32 62 37 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 2b7a..tcltest::t
9770: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
9780: 31 34 36 20 7b 44 65 63 72 79 70 74 20 44 45 53 146 {Decrypt DES
9790: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
97a0: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
97b0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
97c0: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
97d0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
97e0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
97f0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
9800: 65 78 20 34 33 32 39 37 46 41 44 33 38 45 33 37 ex 43297FAD38E37
9810: 33 46 45 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 3FE] \...-data [
9820: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
9830: 78 20 45 41 36 37 36 42 32 43 42 37 44 42 32 42 x EA676B2CB7DB2B
9840: 37 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 7A]]} \..-match
9850: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 36 exact -result 76
9860: 32 35 31 34 62 38 32 39 62 66 34 38 36 61 0a 0a 2514b829bf486a..
9870: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
9880: 6f 63 6b 5f 44 45 53 2d 31 2e 31 34 37 20 7b 45 ock_DES-1.147 {E
9890: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
98a0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
98b0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
98c0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
98d0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
98e0: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
98f0: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
9900: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 37 41 y decode hex 07A
9910: 37 31 33 37 30 34 35 44 41 32 41 31 36 5d 20 5c 7137045DA2A16] \
9920: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
9930: 20 64 65 63 6f 64 65 20 68 65 78 20 33 42 44 44 decode hex 3BDD
9940: 31 31 39 30 34 39 33 37 32 38 30 32 5d 5d 7d 20 119049372802]]}
9950: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
9960: 2d 72 65 73 75 6c 74 20 64 66 64 36 34 61 38 31 -result dfd64a81
9970: 35 63 61 66 31 61 30 66 0a 0a 74 63 6c 74 65 73 5caf1a0f..tcltes
9980: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
9990: 53 2d 31 2e 31 34 38 20 7b 44 65 63 72 79 70 74 S-1.148 {Decrypt
99a0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
99b0: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
99c0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
99d0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
99e0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
99f0: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
9a00: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
9a10: 64 65 20 68 65 78 20 30 37 41 37 31 33 37 30 34 de hex 07A713704
9a20: 35 44 41 32 41 31 36 5d 20 5c 0a 09 09 2d 64 61 5DA2A16] \...-da
9a30: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
9a40: 65 20 68 65 78 20 44 46 44 36 34 41 38 31 35 43 e hex DFD64A815C
9a50: 41 46 31 41 30 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 AF1A0F]]} \..-ma
9a60: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
9a70: 74 20 33 62 64 64 31 31 39 30 34 39 33 37 32 38 t 3bdd1190493728
9a80: 30 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 02..tcltest::tes
9a90: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 34 t Block_DES-1.14
9aa0: 39 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 9 {Encrypt DES}
9ab0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
9ac0: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
9ad0: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
9ae0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
9af0: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
9b00: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
9b10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
9b20: 20 30 34 36 38 39 31 30 34 43 32 46 44 33 42 32 04689104C2FD3B2
9b30: 46 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 F] \...-data [bi
9b40: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
9b50: 32 36 39 35 35 46 36 38 33 35 41 46 36 30 39 41 26955F6835AF609A
9b60: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
9b70: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 63 35 31 act -result 5c51
9b80: 33 63 39 63 34 38 38 36 63 30 38 38 0a 0a 74 63 3c9c4886c088..tc
9b90: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
9ba0: 6b 5f 44 45 53 2d 31 2e 31 35 30 20 7b 44 65 63 k_DES-1.150 {Dec
9bb0: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
9bc0: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
9bd0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
9be0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
9bf0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
9c00: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
9c10: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
9c20: 64 65 63 6f 64 65 20 68 65 78 20 30 34 36 38 39 decode hex 04689
9c30: 31 30 34 43 32 46 44 33 42 32 46 5d 20 5c 0a 09 104C2FD3B2F] \..
9c40: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
9c50: 65 63 6f 64 65 20 68 65 78 20 35 43 35 31 33 43 ecode hex 5C513C
9c60: 39 43 34 38 38 36 43 30 38 38 5d 5d 7d 20 5c 0a 9C4886C088]]} \.
9c70: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
9c80: 65 73 75 6c 74 20 32 36 39 35 35 66 36 38 33 35 esult 26955f6835
9c90: 61 66 36 30 39 61 0a 0a 74 63 6c 74 65 73 74 3a af609a..tcltest:
9ca0: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
9cb0: 31 2e 31 35 31 20 7b 45 6e 63 72 79 70 74 20 44 1.151 {Encrypt D
9cc0: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
9cd0: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
9ce0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
9cf0: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
9d00: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
9d10: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
9d20: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
9d30: 20 68 65 78 20 33 37 44 30 36 42 42 35 31 36 43 hex 37D06BB516C
9d40: 42 37 35 34 36 5d 20 5c 0a 09 09 2d 64 61 74 61 B7546] \...-data
9d50: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
9d60: 68 65 78 20 31 36 34 44 35 45 34 30 34 46 32 37 hex 164D5E404F27
9d70: 35 32 33 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 5232]]} \..-matc
9d80: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
9d90: 30 61 32 61 65 65 61 65 33 66 66 34 61 62 37 37 0a2aeeae3ff4ab77
9da0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
9db0: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 35 32 20 Block_DES-1.152
9dc0: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
9dd0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
9de0: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
9df0: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
9e00: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
9e10: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
9e20: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
9e30: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 ary decode hex 3
9e40: 37 44 30 36 42 42 35 31 36 43 42 37 35 34 36 5d 7D06BB516CB7546]
9e50: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
9e60: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 41 ry decode hex 0A
9e70: 32 41 45 45 41 45 33 46 46 34 41 42 37 37 5d 5d 2AEEAE3FF4AB77]]
9e80: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
9e90: 74 20 2d 72 65 73 75 6c 74 20 31 36 34 64 35 65 t -result 164d5e
9ea0: 34 30 34 66 32 37 35 32 33 32 0a 0a 74 63 6c 74 404f275232..tclt
9eb0: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
9ec0: 44 45 53 2d 31 2e 31 35 33 20 7b 45 6e 63 72 79 DES-1.153 {Encry
9ed0: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
9ee0: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
9ef0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
9f00: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
9f10: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
9f20: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
9f30: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
9f40: 63 6f 64 65 20 68 65 78 20 31 46 30 38 32 36 30 code hex 1F08260
9f50: 44 31 41 43 32 34 36 35 45 5d 20 5c 0a 09 09 2d D1AC2465E] \...-
9f60: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
9f70: 6f 64 65 20 68 65 78 20 36 42 30 35 36 45 31 38 ode hex 6B056E18
9f80: 37 35 39 46 35 43 43 41 5d 5d 7d 20 5c 0a 09 2d 759F5CCA]]} \..-
9f90: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
9fa0: 75 6c 74 20 65 66 31 62 66 30 33 65 35 64 66 61 ult ef1bf03e5dfa
9fb0: 35 37 35 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 575a..tcltest::t
9fc0: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
9fd0: 31 35 34 20 7b 44 65 63 72 79 70 74 20 44 45 53 154 {Decrypt DES
9fe0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
9ff0: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
a000: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
a010: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
a020: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
a030: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
a040: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
a050: 65 78 20 31 46 30 38 32 36 30 44 31 41 43 32 34 ex 1F08260D1AC24
a060: 36 35 45 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 65E] \...-data [
a070: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
a080: 78 20 45 46 31 42 46 30 33 45 35 44 46 41 35 37 x EF1BF03E5DFA57
a090: 35 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 5A]]} \..-match
a0a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 62 exact -result 6b
a0b0: 30 35 36 65 31 38 37 35 39 66 35 63 63 61 0a 0a 056e18759f5cca..
a0c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
a0d0: 6f 63 6b 5f 44 45 53 2d 31 2e 31 35 35 20 7b 45 ock_DES-1.155 {E
a0e0: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
a0f0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
a100: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
a110: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
a120: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
a130: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
a140: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
a150: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 38 34 y decode hex 584
a160: 30 32 33 36 34 31 41 42 41 36 31 37 36 5d 20 5c 023641ABA6176] \
a170: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
a180: 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 34 42 decode hex 004B
a190: 44 36 45 46 30 39 31 37 36 30 36 32 5d 5d 7d 20 D6EF09176062]]}
a1a0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
a1b0: 2d 72 65 73 75 6c 74 20 38 38 62 66 30 64 62 36 -result 88bf0db6
a1c0: 64 37 30 64 65 65 35 36 0a 0a 74 63 6c 74 65 73 d70dee56..tcltes
a1d0: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
a1e0: 53 2d 31 2e 31 35 36 20 7b 44 65 63 72 79 70 74 S-1.156 {Decrypt
a1f0: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
a200: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
a210: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
a220: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
a230: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
a240: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
a250: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
a260: 64 65 20 68 65 78 20 35 38 34 30 32 33 36 34 31 de hex 584023641
a270: 41 42 41 36 31 37 36 5d 20 5c 0a 09 09 2d 64 61 ABA6176] \...-da
a280: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
a290: 65 20 68 65 78 20 38 38 42 46 30 44 42 36 44 37 e hex 88BF0DB6D7
a2a0: 30 44 45 45 35 36 5d 5d 7d 20 5c 0a 09 2d 6d 61 0DEE56]]} \..-ma
a2b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
a2c0: 74 20 30 30 34 62 64 36 65 66 30 39 31 37 36 30 t 004bd6ef091760
a2d0: 36 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 62..tcltest::tes
a2e0: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 35 t Block_DES-1.15
a2f0: 37 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 7 {Encrypt DES}
a300: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
a310: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
a320: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
a330: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
a340: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
a350: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
a360: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
a370: 20 30 32 35 38 31 36 31 36 34 36 32 39 42 30 30 025816164629B00
a380: 37 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 7] \...-data [bi
a390: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
a3a0: 34 38 30 44 33 39 30 30 36 45 45 37 36 32 46 32 480D39006EE762F2
a3b0: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
a3c0: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 31 66 39 act -result a1f9
a3d0: 39 31 35 35 34 31 30 32 30 62 35 36 0a 0a 74 63 915541020b56..tc
a3e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
a3f0: 6b 5f 44 45 53 2d 31 2e 31 35 38 20 7b 44 65 63 k_DES-1.158 {Dec
a400: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
a410: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
a420: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
a430: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
a440: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
a450: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
a460: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
a470: 64 65 63 6f 64 65 20 68 65 78 20 30 32 35 38 31 decode hex 02581
a480: 36 31 36 34 36 32 39 42 30 30 37 5d 20 5c 0a 09 6164629B007] \..
a490: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
a4a0: 65 63 6f 64 65 20 68 65 78 20 41 31 46 39 39 31 ecode hex A1F991
a4b0: 35 35 34 31 30 32 30 42 35 36 5d 5d 7d 20 5c 0a 5541020B56]]} \.
a4c0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
a4d0: 65 73 75 6c 74 20 34 38 30 64 33 39 30 30 36 65 esult 480d39006e
a4e0: 65 37 36 32 66 32 0a 0a 74 63 6c 74 65 73 74 3a e762f2..tcltest:
a4f0: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
a500: 31 2e 31 35 39 20 7b 45 6e 63 72 79 70 74 20 44 1.159 {Encrypt D
a510: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
a520: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
a530: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
a540: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
a550: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
a560: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
a570: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
a580: 20 68 65 78 20 34 39 37 39 33 45 42 43 37 39 42 hex 49793EBC79B
a590: 33 32 35 38 46 5d 20 5c 0a 09 09 2d 64 61 74 61 3258F] \...-data
a5a0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
a5b0: 68 65 78 20 34 33 37 35 34 30 43 38 36 39 38 46 hex 437540C8698F
a5c0: 33 43 46 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 3CFA]]} \..-matc
a5d0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
a5e0: 36 66 62 66 31 63 61 66 63 66 66 64 30 35 35 36 6fbf1cafcffd0556
a5f0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
a600: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 36 30 20 Block_DES-1.160
a610: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
a620: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
a630: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
a640: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
a650: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
a660: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
a670: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
a680: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 ary decode hex 4
a690: 39 37 39 33 45 42 43 37 39 42 33 32 35 38 46 5d 9793EBC79B3258F]
a6a0: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
a6b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 46 ry decode hex 6F
a6c0: 42 46 31 43 41 46 43 46 46 44 30 35 35 36 5d 5d BF1CAFCFFD0556]]
a6d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
a6e0: 74 20 2d 72 65 73 75 6c 74 20 34 33 37 35 34 30 t -result 437540
a6f0: 63 38 36 39 38 66 33 63 66 61 0a 0a 74 63 6c 74 c8698f3cfa..tclt
a700: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
a710: 44 45 53 2d 31 2e 31 36 31 20 7b 45 6e 63 72 79 DES-1.161 {Encry
a720: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
a730: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
a740: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
a750: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
a760: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
a770: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
a780: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
a790: 63 6f 64 65 20 68 65 78 20 34 46 42 30 35 45 31 code hex 4FB05E1
a7a0: 35 31 35 41 42 37 33 41 37 5d 20 5c 0a 09 09 2d 515AB73A7] \...-
a7b0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
a7c0: 6f 64 65 20 68 65 78 20 30 37 32 44 34 33 41 30 ode hex 072D43A0
a7d0: 37 37 30 37 35 32 39 32 5d 5d 7d 20 5c 0a 09 2d 77075292]]} \..-
a7e0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
a7f0: 75 6c 74 20 32 66 32 32 65 34 39 62 61 62 37 63 ult 2f22e49bab7c
a800: 61 31 61 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 a1ac..tcltest::t
a810: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
a820: 31 36 32 20 7b 44 65 63 72 79 70 74 20 44 45 53 162 {Decrypt DES
a830: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
a840: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
a850: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
a860: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
a870: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
a880: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
a890: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
a8a0: 65 78 20 34 46 42 30 35 45 31 35 31 35 41 42 37 ex 4FB05E1515AB7
a8b0: 33 41 37 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 3A7] \...-data [
a8c0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
a8d0: 78 20 32 46 32 32 45 34 39 42 41 42 37 43 41 31 x 2F22E49BAB7CA1
a8e0: 41 43 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 AC]]} \..-match
a8f0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 37 exact -result 07
a900: 32 64 34 33 61 30 37 37 30 37 35 32 39 32 0a 0a 2d43a077075292..
a910: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
a920: 6f 63 6b 5f 44 45 53 2d 31 2e 31 36 33 20 7b 45 ock_DES-1.163 {E
a930: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
a940: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
a950: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
a960: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
a970: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
a980: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
a990: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
a9a0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 39 45 y decode hex 49E
a9b0: 39 35 44 36 44 34 43 41 32 32 39 42 46 5d 20 5c 95D6D4CA229BF] \
a9c0: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
a9d0: 20 64 65 63 6f 64 65 20 68 65 78 20 30 32 46 45 decode hex 02FE
a9e0: 35 35 37 37 38 31 31 37 46 31 32 41 5d 5d 7d 20 55778117F12A]]}
a9f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
aa00: 2d 72 65 73 75 6c 74 20 35 61 36 62 36 31 32 63 -result 5a6b612c
aa10: 63 32 36 63 63 65 34 61 0a 0a 74 63 6c 74 65 73 c26cce4a..tcltes
aa20: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
aa30: 53 2d 31 2e 31 36 34 20 7b 44 65 63 72 79 70 74 S-1.164 {Decrypt
aa40: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
aa50: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
aa60: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
aa70: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
aa80: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
aa90: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
aaa0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
aab0: 64 65 20 68 65 78 20 34 39 45 39 35 44 36 44 34 de hex 49E95D6D4
aac0: 43 41 32 32 39 42 46 5d 20 5c 0a 09 09 2d 64 61 CA229BF] \...-da
aad0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
aae0: 65 20 68 65 78 20 35 41 36 42 36 31 32 43 43 32 e hex 5A6B612CC2
aaf0: 36 43 43 45 34 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 6CCE4A]]} \..-ma
ab00: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
ab10: 74 20 30 32 66 65 35 35 37 37 38 31 31 37 66 31 t 02fe55778117f1
ab20: 32 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 2a..tcltest::tes
ab30: 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 36 t Block_DES-1.16
ab40: 35 20 7b 45 6e 63 72 79 70 74 20 44 45 53 7d 20 5 {Encrypt DES}
ab50: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
ab60: 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 DES \..-body {bi
ab70: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
ab80: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
ab90: 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 ipher DES -paddi
aba0: 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 ng 0 \...-key [b
abb0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
abc0: 20 30 31 38 33 31 30 44 43 34 30 39 42 32 36 44 018310DC409B26D
abd0: 36 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6] \...-data [bi
abe0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
abf0: 31 44 39 44 35 43 35 30 31 38 46 37 32 38 43 32 1D9D5C5018F728C2
ac00: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
ac10: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 66 34 63 act -result 5f4c
ac20: 30 33 38 65 64 31 32 62 32 65 34 31 0a 0a 74 63 038ed12b2e41..tc
ac30: 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 ltest::test Bloc
ac40: 6b 5f 44 45 53 2d 31 2e 31 36 36 20 7b 44 65 63 k_DES-1.166 {Dec
ac50: 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f rypt DES} \..-co
ac60: 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a nstraints DES \.
ac70: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
ac80: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
ac90: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
aca0: 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c DES -padding 0 \
acb0: 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 ...-key [binary
acc0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 38 33 31 decode hex 01831
acd0: 30 44 43 34 30 39 42 32 36 44 36 5d 20 5c 0a 09 0DC409B26D6] \..
ace0: 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 .-data [binary d
acf0: 65 63 6f 64 65 20 68 65 78 20 35 46 34 43 30 33 ecode hex 5F4C03
ad00: 38 45 44 31 32 42 32 45 34 31 5d 5d 7d 20 5c 0a 8ED12B2E41]]} \.
ad10: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
ad20: 65 73 75 6c 74 20 31 64 39 64 35 63 35 30 31 38 esult 1d9d5c5018
ad30: 66 37 32 38 63 32 0a 0a 74 63 6c 74 65 73 74 3a f728c2..tcltest:
ad40: 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d :test Block_DES-
ad50: 31 2e 31 36 37 20 7b 45 6e 63 72 79 70 74 20 44 1.167 {Encrypt D
ad60: 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 ES} \..-constrai
ad70: 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 nts DES \..-body
ad80: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
ad90: 68 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 hex [tls::encryp
ada0: 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 t -cipher DES -p
adb0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 adding 0 \...-ke
adc0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
add0: 20 68 65 78 20 31 43 35 38 37 46 31 43 31 33 39 hex 1C587F1C139
ade0: 32 34 46 45 46 5d 20 5c 0a 09 09 2d 64 61 74 61 24FEF] \...-data
adf0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
ae00: 68 65 78 20 33 30 35 35 33 32 32 38 36 44 36 46 hex 305532286D6F
ae10: 32 39 35 41 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 295A]]} \..-matc
ae20: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
ae30: 36 33 66 61 63 30 64 30 33 34 64 39 66 37 39 33 63fac0d034d9f793
ae40: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
ae50: 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e 31 36 38 20 Block_DES-1.168
ae60: 7b 44 65 63 72 79 70 74 20 44 45 53 7d 20 5c 0a {Decrypt DES} \.
ae70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 .-constraints DE
ae80: 53 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 S \..-body {bina
ae90: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
aea0: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
aeb0: 68 65 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 her DES -padding
aec0: 20 30 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 0 \...-key [bin
aed0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 ary decode hex 1
aee0: 43 35 38 37 46 31 43 31 33 39 32 34 46 45 46 5d C587F1C13924FEF]
aef0: 20 5c 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 \...-data [bina
af00: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 33 ry decode hex 63
af10: 46 41 43 30 44 30 33 34 44 39 46 37 39 33 5d 5d FAC0D034D9F793]]
af20: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
af30: 74 20 2d 72 65 73 75 6c 74 20 33 30 35 35 33 32 t -result 305532
af40: 32 38 36 64 36 66 32 39 35 61 0a 0a 74 63 6c 74 286d6f295a..tclt
af50: 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f est::test Block_
af60: 44 45 53 2d 31 2e 31 36 39 20 7b 45 6e 63 72 79 DES-1.169 {Encry
af70: 70 74 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 pt DES} \..-cons
af80: 74 72 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d traints DES \..-
af90: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
afa0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
afb0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
afc0: 53 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 S -padding 0 \..
afd0: 09 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 .-key [binary de
afe0: 63 6f 64 65 20 68 65 78 20 31 30 33 31 36 45 30 code hex 10316E0
aff0: 32 38 43 38 46 33 42 34 41 5d 20 5c 0a 09 09 2d 28C8F3B4A] \...-
b000: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
b010: 6f 64 65 20 68 65 78 20 30 30 30 30 30 30 30 30 ode hex 00000000
b020: 30 30 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 00000000]]} \..-
b030: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
b040: 75 6c 74 20 38 32 64 63 62 61 66 62 64 65 61 62 ult 82dcbafbdeab
b050: 36 36 30 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 6602..tcltest::t
b060: 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 31 2e est Block_DES-1.
b070: 31 37 30 20 7b 44 65 63 72 79 70 74 20 44 45 53 170 {Decrypt DES
b080: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
b090: 73 20 44 45 53 20 5c 0a 09 2d 62 6f 64 79 20 7b s DES \..-body {
b0a0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
b0b0: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
b0c0: 2d 63 69 70 68 65 72 20 44 45 53 20 2d 70 61 64 -cipher DES -pad
b0d0: 64 69 6e 67 20 30 20 5c 0a 09 09 2d 6b 65 79 20 ding 0 \...-key
b0e0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
b0f0: 65 78 20 31 30 33 31 36 45 30 32 38 43 38 46 33 ex 10316E028C8F3
b100: 42 34 41 5d 20 5c 0a 09 09 2d 64 61 74 61 20 5b B4A] \...-data [
b110: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
b120: 78 20 38 32 44 43 42 41 46 42 44 45 41 42 36 36 x 82DCBAFBDEAB66
b130: 30 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 02]]} \..-match
b140: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 exact -result 00
b150: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0a 0a 00000000000000..
b160: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c tcltest::test Bl
b170: 6f 63 6b 5f 44 45 53 2d 31 2e 31 37 31 20 7b 45 ock_DES-1.171 {E
b180: 6e 63 72 79 70 74 20 44 45 53 7d 20 5c 0a 09 2d ncrypt DES} \..-
b190: 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 20 constraints DES
b1a0: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
b1b0: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
b1c0: 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 ::encrypt -ciphe
b1d0: 72 20 44 45 53 20 2d 70 61 64 64 69 6e 67 20 30 r DES -padding 0
b1e0: 20 5c 0a 09 09 2d 6b 65 79 20 5b 62 69 6e 61 72 \...-key [binar
b1f0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 30 y decode hex 010
b200: 31 30 31 30 31 30 31 30 31 30 31 30 31 5d 20 5c 1010101010101] \
b210: 0a 09 09 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 ...-data [binary
b220: 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 decode hex 0000
b230: 30 30 30 30 30 30 30 30 30 30 30 30 5d 5d 7d 20 000000000000]]}
b240: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
b250: 2d 72 65 73 75 6c 74 20 38 30 30 30 30 30 30 30 -result 80000000
b260: 30 30 30 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 00000000..tcltes
b270: 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 t::test Block_DE
b280: 53 2d 31 2e 31 37 32 20 7b 44 65 63 72 79 70 74 S-1.172 {Decrypt
b290: 20 44 45 53 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 DES} \..-constr
b2a0: 61 69 6e 74 73 20 44 45 53 20 5c 0a 09 2d 62 6f aints DES \..-bo
b2b0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
b2c0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
b2d0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 20 ypt -cipher DES
b2e0: 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 2d -padding 0 \...-
b2f0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
b300: 64 65 20 68 65 78 20 30 31 30 31 30 31 30 31 30 de hex 010101010
b310: 31 30 31 30 31 30 31 5d 20 5c 0a 09 09 2d 64 61 1010101] \...-da
b320: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
b330: 65 20 68 65 78 20 38 30 30 30 30 30 30 30 30 30 e hex 8000000000
b340: 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 000000]]} \..-ma
b350: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
b360: 74 20 30 30 30 30 30 30 30 30 30 30 30 30 30 30 t 00000000000000
b370: 30 30 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 00..# Cleanup.::
b380: 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 tcltest::cleanup
b390: 54 65 73 74 73 0a 72 65 74 75 72 6e 0a Tests.return.