diff options
| author | David Barksdale <amatus.amongus@gmail.com> | 2010-04-12 09:48:15 -0700 |
|---|---|---|
| committer | David Barksdale <amatus.amongus@gmail.com> | 2010-04-12 09:48:15 -0700 |
| commit | 139eca816fcb2f012e7f6d43afb80a431b7283f9 (patch) | |
| tree | 817d48a66b897c5acd49e617804be4e28bf65545 | |
| parent | 60f07805444c4d660b132df83fd1d544d0ca261a (diff) | |
Fix java imports.
| -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)))) |