Artifact
8e2ca440afaf6145b98222710e7faa5ec37a87f73d9907423ade841a4bf80594:
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 44 45 53 2d 45 44 45 33 2d   from "DES-EDE3-
0020: 43 46 42 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64  CFB.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 44 45 53 5f 45 44 45  nstraint DES_EDE
0100: 33 5f 43 46 42 20 5b 65 78 70 72 20 7b 5b 6c 73  3_CFB [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 44 45 53  ls::ciphers] DES
0130: 2d 45 44 45 33 2d 43 46 42 5d 20 3e 20 2d 31 7d  -EDE3-CFB] > -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: 44 45 53 2d 45 44 45 33 2d 43 46 42 2d 31 2e 31  DES-EDE3-CFB-1.1
0170: 20 7b 45 6e 63 72 79 70 74 20 44 45 53 2d 45 44   {Encrypt DES-ED
0180: 45 33 2d 43 46 42 7d 20 5c 0a 09 2d 63 6f 6e 73  E3-CFB} \..-cons
0190: 74 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 33  traints DES_EDE3
01a0: 5f 43 46 42 20 5c 0a 09 2d 62 6f 64 79 20 7b 62  _CFB \..-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 44 45 53 2d 45 44 45 33 2d  cipher DES-EDE3-
01e0: 43 46 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c  CFB -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 30 31 32 33   decode hex 0123
0210: 34 35 36 37 38 39 61 62 63 64 65 66 32 33 34 35  456789abcdef2345
0220: 36 37 38 39 61 62 63 64 65 66 30 31 34 35 36 37  6789abcdef014567
0230: 38 39 61 62 63 64 65 66 30 31 32 33 5d 20 5c 0a  89abcdef0123] \.
0240: 09 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 20 64  .. -iv [binary d
0250: 65 63 6f 64 65 20 68 65 78 20 66 36 39 66 32 34  ecode hex f69f24
0260: 34 35 64 66 34 66 39 62 31 37 5d 20 5c 0a 09 09  45df4f9b17] \...
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 62 65  ecode hex 6bc1be
0290: 65 32 32 65 34 30 39 66 39 36 65 39 33 64 37 65  e22e409f96e93d7e
02a0: 31 31 37 33 39 33 31 37 32 61 61 65 32 64 38 61  117393172aae2d8a
02b0: 35 37 31 65 30 33 61 63 39 63 39 65 62 37 36 66  571e03ac9c9eb76f
02c0: 61 63 34 35 61 66 38 65 35 31 5d 5d 7d 20 5c 0a  ac45af8e51]]} \.
02d0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
02e0: 65 73 75 6c 74 20 30 37 38 62 62 37 34 65 35 39  esult 078bb74e59
02f0: 63 65 37 65 64 36 37 36 36 36 64 65 39 63 66 39  ce7ed67666de9cf9
0300: 35 65 61 66 33 66 65 39 65 64 36 62 62 34 36 30  5eaf3fe9ed6bb460
0310: 66 34 35 31 35 32 38 61 35 66 39 66 65 34 65 64  f451528a5f9fe4ed
0320: 37 31 30 39 31 38 0a 0a 74 63 6c 74 65 73 74 3a  710918..tcltest:
0330: 3a 74 65 73 74 20 53 79 6d 65 74 72 69 63 5f 42  :test Symetric_B
0340: 6c 6f 63 6b 5f 44 45 53 2d 45 44 45 33 2d 43 46  lock_DES-EDE3-CF
0350: 42 2d 31 2e 32 20 7b 44 65 63 72 79 70 74 20 44  B-1.2 {Decrypt D
0360: 45 53 2d 45 44 45 33 2d 43 46 42 7d 20 5c 0a 09  ES-EDE3-CFB} \..
0370: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 44 45 53  -constraints DES
0380: 5f 45 44 45 33 5f 43 46 42 20 5c 0a 09 2d 62 6f  _EDE3_CFB \..-bo
0390: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64  dy {binary encod
03a0: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 65 63 72  e hex [tls::decr
03b0: 79 70 74 20 2d 63 69 70 68 65 72 20 44 45 53 2d  ypt -cipher DES-
03c0: 45 44 45 33 2d 43 46 42 20 2d 70 61 64 64 69 6e  EDE3-CFB -paddin
03d0: 67 20 30 20 5c 0a 09 09 20 2d 6b 65 79 20 5b 62  g 0 \... -key [b
03e0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
03f0: 20 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65   0123456789abcde
0400: 66 32 33 34 35 36 37 38 39 61 62 63 64 65 66 30  f23456789abcdef0
0410: 31 34 35 36 37 38 39 61 62 63 64 65 66 30 31 32  1456789abcdef012
0420: 33 5d 20 5c 0a 09 09 20 2d 69 76 20 5b 62 69 6e  3] \... -iv [bin
0430: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66  ary decode hex f
0440: 36 39 66 32 34 34 35 64 66 34 66 39 62 31 37 5d  69f2445df4f9b17]
0450: 20 5c 0a 09 09 20 2d 64 61 74 61 20 5b 62 69 6e   \... -data [bin
0460: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 30  ary decode hex 0
0470: 37 38 62 62 37 34 65 35 39 63 65 37 65 64 36 37  78bb74e59ce7ed67
0480: 36 36 36 64 65 39 63 66 39 35 65 61 66 33 66 65  666de9cf95eaf3fe
0490: 39 65 64 36 62 62 34 36 30 66 34 35 31 35 32 38  9ed6bb460f451528
04a0: 61 35 66 39 66 65 34 65 64 37 31 30 39 31 38 5d  a5f9fe4ed710918]
04b0: 5d 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61  ]} \..-match exa
04c0: 63 74 20 2d 72 65 73 75 6c 74 20 36 62 63 31 62  ct -result 6bc1b
04d0: 65 65 32 32 65 34 30 39 66 39 36 65 39 33 64 37  ee22e409f96e93d7
04e0: 65 31 31 37 33 39 33 31 37 32 61 61 65 32 64 38  e117393172aae2d8
04f0: 61 35 37 31 65 30 33 61 63 39 63 39 65 62 37 36  a571e03ac9c9eb76
0500: 66 61 63 34 35 61 66 38 65 35 31 0a 0a 74 63 6c  fac45af8e51..tcl
0510: 74 65 73 74 3a 3a 74 65 73 74 20 53 79 6d 65 74  test::test Symet
0520: 72 69 63 5f 42 6c 6f 63 6b 5f 44 45 53 2d 45 44  ric_Block_DES-ED
0530: 45 33 2d 43 46 42 2d 31 2e 33 20 7b 45 6e 63 72  E3-CFB-1.3 {Encr
0540: 79 70 74 20 44 45 53 2d 45 44 45 33 2d 43 46 42  ypt DES-EDE3-CFB
0550: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0560: 73 20 44 45 53 5f 45 44 45 33 5f 43 46 42 20 5c  s DES_EDE3_CFB \
0570: 0a 09 2d 62 6f 64 79 20 7b 62 69 6e 61 72 79 20  ..-body {binary 
0580: 65 6e 63 6f 64 65 20 68 65 78 20 5b 74 6c 73 3a  encode hex [tls:
0590: 3a 65 6e 63 72 79 70 74 20 2d 63 69 70 68 65 72  :encrypt -cipher
05a0: 20 44 45 53 2d 45 44 45 33 2d 43 46 42 20 2d 70   DES-EDE3-CFB -p
05b0: 61 64 64 69 6e 67 20 30 20 5c 0a 09 09 20 2d 6b  adding 0 \... -k
05c0: 65 79 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ey [binary decod
05d0: 65 20 68 65 78 20 30 31 32 33 34 35 36 37 38 39  e hex 0123456789
05e0: 61 62 63 64 65 66 32 33 34 35 36 37 38 39 61 62  abcdef23456789ab
05f0: 63 64 65 66 30 31 30 31 32 33 34 35 36 37 38 39  cdef010123456789
0600: 61 62 63 64 65 66 5d 20 5c 0a 09 09 20 2d 69 76  abcdef] \... -iv
0610: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0620: 68 65 78 20 66 36 39 66 32 34 34 35 64 66 34 66  hex f69f2445df4f
0630: 39 62 31 37 5d 20 5c 0a 09 09 20 2d 64 61 74 61  9b17] \... -data
0640: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20   [binary decode 
0650: 68 65 78 20 36 62 63 31 62 65 65 32 32 65 34 30  hex 6bc1bee22e40
0660: 39 66 39 36 65 39 33 64 37 65 31 31 37 33 39 33  9f96e93d7e117393
0670: 31 37 32 61 61 65 32 64 38 61 35 37 31 65 30 33  172aae2d8a571e03
0680: 61 63 39 63 39 65 62 37 36 66 61 63 34 35 61 66  ac9c9eb76fac45af
0690: 38 65 35 31 5d 5d 7d 20 5c 0a 09 2d 6d 61 74 63  8e51]]} \..-matc
06a0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
06b0: 36 31 39 35 62 39 63 32 63 33 39 39 30 39 63 35  6195b9c2c39909c5
06c0: 32 65 66 33 31 33 36 36 37 62 35 61 36 36 61 66  2ef313667b5a66af
06d0: 36 38 38 36 37 32 61 33 39 39 33 61 65 61 65 35  688672a3993aeae5
06e0: 35 62 39 33 31 61 65 32 34 65 65 32 34 63 35 63  5b931ae24ee24c5c
06f0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0700: 53 79 6d 65 74 72 69 63 5f 42 6c 6f 63 6b 5f 44  Symetric_Block_D
0710: 45 53 2d 45 44 45 33 2d 43 46 42 2d 31 2e 34 20  ES-EDE3-CFB-1.4 
0720: 7b 44 65 63 72 79 70 74 20 44 45 53 2d 45 44 45  {Decrypt DES-EDE
0730: 33 2d 43 46 42 7d 20 5c 0a 09 2d 63 6f 6e 73 74  3-CFB} \..-const
0740: 72 61 69 6e 74 73 20 44 45 53 5f 45 44 45 33 5f  raints DES_EDE3_
0750: 43 46 42 20 5c 0a 09 2d 62 6f 64 79 20 7b 62 69  CFB \..-body {bi
0760: 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20  nary encode hex 
0770: 5b 74 6c 73 3a 3a 64 65 63 72 79 70 74 20 2d 63  [tls::decrypt -c
0780: 69 70 68 65 72 20 44 45 53 2d 45 44 45 33 2d 43  ipher DES-EDE3-C
0790: 46 42 20 2d 70 61 64 64 69 6e 67 20 30 20 5c 0a  FB -padding 0 \.
07a0: 09 09 20 2d 6b 65 79 20 5b 62 69 6e 61 72 79 20  .. -key [binary 
07b0: 64 65 63 6f 64 65 20 68 65 78 20 30 31 32 33 34  decode hex 01234
07c0: 35 36 37 38 39 61 62 63 64 65 66 32 33 34 35 36  56789abcdef23456
07d0: 37 38 39 61 62 63 64 65 66 30 31 30 31 32 33 34  789abcdef0101234
07e0: 35 36 37 38 39 61 62 63 64 65 66 5d 20 5c 0a 09  56789abcdef] \..
07f0: 09 20 2d 69 76 20 5b 62 69 6e 61 72 79 20 64 65  . -iv [binary de
0800: 63 6f 64 65 20 68 65 78 20 66 36 39 66 32 34 34  code hex f69f244
0810: 35 64 66 34 66 39 62 31 37 5d 20 5c 0a 09 09 20  5df4f9b17] \... 
0820: 2d 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65  -data [binary de
0830: 63 6f 64 65 20 68 65 78 20 36 31 39 35 62 39 63  code hex 6195b9c
0840: 32 63 33 39 39 30 39 63 35 32 65 66 33 31 33 36  2c39909c52ef3136
0850: 36 37 62 35 61 36 36 61 66 36 38 38 36 37 32 61  67b5a66af688672a
0860: 33 39 39 33 61 65 61 65 35 35 62 39 33 31 61 65  3993aeae55b931ae
0870: 32 34 65 65 32 34 63 35 63 5d 5d 7d 20 5c 0a 09  24ee24c5c]]} \..
0880: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0890: 73 75 6c 74 20 36 62 63 31 62 65 65 32 32 65 34  sult 6bc1bee22e4
08a0: 30 39 66 39 36 65 39 33 64 37 65 31 31 37 33 39  09f96e93d7e11739
08b0: 33 31 37 32 61 61 65 32 64 38 61 35 37 31 65 30  3172aae2d8a571e0
08c0: 33 61 63 39 63 39 65 62 37 36 66 61 63 34 35 61  3ac9c9eb76fac45a
08d0: 66 38 65 35 31 0a 0a 23 20 43 6c 65 61 6e 75 70  f8e51..# Cleanup
08e0: 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61  .::tcltest::clea
08f0: 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a  nupTests.return.