--- a/RegressionTests__CryptTests.st	Tue Nov 19 20:13:58 2013 +0100
+++ b/RegressionTests__CryptTests.st	Fri Nov 22 16:04:22 2013 +0100
@@ -241,6 +241,30 @@
      self run:#test09_sha512
      self new test09_sha512
     "
+!
+
+test10_des
+    |des crypt s s2|    
+
+    des := DesCipher new key:#[12 34 56 78 90 12 34 56].
+    crypt := des encrypt:'12345678'.
+    self assert:(crypt = #[85 205 168 117 136 155 222 239]).
+
+    "/ ------------------------------------------------
+
+    des := DesCipher new key:#[12 34 56 78 90 12 34 56].
+    s := '12345678'.
+    10 timesRepeat:[
+        s2 := ByteArray new:s size.
+        des cryptBlock:s from:1 into:s2 startingAt:1 encrypt:true.
+        s := s2.
+    ].
+    self assert:(s = #[212 114 83 160 109 1 37 83]).
+
+    "
+     self run:#test10_des
+     self new test10_des
+    "
 ! !
 
 !CryptTests class methodsFor:'documentation'!