password encryption

protocol/src/cljs/syng_im/utils/encryption.cljs

@@ -18,6 +18,15 @@
 (defn decrypt [private-key content]
   (.decrypt js/ecc private-key content))
 
+(defn password-encrypt [password content]
+  (-> (.-sjcl js/ecc)
+      (.encrypt password content)))
+
+(defn password-decrypt [password content]
+  (-> (.-sjcl js/ecc)
+      (.decrypt password content)))
+
+
 (comment
   (init)
 
@@ -25,4 +34,7 @@
   (def encd (encrypt (:public keypair) "Hello world"))
   (decrypt (:private keypair) encd)
 
+  (->> (password-encrypt "password" "text")
+       (password-decrypt "password"))
+
   )