Readable WPA2-PSK generator

gistfile1.clj

(defn- char-range [start end]
  (map char (range (int start) 
                   (inc (int end)))))

(def ^:private
  dirty 
  (char-range \! \~))

(def ^:private
  clean
  (remove #{\i \I \l \L \1 \| \0 \O \o \` \' \" \, \. \: \;} 
          dirty))

(defn sample 
  ([] (sample 63)) ; WPA2 PSK ASCII key max length
  ([n]
     (->> #(rand-nth clean)
          repeatedly
          (take n)
          (apply str))))