--- a/RegressionTests__CryptTests.st Mon Nov 25 11:43:11 2013 +0100
+++ b/RegressionTests__CryptTests.st Mon Nov 25 11:45:52 2013 +0100
@@ -267,10 +267,19 @@
].
self assert:(s = #[212 114 83 160 109 1 37 83]).
+ "/ ------------------------------------------------
+
+ des := DesCipher new key:#[16rFF 16r80 56 78 90 12 34 56].
+ crypt := des encrypt:'12345678'.
+ self assert:(crypt = #[54 60 159 218 32 8 70 60]).
+
+
"
self run:#test10_des
self new test10_des
"
+
+ "Modified: / 25-11-2013 / 11:45:34 / cg"
! !
!CryptTests class methodsFor:'documentation'!