OSCL/md5
2
0
Fork 0
mirror of https://github.com/pmai/md5.git synced 2025-12-21 22:44:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Update comment to match history and current state, add MD5 warning.

Browse Source
This commit is contained in:
Pierre R. Mai
2012-10-22 15:14:45 +02:00
parent 55b8b3ff8c
commit a2869d8106
1 changed files with 33 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
md5.lisp
View File

@ -1,31 +1,49 @@
;;;; This file implements The MD5 Message-Digest Algorithm, as defined in ;;;; This file implements The MD5 Message-Digest Algorithm, as defined in
;;;; RFC 1321 by R. Rivest, published April 1992. ;;;; RFC 1321 by R. Rivest, published April 1992.
;;;; ;;;;
;;;; It was written by Pierre R. Mai, with copious input from the ;;;; It was originally written by Pierre R. Mai, with copious input
;;;; cmucl-help mailing-list hosted at cons.org, in November 2001 and ;;;; from the cmucl-help mailing-list hosted at cons.org, in November
;;;; has been placed into the public domain. ;;;; 2001 and has been placed into the public domain. In the meantime
;;;; various fixes and improvements for other implementations as well
;;;; as maintenance have been provided by Christophe Rhodes, Alexey
;;;; Dejneka, Nathan Froyd, Andreas Fuchs, John Desoi, Dmitriy Ivanov,
;;;; and Kevin M. Rosenberg, and have been reintegrated into this
;;;; consolidated version by Pierre R. Mai.
;;;;
;;;; WARNING: The MD5 Message-Digest Algorithm has been compromised as
;;;; a cryptographically secure hash for some time, with known
;;;; theoretical and practical attacks. Therefore use of this
;;;; implemenation is only recommended for legacy uses or uses which
;;;; do not require a cryptographically secure hash. Use one of the
;;;; newer SHA-2 and SHA-3 secure hash standards, or whatever is
;;;; currently deemed cryptographically secure for all other uses.
;;;; ;;;;
;;;; $Id$ ;;;; $Id$
;;;; ;;;;
;;;; While the implementation should work on all conforming Common ;;;; While the implementation should work on all conforming Common
;;;; Lisp implementations, it has only been optimized for CMU CL, ;;;; Lisp implementations, it has originally been optimized for CMU
;;;; where it achieved comparable performance to the standard md5sum ;;;; CL, where it achieved comparable performance to the standard
;;;; utility (within a factor of 1.5 or less on iA32 and UltraSparc ;;;; md5sum utility (within a factor of 1.5 or less on iA32 and
;;;; hardware). ;;;; UltraSparc hardware).
;;;;
;;;; Currently, this implementation has also been optimized for SBCL
;;;; and LispWorks.
;;;; ;;;;
;;;; Since the implementation makes heavy use of arithmetic on ;;;; Since the implementation makes heavy use of arithmetic on
;;;; (unsigned-byte 32) numbers, acceptable performance is likely only ;;;; (unsigned-byte 32) numbers, acceptable performance is likely only
;;;; on CL implementations that support unboxed arithmetic on such ;;;; on CL implementations that support unboxed arithmetic on such
;;;; numbers in some form. For other CL implementations a 16bit ;;;; numbers in some form. This should include most 64bit CL
;;;; implementations. For other CL implementations a 16bit
;;;; implementation of MD5 is probably more suitable. ;;;; implementation of MD5 is probably more suitable.
;;;; ;;;;
;;;; The code implements correct operation for files of unbounded size ;;;; The code implements correct operation for files/sequences of
;;;; as is, at the cost of having to do a single generic integer ;;;; unbounded size as is, at the cost of having to do a single
;;;; addition for each call to update-md5-state. If you call ;;;; generic integer addition for each call to update-md5-state. If
;;;; update-md5-state frequently with little data, this can pose a ;;;; you call update-md5-state frequently with little data, this can
;;;; performance problem. If you can live with a size restriction of ;;;; pose a performance problem. If you can live with a size
;;;; 512 MB, then you can enable fast fixnum arithmetic by putting ;;;; restriction of 512 MB, then you can enable fast fixnum arithmetic
;;;; :md5-small-length onto *features* prior to compiling this file. ;;;; by putting :md5-small-length onto *features* prior to compiling
;;;; this file.
;;;; ;;;;
;;;; Testing code can be compiled by including :md5-testing on ;;;; Testing code can be compiled by including :md5-testing on
;;;; *features* prior to compilation. In that case evaluating ;;;; *features* prior to compilation. In that case evaluating