[Nym3-commit] r6 - trunk/crypto

[nym3-devel@lists.noreply.org]

Author: dybbuk
Date: 2004-04-29 18:39:17 +0200 (Thu, 29 Apr 2004)
New Revision: 6

Modified:
   trunk/crypto/sprp.ml
   trunk/crypto/test.ml
Log:
Well, sprp.ml comes slightly closer to compiling.  Also, included a command to compile test.ml into a working test -- it takes an RSA Inc test vector file as an argument, will include one of those in the repository shortly.



Modified: trunk/crypto/sprp.ml
===================================================================
--- trunk/crypto/sprp.ml	2004-04-29 16:12:26 UTC (rev 5)
+++ trunk/crypto/sprp.ml	2004-04-29 16:39:17 UTC (rev 6)
@@ -27,7 +27,7 @@
   assert ((String.length s1) = (String.length s2));
   let slen = String.length s1 in
   let sout = String.copy s2 in
-    Cryptokit.xor_string s1 0 slen sout 0 slen;
+    Cryptokit.xor_string s1 0 sout 0 slen;
     sout
 ;;
 

Modified: trunk/crypto/test.ml
===================================================================
--- trunk/crypto/test.ml	2004-04-29 16:12:26 UTC (rev 5)
+++ trunk/crypto/test.ml	2004-04-29 16:39:17 UTC (rev 6)
@@ -214,3 +214,9 @@
 	seed = "";
 	message = "";
 	cipher = "" } (open_in file)
+
+(*
+ * Local variables:
+ * compile-command: "ocamlfind ocamlc -o test str.cma nums.cma unix.cma cryptokit.cma crypto.cmo test.ml"
+ * end:
+ *)