Implemented encode-block and decode-block.

2 files changed, 23 insertions, 2 deletions

diff --git a/src/clojure/foofs/blocks.clj b/src/clojure/foofs/blocks.clj
new file mode 100644
index 0000000..01cea6d
--- /dev/null
+++ b/src/clojure/foofs/blocks.clj
@@ -0,0 +1,21 @@
+(ns foofs.blocks
+  (:use foofs.crypto))
+
+(def aes-key-size 32)
+(def aes-iv-size 16)
+
+(defn encode-block
+  [f-block seed]
+  (let [e-key (sha-512 f-block)
+        aes-key (make-aes-key (take aes-key-size e-key))
+        iv (make-aes-iv (take aes-iv-size (concat seed (repeat 0))))
+        e-block (aes-encrypt aes-key iv f-block)
+        e-hash (sha-512 e-block)]
+    [e-key e-hash e-block]))
+
+(defn decode-block
+  [e-block e-key seed]
+  (let [aes-key (make-aes-key (take aes-key-size e-key))
+        iv (make-aes-iv (take aes-iv-size (concat seed (repeat 0))))
+        f-block (aes-decrypt aes-key iv e-block)]
+    f-block))
diff --git a/src/clojure/foofs/crypto.clj b/src/clojure/foofs/crypto.clj
index 976b421..a7fd60e 100644
--- a/src/clojure/foofs/crypto.clj
+++ b/src/clojure/foofs/crypto.clj
@@ -1,8 +1,8 @@
 (ns foofs.crypto
-  (:use foofs.bytebuffer)
+  (:use foofs.fuse.bytebuffer)
   (:import java.security.MessageDigest
            javax.crypto.Cipher
-           (javax.crypto.spec IVParameterSpec SecretKeySpec)))
+           (javax.crypto.spec IvParameterSpec SecretKeySpec)))
 
 (defn sha-512
   [message]