有clojure的AES庫嗎？

Question

是否有clojure的AES加密庫？我應該使用通過maven或clojars提供的java libray嗎？感謝您的時間和考慮。

Answer 1

下面是使用可用的java加密庫的一個更習慣的例子。 encrypt和decrypt這裏每個簡單地把輸入文本和加密密鑰都作爲字符串。

(import (javax.crypto Cipher KeyGenerator SecretKey) 
     (javax.crypto.spec SecretKeySpec) 
     (java.security SecureRandom) 
     (org.apache.commons.codec.binary Base64)) 

(defn bytes [s] 
    (.getBytes s "UTF-8")) 

(defn base64 [b] 
    (Base64/encodeBase64String b)) 

(defn debase64 [s] 
    (Base64/decodeBase64 (bytes s))) 

(defn get-raw-key [seed] 
    (let [keygen (KeyGenerator/getInstance "AES") 
     sr (SecureRandom/getInstance "SHA1PRNG")] 
    (.setSeed sr (bytes seed)) 
    (.init keygen 128 sr) 
    (.. keygen generateKey getEncoded))) 

(defn get-cipher [mode seed] 
    (let [key-spec (SecretKeySpec. (get-raw-key seed) "AES") 
     cipher (Cipher/getInstance "AES")] 
    (.init cipher mode key-spec) 
    cipher)) 

(defn encrypt [text key] 
    (let [bytes (bytes text) 
     cipher (get-cipher Cipher/ENCRYPT_MODE key)] 
    (base64 (.doFinal cipher bytes)))) 

(defn decrypt [text key] 
    (let [cipher (get-cipher Cipher/DECRYPT_MODE key)] 
    (String. (.doFinal cipher (debase64 text))))) 

二手suchwise：

(def key "secret key") 
(def encrypted (encrypt "My Secret" key)) ;; => "YsuYVJK+Q6E36WjNBeZZdg==" 
(decrypt encrypted key) ;; => "My Secret" 

Answer 2

Java的AES實現經過了充分測試，幷包含在JDK中...任何Clojure庫都可能使用該impl本身。

請參閱Java 256-bit AES Password-Based Encryption以瞭解關於Java API的體面討論。此外，http://jyliao.blogspot.com/2010/08/exploring-java-aes-encryption-algorithm.html有一個使用Clojure API的示例（儘管代碼不完全是慣用的）。