Artifact
d46a5915f72b92ed162d1805ce763c6a33742dc45bb08a1dc098032cd6af336d:
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 53 65 65 64 2e 74 78 74 22 from "Seed.txt"
0020: 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 .lappend auto_pa
0030: 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 th [file dirname
0040: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0050: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 file dirname [fi
0060: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 le dirname [file
0070: 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 join [pwd] [inf
0080: 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 o script]]]]]].p
0090: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 ackage require t
00a0: 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ls.package requi
00b0: 72 65 20 74 63 6c 74 65 73 74 0a 0a 63 61 74 63 re tcltest..catc
00c0: 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 h {tls::provider
00d0: 20 6c 65 67 61 63 79 7d 0a 74 63 6c 74 65 73 74 legacy}.tcltest
00e0: 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 ::testConstraint
00f0: 20 53 65 65 64 20 5b 65 78 70 72 20 7b 5b 6c 73 Seed [expr {[ls
0100: 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 earch -nocase [t
0110: 6c 73 3a 3a 63 69 70 68 65 72 73 5d 20 53 65 65 ls::ciphers] See
0120: 64 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 65 d] > -1}]..tclte
0130: 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 st::test Symetri
0140: 63 5f 42 6c 6f 63 6b 5f 53 65 65 64 2d 31 2e 31 c_Block_Seed-1.1
0150: 20 7b 45 6e 63 72 79 70 74 20 53 65 65 64 7d 20 {Encrypt Seed}
0160: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0170: 53 65 65 64 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 Seed \..-body {b
0180: 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 inary encode hex
0190: 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d [tls::encrypt -
01a0: 63 69 70 68 65 72 20 53 65 65 64 20 2d 70 61 64 cipher Seed -pad
01b0: 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 ding 0 \... -key
01c0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
01d0: 68 65 78 20 30 30 30 30 30 30 30 30 30 30 30 30 hex 000000000000
01e0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
01f0: 30 30 30 30 5d 20 5c 0a 09 09 20 2d 64 61 74 61 0000] \... -data
0200: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
0210: 68 65 78 20 30 30 30 31 30 32 30 33 30 34 30 35 hex 000102030405
0220: 30 36 30 37 30 38 30 39 30 41 30 42 30 43 30 44 060708090A0B0C0D
0230: 30 45 30 46 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 0E0F]]} \..-matc
0240: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0250: 35 65 62 61 63 36 65 30 30 35 34 65 31 36 36 38 5ebac6e0054e1668
0260: 31 39 61 66 66 31 63 63 36 64 33 34 36 63 64 62 19aff1cc6d346cdb
0270: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0280: 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 53 Symetric_Block_S
0290: 65 65 64 2d 31 2e 32 20 7b 44 65 63 72 79 70 74 eed-1.2 {Decrypt
02a0: 20 53 65 65 64 7d 20 5c 0a 09 2d 63 6f 6e 73 74 Seed} \..-const
02b0: 72 61 69 6e 74 73 20 53 65 65 64 20 5c 0a 09 2d raints Seed \..-
02c0: 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 body {binary enc
02d0: 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 ode hex [tls::de
02e0: 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 53 65 crypt -cipher Se
02f0: 65 64 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a ed -padding 0 \.
0300: 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 .. -key [binary
0310: 64 65 63 6f 64 65 20 68 65 78 20 30 30 30 30 30 decode hex 00000
0320: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
0330: 30 30 30 30 30 30 30 30 30 30 30 5d 20 5c 0a 09 00000000000] \..
0340: 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 . -data [binary
0350: 64 65 63 6f 64 65 20 68 65 78 20 35 45 42 41 43 decode hex 5EBAC
0360: 36 45 30 30 35 34 45 31 36 36 38 31 39 41 46 46 6E0054E166819AFF
0370: 31 43 43 36 44 33 34 36 43 44 42 5d 5d 7d 20 5c 1CC6D346CDB]]} \
0380: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0390: 72 65 73 75 6c 74 20 30 30 30 31 30 32 30 33 30 result 000102030
03a0: 34 30 35 30 36 30 37 30 38 30 39 30 61 30 62 30 405060708090a0b0
03b0: 63 30 64 30 65 30 66 0a 0a 74 63 6c 74 65 73 74 c0d0e0f..tcltest
03c0: 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f ::test Symetric_
03d0: 42 6c 6f 63 6b 5f 53 65 65 64 2d 31 2e 33 20 7b Block_Seed-1.3 {
03e0: 45 6e 63 72 79 70 74 20 53 65 65 64 7d 20 5c 0a Encrypt Seed} \.
03f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 65 .-constraints Se
0400: 65 64 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e ed \..-body {bin
0410: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
0420: 74 6c 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 tls::encrypt -ci
0430: 70 68 65 72 20 53 65 65 64 20 2d 70 61 64 64 69 pher Seed -paddi
0440: 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b ng 0 \... -key [
0450: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0460: 78 20 30 30 30 31 30 32 30 33 30 34 30 35 30 36 x 00010203040506
0470: 30 37 30 38 30 39 30 41 30 42 30 43 30 44 30 45 0708090A0B0C0D0E
0480: 30 46 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 0F] \... -data [
0490: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
04a0: 78 20 30 30 30 30 30 30 30 30 30 30 30 30 30 30 x 00000000000000
04b0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
04c0: 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 00]]} \..-match
04d0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 31 exact -result c1
04e0: 31 66 32 32 66 32 30 31 34 30 35 30 35 30 38 34 1f22f20140505084
04f0: 34 38 33 35 39 37 65 34 33 37 30 66 34 33 0a 0a 483597e4370f43..
0500: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79 tcltest::test Sy
0510: 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 53 65 65 metric_Block_See
0520: 64 2d 31 2e 34 20 7b 44 65 63 72 79 70 74 20 53 d-1.4 {Decrypt S
0530: 65 65 64 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 eed} \..-constra
0540: 69 6e 74 73 20 53 65 65 64 20 5c 0a 09 2d 62 6f ints Seed \..-bo
0550: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
0560: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
0570: 79 70 74 20 2d 63 69 70 68 65 72 20 53 65 65 64 ypt -cipher Seed
0580: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
0590: 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 -key [binary de
05a0: 63 6f 64 65 20 68 65 78 20 30 30 30 31 30 32 30 code hex 0001020
05b0: 33 30 34 30 35 30 36 30 37 30 38 30 39 30 41 30 30405060708090A0
05c0: 42 30 43 30 44 30 45 30 46 5d 20 5c 0a 09 09 20 B0C0D0E0F] \...
05d0: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
05e0: 63 6f 64 65 20 68 65 78 20 43 31 31 46 32 32 46 code hex C11F22F
05f0: 32 30 31 34 30 35 30 35 30 38 34 34 38 33 35 39 2014050508448359
0600: 37 45 34 33 37 30 46 34 33 5d 5d 7d 20 5c 0a 09 7E4370F43]]} \..
0610: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0620: 73 75 6c 74 20 30 30 30 30 30 30 30 30 30 30 30 sult 00000000000
0630: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0000000000000000
0640: 30 30 30 30 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 00000..tcltest::
0650: 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c test Symetric_Bl
0660: 6f 63 6b 5f 53 65 65 64 2d 31 2e 35 20 7b 45 6e ock_Seed-1.5 {En
0670: 63 72 79 70 74 20 53 65 65 64 7d 20 5c 0a 09 2d crypt Seed} \..-
0680: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 65 65 64 constraints Seed
0690: 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 \..-body {binar
06a0: 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c y encode hex [tl
06b0: 73 3a 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 s::encrypt -ciph
06c0: 65 72 20 53 65 65 64 20 2d 70 61 64 64 69 6e 67 er Seed -padding
06d0: 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 0 \... -key [bi
06e0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
06f0: 34 37 30 36 34 38 30 38 35 31 45 36 31 42 45 38 4706480851E61BE8
0700: 35 44 37 34 42 46 42 33 46 44 39 35 36 31 38 35 5D74BFB3FD956185
0710: 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 ] \... -data [bi
0720: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
0730: 38 33 41 32 46 38 41 32 38 38 36 34 31 46 42 39 83A2F8A288641FB9
0740: 41 34 45 39 41 35 43 43 32 46 31 33 31 43 37 44 A4E9A5CC2F131C7D
0750: 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ]]} \..-match ex
0760: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 65 35 34 act -result ee54
0770: 64 31 33 65 62 63 61 65 37 30 36 64 32 32 36 62 d13ebcae706d226b
0780: 63 33 31 34 32 63 64 34 30 64 34 61 0a 0a 74 63 c3142cd40d4a..tc
0790: 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 ltest::test Syme
07a0: 74 72 69 63 5f 42 6c 6f 63 6b 5f 53 65 65 64 2d tric_Block_Seed-
07b0: 31 2e 36 20 7b 44 65 63 72 79 70 74 20 53 65 65 1.6 {Decrypt See
07c0: 64 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e d} \..-constrain
07d0: 74 73 20 53 65 65 64 20 5c 0a 09 2d 62 6f 64 79 ts Seed \..-body
07e0: 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 {binary encode
07f0: 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 hex [tls::decryp
0800: 74 20 2d 63 69 70 68 65 72 20 53 65 65 64 20 2d t -cipher Seed -
0810: 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d padding 0 \... -
0820: 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f key [binary deco
0830: 64 65 20 68 65 78 20 34 37 30 36 34 38 30 38 35 de hex 470648085
0840: 31 45 36 31 42 45 38 35 44 37 34 42 46 42 33 46 1E61BE85D74BFB3F
0850: 44 39 35 36 31 38 35 5d 20 5c 0a 09 09 20 2d 64 D956185] \... -d
0860: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
0870: 64 65 20 68 65 78 20 45 45 35 34 44 31 33 45 42 de hex EE54D13EB
0880: 43 41 45 37 30 36 44 32 32 36 42 43 33 31 34 32 CAE706D226BC3142
0890: 43 44 34 30 44 34 41 5d 5d 7d 20 5c 0a 09 2d 6d CD40D4A]]} \..-m
08a0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
08b0: 6c 74 20 38 33 61 32 66 38 61 32 38 38 36 34 31 lt 83a2f8a288641
08c0: 66 62 39 61 34 65 39 61 35 63 63 32 66 31 33 31 fb9a4e9a5cc2f131
08d0: 63 37 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 c7d..tcltest::te
08e0: 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 st Symetric_Bloc
08f0: 6b 5f 53 65 65 64 2d 31 2e 37 20 7b 45 6e 63 72 k_Seed-1.7 {Encr
0900: 79 70 74 20 53 65 65 64 7d 20 5c 0a 09 2d 63 6f ypt Seed} \..-co
0910: 6e 73 74 72 61 69 6e 74 73 20 53 65 65 64 20 5c nstraints Seed \
0920: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 ..-body {binary
0930: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a encode hex [tls:
0940: 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 :encrypt -cipher
0950: 20 53 65 65 64 20 2d 70 61 64 64 69 6e 67 20 30 Seed -padding 0
0960: 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 \... -key [bina
0970: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 32 38 ry decode hex 28
0980: 44 42 43 33 42 43 34 39 46 46 44 38 37 44 43 46 DBC3BC49FFD87DCF
0990: 41 35 30 39 42 31 31 44 34 32 32 42 45 37 5d 20 A509B11D422BE7]
09a0: 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 \... -data [bina
09b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 42 34 ry decode hex B4
09c0: 31 45 36 42 45 32 45 42 41 38 34 41 31 34 38 45 1E6BE2EBA84A148E
09d0: 32 45 45 44 38 34 35 39 33 43 35 45 43 37 5d 5d 2EED84593C5EC7]]
09e0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
09f0: 74 20 2d 72 65 73 75 6c 74 20 39 62 39 62 37 62 t -result 9b9b7b
0a00: 66 63 64 31 38 31 33 63 62 39 35 64 30 62 33 36 fcd1813cb95d0b36
0a10: 31 38 66 34 30 66 35 31 32 32 0a 0a 74 63 6c 74 18f40f5122..tclt
0a20: 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 est::test Symetr
0a30: 69 63 5f 42 6c 6f 63 6b 5f 53 65 65 64 2d 31 2e ic_Block_Seed-1.
0a40: 38 20 7b 44 65 63 72 79 70 74 20 53 65 65 64 7d 8 {Decrypt Seed}
0a50: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0a60: 20 53 65 65 64 20 5c 0a 09 2d 62 6f 64 79 20 7b Seed \..-body {
0a70: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
0a80: 78 20 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 x [tls::decrypt
0a90: 2d 63 69 70 68 65 72 20 53 65 65 64 20 2d 70 61 -cipher Seed -pa
0aa0: 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 dding 0 \... -ke
0ab0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 y [binary decode
0ac0: 20 68 65 78 20 32 38 44 42 43 33 42 43 34 39 46 hex 28DBC3BC49F
0ad0: 46 44 38 37 44 43 46 41 35 30 39 42 31 31 44 34 FD87DCFA509B11D4
0ae0: 32 32 42 45 37 5d 20 5c 0a 09 09 20 2d 64 61 74 22BE7] \... -dat
0af0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0b00: 20 68 65 78 20 39 42 39 42 37 42 46 43 44 31 38 hex 9B9B7BFCD18
0b10: 31 33 43 42 39 35 44 30 42 33 36 31 38 46 34 30 13CB95D0B3618F40
0b20: 46 35 31 32 32 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 F5122]]} \..-mat
0b30: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0b40: 20 62 34 31 65 36 62 65 32 65 62 61 38 34 61 31 b41e6be2eba84a1
0b50: 34 38 65 32 65 65 64 38 34 35 39 33 63 35 65 63 48e2eed84593c5ec
0b60: 37 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 7..# Cleanup.::t
0b70: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 cltest::cleanupT
0b80: 65 73 74 73 0a 72 65 74 75 72 6e 0a ests.return.