luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Crypto] Add secure rand-nth fn

Browse source
This commit is contained in:
Peter Taoussanis 2018-09-23 19:38:51 +02:00
parent f6c17a7411
commit e16c64c4f4
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/taoensso/nippy/crypto.clj
View file

@ -1,6 +1,7 @@
(ns taoensso.nippy.crypto (ns taoensso.nippy.crypto
"Low-level crypto utils. "Low-level crypto utils.
Private & alpha, very likely to change!" Private & alpha, very likely to change!"
(:refer-clojure :exclude [rand-nth])
(:require [taoensso.encore :as enc])) (:require [taoensso.encore :as enc]))
;; Note that AES128 may be preferable to AES256 due to known attack ;; Note that AES128 may be preferable to AES256 due to known attack
@ -28,7 +29,9 @@
(defn rand-double "Uses `prng`" ^double [] (.nextDouble (prng))) (defn rand-double "Uses `prng`" ^double [] (.nextDouble (prng)))
(defn rand-long "Uses `prng`" ^long [] (.nextLong (prng))) (defn rand-long "Uses `prng`" ^long [] (.nextLong (prng)))
(defn rand-gauss "Uses `prng`" ^double [] (.nextGaussian (prng))) (defn rand-gauss "Uses `prng`" ^double [] (.nextGaussian (prng)))
(defn rand-bool "Uses `prng`" [] (.nextBoolean (prng)))) (defn rand-bool "Uses `prng`" [] (.nextBoolean (prng)))
(defn rand-nth "Uses `prng`"
[coll] (nth coll (int (* (rand-double) (count coll))))))
(comment (seq (rand-bytes 16))) (comment (seq (rand-bytes 16)))