Artifact
1240f8c454ae566be27a0e1cab719ee5f7d223bd581871778bc8897d400c5af8:
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 4d 34 2d 45 43 42 2e 74 from "SM4-ECB.t
0020: 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f xt".lappend auto
0030: 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 6e _path [file dirn
0040: 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d ame [file dirnam
0050: 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 e [file dirname
0060: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
0070: 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b ile join [pwd] [
0080: 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d info script]]]]]
0090: 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ].package requir
00a0: 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 e tls.package re
00b0: 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 63 quire tcltest..c
00c0: 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 atch {tls::provi
00d0: 64 65 72 20 6c 65 67 61 63 79 7d 0a 74 63 6c 74 der legacy}.tclt
00e0: 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 est::testConstra
00f0: 69 6e 74 20 53 4d 34 5f 45 43 42 20 5b 65 78 70 int SM4_ECB [exp
0100: 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 r {[lsearch -noc
0110: 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 68 65 72 ase [tls::cipher
0120: 73 5d 20 53 4d 34 2d 45 43 42 5d 20 3e 20 2d 31 s] SM4-ECB] > -1
0130: 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 }]..tcltest::tes
0140: 74 20 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b t Symetric_Block
0150: 5f 53 4d 34 2d 45 43 42 2d 31 2e 31 20 7b 45 6e _SM4-ECB-1.1 {En
0160: 63 72 79 70 74 20 53 4d 34 2d 45 43 42 7d 20 5c crypt SM4-ECB} \
0170: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0180: 4d 34 5f 45 43 42 20 5c 0a 09 2d 62 6f 64 79 20 M4_ECB \..-body
0190: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
01a0: 65 78 20 5b 74 6c 73 3a 3a 65 6e 63 72 79 70 74 ex [tls::encrypt
01b0: 20 2d 63 69 70 68 65 72 20 53 4d 34 2d 45 43 42 -cipher SM4-ECB
01c0: 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 -padding 0 \...
01d0: 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20 64 65 -key [binary de
01e0: 63 6f 64 65 20 68 65 78 20 30 31 32 33 34 35 36 code hex 0123456
01f0: 37 38 39 41 42 43 44 45 46 46 45 44 43 42 41 39 789ABCDEFFEDCBA9
0200: 38 37 36 35 34 33 32 31 30 5d 20 5c 0a 09 09 20 876543210] \...
0210: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 -data [binary de
0220: 63 6f 64 65 20 68 65 78 20 41 41 41 41 41 41 41 code hex AAAAAAA
0230: 41 42 42 42 42 42 42 42 42 43 43 43 43 43 43 43 ABBBBBBBBCCCCCCC
0240: 43 44 44 44 44 44 44 44 44 45 45 45 45 45 45 45 CDDDDDDDDEEEEEEE
0250: 45 46 46 46 46 46 46 46 46 41 41 41 41 41 41 41 EFFFFFFFFAAAAAAA
0260: 41 42 42 42 42 42 42 42 42 5d 5d 7d 20 5c 0a 09 ABBBBBBBB]]} \..
0270: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0280: 73 75 6c 74 20 35 65 63 38 31 34 33 64 65 35 30 sult 5ec8143de50
0290: 39 63 66 66 37 62 35 31 37 39 66 38 66 34 37 34 9cff7b5179f8f474
02a0: 62 38 36 31 39 32 66 31 64 33 30 35 61 37 66 62 b86192f1d305a7fb
02b0: 31 37 64 66 39 38 35 66 38 31 63 38 34 38 32 31 17df985f81c84821
02c0: 39 32 33 30 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 92304..tcltest::
02d0: 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42 6c test Symetric_Bl
02e0: 6f 63 6b 5f 53 4d 34 2d 45 43 42 2d 31 2e 32 20 ock_SM4-ECB-1.2
02f0: 7b 44 65 63 72 79 70 74 20 53 4d 34 2d 45 43 42 {Decrypt SM4-ECB
0300: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0310: 73 20 53 4d 34 5f 45 43 42 20 5c 0a 09 2d 62 6f s SM4_ECB \..-bo
0320: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
0330: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72 e hex [tls::decr
0340: 79 70 74 20 2d 63 69 70 68 65 72 20 53 4d 34 2d ypt -cipher SM4-
0350: 45 43 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c ECB -padding 0 \
0360: 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 ... -key [binary
0370: 20 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 decode hex 0123
0380: 34 35 36 37 38 39 41 42 43 44 45 46 46 45 44 43 456789ABCDEFFEDC
0390: 42 41 39 38 37 36 35 34 33 32 31 30 5d 20 5c 0a BA9876543210] \.
03a0: 09 09 20 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 .. -data [binary
03b0: 20 64 65 63 6f 64 65 20 68 65 78 20 35 45 43 38 decode hex 5EC8
03c0: 31 34 33 44 45 35 30 39 43 46 46 37 42 35 31 37 143DE509CFF7B517
03d0: 39 46 38 46 34 37 34 42 38 36 31 39 32 46 31 44 9F8F474B86192F1D
03e0: 33 30 35 41 37 46 42 31 37 44 46 39 38 35 46 38 305A7FB17DF985F8
03f0: 31 43 38 34 38 32 31 39 32 33 30 34 5d 5d 7d 20 1C8482192304]]}
0400: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0410: 2d 72 65 73 75 6c 74 20 61 61 61 61 61 61 61 61 -result aaaaaaaa
0420: 62 62 62 62 62 62 62 62 63 63 63 63 63 63 63 63 bbbbbbbbcccccccc
0430: 64 64 64 64 64 64 64 64 65 65 65 65 65 65 65 65 ddddddddeeeeeeee
0440: 66 66 66 66 66 66 66 66 61 61 61 61 61 61 61 61 ffffffffaaaaaaaa
0450: 62 62 62 62 62 62 62 62 0a 0a 74 63 6c 74 65 73 bbbbbbbb..tcltes
0460: 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 t::test Symetric
0470: 5f 42 6c 6f 63 6b 5f 53 4d 34 2d 45 43 42 2d 31 _Block_SM4-ECB-1
0480: 2e 33 20 7b 45 6e 63 72 79 70 74 20 53 4d 34 2d .3 {Encrypt SM4-
0490: 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 ECB} \..-constra
04a0: 69 6e 74 73 20 53 4d 34 5f 45 43 42 20 5c 0a 09 ints SM4_ECB \..
04b0: 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20 65 6e -body {binary en
04c0: 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 65 code hex [tls::e
04d0: 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72 20 53 ncrypt -cipher S
04e0: 4d 34 2d 45 43 42 20 2d 70 61 64 64 69 6e 67 20 M4-ECB -padding
04f0: 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62 69 6e 0 \... -key [bin
0500: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 46 ary decode hex F
0510: 45 44 43 42 41 39 38 37 36 35 34 33 32 31 30 30 EDCBA98765432100
0520: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 5d 123456789ABCDEF]
0530: 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e \... -data [bin
0540: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 41 ary decode hex A
0550: 41 41 41 41 41 41 41 42 42 42 42 42 42 42 42 43 AAAAAAABBBBBBBBC
0560: 43 43 43 43 43 43 43 44 44 44 44 44 44 44 44 45 CCCCCCCDDDDDDDDE
0570: 45 45 45 45 45 45 45 46 46 46 46 46 46 46 46 41 EEEEEEEFFFFFFFFA
0580: 41 41 41 41 41 41 41 42 42 42 42 42 42 42 42 5d AAAAAAABBBBBBBB]
0590: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 ]} \..-match exa
05a0: 63 74 20 2d 72 65 73 75 6c 74 20 63 35 38 37 36 ct -result c5876
05b0: 38 39 37 65 34 61 35 39 62 62 62 61 37 32 61 31 897e4a59bbba72a1
05c0: 30 63 38 33 38 37 32 32 34 35 62 31 32 64 64 39 0c83872245b12dd9
05d0: 30 62 63 32 64 32 30 30 36 39 32 62 35 32 39 61 0bc2d200692b529a
05e0: 34 31 35 35 61 63 39 65 36 30 30 0a 0a 74 63 6c 4155ac9e600..tcl
05f0: 74 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74 test::test Symet
0600: 72 69 63 5f 42 6c 6f 63 6b 5f 53 4d 34 2d 45 43 ric_Block_SM4-EC
0610: 42 2d 31 2e 34 20 7b 44 65 63 72 79 70 74 20 53 B-1.4 {Decrypt S
0620: 4d 34 2d 45 43 42 7d 20 5c 0a 09 2d 63 6f 6e 73 M4-ECB} \..-cons
0630: 74 72 61 69 6e 74 73 20 53 4d 34 5f 45 43 42 20 traints SM4_ECB
0640: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 \..-body {binary
0650: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 encode hex [tls
0660: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65 ::decrypt -ciphe
0670: 72 20 53 4d 34 2d 45 43 42 20 2d 70 61 64 64 69 r SM4-ECB -paddi
0680: 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b ng 0 \... -key [
0690: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
06a0: 78 20 46 45 44 43 42 41 39 38 37 36 35 34 33 32 x FEDCBA98765432
06b0: 31 30 30 31 32 33 34 35 36 37 38 39 41 42 43 44 100123456789ABCD
06c0: 45 46 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b EF] \... -data [
06d0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
06e0: 78 20 43 35 38 37 36 38 39 37 45 34 41 35 39 42 x C5876897E4A59B
06f0: 42 42 41 37 32 41 31 30 43 38 33 38 37 32 32 34 BBA72A10C8387224
0700: 35 42 31 32 44 44 39 30 42 43 32 44 32 30 30 36 5B12DD90BC2D2006
0710: 39 32 42 35 32 39 41 34 31 35 35 41 43 39 45 36 92B529A4155AC9E6
0720: 30 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 00]]} \..-match
0730: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 61 exact -result aa
0740: 61 61 61 61 61 61 62 62 62 62 62 62 62 62 63 63 aaaaaabbbbbbbbcc
0750: 63 63 63 63 63 63 64 64 64 64 64 64 64 64 65 65 ccccccddddddddee
0760: 65 65 65 65 65 65 66 66 66 66 66 66 66 66 61 61 eeeeeeffffffffaa
0770: 61 61 61 61 61 61 62 62 62 62 62 62 62 62 0a 0a aaaaaabbbbbbbb..
0780: 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 # Cleanup.::tclt
0790: 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 est::cleanupTest
07a0: 73 0a 72 65 74 75 72 6e 0a s.return.