Guest User

Untitled

a guest
Feb 12th, 2012
213
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn verify-message [signature message]
  2.   (let [verifier (Signature/getInstance "SHA1withRSA")]
  3.     (.initVerify verifier publickey)
  4.     (.update verifier (.getBytes message))
  5.     (.verify verifier signature)))
  6.  
  7. # With the thrush macro:
  8. (defn verify-message [signature message]
  9.   (-> (Signature/getInstance "SHA1withRSA")
  10.     (.initVerify publickey)
  11.     (.update (.getBytes message)
  12.     (.verify signature)))
Advertisement
Add Comment
Please, Sign In to add comment