(defparameter *chars* "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*")
(defun random-char ()
(char *chars* (random (length *chars*))))
(defun generate-password (length)
(coerce (loop repeat length collect (random-char)) 'string))
(defun test-generator ()
"Test the password generator"
(format t "Password (8 chars): ~a~%" (generate-password 8))
(format t "Password (12 chars): ~a~%" (generate-password 12))
(format t "Password (16 chars): ~a~%" (generate-password 16)))
(setf *random-state* (make-random-state t))
(test-generator)
