From e0589e56f1c726be071cbce0e4cf365337634420 Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 17 Feb 2024 11:05:58 +0100 Subject: [PATCH] - prevented 'ssl-key-has-empty-password-p' to print on console the prompt asking for key password. --- src/os-utils.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/src/os-utils.lisp b/src/os-utils.lisp index 13c39de..e0af79b 100644 --- a/src/os-utils.lisp +++ b/src/os-utils.lisp @@ -185,14 +185,15 @@ output-string))))))))) (defun ssl-key-has-empty-password-p (key-path) - (let* ((cmd-args (format nil "rsa -noout -text -in ~a" key-path)) - (process (run-external-program +openssl-bin+ - (text-utils:split-words cmd-args) - :input nil - :output nil - :error :output - :wait t))) - (process-exit-success-p process))) + (with-input-from-string (passphrase-stream (format nil "~%")) + (let* ((cmd-args (format nil "rsa -passin stdin -noout -text -in ~a" key-path)) + (process (run-external-program +openssl-bin+ + (text-utils:split-words cmd-args) + :input passphrase-stream + :output nil + :error t + :wait t))) + (process-exit-success-p process)))) (defun send-to-pipe (data program-and-args)