A very simple implementation of SHA1 and HMAC-SHA1 for LispWorks. The code is intended to be easy to follow and is therefore a little slower than it could be.
There are 6 functions exposed in the sha1
package:
(sha1-digest message) ;=> digest
(sha1-hex message) ;=> string
(sha1-base64 message) ;=> string
(hmac-sha1-digest key message) ;=> digest
(hmac-sha1-hex key message) ;=> string
(hmac-sha1-base64 key message) ;=> string
A digest is a list of 20 bytes. The -hex functions will return a hexadecimal string that is equal to the digest. The -base64 functions will return a base64-encoded string of the digest.
They key and message arguments can either be a sequence of bytes or a string (ASCII or UTF-8).
Some examples (from the Wikipedia pages):
CL-USER > (sha1-digest "")
(218 57 163 238 94 107 75 13 50 85 191 239 149 96 24 144 175 216 7 9)
CL-USER > (sha1-hex "The quick brown fox jumps over the lazy dog")
"2FD4E1C67A2D28FCED849EE1BB76E7391B93EB12"
CL-USER > (sha1-base64 "The quick brown fox jumps over the lazy dog")
"L9ThxnotKPzthJ7hu3bnORuT6xI="
CL-USER > (hmac-sha1-hex "key" "The quick brown fox jumps over the lazy dog")
"DE7C9B85B8B78AA6BC8A7A36F70A90701C9DB4D9"
That's it!