ADDED   tests/test_vectors/Symetric_Block/DES-CBC.test
Index: tests/test_vectors/Symetric_Block/DES-CBC.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CBC.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-CBC.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_CBC [expr {[lsearch -nocase [tls::ciphers] DES-CBC] > -1}]
+
+tcltest::test Block_DES-CBC-1.1 {Encrypt DES-CBC} \
+	-constraints DES_CBC \
+	-body {binary encode hex [tls::encrypt -cipher DES-CBC -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 4e6f77206973207468652074696d6520666f7220616c6c20]]} \
+	-match exact -result e5c7cdde872bf27c43e934008c389c0f683788499a7c05f6
+
+tcltest::test Block_DES-CBC-1.2 {Decrypt DES-CBC} \
+	-constraints DES_CBC \
+	-body {binary encode hex [tls::decrypt -cipher DES-CBC -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex e5c7cdde872bf27c43e934008c389c0f683788499a7c05f6]]} \
+	-match exact -result 4e6f77206973207468652074696d6520666f7220616c6c20
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-CBC.txt
Index: tests/test_vectors/Symetric_Block/DES-CBC.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CBC.txt
@@ -0,0 +1,13 @@
+# DES-CBC
+# From FIPS Pub 81 Appendix C
+
+
+# CBC-DES.Encrypt and CBC-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 24
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+#Plaintext = "Now is the time for all "
+Plaintext = 4e6f77206973207468652074696d6520666f7220616c6c20
+Ciphertext = e5c7cdde872bf27c43e934008c389c0f683788499a7c05f6

ADDED   tests/test_vectors/Symetric_Block/DES-CFB.test
Index: tests/test_vectors/Symetric_Block/DES-CFB.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CFB.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-CFB.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_CFB [expr {[lsearch -nocase [tls::ciphers] DES-CFB] > -1}]
+
+tcltest::test Block_DES-CFB-1.1 {Encrypt DES-CFB} \
+	-constraints DES_CFB \
+	-body {binary encode hex [tls::encrypt -cipher DES-CFB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 4e6f77206973207468652074696d6520666f7220616c6c20]]} \
+	-match exact -result f3096249c7f46e51a69e839b1a92f78403467133898ea622
+
+tcltest::test Block_DES-CFB-1.2 {Decrypt DES-CFB} \
+	-constraints DES_CFB \
+	-body {binary encode hex [tls::decrypt -cipher DES-CFB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex f3096249c7f46e51a69e839b1a92f78403467133898ea622]]} \
+	-match exact -result 4e6f77206973207468652074696d6520666f7220616c6c20
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-CFB.txt
Index: tests/test_vectors/Symetric_Block/DES-CFB.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CFB.txt
@@ -0,0 +1,13 @@
+# DES-CFB
+# From FIPS Pub 81 Appendix D3
+
+
+# CFB-DES.Encrypt and CFB-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 24
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+#Plaintext = "Now is the time for all "
+Plaintext = 4e6f77206973207468652074696d6520666f7220616c6c20
+Ciphertext = f3096249c7f46e51a69e839b1a92f78403467133898ea622

ADDED   tests/test_vectors/Symetric_Block/DES-CFB1.test
Index: tests/test_vectors/Symetric_Block/DES-CFB1.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CFB1.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-CFB1.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_CFB1 [expr {[lsearch -nocase [tls::ciphers] DES-CFB1] > -1}]
+
+tcltest::test Block_DES-CFB1-1.1 {Encrypt DES-CFB1} \
+	-constraints DES_CFB1 \
+	-body {binary encode hex [tls::encrypt -cipher DES-CFB1 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 4e6f77]]} \
+	-match exact -result cd1ec9
+
+tcltest::test Block_DES-CFB1-1.2 {Decrypt DES-CFB1} \
+	-constraints DES_CFB1 \
+	-body {binary encode hex [tls::decrypt -cipher DES-CFB1 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex cd1ec9]]} \
+	-match exact -result 4e6f77
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-CFB1.txt
Index: tests/test_vectors/Symetric_Block/DES-CFB1.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CFB1.txt
@@ -0,0 +1,14 @@
+# DES-CFB1
+# From FIPS Pub 81 Appendix D1
+
+
+# CFB1-DES.Encrypt and CFB1-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 3
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+# 010011100110111101110111
+Plaintext = 4e6f77
+# 110011010001111011001001
+Ciphertext = cd1ec9

ADDED   tests/test_vectors/Symetric_Block/DES-CFB8.test
Index: tests/test_vectors/Symetric_Block/DES-CFB8.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CFB8.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-CFB8.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_CFB8 [expr {[lsearch -nocase [tls::ciphers] DES-CFB8] > -1}]
+
+tcltest::test Block_DES-CFB8-1.1 {Encrypt DES-CFB8} \
+	-constraints DES_CFB8 \
+	-body {binary encode hex [tls::encrypt -cipher DES-CFB8 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 4e6f7720697320746865]]} \
+	-match exact -result f31fda07011462ee187f
+
+tcltest::test Block_DES-CFB8-1.2 {Decrypt DES-CFB8} \
+	-constraints DES_CFB8 \
+	-body {binary encode hex [tls::decrypt -cipher DES-CFB8 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex f31fda07011462ee187f]]} \
+	-match exact -result 4e6f7720697320746865
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-CFB8.txt
Index: tests/test_vectors/Symetric_Block/DES-CFB8.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-CFB8.txt
@@ -0,0 +1,13 @@
+# DES-CFB8
+# From FIPS Pub 81 Appendix D2
+
+
+# CFB8-DES.Encrypt and CFB8-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 10
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+#Plaintext = "Now is the"
+Plaintext = 4e6f7720697320746865
+Ciphertext = f31fda07011462ee187f

ADDED   tests/test_vectors/Symetric_Block/DES-ECB.test
Index: tests/test_vectors/Symetric_Block/DES-ECB.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-ECB.test
@@ -0,0 +1,53 @@
+# Auto generated from "DES-ECB.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_ECB [expr {[lsearch -nocase [tls::ciphers] DES-ECB] > -1}]
+
+tcltest::test Block_DES-ECB-1.1 {Encrypt DES-ECB} \
+	-constraints DES_ECB \
+	-body {binary encode hex [tls::encrypt -cipher DES-ECB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -data [binary decode hex 4e6f772069732074]]} \
+	-match exact -result 3fa40e8a984d4815
+
+tcltest::test Block_DES-ECB-1.2 {Decrypt DES-ECB} \
+	-constraints DES_ECB \
+	-body {binary encode hex [tls::decrypt -cipher DES-ECB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -data [binary decode hex 3fa40e8a984d4815]]} \
+	-match exact -result 4e6f772069732074
+
+tcltest::test Block_DES-ECB-1.3 {Encrypt DES-ECB} \
+	-constraints DES_ECB \
+	-body {binary encode hex [tls::encrypt -cipher DES-ECB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -data [binary decode hex 68652074696d6520]]} \
+	-match exact -result 6a271787ab8883f9
+
+tcltest::test Block_DES-ECB-1.4 {Decrypt DES-ECB} \
+	-constraints DES_ECB \
+	-body {binary encode hex [tls::decrypt -cipher DES-ECB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -data [binary decode hex 6a271787ab8883f9]]} \
+	-match exact -result 68652074696d6520
+
+tcltest::test Block_DES-ECB-1.5 {Encrypt DES-ECB} \
+	-constraints DES_ECB \
+	-body {binary encode hex [tls::encrypt -cipher DES-ECB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -data [binary decode hex 666f7220616c6c20]]} \
+	-match exact -result 893d51ec4b563b53
+
+tcltest::test Block_DES-ECB-1.6 {Decrypt DES-ECB} \
+	-constraints DES_ECB \
+	-body {binary encode hex [tls::decrypt -cipher DES-ECB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -data [binary decode hex 893d51ec4b563b53]]} \
+	-match exact -result 666f7220616c6c20
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-ECB.txt
Index: tests/test_vectors/Symetric_Block/DES-ECB.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-ECB.txt
@@ -0,0 +1,22 @@
+# DES-ECB
+# From FIPS Pub 81 Appendix B
+
+
+# ECB-DES.Encrypt and ECB-DES.Decrypt 
+Klen = 8
+Len = 8
+Key = 0123456789abcdef
+Plaintext = 4e6f772069732074
+Ciphertext = 3fa40e8a984d4815
+
+Klen = 8
+Len = 8
+Key = 0123456789abcdef
+Plaintext = 68652074696d6520
+Ciphertext = 6a271787ab8883f9
+
+Klen = 8
+Len = 8
+Key = 0123456789abcdef
+Plaintext = 666f7220616c6c20
+Ciphertext = 893d51ec4b563b53

Index: tests/test_vectors/Symetric_Block/DES-EDE3-CFB1.txt
==================================================================
--- tests/test_vectors/Symetric_Block/DES-EDE3-CFB1.txt
+++ tests/test_vectors/Symetric_Block/DES-EDE3-CFB1.txt
@@ -3,11 +3,11 @@
 
 
 # CFB1-TDES.Encrypt and CFB1-TDES.Decrypt 
 Klen = 24
 Ilen = 8
-Len = 2
+Len = 1
 Key = 0123456789abcdef23456789abcdef01456789abcdef0123
 IV = f69f2445df4f9b17
 # 01101011
 Plaintext = 6b
 # 01011100
@@ -14,12 +14,12 @@
 Ciphertext = 5c
 
 # CFB1-TDES.Encrypt and CFB1-TDES.Decrypt 
 Klen = 24
 Ilen = 8
-Len = 2
+Len = 1
 Key = 0123456789abcdef23456789abcdef010123456789abcdef
 IV = f69f2445df4f9b17
 # 01101011
 Plaintext = 6b
 # 01100110
 Ciphertext = 66

ADDED   tests/test_vectors/Symetric_Block/DES-OFB.test
Index: tests/test_vectors/Symetric_Block/DES-OFB.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-OFB.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-OFB.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_OFB [expr {[lsearch -nocase [tls::ciphers] DES-OFB] > -1}]
+
+tcltest::test Block_DES-OFB-1.1 {Encrypt DES-OFB} \
+	-constraints DES_OFB \
+	-body {binary encode hex [tls::encrypt -cipher DES-OFB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 5765207468652070656f706c65206f662074686520556e69746564205374617465732c20696e206f7264657220746f20]]} \
+	-match exact -result ea03351dc6e26e5538f81a3c22a637797b7641a66463fa8a0c9d1ead3ed113d70608a565602f23c421c8836e82c5f07b
+
+tcltest::test Block_DES-OFB-1.2 {Decrypt DES-OFB} \
+	-constraints DES_OFB \
+	-body {binary encode hex [tls::decrypt -cipher DES-OFB -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex ea03351dc6e26e5538f81a3c22a637797b7641a66463fa8a0c9d1ead3ed113d70608a565602f23c421c8836e82c5f07b]]} \
+	-match exact -result 5765207468652070656f706c65206f662074686520556e69746564205374617465732c20696e206f7264657220746f20
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-OFB.txt
Index: tests/test_vectors/Symetric_Block/DES-OFB.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-OFB.txt
@@ -0,0 +1,13 @@
+# DES-OFB
+# From FIPS Pub 81, Change Notice 3
+
+
+# OFB-DES.Encrypt and OFB-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 48
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+#Plaintext = "We the people of the United States, in order to "
+Plaintext = 5765207468652070656f706c65206f662074686520556e69746564205374617465732c20696e206f7264657220746f20
+Ciphertext = ea03351dc6e26e5538f81a3c22a637797b7641a66463fa8a0c9d1ead3ed113d70608a565602f23c421c8836e82c5f07b

ADDED   tests/test_vectors/Symetric_Block/DES-OFB1.test
Index: tests/test_vectors/Symetric_Block/DES-OFB1.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-OFB1.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-OFB1.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_OFB1 [expr {[lsearch -nocase [tls::ciphers] DES-OFB1] > -1}]
+
+tcltest::test Block_DES-OFB1-1.1 {Encrypt DES-OFB1} \
+	-constraints DES_OFB1 \
+	-body {binary encode hex [tls::encrypt -cipher DES-OFB1 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 4e6f77]]} \
+	-match exact -result e3d34b
+
+tcltest::test Block_DES-OFB1-1.2 {Decrypt DES-OFB1} \
+	-constraints DES_OFB1 \
+	-body {binary encode hex [tls::decrypt -cipher DES-OFB1 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex e3d34b]]} \
+	-match exact -result 4e6f77
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-OFB1.txt
Index: tests/test_vectors/Symetric_Block/DES-OFB1.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-OFB1.txt
@@ -0,0 +1,14 @@
+# DES-OFB1
+# From FIPS Pub 81 Appendix E
+
+
+# OFB1-DES.Encrypt and OFB1-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 3
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+# 010011100110111101110111
+Plaintext = 4e6f77
+# 111000111101001101001011
+Ciphertext = e3d34b

ADDED   tests/test_vectors/Symetric_Block/DES-OFB8.test
Index: tests/test_vectors/Symetric_Block/DES-OFB8.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-OFB8.test
@@ -0,0 +1,27 @@
+# Auto generated from "DES-OFB8.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES_OFB8 [expr {[lsearch -nocase [tls::ciphers] DES-OFB8] > -1}]
+
+tcltest::test Block_DES-OFB8-1.1 {Encrypt DES-OFB8} \
+	-constraints DES_OFB8 \
+	-body {binary encode hex [tls::encrypt -cipher DES-OFB8 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex 4e6f7720697320746865]]} \
+	-match exact -result f34a2850c9c64985d684
+
+tcltest::test Block_DES-OFB8-1.2 {Decrypt DES-OFB8} \
+	-constraints DES_OFB8 \
+	-body {binary encode hex [tls::decrypt -cipher DES-OFB8 -padding 0 \
+		 -key [binary decode hex 0123456789abcdef] \
+		 -iv [binary decode hex 1234567890abcdef] \
+		 -data [binary decode hex f34a2850c9c64985d684]]} \
+	-match exact -result 4e6f7720697320746865
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES-OFB8.txt
Index: tests/test_vectors/Symetric_Block/DES-OFB8.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES-OFB8.txt
@@ -0,0 +1,13 @@
+# DES-OFB8
+# From FIPS Pub 81 Appendix E
+
+
+# OFB8-DES.Encrypt and OFB8-DES.Decrypt 
+Klen = 8
+Ilen = 8
+Len = 10
+Key = 0123456789abcdef
+IV = 1234567890abcdef
+#Plaintext = "Now is the"
+Plaintext = 4e6f7720697320746865
+Ciphertext = f34a2850c9c64985d684

ADDED   tests/test_vectors/Symetric_Block/DES.test
Index: tests/test_vectors/Symetric_Block/DES.test
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES.test
@@ -0,0 +1,1215 @@
+# Auto generated from "DES.txt"
+lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
+package require tls
+package require tcltest
+
+catch {tls::provider legacy}
+tcltest::testConstraint DES [expr {[lsearch -nocase [tls::ciphers] DES] > -1}]
+
+tcltest::test Block_DES-1.1 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 10316E028C8F3B4A] \
+		-data [binary decode hex 0000000000000000]]} \
+	-match exact -result 82dcbafbdeab6602
+
+tcltest::test Block_DES-1.2 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 10316E028C8F3B4A] \
+		-data [binary decode hex 82DCBAFBDEAB6602]]} \
+	-match exact -result 0000000000000000
+
+tcltest::test Block_DES-1.3 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 95F8A5E5DD31D900]]} \
+	-match exact -result 8000000000000000
+
+tcltest::test Block_DES-1.4 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 8000000000000000]]} \
+	-match exact -result 95f8a5e5dd31d900
+
+tcltest::test Block_DES-1.5 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex DD7F121CA5015619]]} \
+	-match exact -result 4000000000000000
+
+tcltest::test Block_DES-1.6 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 4000000000000000]]} \
+	-match exact -result dd7f121ca5015619
+
+tcltest::test Block_DES-1.7 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 2E8653104F3834EA]]} \
+	-match exact -result 2000000000000000
+
+tcltest::test Block_DES-1.8 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 2000000000000000]]} \
+	-match exact -result 2e8653104f3834ea
+
+tcltest::test Block_DES-1.9 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 4BD388FF6CD81D4F]]} \
+	-match exact -result 1000000000000000
+
+tcltest::test Block_DES-1.10 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 1000000000000000]]} \
+	-match exact -result 4bd388ff6cd81d4f
+
+tcltest::test Block_DES-1.11 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 20B9E767B2FB1456]]} \
+	-match exact -result 0800000000000000
+
+tcltest::test Block_DES-1.12 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0800000000000000]]} \
+	-match exact -result 20b9e767b2fb1456
+
+tcltest::test Block_DES-1.13 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 55579380D77138EF]]} \
+	-match exact -result 0400000000000000
+
+tcltest::test Block_DES-1.14 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0400000000000000]]} \
+	-match exact -result 55579380d77138ef
+
+tcltest::test Block_DES-1.15 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 6CC5DEFAAF04512F]]} \
+	-match exact -result 0200000000000000
+
+tcltest::test Block_DES-1.16 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0200000000000000]]} \
+	-match exact -result 6cc5defaaf04512f
+
+tcltest::test Block_DES-1.17 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0D9F279BA5D87260]]} \
+	-match exact -result 0100000000000000
+
+tcltest::test Block_DES-1.18 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0100000000000000]]} \
+	-match exact -result 0d9f279ba5d87260
+
+tcltest::test Block_DES-1.19 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex D9031B0271BD5A0A]]} \
+	-match exact -result 0080000000000000
+
+tcltest::test Block_DES-1.20 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0080000000000000]]} \
+	-match exact -result d9031b0271bd5a0a
+
+tcltest::test Block_DES-1.21 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 424250B37C3DD951]]} \
+	-match exact -result 0040000000000000
+
+tcltest::test Block_DES-1.22 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0040000000000000]]} \
+	-match exact -result 424250b37c3dd951
+
+tcltest::test Block_DES-1.23 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex B8061B7ECD9A21E5]]} \
+	-match exact -result 0020000000000000
+
+tcltest::test Block_DES-1.24 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0020000000000000]]} \
+	-match exact -result b8061b7ecd9a21e5
+
+tcltest::test Block_DES-1.25 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex F15D0F286B65BD28]]} \
+	-match exact -result 0010000000000000
+
+tcltest::test Block_DES-1.26 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0010000000000000]]} \
+	-match exact -result f15d0f286b65bd28
+
+tcltest::test Block_DES-1.27 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex ADD0CC8D6E5DEBA1]]} \
+	-match exact -result 0008000000000000
+
+tcltest::test Block_DES-1.28 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0008000000000000]]} \
+	-match exact -result add0cc8d6e5deba1
+
+tcltest::test Block_DES-1.29 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E6D5F82752AD63D1]]} \
+	-match exact -result 0004000000000000
+
+tcltest::test Block_DES-1.30 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0004000000000000]]} \
+	-match exact -result e6d5f82752ad63d1
+
+tcltest::test Block_DES-1.31 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex ECBFE3BD3F591A5E]]} \
+	-match exact -result 0002000000000000
+
+tcltest::test Block_DES-1.32 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0002000000000000]]} \
+	-match exact -result ecbfe3bd3f591a5e
+
+tcltest::test Block_DES-1.33 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex F356834379D165CD]]} \
+	-match exact -result 0001000000000000
+
+tcltest::test Block_DES-1.34 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0001000000000000]]} \
+	-match exact -result f356834379d165cd
+
+tcltest::test Block_DES-1.35 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 2B9F982F20037FA9]]} \
+	-match exact -result 0000800000000000
+
+tcltest::test Block_DES-1.36 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000800000000000]]} \
+	-match exact -result 2b9f982f20037fa9
+
+tcltest::test Block_DES-1.37 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 889DE068A16F0BE6]]} \
+	-match exact -result 0000400000000000
+
+tcltest::test Block_DES-1.38 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000400000000000]]} \
+	-match exact -result 889de068a16f0be6
+
+tcltest::test Block_DES-1.39 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E19E275D846A1298]]} \
+	-match exact -result 0000200000000000
+
+tcltest::test Block_DES-1.40 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000200000000000]]} \
+	-match exact -result e19e275d846a1298
+
+tcltest::test Block_DES-1.41 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 329A8ED523D71AEC]]} \
+	-match exact -result 0000100000000000
+
+tcltest::test Block_DES-1.42 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000100000000000]]} \
+	-match exact -result 329a8ed523d71aec
+
+tcltest::test Block_DES-1.43 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E7FCE22557D23C97]]} \
+	-match exact -result 0000080000000000
+
+tcltest::test Block_DES-1.44 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000080000000000]]} \
+	-match exact -result e7fce22557d23c97
+
+tcltest::test Block_DES-1.45 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 12A9F5817FF2D65D]]} \
+	-match exact -result 0000040000000000
+
+tcltest::test Block_DES-1.46 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000040000000000]]} \
+	-match exact -result 12a9f5817ff2d65d
+
+tcltest::test Block_DES-1.47 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex A484C3AD38DC9C19]]} \
+	-match exact -result 0000020000000000
+
+tcltest::test Block_DES-1.48 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000020000000000]]} \
+	-match exact -result a484c3ad38dc9c19
+
+tcltest::test Block_DES-1.49 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex FBE00A8A1EF8AD72]]} \
+	-match exact -result 0000010000000000
+
+tcltest::test Block_DES-1.50 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000010000000000]]} \
+	-match exact -result fbe00a8a1ef8ad72
+
+tcltest::test Block_DES-1.51 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 750D079407521363]]} \
+	-match exact -result 0000008000000000
+
+tcltest::test Block_DES-1.52 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000008000000000]]} \
+	-match exact -result 750d079407521363
+
+tcltest::test Block_DES-1.53 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 64FEED9C724C2FAF]]} \
+	-match exact -result 0000004000000000
+
+tcltest::test Block_DES-1.54 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000004000000000]]} \
+	-match exact -result 64feed9c724c2faf
+
+tcltest::test Block_DES-1.55 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex F02B263B328E2B60]]} \
+	-match exact -result 0000002000000000
+
+tcltest::test Block_DES-1.56 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000002000000000]]} \
+	-match exact -result f02b263b328e2b60
+
+tcltest::test Block_DES-1.57 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 9D64555A9A10B852]]} \
+	-match exact -result 0000001000000000
+
+tcltest::test Block_DES-1.58 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000001000000000]]} \
+	-match exact -result 9d64555a9a10b852
+
+tcltest::test Block_DES-1.59 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex D106FF0BED5255D7]]} \
+	-match exact -result 0000000800000000
+
+tcltest::test Block_DES-1.60 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000800000000]]} \
+	-match exact -result d106ff0bed5255d7
+
+tcltest::test Block_DES-1.61 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E1652C6B138C64A5]]} \
+	-match exact -result 0000000400000000
+
+tcltest::test Block_DES-1.62 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000400000000]]} \
+	-match exact -result e1652c6b138c64a5
+
+tcltest::test Block_DES-1.63 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E428581186EC8F46]]} \
+	-match exact -result 0000000200000000
+
+tcltest::test Block_DES-1.64 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000200000000]]} \
+	-match exact -result e428581186ec8f46
+
+tcltest::test Block_DES-1.65 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex AEB5F5EDE22D1A36]]} \
+	-match exact -result 0000000100000000
+
+tcltest::test Block_DES-1.66 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000100000000]]} \
+	-match exact -result aeb5f5ede22d1a36
+
+tcltest::test Block_DES-1.67 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E943D7568AEC0C5C]]} \
+	-match exact -result 0000000080000000
+
+tcltest::test Block_DES-1.68 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000080000000]]} \
+	-match exact -result e943d7568aec0c5c
+
+tcltest::test Block_DES-1.69 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex DF98C8276F54B04B]]} \
+	-match exact -result 0000000040000000
+
+tcltest::test Block_DES-1.70 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000040000000]]} \
+	-match exact -result df98c8276f54b04b
+
+tcltest::test Block_DES-1.71 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex B160E4680F6C696F]]} \
+	-match exact -result 0000000020000000
+
+tcltest::test Block_DES-1.72 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000020000000]]} \
+	-match exact -result b160e4680f6c696f
+
+tcltest::test Block_DES-1.73 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex FA0752B07D9C4AB8]]} \
+	-match exact -result 0000000010000000
+
+tcltest::test Block_DES-1.74 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000010000000]]} \
+	-match exact -result fa0752b07d9c4ab8
+
+tcltest::test Block_DES-1.75 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex CA3A2B036DBC8502]]} \
+	-match exact -result 0000000008000000
+
+tcltest::test Block_DES-1.76 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000008000000]]} \
+	-match exact -result ca3a2b036dbc8502
+
+tcltest::test Block_DES-1.77 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 5E0905517BB59BCF]]} \
+	-match exact -result 0000000004000000
+
+tcltest::test Block_DES-1.78 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000004000000]]} \
+	-match exact -result 5e0905517bb59bcf
+
+tcltest::test Block_DES-1.79 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 814EEB3B91D90726]]} \
+	-match exact -result 0000000002000000
+
+tcltest::test Block_DES-1.80 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000002000000]]} \
+	-match exact -result 814eeb3b91d90726
+
+tcltest::test Block_DES-1.81 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 4D49DB1532919C9F]]} \
+	-match exact -result 0000000001000000
+
+tcltest::test Block_DES-1.82 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000001000000]]} \
+	-match exact -result 4d49db1532919c9f
+
+tcltest::test Block_DES-1.83 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 25EB5FC3F8CF0621]]} \
+	-match exact -result 0000000000800000
+
+tcltest::test Block_DES-1.84 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000800000]]} \
+	-match exact -result 25eb5fc3f8cf0621
+
+tcltest::test Block_DES-1.85 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex AB6A20C0620D1C6F]]} \
+	-match exact -result 0000000000400000
+
+tcltest::test Block_DES-1.86 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000400000]]} \
+	-match exact -result ab6a20c0620d1c6f
+
+tcltest::test Block_DES-1.87 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 79E90DBC98F92CCA]]} \
+	-match exact -result 0000000000200000
+
+tcltest::test Block_DES-1.88 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000200000]]} \
+	-match exact -result 79e90dbc98f92cca
+
+tcltest::test Block_DES-1.89 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 866ECEDD8072BB0E]]} \
+	-match exact -result 0000000000100000
+
+tcltest::test Block_DES-1.90 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000100000]]} \
+	-match exact -result 866ecedd8072bb0e
+
+tcltest::test Block_DES-1.91 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 8B54536F2F3E64A8]]} \
+	-match exact -result 0000000000080000
+
+tcltest::test Block_DES-1.92 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000080000]]} \
+	-match exact -result 8b54536f2f3e64a8
+
+tcltest::test Block_DES-1.93 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex EA51D3975595B86B]]} \
+	-match exact -result 0000000000040000
+
+tcltest::test Block_DES-1.94 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000040000]]} \
+	-match exact -result ea51d3975595b86b
+
+tcltest::test Block_DES-1.95 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex CAFFC6AC4542DE31]]} \
+	-match exact -result 0000000000020000
+
+tcltest::test Block_DES-1.96 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000020000]]} \
+	-match exact -result caffc6ac4542de31
+
+tcltest::test Block_DES-1.97 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 8DD45A2DDF90796C]]} \
+	-match exact -result 0000000000010000
+
+tcltest::test Block_DES-1.98 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000010000]]} \
+	-match exact -result 8dd45a2ddf90796c
+
+tcltest::test Block_DES-1.99 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 1029D55E880EC2D0]]} \
+	-match exact -result 0000000000008000
+
+tcltest::test Block_DES-1.100 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000008000]]} \
+	-match exact -result 1029d55e880ec2d0
+
+tcltest::test Block_DES-1.101 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 5D86CB23639DBEA9]]} \
+	-match exact -result 0000000000004000
+
+tcltest::test Block_DES-1.102 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000004000]]} \
+	-match exact -result 5d86cb23639dbea9
+
+tcltest::test Block_DES-1.103 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 1D1CA853AE7C0C5F]]} \
+	-match exact -result 0000000000002000
+
+tcltest::test Block_DES-1.104 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000002000]]} \
+	-match exact -result 1d1ca853ae7c0c5f
+
+tcltest::test Block_DES-1.105 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex CE332329248F3228]]} \
+	-match exact -result 0000000000001000
+
+tcltest::test Block_DES-1.106 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000001000]]} \
+	-match exact -result ce332329248f3228
+
+tcltest::test Block_DES-1.107 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 8405D1ABE24FB942]]} \
+	-match exact -result 0000000000000800
+
+tcltest::test Block_DES-1.108 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000800]]} \
+	-match exact -result 8405d1abe24fb942
+
+tcltest::test Block_DES-1.109 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E643D78090CA4207]]} \
+	-match exact -result 0000000000000400
+
+tcltest::test Block_DES-1.110 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000400]]} \
+	-match exact -result e643d78090ca4207
+
+tcltest::test Block_DES-1.111 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 48221B9937748A23]]} \
+	-match exact -result 0000000000000200
+
+tcltest::test Block_DES-1.112 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000200]]} \
+	-match exact -result 48221b9937748a23
+
+tcltest::test Block_DES-1.113 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex DD7C0BBD61FAFD54]]} \
+	-match exact -result 0000000000000100
+
+tcltest::test Block_DES-1.114 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000100]]} \
+	-match exact -result dd7c0bbd61fafd54
+
+tcltest::test Block_DES-1.115 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 2FBC291A570DB5C4]]} \
+	-match exact -result 0000000000000080
+
+tcltest::test Block_DES-1.116 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000080]]} \
+	-match exact -result 2fbc291a570db5c4
+
+tcltest::test Block_DES-1.117 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex E07C30D7E4E26E12]]} \
+	-match exact -result 0000000000000040
+
+tcltest::test Block_DES-1.118 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000040]]} \
+	-match exact -result e07c30d7e4e26e12
+
+tcltest::test Block_DES-1.119 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0953E2258E8E90A1]]} \
+	-match exact -result 0000000000000020
+
+tcltest::test Block_DES-1.120 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000020]]} \
+	-match exact -result 0953e2258e8e90a1
+
+tcltest::test Block_DES-1.121 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 5B711BC4CEEBF2EE]]} \
+	-match exact -result 0000000000000010
+
+tcltest::test Block_DES-1.122 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000010]]} \
+	-match exact -result 5b711bc4ceebf2ee
+
+tcltest::test Block_DES-1.123 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex CC083F1E6D9E85F6]]} \
+	-match exact -result 0000000000000008
+
+tcltest::test Block_DES-1.124 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000008]]} \
+	-match exact -result cc083f1e6d9e85f6
+
+tcltest::test Block_DES-1.125 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex D2FD8867D50D2DFE]]} \
+	-match exact -result 0000000000000004
+
+tcltest::test Block_DES-1.126 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000004]]} \
+	-match exact -result d2fd8867d50d2dfe
+
+tcltest::test Block_DES-1.127 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 06E7EA22CE92708F]]} \
+	-match exact -result 0000000000000002
+
+tcltest::test Block_DES-1.128 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000002]]} \
+	-match exact -result 06e7ea22ce92708f
+
+tcltest::test Block_DES-1.129 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 166B40B44ABA4BD6]]} \
+	-match exact -result 0000000000000001
+
+tcltest::test Block_DES-1.130 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000001]]} \
+	-match exact -result 166b40b44aba4bd6
+
+tcltest::test Block_DES-1.131 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 7CA110454A1A6E57] \
+		-data [binary decode hex 01A1D6D039776742]]} \
+	-match exact -result 690f5b0d9a26939b
+
+tcltest::test Block_DES-1.132 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 7CA110454A1A6E57] \
+		-data [binary decode hex 690F5B0D9A26939B]]} \
+	-match exact -result 01a1d6d039776742
+
+tcltest::test Block_DES-1.133 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0131D9619DC1376E] \
+		-data [binary decode hex 5CD54CA83DEF57DA]]} \
+	-match exact -result 7a389d10354bd271
+
+tcltest::test Block_DES-1.134 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0131D9619DC1376E] \
+		-data [binary decode hex 7A389D10354BD271]]} \
+	-match exact -result 5cd54ca83def57da
+
+tcltest::test Block_DES-1.135 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 07A1133E4A0B2686] \
+		-data [binary decode hex 0248D43806F67172]]} \
+	-match exact -result 868ebb51cab4599a
+
+tcltest::test Block_DES-1.136 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 07A1133E4A0B2686] \
+		-data [binary decode hex 868EBB51CAB4599A]]} \
+	-match exact -result 0248d43806f67172
+
+tcltest::test Block_DES-1.137 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 3849674C2602319E] \
+		-data [binary decode hex 51454B582DDF440A]]} \
+	-match exact -result 7178876e01f19b2a
+
+tcltest::test Block_DES-1.138 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 3849674C2602319E] \
+		-data [binary decode hex 7178876E01F19B2A]]} \
+	-match exact -result 51454b582ddf440a
+
+tcltest::test Block_DES-1.139 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 04B915BA43FEB5B6] \
+		-data [binary decode hex 42FD443059577FA2]]} \
+	-match exact -result af37fb421f8c4095
+
+tcltest::test Block_DES-1.140 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 04B915BA43FEB5B6] \
+		-data [binary decode hex AF37FB421F8C4095]]} \
+	-match exact -result 42fd443059577fa2
+
+tcltest::test Block_DES-1.141 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0113B970FD34F2CE] \
+		-data [binary decode hex 059B5E0851CF143A]]} \
+	-match exact -result 86a560f10ec6d85b
+
+tcltest::test Block_DES-1.142 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0113B970FD34F2CE] \
+		-data [binary decode hex 86A560F10EC6D85B]]} \
+	-match exact -result 059b5e0851cf143a
+
+tcltest::test Block_DES-1.143 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0170F175468FB5E6] \
+		-data [binary decode hex 0756D8E0774761D2]]} \
+	-match exact -result 0cd3da020021dc09
+
+tcltest::test Block_DES-1.144 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0170F175468FB5E6] \
+		-data [binary decode hex 0CD3DA020021DC09]]} \
+	-match exact -result 0756d8e0774761d2
+
+tcltest::test Block_DES-1.145 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 43297FAD38E373FE] \
+		-data [binary decode hex 762514B829BF486A]]} \
+	-match exact -result ea676b2cb7db2b7a
+
+tcltest::test Block_DES-1.146 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 43297FAD38E373FE] \
+		-data [binary decode hex EA676B2CB7DB2B7A]]} \
+	-match exact -result 762514b829bf486a
+
+tcltest::test Block_DES-1.147 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 07A7137045DA2A16] \
+		-data [binary decode hex 3BDD119049372802]]} \
+	-match exact -result dfd64a815caf1a0f
+
+tcltest::test Block_DES-1.148 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 07A7137045DA2A16] \
+		-data [binary decode hex DFD64A815CAF1A0F]]} \
+	-match exact -result 3bdd119049372802
+
+tcltest::test Block_DES-1.149 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 04689104C2FD3B2F] \
+		-data [binary decode hex 26955F6835AF609A]]} \
+	-match exact -result 5c513c9c4886c088
+
+tcltest::test Block_DES-1.150 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 04689104C2FD3B2F] \
+		-data [binary decode hex 5C513C9C4886C088]]} \
+	-match exact -result 26955f6835af609a
+
+tcltest::test Block_DES-1.151 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 37D06BB516CB7546] \
+		-data [binary decode hex 164D5E404F275232]]} \
+	-match exact -result 0a2aeeae3ff4ab77
+
+tcltest::test Block_DES-1.152 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 37D06BB516CB7546] \
+		-data [binary decode hex 0A2AEEAE3FF4AB77]]} \
+	-match exact -result 164d5e404f275232
+
+tcltest::test Block_DES-1.153 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 1F08260D1AC2465E] \
+		-data [binary decode hex 6B056E18759F5CCA]]} \
+	-match exact -result ef1bf03e5dfa575a
+
+tcltest::test Block_DES-1.154 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 1F08260D1AC2465E] \
+		-data [binary decode hex EF1BF03E5DFA575A]]} \
+	-match exact -result 6b056e18759f5cca
+
+tcltest::test Block_DES-1.155 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 584023641ABA6176] \
+		-data [binary decode hex 004BD6EF09176062]]} \
+	-match exact -result 88bf0db6d70dee56
+
+tcltest::test Block_DES-1.156 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 584023641ABA6176] \
+		-data [binary decode hex 88BF0DB6D70DEE56]]} \
+	-match exact -result 004bd6ef09176062
+
+tcltest::test Block_DES-1.157 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 025816164629B007] \
+		-data [binary decode hex 480D39006EE762F2]]} \
+	-match exact -result a1f9915541020b56
+
+tcltest::test Block_DES-1.158 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 025816164629B007] \
+		-data [binary decode hex A1F9915541020B56]]} \
+	-match exact -result 480d39006ee762f2
+
+tcltest::test Block_DES-1.159 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 49793EBC79B3258F] \
+		-data [binary decode hex 437540C8698F3CFA]]} \
+	-match exact -result 6fbf1cafcffd0556
+
+tcltest::test Block_DES-1.160 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 49793EBC79B3258F] \
+		-data [binary decode hex 6FBF1CAFCFFD0556]]} \
+	-match exact -result 437540c8698f3cfa
+
+tcltest::test Block_DES-1.161 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 4FB05E1515AB73A7] \
+		-data [binary decode hex 072D43A077075292]]} \
+	-match exact -result 2f22e49bab7ca1ac
+
+tcltest::test Block_DES-1.162 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 4FB05E1515AB73A7] \
+		-data [binary decode hex 2F22E49BAB7CA1AC]]} \
+	-match exact -result 072d43a077075292
+
+tcltest::test Block_DES-1.163 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 49E95D6D4CA229BF] \
+		-data [binary decode hex 02FE55778117F12A]]} \
+	-match exact -result 5a6b612cc26cce4a
+
+tcltest::test Block_DES-1.164 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 49E95D6D4CA229BF] \
+		-data [binary decode hex 5A6B612CC26CCE4A]]} \
+	-match exact -result 02fe55778117f12a
+
+tcltest::test Block_DES-1.165 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 018310DC409B26D6] \
+		-data [binary decode hex 1D9D5C5018F728C2]]} \
+	-match exact -result 5f4c038ed12b2e41
+
+tcltest::test Block_DES-1.166 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 018310DC409B26D6] \
+		-data [binary decode hex 5F4C038ED12B2E41]]} \
+	-match exact -result 1d9d5c5018f728c2
+
+tcltest::test Block_DES-1.167 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 1C587F1C13924FEF] \
+		-data [binary decode hex 305532286D6F295A]]} \
+	-match exact -result 63fac0d034d9f793
+
+tcltest::test Block_DES-1.168 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 1C587F1C13924FEF] \
+		-data [binary decode hex 63FAC0D034D9F793]]} \
+	-match exact -result 305532286d6f295a
+
+tcltest::test Block_DES-1.169 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 10316E028C8F3B4A] \
+		-data [binary decode hex 0000000000000000]]} \
+	-match exact -result 82dcbafbdeab6602
+
+tcltest::test Block_DES-1.170 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 10316E028C8F3B4A] \
+		-data [binary decode hex 82DCBAFBDEAB6602]]} \
+	-match exact -result 0000000000000000
+
+tcltest::test Block_DES-1.171 {Encrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::encrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 0000000000000000]]} \
+	-match exact -result 8000000000000000
+
+tcltest::test Block_DES-1.172 {Decrypt DES} \
+	-constraints DES \
+	-body {binary encode hex [tls::decrypt -cipher DES -padding 0 \
+		-key [binary decode hex 0101010101010101] \
+		-data [binary decode hex 8000000000000000]]} \
+	-match exact -result 0000000000000000
+
+# Cleanup
+::tcltest::cleanupTests
+return

ADDED   tests/test_vectors/Symetric_Block/DES.txt
Index: tests/test_vectors/Symetric_Block/DES.txt
==================================================================
--- /dev/null
+++ tests/test_vectors/Symetric_Block/DES.txt
@@ -0,0 +1,525 @@
+# DES-CBC
+# From NBS SP 500-20 and NIST SP 800-20
+
+
+# CBC-DES.Encrypt and CBC-DES.Decrypt 
+Klen = 8
+Len = 8
+Key = 10316E028C8F3B4A
+Plaintext = 0000000000000000
+Ciphertext = 82DCBAFBDEAB6602
+
+# SP 500-20 Appendix B: The DES Test SeT
+# SP 800-20 Table A.1
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 95F8A5E5DD31D900
+Ciphertext = 8000000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = DD7F121CA5015619
+Ciphertext = 4000000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 2E8653104F3834EA
+Ciphertext = 2000000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 4BD388FF6CD81D4F
+Ciphertext = 1000000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 20B9E767B2FB1456
+Ciphertext = 0800000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 55579380D77138EF
+Ciphertext = 0400000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 6CC5DEFAAF04512F
+Ciphertext = 0200000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 0D9F279BA5D87260
+Ciphertext = 0100000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = D9031B0271BD5A0A
+Ciphertext = 0080000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 424250B37C3DD951
+Ciphertext = 0040000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = B8061B7ECD9A21E5
+Ciphertext = 0020000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = F15D0F286B65BD28
+Ciphertext = 0010000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = ADD0CC8D6E5DEBA1
+Ciphertext = 0008000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E6D5F82752AD63D1
+Ciphertext = 0004000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = ECBFE3BD3F591A5E
+Ciphertext = 0002000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = F356834379D165CD
+Ciphertext = 0001000000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 2B9F982F20037FA9
+Ciphertext = 0000800000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 889DE068A16F0BE6
+Ciphertext = 0000400000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E19E275D846A1298
+Ciphertext = 0000200000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 329A8ED523D71AEC
+Ciphertext = 0000100000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E7FCE22557D23C97
+Ciphertext = 0000080000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 12A9F5817FF2D65D
+Ciphertext = 0000040000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = A484C3AD38DC9C19
+Ciphertext = 0000020000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = FBE00A8A1EF8AD72
+Ciphertext = 0000010000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 750D079407521363
+Ciphertext = 0000008000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 64FEED9C724C2FAF
+Ciphertext = 0000004000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = F02B263B328E2B60
+Ciphertext = 0000002000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 9D64555A9A10B852
+Ciphertext = 0000001000000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = D106FF0BED5255D7
+Ciphertext = 0000000800000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E1652C6B138C64A5
+Ciphertext = 0000000400000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E428581186EC8F46
+Ciphertext = 0000000200000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = AEB5F5EDE22D1A36
+Ciphertext = 0000000100000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E943D7568AEC0C5C
+Ciphertext = 0000000080000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = DF98C8276F54B04B
+Ciphertext = 0000000040000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = B160E4680F6C696F
+Ciphertext = 0000000020000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = FA0752B07D9C4AB8
+Ciphertext = 0000000010000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = CA3A2B036DBC8502
+Ciphertext = 0000000008000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 5E0905517BB59BCF
+Ciphertext = 0000000004000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 814EEB3B91D90726
+Ciphertext = 0000000002000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 4D49DB1532919C9F
+Ciphertext = 0000000001000000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 25EB5FC3F8CF0621
+Ciphertext = 0000000000800000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = AB6A20C0620D1C6F
+Ciphertext = 0000000000400000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 79E90DBC98F92CCA
+Ciphertext = 0000000000200000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 866ECEDD8072BB0E
+Ciphertext = 0000000000100000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 8B54536F2F3E64A8
+Ciphertext = 0000000000080000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = EA51D3975595B86B
+Ciphertext = 0000000000040000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = CAFFC6AC4542DE31
+Ciphertext = 0000000000020000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 8DD45A2DDF90796C
+Ciphertext = 0000000000010000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 1029D55E880EC2D0
+Ciphertext = 0000000000008000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 5D86CB23639DBEA9
+Ciphertext = 0000000000004000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 1D1CA853AE7C0C5F
+Ciphertext = 0000000000002000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = CE332329248F3228
+Ciphertext = 0000000000001000
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 8405D1ABE24FB942
+Ciphertext = 0000000000000800
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E643D78090CA4207
+Ciphertext = 0000000000000400
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 48221B9937748A23
+Ciphertext = 0000000000000200
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = DD7C0BBD61FAFD54
+Ciphertext = 0000000000000100
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 2FBC291A570DB5C4
+Ciphertext = 0000000000000080
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = E07C30D7E4E26E12
+Ciphertext = 0000000000000040
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 0953E2258E8E90A1
+Ciphertext = 0000000000000020
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 5B711BC4CEEBF2EE
+Ciphertext = 0000000000000010
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = CC083F1E6D9E85F6
+Ciphertext = 0000000000000008
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = D2FD8867D50D2DFE
+Ciphertext = 0000000000000004
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 06E7EA22CE92708F
+Ciphertext = 0000000000000002
+
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 166B40B44ABA4BD6
+Ciphertext = 0000000000000001
+
+# 19 Key data pairs which exercise every S-box entry.
+Klen = 8
+Len = 8
+Key = 7CA110454A1A6E57
+Plaintext = 01A1D6D039776742
+Ciphertext = 690F5B0D9A26939B
+
+Klen = 8
+Len = 8
+Key = 0131D9619DC1376E
+Plaintext = 5CD54CA83DEF57DA
+Ciphertext = 7A389D10354BD271
+
+Klen = 8
+Len = 8
+Key = 07A1133E4A0B2686
+Plaintext = 0248D43806F67172
+Ciphertext = 868EBB51CAB4599A
+
+Klen = 8
+Len = 8
+Key = 3849674C2602319E
+Plaintext = 51454B582DDF440A
+Ciphertext = 7178876E01F19B2A
+
+Klen = 8
+Len = 8
+Key = 04B915BA43FEB5B6
+Plaintext = 42FD443059577FA2
+Ciphertext = AF37FB421F8C4095
+
+Klen = 8
+Len = 8
+Key = 0113B970FD34F2CE
+Plaintext = 059B5E0851CF143A
+Ciphertext = 86A560F10EC6D85B
+
+Klen = 8
+Len = 8
+Key = 0170F175468FB5E6
+Plaintext = 0756D8E0774761D2
+Ciphertext = 0CD3DA020021DC09
+
+Klen = 8
+Len = 8
+Key = 43297FAD38E373FE
+Plaintext = 762514B829BF486A
+Ciphertext = EA676B2CB7DB2B7A
+
+Klen = 8
+Len = 8
+Key = 07A7137045DA2A16
+Plaintext = 3BDD119049372802
+Ciphertext = DFD64A815CAF1A0F
+
+Klen = 8
+Len = 8
+Key = 04689104C2FD3B2F
+Plaintext = 26955F6835AF609A
+Ciphertext = 5C513C9C4886C088
+
+Klen = 8
+Len = 8
+Key = 37D06BB516CB7546
+Plaintext = 164D5E404F275232
+Ciphertext = 0A2AEEAE3FF4AB77
+
+Klen = 8
+Len = 8
+Key = 1F08260D1AC2465E
+Plaintext = 6B056E18759F5CCA
+Ciphertext = EF1BF03E5DFA575A
+
+Klen = 8
+Len = 8
+Key = 584023641ABA6176
+Plaintext = 004BD6EF09176062
+Ciphertext = 88BF0DB6D70DEE56
+
+Klen = 8
+Len = 8
+Key = 025816164629B007
+Plaintext = 480D39006EE762F2
+Ciphertext = A1F9915541020B56
+
+Klen = 8
+Len = 8
+Key = 49793EBC79B3258F
+Plaintext = 437540C8698F3CFA
+Ciphertext = 6FBF1CAFCFFD0556
+
+Klen = 8
+Len = 8
+Key = 4FB05E1515AB73A7
+Plaintext = 072D43A077075292
+Ciphertext = 2F22E49BAB7CA1AC
+
+Klen = 8
+Len = 8
+Key = 49E95D6D4CA229BF
+Plaintext = 02FE55778117F12A
+Ciphertext = 5A6B612CC26CCE4A
+
+Klen = 8
+Len = 8
+Key = 018310DC409B26D6
+Plaintext = 1D9D5C5018F728C2
+Ciphertext = 5F4C038ED12B2E41
+
+Klen = 8
+Len = 8
+Key = 1C587F1C13924FEF
+Plaintext = 305532286D6F295A
+Ciphertext = 63FAC0D034D9F793
+
+# NIST 800-17
+Klen = 8
+Len = 8
+Key = 10316E028C8F3B4A
+Plaintext = 0000000000000000
+Ciphertext = 82DCBAFBDEAB6602
+
+# SP 800-20 Table A.2
+Klen = 8
+Len = 8
+Key = 0101010101010101
+Plaintext = 0000000000000000
+Ciphertext = 8000000000000000

Index: tests/test_vectors/Symetric_Block/make_test.tcl
==================================================================
--- tests/test_vectors/Symetric_Block/make_test.tcl
+++ tests/test_vectors/Symetric_Block/make_test.tcl
@@ -49,10 +49,14 @@
     # Test result
     set result ""
     foreach key $list2 {
 	if {[info exists config($key)]} {
 	    set result $config($key)
+	    # Convert hex to lowercase
+	    if {[string index $result 0] ne "\""} {
+		set result [string tolower $result]
+	    }
 	}
     }
     
     append line [format {-match exact -result %s} $result]