Artifact
8cc2def4a375354703a443849c76d4461169409d20f09697b0e0d7524213c1ea:
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 41 45 53 2d 32 35 36 2d 43 from "AES-256-C
0020: 46 42 31 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64 FB1.txt".lappend
0030: 20 61 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 auto_path [file
0040: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 dirname [file d
0050: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 irname [file dir
0060: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0070: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 me [file join [p
0080: 77 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 wd] [info script
0090: 5d 5d 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72 ]]]]]].package r
00a0: 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 equire tls.packa
00b0: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
00c0: 73 74 0a 0a 63 61 74 63 68 20 7b 74 6c 73 3a 3a st..catch {tls::
00d0: 70 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79 7d provider legacy}
00e0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f .tcltest::testCo
00f0: 6e 73 74 72 61 69 6e 74 20 41 45 53 5f 32 35 36 nstraint AES_256
0100: 5f 43 46 42 31 20 5b 65 78 70 72 20 7b 5b 6c 73 _CFB1 [expr {[ls
0110: 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 earch -nocase [t
0120: 6c 73 3a 3a 63 69 70 68 65 72 73 5d 20 41 45 53 ls::ciphers] AES
0130: 2d 32 35 36 2d 43 46 42 31 5d 20 3e 20 2d 31 7d -256-CFB1] > -1}
0140: 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 ]..tcltest::test
0150: 20 42 6c 6f 63 6b 5f 41 45 53 2d 32 35 36 2d 43 Block_AES-256-C
0160: 46 42 31 2d 31 2e 31 20 7b 45 6e 63 72 79 70 74 FB1-1.1 {Encrypt
0170: 20 41 45 53 2d 32 35 36 2d 43 46 42 31 7d 20 5c AES-256-CFB1} \
0180: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 41 ..-constraints A
0190: 45 53 5f 32 35 36 5f 43 46 42 31 20 5c 0a 09 2d ES_256_CFB1 \..-
01a0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
01b0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 6e ode hex [tls::en
01c0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 41 45 crypt -cipher AE
01d0: 53 2d 32 35 36 2d 43 46 42 31 20 2d 70 61 64 64 S-256-CFB1 -padd
01e0: 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 ing 0 \... -key
01f0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
0200: 65 78 20 36 30 33 64 65 62 31 30 31 35 63 61 37 ex 603deb1015ca7
0210: 31 62 65 32 62 37 33 61 65 66 30 38 35 37 64 37 1be2b73aef0857d7
0220: 37 38 31 31 66 33 35 32 63 30 37 33 62 36 31 30 7811f352c073b610
0230: 38 64 37 32 64 39 38 31 30 61 33 30 39 31 34 64 8d72d9810a30914d
0240: 66 66 34 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 ff4] \... -iv [b
0250: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0260: 20 30 30 30 31 30 32 30 33 30 34 30 35 30 36 30 000102030405060
0270: 37 30 38 30 39 30 61 30 62 30 63 30 64 30 65 30 708090a0b0c0d0e0
0280: 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 f] \... -data [b
0290: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
02a0: 20 36 62 63 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 6bc1]]} \..-mat
02b0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
02c0: 20 39 30 32 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 9029..tcltest::
02d0: 74 65 73 74 20 42 6c 6f 63 6b 5f 41 45 53 2d 32 test Block_AES-2
02e0: 35 36 2d 43 46 42 31 2d 31 2e 32 20 7b 44 65 63 56-CFB1-1.2 {Dec
02f0: 72 79 70 74 20 41 45 53 2d 32 35 36 2d 43 46 42 rypt AES-256-CFB
0300: 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 1} \..-constrain
0310: 74 73 20 41 45 53 5f 32 35 36 5f 43 46 42 31 20 ts AES_256_CFB1
0320: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
0330: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
0340: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 ::decrypt -ciphe
0350: 72 20 41 45 53 2d 32 35 36 2d 43 46 42 31 20 2d r AES-256-CFB1 -
0360: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
0370: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
0380: 64 65 20 68 65 78 20 36 30 33 64 65 62 31 30 31 de hex 603deb101
0390: 35 63 61 37 31 62 65 32 62 37 33 61 65 66 30 38 5ca71be2b73aef08
03a0: 35 37 64 37 37 38 31 31 66 33 35 32 63 30 37 33 57d77811f352c073
03b0: 62 36 31 30 38 64 37 32 64 39 38 31 30 61 33 30 b6108d72d9810a30
03c0: 39 31 34 64 66 66 34 5d 20 5c 0a 09 09 20 2d 69 914dff4] \... -i
03d0: 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 v [binary decode
03e0: 20 68 65 78 20 30 30 30 31 30 32 30 33 30 34 30 hex 00010203040
03f0: 35 30 36 30 37 30 38 30 39 30 61 30 62 30 63 30 5060708090a0b0c0
0400: 64 30 65 30 66 5d 20 5c 0a 09 09 20 2d 64 61 74 d0e0f] \... -dat
0410: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0420: 20 68 65 78 20 39 30 32 39 5d 5d 7d 20 5c 0a 09 hex 9029]]} \..
0430: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0440: 73 75 6c 74 20 36 62 63 31 0a 0a 23 20 43 6c 65 sult 6bc1..# Cle
0450: 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a anup.::tcltest::
0460: 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 cleanupTests.ret
0470: 75 72 6e 0a urn.