bugfix: signature computation was broken for multiline texts

2014-02-25 18:13:01 +01:00
parent a0837b70b9
commit 144218ecc2
3 changed files with 4 additions and 4 deletions
@@ -9,7 +9,7 @@
  (defn sign
    "Returns the MD5 hash for the concatenation of all passed parameters"
    [& args]
-    (let [input (apply str args)]
+    (let [input (sreplace (apply str args) #"\r*" "")]
      (do (.reset md5Instance)
          (.update md5Instance (.getBytes input))
          (apply str