Function: md4-copy64

md4-copy64 is a byte-compiled function defined in md4.el.gz.

Signature

(md4-copy64 SEQ)

Documentation

Unpack a 64 bytes string into 16 pairs of 32 bits integers.

Source Code

;; Defined in /usr/src/emacs/lisp/md4.el.gz
(defun md4-copy64 (seq)
  "Unpack a 64 bytes string into 16 pairs of 32 bits integers."
  (let ((int32s (make-vector 16 0)) (i 0) j)
    (while (< i 16)
      (setq j (* i 4))
      (aset int32s i (cons (+ (aref seq (+ j 2)) (ash (aref seq (+ j 3)) 8))
			   (+ (aref seq j) (ash (aref seq (1+ j)) 8))))
      (setq i (1+ i)))
    int32s))