[Nym3-commit] r13 - trunk/crypto

[nym3-devel@lists.noreply.org]

Author: weasel
Date: 2004-05-02 22:25:26 +0200 (Sun, 02 May 2004)
New Revision: 13

Modified:
   trunk/crypto/crypto.ml
Log:
Rewrite encrypt to use xor and prng

Modified: trunk/crypto/crypto.ml
===================================================================
--- trunk/crypto/crypto.ml	2004-05-02 20:16:25 UTC (rev 12)
+++ trunk/crypto/crypto.ml	2004-05-02 20:25:26 UTC (rev 13)
@@ -126,9 +126,9 @@
  *)
 let encrypt k m =
  assert ((String.length k) = 16);
- let enc = aes ~mode:(OFB 1) ~iv:(String.make 16 (char_of_int 0))
-	     k Encrypt in
-   transform_string enc m
+ let length = (String.length m) in
+ let keystream = prng length k in
+ xor_string keystream m
 
 
 (* Most of this module is stolen or otherwise adapted from Cryptokit's