Artifact
c0534f2c0979b6c34d638d62ea26ed7b7e65fa033378a3622af3a4061e11c253:
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 38 2e from "DES-CFB8.
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 38 20 5b 65 aint DES_CFB8 [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 38 5d 20 3e ers] DES-CFB8] >
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 38 2d 31 2e 31 ock_DES-CFB8-1.1
0160: 20 7b 45 6e 63 72 79 70 74 20 44 45 53 2d 43 46 {Encrypt DES-CF
0170: 42 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 B8} \..-constrai
0180: 6e 74 73 20 44 45 53 5f 43 46 42 38 20 5c 0a 09 nts DES_CFB8 \..
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 38 20 2d 70 61 64 64 69 6e 67 ES-CFB8 -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 32 30 36 39 37 33 32 30 37 34 36 38 6f77206973207468
0260: 36 35 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65]]} \..-match
0270: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 33 exact -result f3
0280: 31 66 64 61 30 37 30 31 31 34 36 32 65 65 31 38 1fda07011462ee18
0290: 37 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 7f..tcltest::tes
02a0: 74 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b t Symetric_Block
02b0: 5f 44 45 53 2d 43 46 42 38 2d 31 2e 32 20 7b 44 _DES-CFB8-1.2 {D
02c0: 65 63 72 79 70 74 20 44 45 53 2d 43 46 42 38 7d ecrypt DES-CFB8}
02d0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
02e0: 20 44 45 53 5f 43 46 42 38 20 5c 0a 09 2d 62 6f DES_CFB8 \..-bo
02f0: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
0300: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
0310: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d ypt -cipher DES-
0320: 43 46 42 38 20 2d 70 61 64 64 69 6e 67 20 30 20 CFB8 -padding 0
0330: 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 \... -key [binar
0340: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 y decode hex 012
0350: 33 34 35 36 37 38 39 61 62 63 64 65 66 5d 20 5c 3456789abcdef] \
0360: 0a 09 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 20 ... -iv [binary
0370: 64 65 63 6f 64 65 20 68 65 78 20 31 32 33 34 35 decode hex 12345
0380: 36 37 38 39 30 61 62 63 64 65 66 5d 20 5c 0a 09 67890abcdef] \..
0390: 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 . -data [binary
03a0: 64 65 63 6f 64 65 20 68 65 78 20 66 33 31 66 64 decode hex f31fd
03b0: 61 30 37 30 31 31 34 36 32 65 65 31 38 37 66 5d a07011462ee187f]
03c0: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
03d0: 63 74 20 2d 72 65 73 75 6c 74 20 34 65 36 66 37 ct -result 4e6f7
03e0: 37 32 30 36 39 37 33 32 30 37 34 36 38 36 35 0a 720697320746865.
03f0: 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c .# Cleanup.::tcl
0400: 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 test::cleanupTes
0410: 74 73 0a 72 65 74 75 72 6e 0a ts.return.