 
 (defmethod parse-password :sha256
   [encryptedpassword]
-  (let [[algorithm salt password] (str/split encryptedpassword #"\$")
-        algorithm (keyword algorithm)]
-    {:algorithm algorithm
+  (let [[alg salt password] (str/split encryptedpassword #"\$")
+        alg (keyword alg)]
+    {:alg alg
      :salt (hex->bytes salt)
      :password (hex->bytes password)}))
 
 (defmethod parse-password :md5
   [encryptedpassword]
-  (let [[algorithm salt password] (str/split encryptedpassword #"\$")
-        algorithm (keyword algorithm)]
-    {:algorithm algorithm
+  (let [[alg salt password] (str/split encryptedpassword #"\$")
+        alg (keyword alg)]
+    {:alg alg
      :salt (hex->bytes salt)
      :password (hex->bytes password)}))
 
 (defmethod parse-password :default
   [encryptedpassword]
-  (let [[algorithm salt iterations password] (str/split encryptedpassword #"\$")
-        algorithm (keyword algorithm)]
-    {:algorithm algorithm
+  (let [[alg salt iterations password] (str/split encryptedpassword #"\$")
+        alg (keyword alg)]
+    {:alg alg
      :salt (hex->bytes salt)
      :password (hex->bytes password)
      :iterations (Integer/parseInt iterations)}))

                     (bytes->hex)
                     (scrypt/encrypt cpucost memcost parallelism)
                     (str->bytes))]
    {:algorithm algorithm
     :cpucost cpucost
     :memcost memcost
     :parallelism parallelism


(defmethod parse-password :scrypt
  [encryptedpassword]
  (let [[alg salt cc mc pll password] (str/split encryptedpassword #"\$")
        alg (keyword alg)]
    {:alg alg
     :salt (hex->bytes salt)
     :password (hex->bytes password)
     :cpucost (Integer/parseInt cc)
