Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: fdf8ad9301
Fetching contributors…

Cannot retrieve contributors at this time

50 lines (39 sloc) 1.48 kB
;;; test cases (SRFI-78) for SHA-1
;;;
;;; taken from:
;;; Federal Information Processing Standard Publication 180-1
;;; Secure Hash Standard
;;; April 1995
;;; available from
;;; <http://www.itl.nist.gov/fipspubs/fip180-1.htm>
(check
(sha1-hash-string "")
=> #xda39a3ee5e6b4b0d3255bfef95601890afd80709)
(check
(sha1-hash-string "a")
=> #x86f7e437faa5a7fce15d1ddcb9eaeaea377667b8)
(check
(sha1-hash-string "abc")
=> #xa9993e364706816aba3e25717850c26c9cd0d89d)
(check
(sha1-hash-string "message digest")
=> #xc12252ceda8be8994d5fa0290a47231c1d16aae3)
(check
(sha1-hash-string "abcdefghijklmnopqrstuvwxyz")
=> #x32d10c7b8cf96570ca04ce37f2a19d84240d3a89)
(check
(sha1-hash-string "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")
=> #x761c457bf73b14d27e9e9265c46f4b4dda11f940)
(check
(sha1-hash-string "12345678901234567890123456789012345678901234567890123456789012345678901234567890")
=> #x50abf5706a150990a08b2c5ea40fa0e585554732)
(check
(sha1-hash-string "MD5 has not yet (2001-09-03) been broken, but sufficient attacks have been made that its security is in some doubt")
=> #x18eca4333979c4181199b7b4fab8786d16cf2846)
(check
(sha1-hash-string "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
=> #x84983e441c3bd26ebaae4aa1f95129e5e54670f1)
;;; run this test only if you want to burn many cpu cycles...
;(check
; (sha1-hash-string (make-string 1000000 #\a))
; => #x34aa973cd4c4daa4f61eeb2bdbad27316534016f)
Jump to Line
Something went wrong with that request. Please try again.