Commit b7768d78 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

(nsm-check-protocol): Check for weak Diffie-Hellman prime bits.

Fixes: debbugs:19153
parent 7c675026
......@@ -3,6 +3,8 @@
* net/nsm.el (network-security-level): Remove the detailed
description, which was already outdated, and refer the users to
the manual.
(nsm-check-protocol): Check for weak Diffie-Hellman prime bits
2014-12-06 Andrey Kotlarski <>
......@@ -115,6 +115,14 @@ unencrypted."
(defun nsm-check-tls-connection (process host port status settings)
(let ((process (nsm-check-certificate process host port status settings)))
(if (and process
(>= (nsm-level network-security-level) (nsm-level 'high)))
;; Do further protocol-level checks if the security is high.
(nsm-check-protocol process host port status settings)
(defun nsm-check-certificate (process host port status settings)
(let ((warnings (plist-get status :warnings)))
......@@ -168,6 +176,23 @@ unencrypted."
(defun nsm-check-protocol (process host port status settings)
(let ((prime-bits (plist-get status :diffie-hellman-prime-bits)))
((and prime-bits
(< prime-bits 1024)
(not (memq :diffie-hellman-prime-bits
(plist-get settings :conditions)))
host port status :diffie-hellman-prime-bits
"The Diffie-Hellman prime bits (%s) used for this connection to\n%s:%s\nis less than what is considerer safe (%s)."
prime-bits host port 1024)))
(delete-process process)
(defun nsm-fingerprint (status)
(plist-get (plist-get status :certificate) :public-key-id))
......@@ -284,14 +309,23 @@ unencrypted."
(nconc saved (list :host (format "%s:%s" host port))))
;; We either want to save/update the fingerprint or the conditions
;; of the certificate/unencrypted connection.
(when (eq what 'conditions)
((eq what 'conditions)
(nconc saved (list :host (format "%s:%s" host port)))
((not status)
(nconc saved `(:conditions (:unencrypted))))
(nconc saved '(:conditions (:unencrypted))))
((plist-get status :warnings)
(nconc saved
`(:conditions ,(plist-get status :warnings))))))
(list :conditions (plist-get status :warnings))))))
((not (eq what 'fingerprint))
;; Store additional protocol settings.
(let ((settings (nsm-host-settings id)))
(when settings
(setq saved settings))
(if (plist-get saved :conditions)
(nconc (plist-get saved :conditions) (list what))
(nconc saved (list :conditions (list what)))))))
(if (eq permanency 'always)
(nsm-remove-temporary-setting id)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment