diff options
Diffstat (limited to 'lisp/md4.el')
-rw-r--r-- | lisp/md4.el | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lisp/md4.el b/lisp/md4.el index 925686aa756..11c91307afc 100644 --- a/lisp/md4.el +++ b/lisp/md4.el @@ -4,7 +4,7 @@ ;; Author: Taro Kawagishi <tarok@transpulse.org> ;; Keywords: MD4 -;; Version: 1.00 +;; Old-Version: 1.00 ;; Created: February 2001 ;; This file is part of GNU Emacs. @@ -22,6 +22,16 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. +;;; Commentary: + +;; The MD4 Message-Digest Algorithm. +;; +;; The security of the MD4 hashing algorithm is very poor to +;; non-existent. It was declared obsolete by RFC 6150 in 2011: +;; https://tools.ietf.org/html/rfc6150 +;; +;; You probably want to use `secure-hash' instead. + ;;; Code: ;;; @@ -33,7 +43,12 @@ (defun md4 (in n) "Return the MD4 hash for a string IN of length N bytes. The returned hash is 16 bytes long. N is required to handle -strings containing the character 0." +strings containing the character 0. + +The security of the MD4 hashing algorithm is very poor to +non-existent. It was declared obsolete by RFC 6150 in 2011. + +You probably want to use `secure-hash' instead." (let (m (b (cons 0 (* n 8))) (i 0) |