Artifact
764174ce918b843ea346d4b08f9885d7bed3e152a1bcd23215d806e8ced917c3:
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 4f 46 42 38 2e from "DES-OFB8.
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 4f 46 42 38 20 5b 65 aint DES_OFB8 [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 4f 46 42 38 5d 20 3e ers] DES-OFB8] >
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 4f test Block_DES-O
0150: 46 42 38 2d 31 2e 31 20 7b 45 6e 63 72 79 70 74 FB8-1.1 {Encrypt
0160: 20 44 45 53 2d 4f 46 42 38 7d 20 5c 0a 09 2d 63 DES-OFB8} \..-c
0170: 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53 5f 4f onstraints DES_O
0180: 46 42 38 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 FB8 \..-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 4f 46 42 38 20 2d ipher DES-OFB8 -
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 32 30 36 39 37 hex 4e6f7720697
0250: 33 32 30 37 34 36 38 36 35 5d 5d 7d 20 5c 0a 09 320746865]]} \..
0260: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0270: 73 75 6c 74 20 66 33 34 61 32 38 35 30 63 39 63 sult f34a2850c9c
0280: 36 34 39 38 35 64 36 38 34 0a 0a 74 63 6c 74 65 64985d684..tclte
0290: 73 74 3a 3a 74 65 73 74 20 42 6c 6f 63 6b 5f 44 st::test Block_D
02a0: 45 53 2d 4f 46 42 38 2d 31 2e 32 20 7b 44 65 63 ES-OFB8-1.2 {Dec
02b0: 72 79 70 74 20 44 45 53 2d 4f 46 42 38 7d 20 5c rypt DES-OFB8} \
02c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 ..-constraints D
02d0: 45 53 5f 4f 46 42 38 20 5c 0a 09 2d 62 6f 64 79 ES_OFB8 \..-body
02e0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
02f0: 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 hex [tls::decryp
0300: 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d 4f 46 t -cipher DES-OF
0310: 42 38 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a B8 -padding 0 \.
0320: 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 .. -key [binary
0330: 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 decode hex 01234
0340: 35 36 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 09 56789abcdef] \..
0350: 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 20 64 65 . -iv [binary de
0360: 63 6f 64 65 20 68 65 78 20 31 32 33 34 35 36 37 code hex 1234567
0370: 38 39 30 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 890abcdef] \...
0380: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
0390: 63 6f 64 65 20 68 65 78 20 66 33 34 61 32 38 35 code hex f34a285
03a0: 30 63 39 63 36 34 39 38 35 64 36 38 34 5d 5d 7d 0c9c64985d684]]}
03b0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
03c0: 20 2d 72 65 73 75 6c 74 20 34 65 36 66 37 37 32 -result 4e6f772
03d0: 30 36 39 37 33 32 30 37 34 36 38 36 35 0a 0a 23 0697320746865..#
03e0: 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 Cleanup.::tclte
03f0: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
0400: 0a 72 65 74 75 72 6e 0a .return.