2004-01-05 Katsumi Yamaoka <yamaoka@jpl.org>

[elisp/flim.git] / md4.el

diff --git a/md4.el b/md4.el
index 42cc7ab..05e4f87 100644 (file)
--- a/md4.el
+++ b/md4.el
@@ -1,5 +1,6 @@
 ;;; md4.el --- MD4 Message Digest Algorithm.
 
+;; Copyright (C) 2004 Free Software Foundation, Inc.
 ;; Copyright (C) 2001 Taro Kawagishi
 ;; Author: Taro Kawagishi <tarok@transpulse.org>
 ;; Keywords: MD4
@@ -28,16 +29,6 @@
 ;;;
 ;;; MD4 hash calculation
 
-(defun print-int32 (int32)
-  "print 32 bits integer in 4 bytes string as little endian"
-  (let ((h (car int32)) (l (cdr int32)))
-    (list (logand l 255) (lsh l -8) (logand h 255) (lsh h -8))))
-
-(defun print-string-hexa (str)
-  "print a string in hexadecimal"
-  (let (out)
-    (mapcar (function (lambda (x) (concat out (format "%x" x)))) str)))
-
 (defvar md4-buffer (make-vector 4 '(0 . 0))
   "work buffer of four 32-bit integers")