Artifact
8eee83348bd30ace6fdb7c68ed1477ee63b9c56f4c1c02be87dc0f9acc38dc62:
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: 54 52 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64 20  TR.txt".lappend 
0030: 61 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20  auto_path [file 
0040: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69  dirname [file di
0050: 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e  rname [file dirn
0060: 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  ame [file dirnam
0070: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77  e [file join [pw
0080: 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d  d] [info script]
0090: 5d 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65  ]]]]].package re
00a0: 71 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 67  quire tls.packag
00b0: 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 73  e require tcltes
00c0: 74 0a 0a 63 61 74 63 68 20 7b 74 6c 73 3a 3a 70  t..catch {tls::p
00d0: 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79 7d 0a  rovider legacy}.
00e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e  tcltest::testCon
00f0: 73 74 72 61 69 6e 74 20 41 45 53 5f 31 32 38 5f  straint AES_128_
0100: 43 54 52 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61  CTR [expr {[lsea
0110: 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73  rch -nocase [tls
0120: 3a 3a 63 69 70 68 65 72 73 5d 20 41 45 53 2d 31  ::ciphers] AES-1
0130: 32 38 2d 43 54 52 5d 20 3e 20 2d 31 7d 5d 0a 0a  28-CTR] > -1}]..
0140: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53 79  tcltest::test Sy
0150: 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 41 45 53  metric_Block_AES
0160: 2d 31 32 38 2d 43 54 52 2d 31 2e 31 20 7b 45 6e  -128-CTR-1.1 {En
0170: 63 72 79 70 74 20 41 45 53 2d 31 32 38 2d 43 54  crypt AES-128-CT
0180: 52 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  R} \..-constrain
0190: 74 73 20 41 45 53 5f 31 32 38 5f 43 54 52 20 5c  ts AES_128_CTR \
01a0: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20  ..-body {binary 
01b0: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a  encode hex [tls:
01c0: 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72  :encrypt -cipher
01d0: 20 41 45 53 2d 31 32 38 2d 43 54 52 20 2d 70 61   AES-128-CTR -pa
01e0: 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b 65  dding 0 \... -ke
01f0: 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  y [binary decode
0200: 20 68 65 78 20 32 62 37 65 31 35 31 36 32 38 61   hex 2b7e151628a
0210: 65 64 32 61 36 61 62 66 37 31 35 38 38 30 39 63  ed2a6abf7158809c
0220: 66 34 66 33 63 5d 20 5c 0a 09 09 20 2d 69 76 20  f4f3c] \... -iv 
0230: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0240: 65 78 20 66 30 66 31 66 32 66 33 66 34 66 35 66  ex f0f1f2f3f4f5f
0250: 36 66 37 66 38 66 39 66 61 66 62 66 63 66 64 66  6f7f8f9fafbfcfdf
0260: 65 66 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61 20  eff] \... -data 
0270: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
0280: 65 78 20 36 62 63 31 62 65 65 32 32 65 34 30 39  ex 6bc1bee22e409
0290: 66 39 36 65 39 33 64 37 65 31 31 37 33 39 33 31  f96e93d7e1173931
02a0: 37 32 61 61 65 32 64 38 61 35 37 31 65 30 33 61  72aae2d8a571e03a
02b0: 63 39 63 39 65 62 37 36 66 61 63 34 35 61 66 38  c9c9eb76fac45af8
02c0: 65 35 31 33 30 63 38 31 63 34 36 61 33 35 63 65  e5130c81c46a35ce
02d0: 34 31 31 65 35 66 62 63 31 31 39 31 61 30 61 35  411e5fbc1191a0a5
02e0: 32 65 66 66 36 39 66 32 34 34 35 64 66 34 66 39  2eff69f2445df4f9
02f0: 62 31 37 61 64 32 62 34 31 37 62 65 36 36 63 33  b17ad2b417be66c3
0300: 37 31 30 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68  710]]} \..-match
0310: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38   exact -result 8
0320: 37 34 64 36 31 39 31 62 36 32 30 65 33 32 36 31  74d6191b620e3261
0330: 62 65 66 36 38 36 34 39 39 30 64 62 36 63 65 39  bef6864990db6ce9
0340: 38 30 36 66 36 36 62 37 39 37 30 66 64 66 66 38  806f66b7970fdff8
0350: 36 31 37 31 38 37 62 62 39 66 66 66 64 66 66 35  617187bb9fffdff5
0360: 61 65 34 64 66 33 65 64 62 64 35 64 33 35 65 35  ae4df3edbd5d35e5
0370: 62 34 66 30 39 30 32 30 64 62 30 33 65 61 62 31  b4f09020db03eab1
0380: 65 30 33 31 64 64 61 32 66 62 65 30 33 64 31 37  e031dda2fbe03d17
0390: 39 32 31 37 30 61 30 66 33 30 30 39 63 65 65 0a  92170a0f3009cee.
03a0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 53  .tcltest::test S
03b0: 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 41 45  ymetric_Block_AE
03c0: 53 2d 31 32 38 2d 43 54 52 2d 31 2e 32 20 7b 44  S-128-CTR-1.2 {D
03d0: 65 63 72 79 70 74 20 41 45 53 2d 31 32 38 2d 43  ecrypt AES-128-C
03e0: 54 52 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69  TR} \..-constrai
03f0: 6e 74 73 20 41 45 53 5f 31 32 38 5f 43 54 52 20  nts AES_128_CTR 
0400: 5c 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79  \..-body {binary
0410: 20 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73   encode hex [tls
0420: 3a 3a 64 65 63 72 79 70 74 20 2d 63 69 70 68 65  ::decrypt -ciphe
0430: 72 20 41 45 53 2d 31 32 38 2d 43 54 52 20 2d 70  r AES-128-CTR -p
0440: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b  adding 0 \... -k
0450: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ey [binary decod
0460: 65 20 68 65 78 20 32 62 37 65 31 35 31 36 32 38  e hex 2b7e151628
0470: 61 65 64 32 61 36 61 62 66 37 31 35 38 38 30 39  aed2a6abf7158809
0480: 63 66 34 66 33 63 5d 20 5c 0a 09 09 20 2d 69 76  cf4f3c] \... -iv
0490: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
04a0: 68 65 78 20 66 30 66 31 66 32 66 33 66 34 66 35  hex f0f1f2f3f4f5
04b0: 66 36 66 37 66 38 66 39 66 61 66 62 66 63 66 64  f6f7f8f9fafbfcfd
04c0: 66 65 66 66 5d 20 5c 0a 09 09 20 2d 64 61 74 61  feff] \... -data
04d0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
04e0: 68 65 78 20 38 37 34 64 36 31 39 31 62 36 32 30  hex 874d6191b620
04f0: 65 33 32 36 31 62 65 66 36 38 36 34 39 39 30 64  e3261bef6864990d
0500: 62 36 63 65 39 38 30 36 66 36 36 62 37 39 37 30  b6ce9806f66b7970
0510: 66 64 66 66 38 36 31 37 31 38 37 62 62 39 66 66  fdff8617187bb9ff
0520: 66 64 66 66 35 61 65 34 64 66 33 65 64 62 64 35  fdff5ae4df3edbd5
0530: 64 33 35 65 35 62 34 66 30 39 30 32 30 64 62 30  d35e5b4f09020db0
0540: 33 65 61 62 31 65 30 33 31 64 64 61 32 66 62 65  3eab1e031dda2fbe
0550: 30 33 64 31 37 39 32 31 37 30 61 30 66 33 30 30  03d1792170a0f300
0560: 39 63 65 65 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63  9cee]]} \..-matc
0570: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0580: 36 62 63 31 62 65 65 32 32 65 34 30 39 66 39 36  6bc1bee22e409f96
0590: 65 39 33 64 37 65 31 31 37 33 39 33 31 37 32 61  e93d7e117393172a
05a0: 61 65 32 64 38 61 35 37 31 65 30 33 61 63 39 63  ae2d8a571e03ac9c
05b0: 39 65 62 37 36 66 61 63 34 35 61 66 38 65 35 31  9eb76fac45af8e51
05c0: 33 30 63 38 31 63 34 36 61 33 35 63 65 34 31 31  30c81c46a35ce411
05d0: 65 35 66 62 63 31 31 39 31 61 30 61 35 32 65 66  e5fbc1191a0a52ef
05e0: 66 36 39 66 32 34 34 35 64 66 34 66 39 62 31 37  f69f2445df4f9b17
05f0: 61 64 32 62 34 31 37 62 65 36 36 63 33 37 31 30  ad2b417be66c3710
0600: 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63  ..# Cleanup.::tc
0610: 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65  ltest::cleanupTe
0620: 73 74 73 0a 72 65 74 75 72 6e 0a                 sts.return.