@ -20,7 +20,7 @@
(var p 0)
(loop [i :down [(- (length alph-bytes) 1) 0]]
(let [v (mod i (length salt-bytes))
(let [v (mod (- (length alph-bytes) i 1) (length salt-bytes))
n (get salt-bytes v)]
(set p (+ p n))
(def j (mod (+ n v p) i))
@ -14,5 +14,13 @@
(assert
(= "cadb" (h/consistent-shuffle "abcd" salt)))
(= "f17a8zvCwo0iuqYDXlJ4RmAS2end5ghTcpjbOWLK9GFyE6xUI3ZBMQtPsNHrkV"
(h/consistent-shuffle "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
"salt")))