Artifact
79b8785f1214dc0f88362d9f065f4f0e502b417a16a7949c6653d3bc1fee2adb:
0000: 23 0a 23 20 54 65 73 74 20 56 65 63 74 6f 72 73 #.# Test Vectors
0010: 0a 23 0a 0a 23 0a 23 20 47 65 74 20 73 74 72 69 .#..#.# Get stri
0020: 6e 67 20 6f 72 20 68 65 78 20 73 74 72 69 6e 67 ng or hex string
0030: 20 76 61 6c 75 65 0a 23 0a 70 72 6f 63 20 67 65 value.#.proc ge
0040: 74 5f 76 61 6c 75 65 20 7b 74 79 70 65 20 64 61 t_value {type da
0050: 74 61 20 7b 63 6f 75 6e 74 20 31 7d 7d 20 7b 0a ta {count 1}} {.
0060: 20 20 20 20 23 20 48 61 6e 64 6c 65 20 68 65 78 # Handle hex
0070: 20 73 74 72 69 6e 67 0a 20 20 20 20 69 66 20 7b string. if {
0080: 24 74 79 70 65 20 65 71 20 22 73 22 20 26 26 20 $type eq "s" &&
0090: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
00a0: 64 61 74 61 5d 20 3e 20 30 20 26 26 20 5b 73 74 data] > 0 && [st
00b0: 72 69 6e 67 20 69 6e 64 65 78 20 24 64 61 74 61 ring index $data
00c0: 20 30 5d 20 6e 65 20 22 5c 22 22 7d 20 7b 0a 09 0] ne "\""} {..
00d0: 73 65 74 20 64 61 74 61 20 5b 66 6f 72 6d 61 74 set data [format
00e0: 20 7b 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 {[binary decode
00f0: 20 68 65 78 20 25 73 5d 7d 20 24 64 61 74 61 5d hex %s]} $data]
0100: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 . }. if {$
0110: 74 79 70 65 20 65 71 20 22 73 22 20 26 26 20 24 type eq "s" && $
0120: 63 6f 75 6e 74 20 3e 20 31 7d 20 7b 0a 09 73 65 count > 1} {..se
0130: 74 20 64 61 74 61 20 5b 66 6f 72 6d 61 74 20 7b t data [format {
0140: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 25 [string repeat %
0150: 73 20 25 64 5d 7d 20 24 64 61 74 61 20 24 63 6f s %d]} $data $co
0160: 75 6e 74 5d 0a 20 20 20 20 7d 0a 20 20 20 20 72 unt]. }. r
0170: 65 74 75 72 6e 20 24 64 61 74 61 0a 7d 0a 0a 23 eturn $data.}..#
0180: 0a 23 20 43 72 65 61 74 65 20 74 65 73 74 20 63 .# Create test c
0190: 61 73 65 20 61 6e 64 20 6f 75 74 70 75 74 20 74 ase and output t
01a0: 6f 20 74 65 73 74 20 66 69 6c 65 0a 23 0a 70 72 o test file.#.pr
01b0: 6f 63 20 64 6f 5f 74 65 73 74 20 7b 67 72 6f 75 oc do_test {grou
01c0: 70 20 63 69 70 68 65 72 20 74 65 73 74 5f 6e 75 p cipher test_nu
01d0: 6d 20 74 63 20 70 61 72 61 6d 73 20 66 6e 7d 20 m tc params fn}
01e0: 7b 0a 20 20 20 20 61 72 72 61 79 20 73 65 74 20 {. array set
01f0: 63 6f 6e 66 69 67 20 5b 6c 69 73 74 20 72 65 70 config [list rep
0200: 65 61 74 20 31 5d 0a 20 20 20 20 61 72 72 61 79 eat 1]. array
0210: 20 73 65 74 20 63 6f 6e 66 69 67 20 24 70 61 72 set config $par
0220: 61 6d 73 0a 0a 20 20 20 20 23 20 54 65 73 74 20 ams.. # Test
0230: 69 6e 66 6f 0a 20 20 20 20 73 65 74 20 6c 69 6e info. set lin
0240: 65 20 5b 66 6f 72 6d 61 74 20 22 74 63 6c 74 65 e [format "tclte
0250: 73 74 3a 3a 74 65 73 74 20 25 73 2d 25 64 2e 25 st::test %s-%d.%
0260: 64 20 7b 25 73 20 25 73 7d 20 5c 5c 5c 6e 5c 74 d {%s %s} \\\n\t
0270: 22 20 24 67 72 6f 75 70 20 24 74 65 73 74 5f 6e " $group $test_n
0280: 75 6d 20 24 74 63 20 5b 73 74 72 69 6e 67 20 74 um $tc [string t
0290: 6f 74 69 74 6c 65 20 24 66 6e 5d 20 24 63 69 70 otitle $fn] $cip
02a0: 68 65 72 5d 0a 0a 20 20 20 20 23 20 54 65 73 74 her].. # Test
02b0: 20 63 6f 6e 73 74 72 61 69 6e 74 73 0a 20 20 20 constraints.
02c0: 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 5b 66 6f append line [fo
02d0: 72 6d 61 74 20 22 2d 63 6f 6e 73 74 72 61 69 6e rmat "-constrain
02e0: 74 73 20 25 73 20 5c 5c 5c 6e 5c 74 22 20 5b 73 ts %s \\\n\t" [s
02f0: 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 tring map [list
0300: 22 2d 22 20 22 5f 22 5d 20 24 63 69 70 68 65 72 "-" "_"] $cipher
0310: 5d 5d 0a 0a 20 20 20 20 23 20 54 65 73 74 20 62 ]].. # Test b
0320: 6f 64 79 0a 20 20 20 20 73 65 74 20 63 6d 64 20 ody. set cmd
0330: 5b 66 6f 72 6d 61 74 20 22 74 6c 73 3a 3a 25 73 [format "tls::%s
0340: 20 2d 63 69 70 68 65 72 20 25 73 20 2d 70 61 64 -cipher %s -pad
0350: 64 69 6e 67 20 30 20 5c 5c 5c 6e 5c 74 5c 74 22 ding 0 \\\n\t\t"
0360: 20 24 66 6e 20 24 63 69 70 68 65 72 5d 0a 0a 20 $fn $cipher]..
0370: 20 20 20 69 66 20 7b 24 66 6e 20 65 71 20 22 65 if {$fn eq "e
0380: 6e 63 72 79 70 74 22 7d 20 7b 0a 09 73 65 74 20 ncrypt"} {..set
0390: 6c 69 73 74 31 20 5b 6c 69 73 74 20 70 6c 61 69 list1 [list plai
03a0: 6e 74 65 78 74 20 6d 73 67 20 64 61 74 61 5d 0a ntext msg data].
03b0: 09 73 65 74 20 6c 69 73 74 32 20 5b 6c 69 73 74 .set list2 [list
03c0: 20 63 69 70 68 65 72 74 65 78 74 20 6f 75 74 70 ciphertext outp
03d0: 75 74 20 72 65 73 75 6c 74 5d 0a 20 20 20 20 7d ut result]. }
03e0: 20 65 6c 73 65 20 7b 0a 09 73 65 74 20 6c 69 73 else {..set lis
03f0: 74 31 20 5b 6c 69 73 74 20 63 69 70 68 65 72 74 t1 [list ciphert
0400: 65 78 74 20 6f 75 74 70 75 74 20 72 65 73 75 6c ext output resul
0410: 74 5d 0a 09 73 65 74 20 6c 69 73 74 32 20 5b 6c t]..set list2 [l
0420: 69 73 74 20 70 6c 61 69 6e 74 65 78 74 20 6d 73 ist plaintext ms
0430: 67 20 64 61 74 61 5d 0a 20 20 20 20 7d 0a 0a 20 g data]. }..
0440: 20 20 20 23 20 41 64 64 20 74 65 73 74 20 70 61 # Add test pa
0450: 72 61 6d 65 74 65 72 73 0a 20 20 20 20 66 6f 72 rameters. for
0460: 65 61 63 68 20 7b 70 61 72 61 6d 20 6e 61 6d 65 each {param name
0470: 73 20 74 79 70 65 7d 20 5b 6c 69 73 74 20 2d 6b s type} [list -k
0480: 65 79 20 5b 6c 69 73 74 20 6b 65 79 5d 20 73 20 ey [list key] s
0490: 2d 69 76 20 5b 6c 69 73 74 20 69 76 20 6e 6f 6e -iv [list iv non
04a0: 63 65 5d 20 73 20 2d 64 61 74 61 20 24 6c 69 73 ce] s -data $lis
04b0: 74 31 20 73 5d 20 7b 0a 09 66 6f 72 65 61 63 68 t1 s] {..foreach
04c0: 20 6e 61 6d 65 20 24 6e 61 6d 65 73 20 7b 0a 09 name $names {..
04d0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
04e0: 69 73 74 73 20 63 6f 6e 66 69 67 28 24 6e 61 6d ists config($nam
04f0: 65 29 5d 7d 20 7b 0a 09 09 73 65 74 20 64 61 74 e)]} {...set dat
0500: 61 20 5b 67 65 74 5f 76 61 6c 75 65 20 24 74 79 a [get_value $ty
0510: 70 65 20 24 63 6f 6e 66 69 67 28 24 6e 61 6d 65 pe $config($name
0520: 29 5d 0a 09 09 69 66 20 7b 24 64 61 74 61 20 6e )]...if {$data n
0530: 65 20 22 22 7d 20 7b 0a 09 09 20 20 20 20 61 70 e ""} {... ap
0540: 70 65 6e 64 20 63 6d 64 20 22 20 22 20 24 70 61 pend cmd " " $pa
0550: 72 61 6d 20 22 20 22 20 24 64 61 74 61 20 22 20 ram " " $data "
0560: 5c 5c 5c 6e 5c 74 5c 74 22 0a 09 09 7d 0a 09 09 \\\n\t\t"...}...
0570: 62 72 65 61 6b 0a 09 20 20 20 20 7d 0a 09 7d 0a break.. }..}.
0580: 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 }. append
0590: 20 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 2d line [format {-
05a0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
05b0: 6f 64 65 20 68 65 78 20 5b 25 73 5d 7d 7d 20 5b ode hex [%s]}} [
05c0: 73 74 72 69 6e 67 20 74 72 69 6d 72 69 67 68 74 string trimright
05d0: 20 24 63 6d 64 20 22 20 5c 5c 5c 6e 5c 74 22 5d $cmd " \\\n\t"]
05e0: 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e ]. append lin
05f0: 65 20 22 20 5c 5c 5c 6e 5c 74 22 0a 0a 20 20 20 e " \\\n\t"..
0600: 20 23 20 54 65 73 74 20 63 6c 65 61 6e 75 70 0a # Test cleanup.
0610: 0a 20 20 20 20 23 20 54 65 73 74 20 72 65 73 75 . # Test resu
0620: 6c 74 0a 20 20 20 20 66 6f 72 65 61 63 68 20 6b lt. foreach k
0630: 65 79 20 24 6c 69 73 74 32 20 7b 0a 09 69 66 20 ey $list2 {..if
0640: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 63 6f {[info exists co
0650: 6e 66 69 67 28 24 6b 65 79 29 5d 7d 20 7b 0a 09 nfig($key)]} {..
0660: 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 append line
0670: 5b 66 6f 72 6d 61 74 20 7b 2d 6d 61 74 63 68 20 [format {-match
0680: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 25 73 exact -result %s
0690: 7d 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 65 } [string tolowe
06a0: 72 20 24 63 6f 6e 66 69 67 28 24 6b 65 79 29 5d r $config($key)]
06b0: 5d 0a 09 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a ].. break..}.
06c0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 52 65 74 }.. # Ret
06d0: 75 72 6e 20 63 6f 64 65 73 0a 20 20 20 20 23 61 urn codes. #a
06e0: 70 70 65 6e 64 20 6c 69 6e 65 20 7b 20 2d 72 65 ppend line { -re
06f0: 74 75 72 6e 43 6f 64 65 73 20 30 7d 0a 20 20 20 turnCodes 0}.
0700: 20 72 65 74 75 72 6e 20 24 6c 69 6e 65 0a 7d 0a return $line.}.
0710: 0a 23 0a 23 20 50 61 72 73 65 20 74 65 73 74 20 .#.# Parse test
0720: 76 65 63 74 6f 72 20 66 69 6c 65 20 61 6e 64 20 vector file and
0730: 67 65 74 20 74 65 73 74 20 63 61 73 65 73 20 63 get test cases c
0740: 6f 6e 66 69 67 20 69 6e 66 6f 0a 23 0a 70 72 6f onfig info.#.pro
0750: 63 20 70 61 72 73 65 20 7b 67 72 6f 75 70 20 66 c parse {group f
0760: 69 6c 65 6e 61 6d 65 20 74 65 73 74 5f 6e 75 6d ilename test_num
0770: 20 63 69 70 68 65 72 7d 20 7b 0a 20 20 20 20 73 cipher} {. s
0780: 65 74 20 74 63 20 30 0a 20 20 20 20 73 65 74 20 et tc 0. set
0790: 70 61 72 61 6d 73 20 5b 6c 69 73 74 5d 0a 0a 20 params [list]..
07a0: 20 20 20 23 20 4f 70 65 6e 20 69 6e 70 75 74 20 # Open input
07b0: 66 69 6c 65 0a 20 20 20 20 69 66 20 7b 5b 63 61 file. if {[ca
07c0: 74 63 68 20 7b 6f 70 65 6e 20 24 66 69 6c 65 6e tch {open $filen
07d0: 61 6d 65 20 72 7d 20 63 68 5d 7d 20 7b 0a 09 72 ame r} ch]} {..r
07e0: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f eturn -code erro
07f0: 72 20 24 63 68 0a 20 20 20 20 7d 0a 0a 20 20 20 r $ch. }..
0800: 20 23 20 4f 70 65 6e 20 6f 75 74 70 75 74 20 66 # Open output f
0810: 69 6c 65 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 ile. if {[cat
0820: 63 68 20 7b 6f 70 65 6e 20 5b 66 6f 72 6d 61 74 ch {open [format
0830: 20 22 25 73 2e 74 65 73 74 22 20 5b 66 69 6c 65 "%s.test" [file
0840: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 6e rootname $filen
0850: 61 6d 65 5d 5d 20 77 7d 20 6f 75 74 5d 7d 20 7b ame]] w} out]} {
0860: 0a 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
0870: 72 72 6f 72 20 24 63 68 0a 20 20 20 20 7d 0a 0a rror $ch. }..
0880: 20 20 20 20 23 20 41 64 64 20 63 6f 6e 66 69 67 # Add config
0890: 20 69 6e 66 6f 0a 20 20 20 20 70 75 74 73 20 24 info. puts $
08a0: 6f 75 74 20 5b 66 6f 72 6d 61 74 20 22 23 20 41 out [format "# A
08b0: 75 74 6f 20 67 65 6e 65 72 61 74 65 64 20 66 72 uto generated fr
08c0: 6f 6d 20 5c 22 25 73 5c 22 22 20 5b 66 69 6c 65 om \"%s\"" [file
08d0: 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 5d tail $filename]
08e0: 5d 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 ]. puts $out
08f0: 5b 66 6f 72 6d 61 74 20 22 6c 61 70 70 65 6e 64 [format "lappend
0900: 20 61 75 74 6f 5f 70 61 74 68 20 25 73 22 20 7b auto_path %s" {
0910: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
0920: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c ile dirname [fil
0930: 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 e dirname [file
0940: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f dirname [file jo
0950: 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f 20 73 in [pwd] [info s
0960: 63 72 69 70 74 5d 5d 5d 5d 5d 5d 7d 5d 0a 20 20 cript]]]]]]}].
0970: 20 20 70 75 74 73 20 24 6f 75 74 20 22 70 61 63 puts $out "pac
0980: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 kage require tls
0990: 22 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 ". puts $out
09a0: 22 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 "package require
09b0: 20 74 63 6c 74 65 73 74 5c 6e 22 0a 20 20 20 20 tcltest\n".
09c0: 70 75 74 73 20 24 6f 75 74 20 22 63 61 74 63 68 puts $out "catch
09d0: 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20 {tls::provider
09e0: 6c 65 67 61 63 79 7d 22 0a 20 20 20 20 70 75 74 legacy}". put
09f0: 73 20 24 6f 75 74 20 5b 66 6f 72 6d 61 74 20 22 s $out [format "
0a00: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e tcltest::testCon
0a10: 73 74 72 61 69 6e 74 20 25 73 20 25 73 22 20 5b straint %s %s" [
0a20: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 string map [list
0a30: 20 22 2d 22 20 22 5f 22 5d 20 24 63 69 70 68 65 "-" "_"] $ciphe
0a40: 72 5d 20 5c 0a 09 5b 66 6f 72 6d 61 74 20 7b 5b r] \..[format {[
0a50: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d expr {[lsearch -
0a60: 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 nocase [tls::cip
0a70: 68 65 72 73 5d 20 25 73 5d 20 3e 20 2d 31 7d 5d hers] %s] > -1}]
0a80: 7d 20 24 63 69 70 68 65 72 5d 5d 0a 20 20 20 20 } $cipher]].
0a90: 70 75 74 73 20 24 6f 75 74 20 22 22 0a 0a 20 20 puts $out ""..
0aa0: 20 20 23 20 50 72 6f 63 65 73 73 20 66 69 6c 65 # Process file
0ab0: 0a 20 20 20 20 77 68 69 6c 65 20 7b 21 5b 65 6f . while {![eo
0ac0: 66 20 24 63 68 5d 7d 20 7b 0a 09 67 65 74 73 20 f $ch]} {..gets
0ad0: 24 63 68 20 6c 69 6e 65 0a 09 73 65 74 20 6c 69 $ch line..set li
0ae0: 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 ne [string trim
0af0: 24 6c 69 6e 65 5d 0a 09 73 65 74 20 6c 65 6e 20 $line]..set len
0b00: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
0b10: 6c 69 6e 65 5d 0a 0a 09 69 66 20 7b 5b 73 74 72 line]...if {[str
0b20: 69 6e 67 20 69 6e 64 65 78 20 24 6c 69 6e 65 20 ing index $line
0b30: 30 5d 20 69 6e 20 5b 6c 69 73 74 20 22 23 22 20 0] in [list "#"
0b40: 22 5c 5b 22 5d 7d 20 7b 0a 09 20 20 20 20 23 20 "\["]} {.. #
0b50: 53 6b 69 70 20 63 6f 6d 6d 65 6e 74 73 20 61 6e Skip comments an
0b60: 64 20 69 6e 66 6f 20 6c 69 6e 65 73 0a 09 20 20 d info lines..
0b70: 20 20 63 6f 6e 74 69 6e 75 65 0a 0a 09 7d 20 65 continue...} e
0b80: 6c 73 65 69 66 20 7b 24 6c 65 6e 20 3d 3d 20 30 lseif {$len == 0
0b90: 7d 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 6c 6c } {.. if {[ll
0ba0: 65 6e 67 74 68 20 24 70 61 72 61 6d 73 5d 20 3e ength $params] >
0bb0: 20 30 7d 20 7b 0a 09 09 23 20 44 6f 20 74 65 73 0} {...# Do tes
0bc0: 74 20 69 66 20 65 6e 64 20 6f 66 20 70 61 72 61 t if end of para
0bd0: 6d 73 0a 09 09 70 75 74 73 20 24 6f 75 74 20 5b ms...puts $out [
0be0: 64 6f 5f 74 65 73 74 20 24 67 72 6f 75 70 20 24 do_test $group $
0bf0: 63 69 70 68 65 72 20 24 74 65 73 74 5f 6e 75 6d cipher $test_num
0c00: 20 5b 69 6e 63 72 20 74 63 5d 20 24 70 61 72 61 [incr tc] $para
0c10: 6d 73 20 65 6e 63 72 79 70 74 5d 0a 09 09 70 75 ms encrypt]...pu
0c20: 74 73 20 24 6f 75 74 20 22 22 0a 09 09 70 75 74 ts $out ""...put
0c30: 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 73 74 20 s $out [do_test
0c40: 24 67 72 6f 75 70 20 24 63 69 70 68 65 72 20 24 $group $cipher $
0c50: 74 65 73 74 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 test_num [incr t
0c60: 63 5d 20 24 70 61 72 61 6d 73 20 64 65 63 72 79 c] $params decry
0c70: 70 74 5d 0a 09 09 70 75 74 73 20 24 6f 75 74 20 pt]...puts $out
0c80: 22 22 0a 09 09 73 65 74 20 70 61 72 61 6d 73 20 ""...set params
0c90: 5b 6c 69 73 74 5d 0a 09 20 20 20 20 7d 20 65 6c [list].. } el
0ca0: 73 65 20 7b 0a 09 09 23 20 45 6d 70 74 79 20 6c se {...# Empty l
0cb0: 69 6e 65 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 ine.. }...} e
0cc0: 6c 73 65 20 7b 0a 09 20 20 20 20 23 20 41 70 70 lse {.. # App
0cd0: 65 6e 64 20 61 72 67 73 20 74 6f 20 70 61 72 61 end args to para
0ce0: 6d 73 0a 09 20 20 20 20 73 65 74 20 69 6e 64 65 ms.. set inde
0cf0: 78 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 x [string first
0d00: 22 3d 22 20 24 6c 69 6e 65 5d 0a 09 20 20 20 20 "=" $line]..
0d10: 69 66 20 7b 24 69 6e 64 65 78 20 3e 20 2d 31 7d if {$index > -1}
0d20: 20 7b 0a 09 09 73 65 74 20 6b 65 79 20 5b 73 74 {...set key [st
0d30: 72 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e ring trim [strin
0d40: 67 20 72 61 6e 67 65 20 24 6c 69 6e 65 20 30 20 g range $line 0
0d50: 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 20 2d 20 [expr {$index -
0d60: 31 7d 5d 5d 5d 0a 09 09 73 65 74 20 76 61 6c 75 1}]]]...set valu
0d70: 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b e [string trim [
0d80: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6c 69 string range $li
0d90: 6e 65 20 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 ne [expr {$index
0da0: 20 2b 20 31 7d 5d 20 65 6e 64 5d 5d 0a 09 09 6c + 1}] end]]...l
0db0: 61 70 70 65 6e 64 20 70 61 72 61 6d 73 20 5b 73 append params [s
0dc0: 74 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 6b tring tolower $k
0dd0: 65 79 5d 20 24 76 61 6c 75 65 0a 09 20 20 20 20 ey] $value..
0de0: 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }..}. }..
0df0: 23 20 48 61 6e 64 6c 65 20 6c 61 73 74 20 74 65 # Handle last te
0e00: 73 74 20 63 61 73 65 0a 20 20 20 20 69 66 20 7b st case. if {
0e10: 5b 6c 6c 65 6e 67 74 68 20 24 70 61 72 61 6d 73 [llength $params
0e20: 5d 20 3e 20 30 7d 20 7b 0a 09 70 75 74 73 20 24 ] > 0} {..puts $
0e30: 6f 75 74 20 5b 64 6f 5f 74 65 73 74 20 24 67 72 out [do_test $gr
0e40: 6f 75 70 20 24 63 69 70 68 65 72 20 24 74 65 73 oup $cipher $tes
0e50: 74 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 63 5d 20 t_num [incr tc]
0e60: 24 70 61 72 61 6d 73 20 65 6e 63 72 79 70 74 5d $params encrypt]
0e70: 0a 09 70 75 74 73 20 24 6f 75 74 20 22 22 0a 09 ..puts $out ""..
0e80: 70 75 74 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 puts $out [do_te
0e90: 73 74 20 24 67 72 6f 75 70 20 24 63 69 70 68 65 st $group $ciphe
0ea0: 72 20 24 74 65 73 74 5f 6e 75 6d 20 5b 69 6e 63 r $test_num [inc
0eb0: 72 20 74 63 5d 20 24 70 61 72 61 6d 73 20 64 65 r tc] $params de
0ec0: 63 72 79 70 74 5d 0a 09 70 75 74 73 20 24 6f 75 crypt]..puts $ou
0ed0: 74 20 22 22 0a 20 20 20 20 7d 0a 20 20 20 20 0a t "". }. .
0ee0: 20 20 20 20 23 20 43 6c 65 61 6e 75 70 0a 20 20 # Cleanup.
0ef0: 20 20 70 75 74 73 20 24 6f 75 74 20 22 23 20 43 puts $out "# C
0f00: 6c 65 61 6e 75 70 5c 6e 3a 3a 74 63 6c 74 65 73 leanup\n::tcltes
0f10: 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 5c t::cleanupTests\
0f20: 6e 72 65 74 75 72 6e 22 0a 20 20 20 20 63 6c 6f nreturn". clo
0f30: 73 65 20 24 63 68 0a 20 20 20 20 63 6c 6f 73 65 se $ch. close
0f40: 20 24 6f 75 74 0a 7d 0a 0a 23 0a 23 20 52 65 61 $out.}..#.# Rea
0f50: 64 20 61 6c 6c 20 63 6f 6e 66 69 67 20 66 69 6c d all config fil
0f60: 65 73 20 69 6e 20 64 69 72 65 63 74 6f 72 79 0a es in directory.
0f70: 23 0a 70 72 6f 63 20 6d 61 69 6e 20 7b 70 61 74 #.proc main {pat
0f80: 68 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 65 73 h} {. set tes
0f90: 74 5f 6e 75 6d 20 30 0a 20 20 20 20 73 65 74 20 t_num 0. set
0fa0: 67 72 6f 75 70 20 5b 66 69 6c 65 20 72 6f 6f 74 group [file root
0fb0: 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 name [file tail
0fc0: 24 70 61 74 68 5d 5d 0a 0a 20 20 20 20 66 6f 72 $path]].. for
0fd0: 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20 5b 67 each filename [g
0fe0: 6c 6f 62 20 2d 64 69 72 65 63 74 6f 72 79 20 24 lob -directory $
0ff0: 70 61 74 68 20 2a 2e 74 78 74 5d 20 7b 0a 09 70 path *.txt] {..p
1000: 75 74 73 20 5b 66 6f 72 6d 61 74 20 22 50 72 6f uts [format "Pro
1010: 63 65 73 73 69 6e 67 20 25 73 22 20 24 66 69 6c cessing %s" $fil
1020: 65 6e 61 6d 65 5d 0a 09 73 65 74 20 74 61 69 6c ename]..set tail
1030: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c [file tail $fil
1040: 65 6e 61 6d 65 5d 0a 09 69 66 20 7b 5b 73 74 72 ename]..if {[str
1050: 69 6e 67 20 6d 61 74 63 68 20 2d 6e 6f 63 61 73 ing match -nocas
1060: 65 20 22 52 65 61 64 6d 65 2e 74 78 74 22 20 24 e "Readme.txt" $
1070: 74 61 69 6c 5d 7d 20 7b 0a 09 20 20 20 20 63 6f tail]} {.. co
1080: 6e 74 69 6e 75 65 0a 09 7d 0a 0a 09 73 65 74 20 ntinue..}...set
1090: 63 69 70 68 65 72 20 5b 66 69 6c 65 20 72 6f 6f cipher [file roo
10a0: 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c tname [file tail
10b0: 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 0a 09 73 65 $filename]]..se
10c0: 74 20 69 64 20 5b 66 6f 72 6d 61 74 20 22 25 73 t id [format "%s
10d0: 5f 25 73 22 20 24 67 72 6f 75 70 20 24 63 69 70 _%s" $group $cip
10e0: 68 65 72 5d 0a 09 73 65 74 20 74 65 73 74 5f 6e her]..set test_n
10f0: 75 6d 20 5b 69 6e 63 72 20 74 65 73 74 5f 69 64 um [incr test_id
1100: 73 28 24 69 64 29 5d 0a 09 70 61 72 73 65 20 24 s($id)]..parse $
1110: 69 64 20 24 66 69 6c 65 6e 61 6d 65 20 24 74 65 id $filename $te
1120: 73 74 5f 6e 75 6d 20 24 63 69 70 68 65 72 0a 20 st_num $cipher.
1130: 20 20 20 7d 0a 7d 0a 0a 6d 61 69 6e 20 5b 70 77 }.}..main [pw
1140: 64 5d 0a 65 78 69 74 0a d].exit.