diff options
| -rw-r--r-- | src/org/gnu/clojure/gnunet/crypto.clj | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/org/gnu/clojure/gnunet/crypto.clj b/src/org/gnu/clojure/gnunet/crypto.clj index eb1283b..df512d8 100644 --- a/src/org/gnu/clojure/gnunet/crypto.clj +++ b/src/org/gnu/clojure/gnunet/crypto.clj @@ -1,15 +1,17 @@ -(ns org.gnu.clojure.gnunet.crypto) +(ns org.gnu.clojure.gnunet.crypto + (:import (java.security KeyPairGenerator MessageDigest) + java.security.spec.RSAKeyGenParameterSpec)) (defn generate-rsa-keypair "Generate a 2048 bit RSA keypair." [] - (let [rsa (java.security.KeyPairGenerator/getInstance "RSA") - spec (java.security.spec.RSAKeyGenParameterSpec. 2048 (bigint 257))] + (let [rsa (KeyPairGenerator/getInstance "RSA") + spec (RSAKeyGenParameterSpec. 2048 (bigint 257))] (.initialize rsa spec) (.generateKeyPair rsa))) (defn sha-512 "Compute the SHA-512 digest of a sequence of bytes." [x] - (let [sha (java.security.MessageDigest/getInstance "SHA-512")] - (.digest sha (byte-array x))))
\ No newline at end of file + (let [sha (MessageDigest/getInstance "SHA-512")] + (.digest sha (byte-array x)))) |