blob: 103734dbfc7372ff267cf9a8a2bd242764b3b703 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(ns genpass.gen)
(def low-case [\a \b \c \d \e \f \g \h \i \j \k \l \m \n \o \p \q \r \s \t \u \v \W \x \Y \z])
(def upper-case [\A \B \C \D \E \F \G \H \I \J \K \L \M \N \O \P \Q \R \S \T \U \V \W \X \Y \Z])
(def number [\0 \1 \2 \3 \4 \5 \6 \7 \8 \9])
(def special-char [\! \@ \# \% \^ \& \* \( \) \{ \} \[ \] \- \+ \= \~])
(def all-char (into [] (concat low-case upper-case number special-char)))
(defn rand-char []
(nth all-char (rand-int (dec (count all-char)))))
(defn genpwd
([] (genpwd 12))
([length]
(genpwd length ""))
([length pwd]
(if (>= 0 length)
pwd
(recur (dec length)
(str pwd (rand-char))))))
|