Artifact
f743cbdc5c810e0122d172add2cf35d2322fa99c3d6539ee78b7cdd1b46506ef:
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 53 79 6d 65 74 72 69 63 5f 42 6c test Symetric_Bl
0150: 6f 63 6b 5f 44 45 53 2d 43 46 42 31 2d 31 2e 31 ock_DES-CFB1-1.1
0160: 20 7b 45 6e 63 72 79 70 74 20 44 45 53 2d 43 46 {Encrypt DES-CF
0170: 42 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 B1} \..-constrai
0180: 6e 74 73 20 44 45 53 5f 43 46 42 31 20 5c 0a 09 nts DES_CFB1 \..
0190: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
01a0: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 code hex [tls::e
01b0: 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 44 ncrypt -cipher D
01c0: 45 53 2d 43 46 42 31 20 2d 70 61 64 64 69 6e 67 ES-CFB1 -padding
01d0: 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 0 \... -key [bi
01e0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
01f0: 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 0123456789abcdef
0200: 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 69 6e 61 ] \... -iv [bina
0210: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 32 ry decode hex 12
0220: 33 34 35 36 37 38 39 30 61 62 63 64 65 66 5d 20 34567890abcdef]
0230: 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 \... -data [bina
0240: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 65 ry decode hex 4e
0250: 36 66 37 37 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 6f77]]} \..-matc
0260: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0270: 63 64 31 65 63 39 0a 0a 74 63 6c 74 65 73 74 3a cd1ec9..tcltest:
0280: 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42 :test Symetric_B
0290: 6c 6f 63 6b 5f 44 45 53 2d 43 46 42 31 2d 31 2e lock_DES-CFB1-1.
02a0: 32 20 7b 44 65 63 72 79 70 74 20 44 45 53 2d 43 2 {Decrypt DES-C
02b0: 46 42 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 FB1} \..-constra
02c0: 69 6e 74 73 20 44 45 53 5f 43 46 42 31 20 5c 0a ints DES_CFB1 \.
02d0: 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 .-body {binary e
02e0: 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a ncode hex [tls::
02f0: 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 decrypt -cipher
0300: 44 45 53 2d 43 46 42 31 20 2d 70 61 64 64 69 6e DES-CFB1 -paddin
0310: 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 g 0 \... -key [b
0320: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0330: 20 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 0123456789abcde
0340: 66 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 69 6e f] \... -iv [bin
0350: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 ary decode hex 1
0360: 32 33 34 35 36 37 38 39 30 61 62 63 64 65 66 5d 234567890abcdef]
0370: 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e \... -data [bin
0380: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 ary decode hex c
0390: 64 31 65 63 39 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 d1ec9]]} \..-mat
03a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
03b0: 20 34 65 36 66 37 37 0a 0a 23 20 43 6c 65 61 6e 4e6f77..# Clean
03c0: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c up.::tcltest::cl
03d0: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 eanupTests.retur
03e0: 6e 0a n.