1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / usr / share / emacs / 24.3 / lisp /
Filename : md4.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/md4.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@38 Work buffer of four 32-bit integers.
(defvar md4-buffer (make-vector 4 '(0 . 0)) (#$ . 546))
#@153 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.
(defalias 'md4 #[(in n) "\306\307\310_B\307\311\312\307\"\306\307\313I\210\314\315I\210\316\317I\210\320\321I\210\322V\203J�\323 \307\322O!\324
!\210 \322\306O \322Z\211\202*�\307\211W\203a�\n HI\210T\211\202M�\n\312I\210\325X\203\227�\326\f!\n\327	\307HI\210\n\330	\314HI\210\n\331	\316HI\210\n\332	\320HI\210\323\n!\324
!\210\202\312�\326\f!\n\333	\307HI\210\n\334	\314HI\210\n\335	\316HI\210\n\336	\320HI\210\323\n!\324
!\210\323\n\322\306O!\324
!\210-\326\307H!\326\314H!\326\316H!\326\320H!R\207" [n c4 buf i b m nil 0 8 make-string 128 (26437 . 8961) 1 (61389 . 43913) 2 (39098 . 56574) 3 (4146 . 21622) 64 md4-copy64 md4-64 55 md4-pack-int32 56 57 58 59 120 121 122 123 md4-buffer in] 7 (#$ . 646)])
(defalias 'md4-F #[(x y z) "\303\304	\"\304\305!\n\"\"\207" [x y z logior logand lognot] 5])
(put 'md4-F 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'md4-G #[(x y z) "\303\304	\"\304\n\"\304	\n\"#\207" [x y z logior logand] 6])
(put 'md4-G 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'md4-H #[(x y z) "\303	\n#\207" [x y z logxor] 4])
(put 'md4-H 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'md4-make-step '(macro . #[(name func) "\302\303\304\305\306\307	\310B\311BBBD\312\306\313	\314B\315BBBD\316BB\317BBF\207" [name func defun (a b c d xk s ac) let* h1 + (car a) ((car b) (car c) (car d)) ((car xk) (car ac)) l1 (cdr a) ((cdr b) (cdr c) (cdr d)) ((cdr xk) (cdr ac)) ((h2 (logand 65535 (+ h1 (lsh l1 -16)))) (l2 (logand 65535 l1)) (h3 (logand 65535 (if (> s 15) (+ (lsh h2 (- s 32)) (lsh l2 (- s 16))) (+ (lsh h2 s) (lsh l2 (- s 16)))))) (l3 (logand 65535 (if (> s 15) (+ (lsh l2 (- s 32)) (lsh h2 (- s 16))) (+ (lsh l2 s) (lsh h2 (- s 16))))))) ((cons h3 l3))] 10]))
(defalias 'md4-round1 #[(a b c d xk s ac) "\306@	@\n@@\307\310
\"\310\311!\f\"\"+@@$\306A	A\nAA\307\310
\"\310\311!\f\"\"+AA$\310\312\313\"\\\314\"\310\314\"\310\315V\203z�\312\316Z\"\312\317Z\"\\\202\211�\312\"\312\317Z\"\\\314\"\310\315V\203\251�\312\316Z\"\312\317Z\"\\\202\270�\312\"\312\317Z\"\\\314\".B\207" [a b c d z y + logior logand lognot lsh -16 65535 15 32 16 x xk ac h1 l1 h2 l2 s h3 l3] 7])
(defalias 'md4-round2 #[(a b c d xk s ac) "\306@	@\n@@\307\310
\"\310\f\"\310
\f\"#+@@$\306A	A\nAA\307\310
\"\310\f\"\310
\f\"#+AA$\310\311\312\"\\\313\"\310\313\"\310\314V\203~�\311\315Z\"\311\316Z\"\\\202\215�\311\"\311\316Z\"\\\313\"\310\314V\203\255�\311\315Z\"\311\316Z\"\\\202\274�\311\"\311\316Z\"\\\313\".B\207" [a b c d z y + logior logand lsh -16 65535 15 32 16 x xk ac h1 l1 h2 l2 s h3 l3] 8])
(defalias 'md4-round3 #[(a b c d xk s ac) "\306@	@\n@@\307
\f#+@@$\306A	A\nAA\307
\f#+AA$\310\311\312\"\\\313\"\310\313\"\310\314V\203j�\311\315Z\"\311\316Z\"\\\202y�\311\"\311\316Z\"\\\313\"\310\314V\203\231�\311\315Z\"\311\316Z\"\\\202\250�\311\"\311\316Z\"\\\313\".B\207" [a b c d z y + logxor logand lsh -16 65535 15 32 16 x xk ac h1 l1 h2 l2 s h3 l3] 6])
#@47 Return 32-bit sum of 32-bit integers X and Y.
(defalias 'md4-add #[(x y) "@	@\\A	A\\\304\305\n\306\"\\\307\"\304\n\307\"*B\207" [x y l h logand lsh -16 65535] 5 (#$ . 3992)])
(put 'md4-add 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'md4-and #[(x y) "\302@	@\"\302A	A\"B\207" [x y logand] 4])
(put 'md4-and 'byte-optimizer 'byte-compile-inline-expand)
#@144 Calculate MD4 hash of M.
M is a 64-bytes chunk, represented as 16 pairs of 32-bit integers.
The resulting MD4 value is placed in `md4-buffer'.
(defalias 'md4-64 #[(m) "\306H\307H\310H\311H\312\f\n	
\306H\311\313&\312	\f\n
\307H\314\315&\312\n	\f
\310H\316\317&\312\n	\f
\311H\320\321&\312\f\n	
\322H\311\323&\312	\f\n
\324H\314\325&\312\n	\f
\326H\316\327&\312\n	\f
\314H\320\330&\312\f\n	
\331H\311\332&\312	\f\n
\333H\314\334&\312\n	\f
\335H\316\336&\312\n	\f
\316H\320\337&\312\f\n	
\340H\311\341&\312	\f\n
\342H\314\343&\312\n	\f
\344H\316\345&\312\n	\f
\346H\320\347&\350\f\n	
\306H\311\351&\350	\f\n
\322H\324\352&\350\n	\f
\331H\333\353&\350\n	\f
\340H\342\354&\350\f\n	
\307H\311\355&\350	\f\n
\324H\324\356&\350\n	\f
\333H\333\357&\350\n	\f
\342H\342\360&\350\f\n	
\310H\311\361&\350	\f\n
\326H\324\362&\350\n	\f
\335H\333\363&\350\n	\f
\344H\342\364&\350\f\n	
\311H\311\365&\350	\f\n
\314H\324\366&\350\n	\f
\316H\333\367&\350\n	\f
\346H\342\370&\371\f\n	
\306H\311\372&\371	\f\n
\331H\333\373&\371\n	\f
\322H\316\374&\371\n	\f
\340H\346\375&\371\f\n	
\310H\311\376&\371	\f\n
\335H\333\377&\371\n	\f
\326H\316\201D�&\371\n	\f
\344H\346\201E�&\371\f\n	
\307H\311\201F�&\371	\f\n
\333H\333\201G�&\371\n	\f
\324H\316\201H�&\371\n	\f
\342H\346\201I�&\371\f\n	
\311H\311\201J�&\371	\f\n
\316H\333\201K�&\371\n	\f
\314H\316\201L�&\371\n	\f
\346H\346\201M�&\306\f\306H@\211A@@@\\AA@A\\BC\201N�C\201O�B\201P�\"\\\201Q�\"\201N�B\201Q�\",BI\210\307\307H@\211A@@@\\AA@A\\BC\201N�C\201O�B\201P�\"\\\201Q�\"\201N�B\201Q�\",BI\210\310\n\310H@\211A@@@\\AA@A\\BC\201N�C\201O�B\201P�\"\\\201Q�\"\201N�B\201Q�\",BI\210\311	\311H@\211A@@@\\AA@A\\BC\201N�C\201O�B\201P�\"\\\201Q�\"\201N�B\201Q�\",BI,\207" [md4-buffer d c b a m 0 1 2 3 md4-round1 (0 . 0) 7 (0 . 0) 11 (0 . 0) 19 (0 . 0) 4 (0 . 0) 5 (0 . 0) 6 (0 . 0) (0 . 0) 8 (0 . 0) 9 (0 . 0) 10 (0 . 0) (0 . 0) 12 (0 . 0) 13 (0 . 0) 14 (0 . 0) 15 (0 . 0) md4-round2 (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) (23170 . 31129) md4-round3 (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) y x l h (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) (28377 . 60321) logand lsh -16 65535] 9 (#$ . 4369)])
#@61 Unpack a 64 bytes string into 16 pairs of 32 bits integers.
(defalias 'md4-copy64 #[(seq) "\304\305\306\"\306\307	\305W\2038�	\310_\n	\311\\H\312\313\\H\314\"\\H\312TH\314\"\\BI\210	T\211\202\n�\n+\207" [j i int32s seq make-vector 16 0 nil 4 2 lsh 3 8] 8 (#$ . 7054)])
#@58 Pack 16 bits integer in 2 bytes string as little endian.
(defalias 'md4-pack-int16 #[(int16) "\302\303\304\"\211\304\305	\306\"I\210\307\310	\311\"I\210)\207" [str int16 make-string 2 0 logand 255 1 lsh -8] 6 (#$ . 7342)])
#@144 Pack 32 bits integer in a 4 bytes string as little endian.
A 32 bits integer is represented as a pair of two 16 bits
integers (cons high low).
(defalias 'md4-pack-int32 #[(int32) "\304\305\306\"@A\211\306\307	\310\"I\210\311\312	\313\"I\210\314\307\n\310\"I\210\315\312\n\313\"I\210+\207" [int32 l h str make-string 4 0 logand 255 1 lsh -8 2 3] 6 (#$ . 7575)])
(defalias 'md4-unpack-int16 #[(str) "G\301=\203�\302\303H\304\"\305H\\\207\306\307\"\207" [str 2 lsh 1 8 0 error "%s is not 2 bytes long"] 3])
(defalias 'md4-unpack-int32 #[(str) "G\301=\203�\302\303H\304\"\305H\\\302\306H\304\"\307H\\B\207\310\311\"\207" [str 4 lsh 3 8 2 1 0 error "%s is not 4 bytes long"] 4])
(provide 'md4)