[Nym3-commit] r15 - trunk/crypto

[nym3-devel@lists.noreply.org]

Author: weasel
Date: 2004-05-02 23:18:32 +0200 (Sun, 02 May 2004)
New Revision: 15

Modified:
   trunk/crypto/crypto.ml
Log:
do prng right with up to 2^32 blocks

Modified: trunk/crypto/crypto.ml
===================================================================
--- trunk/crypto/crypto.ml	2004-05-02 21:14:27 UTC (rev 14)
+++ trunk/crypto/crypto.ml	2004-05-02 21:18:32 UTC (rev 15)
@@ -118,7 +118,10 @@
   let n = ref n
   and p = ref 0 in
   while (!n > 0) do
-    String.set block (String.length block - 1) (char_of_int !p);
+    String.set block (String.length block - 1) (char_of_int (!p            mod 256 ));
+    String.set block (String.length block - 2) (char_of_int (!p / 256      mod 256 ));
+    String.set block (String.length block - 3) (char_of_int (!p / 65536    mod 256 ));
+    String.set block (String.length block - 4) (char_of_int (!p / 16777216 mod 256 ));
     incr p;
 
     let enc = aes k Encrypt in