Artifact
e9429b9d231756acac1974daec22491b5065adb42832ff6e1e1ec98eae6564ee:
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 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f Symetric_Block_
0160: 41 45 53 2d 31 32 38 2d 43 46 42 31 2d 31 2e 31 AES-128-CFB1-1.1
0170: 20 7b 45 6e 63 72 79 70 74 20 41 45 53 2d 31 32 {Encrypt AES-12
0180: 38 2d 43 46 42 31 7d 20 5c 0a 09 2d 63 6f 6e 73 8-CFB1} \..-cons
0190: 74 72 61 69 6e 74 73 20 41 45 53 5f 31 32 38 5f traints AES_128_
01a0: 43 46 42 31 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 CFB1 \..-body {b
01b0: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
01c0: 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d [tls::encrypt -
01d0: 63 69 70 68 65 72 20 41 45 53 2d 31 32 38 2d 43 cipher AES-128-C
01e0: 46 42 31 20 2d 70 61 64 64 69 6e 67 20 30 20 5c FB1 -padding 0 \
01f0: 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 ... -key [binary
0200: 20 64 65 63 6f 64 65 20 68 65 78 20 32 62 37 65 decode hex 2b7e
0210: 31 35 31 36 32 38 61 65 64 32 61 36 61 62 66 37 151628aed2a6abf7
0220: 31 35 38 38 30 39 63 66 34 66 33 63 5d 20 5c 0a 158809cf4f3c] \.
0230: 09 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 20 64 .. -iv [binary d
0240: 65 63 6f 64 65 20 68 65 78 20 30 30 30 31 30 32 ecode hex 000102
0250: 30 33 30 34 30 35 30 36 30 37 30 38 30 39 30 61 030405060708090a
0260: 30 62 30 63 30 64 30 65 30 66 5d 20 5c 0a 09 09 0b0c0d0e0f] \...
0270: 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 -data [binary d
0280: 65 63 6f 64 65 20 68 65 78 20 36 62 63 31 5d 5d ecode hex 6bc1]]
0290: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
02a0: 74 20 2d 72 65 73 75 6c 74 20 36 38 62 33 0a 0a t -result 68b3..
02b0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79 tcltest::test Sy
02c0: 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 41 45 53 metric_Block_AES
02d0: 2d 31 32 38 2d 43 46 42 31 2d 31 2e 32 20 7b 44 -128-CFB1-1.2 {D
02e0: 65 63 72 79 70 74 20 41 45 53 2d 31 32 38 2d 43 ecrypt AES-128-C
02f0: 46 42 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 FB1} \..-constra
0300: 69 6e 74 73 20 41 45 53 5f 31 32 38 5f 43 46 42 ints AES_128_CFB
0310: 31 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 1 \..-body {bina
0320: 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 ry encode hex [t
0330: 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 ls::decrypt -cip
0340: 68 65 72 20 41 45 53 2d 31 32 38 2d 43 46 42 31 her AES-128-CFB1
0350: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
0360: 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 -key [binary de
0370: 63 6f 64 65 20 68 65 78 20 32 62 37 65 31 35 31 code hex 2b7e151
0380: 36 32 38 61 65 64 32 61 36 61 62 66 37 31 35 38 628aed2a6abf7158
0390: 38 30 39 63 66 34 66 33 63 5d 20 5c 0a 09 09 20 809cf4f3c] \...
03a0: 2d 69 76 20 5b 62 69 6e 61 72 79 20 64 65 63 6f -iv [binary deco
03b0: 64 65 20 68 65 78 20 30 30 30 31 30 32 30 33 30 de hex 000102030
03c0: 34 30 35 30 36 30 37 30 38 30 39 30 61 30 62 30 405060708090a0b0
03d0: 63 30 64 30 65 30 66 5d 20 5c 0a 09 09 20 2d 64 c0d0e0f] \... -d
03e0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
03f0: 64 65 20 68 65 78 20 36 38 62 33 5d 5d 7d 20 5c de hex 68b3]]} \
0400: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0410: 72 65 73 75 6c 74 20 36 62 63 31 0a 0a 23 20 43 result 6bc1..# C
0420: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 leanup.::tcltest
0430: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 ::cleanupTests.r
0440: 65 74 75 72 6e 0a eturn.