From e5066b0b790f3d809b016967b222c4eafe8e7b88 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 16 Oct 2022 23:37:58 -0700 Subject: [PATCH 08/10] Simplify ntml by using make-nonce * lisp/net/ntlm.el (ntlm-generate-nonce): Simplify. --- lisp/net/ntlm.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/net/ntlm.el b/lisp/net/ntlm.el index b58f0abb56..03a6c37ff3 100644 --- a/lisp/net/ntlm.el +++ b/lisp/net/ntlm.el @@ -221,9 +221,7 @@ ntlm-compute-timestamp (defun ntlm-generate-nonce () "Generate a random nonce, not to be used more than once. Return a random eight byte unibyte string." - (unibyte-string - (random 256) (random 256) (random 256) (random 256) - (random 256) (random 256) (random 256) (random 256))) + (make-nonce 8)) (defun ntlm-build-auth-response (challenge user password-hashes) "Return the response string to a challenge string CHALLENGE given by -- 2.34.1