Có thư viện AES cho clojure không?

Question

Có thư viện mã hóa AES cho clojure không? sao tôi nên sử dụng một libray java có sẵn thông qua maven hoặc clojars? Cảm ơn bạn đã dành thời gian và cân nhắc.

Answer 1

Dưới đây là một ví dụ có lẽ thành ngữ hơn khi sử dụng các thư viện mã hóa java có sẵn. encrypt và decrypt ở đây, mỗi văn bản nhập văn bản đầu vào và khóa mã hóa, cả hai đều là Chuỗi.

(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))))) 

đã qua sử dụng suchwise:

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

Answer 2

Việc triển khai AES của Java được kiểm tra kỹ và bao gồm trong JDK… bất kỳ thư viện Clojure nào cũng có khả năng sử dụng chính nó.

Xem Java 256-bit AES Password-Based Encryption để có thảo luận tốt về API Java. Ngoài ra, http://jyliao.blogspot.com/2010/08/exploring-java-aes-encryption-algorithm.html có một ví dụ về cách sử dụng API từ Clojure (mặc dù mã không hoàn toàn thành ngữ).