Raymond Wiker wrote:
On 12 Feb 2023, at 11:47, Alessio Stalla alessiostalla@gmail.com wrote:
Greetings everyone,
is there a well-known way to do the thing in the subject, i.e. ask the user for a password in a console application, reading from the keyboard without echoing anything to the terminal? Using a library is fine, SBCL only is fine, limited to some OS is not so fine but better than nothing. Any idea?
Just tested this for Allegro CL:
(eval-when (compile eval load) (require :osi))
(defun echo-off () (let ((tm (excl.osi:tcgetattr *terminal-io*))) (setf (excl.osi:termios-lflag tm) (logandc2 (excl.osi:termios-lflag tm) excl.osi:*echo*)) (excl.osi:tcsetattr *terminal-io* tm)))
(defun echo-on () (let ((tm (excl.osi:tcgetattr *terminal-io*))) (setf (excl.osi:termios-lflag tm) (logior (excl.osi:termios-lflag tm) excl.osi:*echo*)) (excl.osi:tcsetattr *terminal-io* tm)))
(defun prompt-for-value (prompt) (format t "~&~a " prompt) (force-output) (read-line))
(defun prompt-for-value/no-echo (prompt) (format t "~&~a " prompt) (force-output) (echo-off) (unwind-protect (read-line) (echo-on)))
(defun get-passphrase-from-user () (prompt-for-value/no-echo "Passphrase?"))