Artifact
4043cb42be10f801a624ca9bd3b1fdfecd4842983f0bf79ceee172a495dab502:
0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64 # Auto generated
0010: 20 66 72 6f 6d 20 22 44 45 53 2d 43 46 42 31 2e from "DES-CFB1.
0020: 74 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 txt".lappend aut
0030: 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 o_path [file dir
0040: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0050: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0060: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0070: 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 file join [pwd]
0080: 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d [info script]]]]
0090: 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ]].package requi
00a0: 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 re tls.package r
00b0: 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a equire tcltest..
00c0: 63 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 catch {tls::prov
00d0: 69 64 65 72 20 6c 65 67 61 63 79 7d 0a 74 63 6c ider legacy}.tcl
00e0: 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 test::testConstr
00f0: 61 69 6e 74 20 44 45 53 5f 43 46 42 31 20 5b 65 aint DES_CFB1 [e
0100: 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e xpr {[lsearch -n
0110: 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 68 ocase [tls::ciph
0120: 65 72 73 5d 20 44 45 53 2d 43 46 42 31 5d 20 3e ers] DES-CFB1] >
0130: 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a -1}]..tcltest::
0140: 74 65 73 74 20 42 6c 6f 63 6b 5f 44 45 53 2d 43 test Block_DES-C
0150: 46 42 31 2d 31 2e 31 20 7b 45 6e 63 72 79 70 74 FB1-1.1 {Encrypt
0160: 20 44 45 53 2d 43 46 42 31 7d 20 5c 0a 09 2d 63 DES-CFB1} \..-c
0170: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 43 onstraints DES_C
0180: 46 42 31 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 FB1 \..-body {bi
0190: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 nary encode hex
01a0: 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 [tls::encrypt -c
01b0: 69 70 68 65 72 20 44 45 53 2d 43 46 42 31 20 2d ipher DES-CFB1 -
01c0: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
01d0: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
01e0: 64 65 20 68 65 78 20 30 31 32 33 34 35 36 37 38 de hex 012345678
01f0: 39 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 69 9abcdef] \... -i
0200: 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 v [binary decode
0210: 20 68 65 78 20 31 32 33 34 35 36 37 38 39 30 61 hex 1234567890a
0220: 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 64 61 74 bcdef] \... -dat
0230: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0240: 20 68 65 78 20 34 65 36 66 37 37 5d 5d 7d 20 5c hex 4e6f77]]} \
0250: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0260: 72 65 73 75 6c 74 20 63 64 31 65 63 39 0a 0a 74 result cd1ec9..t
0270: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 42 6c 6f cltest::test Blo
0280: 63 6b 5f 44 45 53 2d 43 46 42 31 2d 31 2e 32 20 ck_DES-CFB1-1.2
0290: 7b 44 65 63 72 79 70 74 20 44 45 53 2d 43 46 42 {Decrypt DES-CFB
02a0: 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 1} \..-constrain
02b0: 74 73 20 44 45 53 5f 43 46 42 31 20 5c 0a 09 2d ts DES_CFB1 \..-
02c0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
02d0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 ode hex [tls::de
02e0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 crypt -cipher DE
02f0: 53 2d 43 46 42 31 20 2d 70 61 64 64 69 6e 67 20 S-CFB1 -padding
0300: 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 0 \... -key [bin
0310: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 ary decode hex 0
0320: 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 5d 123456789abcdef]
0330: 20 5c 0a 09 09 20 2d 69 76 20 5b 62 69 6e 61 72 \... -iv [binar
0340: 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 32 33 y decode hex 123
0350: 34 35 36 37 38 39 30 61 62 63 64 65 66 5d 20 5c 4567890abcdef] \
0360: 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 ... -data [binar
0370: 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 64 31 y decode hex cd1
0380: 65 63 39 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 ec9]]} \..-match
0390: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 exact -result 4
03a0: 65 36 66 37 37 0a 0a 23 20 43 6c 65 61 6e 75 70 e6f77..# Cleanup
03b0: 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 .::tcltest::clea
03c0: 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a nupTests.return.