Artifact
3bd696dc72930d95d1fd371cf881c12c94d54c5e6c776a243e9f7567fe26c6d0:
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 31 32 38 2d 43 from "AES-128-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 31 32 38 nstraint AES_128
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 31 32 38 2d 43 46 42 31 5d 20 3e 20 2d 31 7d -128-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 31 32 38 2d 43 Block_AES-128-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 31 32 38 2d 43 46 42 31 7d 20 5c AES-128-CFB1} \
0180: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 41 ..-constraints A
0190: 45 53 5f 31 32 38 5f 43 46 42 31 20 5c 0a 09 2d ES_128_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 31 32 38 2d 43 46 42 31 20 2d 70 61 64 64 S-128-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 32 62 37 65 31 35 31 36 32 38 61 65 64 ex 2b7e151628aed
0210: 32 61 36 61 62 66 37 31 35 38 38 30 39 63 66 34 2a6abf7158809cf4
0220: 66 33 63 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 f3c] \... -iv [b
0230: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0240: 20 30 30 30 31 30 32 30 33 30 34 30 35 30 36 30 000102030405060
0250: 37 30 38 30 39 30 61 30 62 30 63 30 64 30 65 30 708090a0b0c0d0e0
0260: 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 f] \... -data [b
0270: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0280: 20 36 62 63 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 6bc1]]} \..-mat
0290: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
02a0: 20 36 38 62 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 68b3..tcltest::
02b0: 74 65 73 74 20 42 6c 6f 63 6b 5f 41 45 53 2d 31 test Block_AES-1
02c0: 32 38 2d 43 46 42 31 2d 31 2e 32 20 7b 44 65 63 28-CFB1-1.2 {Dec
02d0: 72 79 70 74 20 41 45 53 2d 31 32 38 2d 43 46 42 rypt AES-128-CFB
02e0: 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 1} \..-constrain
02f0: 74 73 20 41 45 53 5f 31 32 38 5f 43 46 42 31 20 ts AES_128_CFB1
0300: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
0310: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
0320: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 ::decrypt -ciphe
0330: 72 20 41 45 53 2d 31 32 38 2d 43 46 42 31 20 2d r AES-128-CFB1 -
0340: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
0350: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
0360: 64 65 20 68 65 78 20 32 62 37 65 31 35 31 36 32 de hex 2b7e15162
0370: 38 61 65 64 32 61 36 61 62 66 37 31 35 38 38 30 8aed2a6abf715880
0380: 39 63 66 34 66 33 63 5d 20 5c 0a 09 09 20 2d 69 9cf4f3c] \... -i
0390: 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 v [binary decode
03a0: 20 68 65 78 20 30 30 30 31 30 32 30 33 30 34 30 hex 00010203040
03b0: 35 30 36 30 37 30 38 30 39 30 61 30 62 30 63 30 5060708090a0b0c0
03c0: 64 30 65 30 66 5d 20 5c 0a 09 09 20 2d 64 61 74 d0e0f] \... -dat
03d0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
03e0: 20 68 65 78 20 36 38 62 33 5d 5d 7d 20 5c 0a 09 hex 68b3]]} \..
03f0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0400: 73 75 6c 74 20 36 62 63 31 0a 0a 23 20 43 6c 65 sult 6bc1..# Cle
0410: 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a anup.::tcltest::
0420: 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 cleanupTests.ret
0430: 75 72 6e 0a urn.