 (defmethod derive-password :scrypt
   [{:keys [algorithm password salt cpucost memcost parallelism] :as pwdparams}]
   (let [salt (->byte-array (or salt (nonce/random-bytes 12)))
-        cpucost (or cpucost 65536)
-        memcost (or memcost 8)
+        cpucost (or cpucost (get-in *default-iterations* [:scrypt :cpucost]))
+        memcost (or memcost (get-in *default-iterations* [:scrypt :memcost]))
         parallelism (or parallelism 1)
         password (-> (bytes/concat salt password salt)
                      (bytes->hex)

     :salt (hex->bytes salt)
     :password (hex->bytes password)
     :iterations (Integer/parseInt iterations)}))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Public Api

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Key Formatting
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defmethod format-password :scrypt
  [{:keys [password salt cpucost memcost parallelism]}]
