You are looking at historical revision 24332 of this page. It may differ significantly from its current revision.
Provides a basic and primitive hmac. From wikipedia: "In cryptography, HMAC (Hash-based Message Authentication Code) is a specific construction for calculating a message authentication code (MAC) involving a cryptographic hash function in combination with a secret key."
I would welcome improvements. This implementation is not very performant and could use better integration with the message digest system.
Contact me at email@example.com.
List of Procedures
hmac[procedure] (hmac key digest-primitive #!optional (block-size 64))
Takes key and digest-primitive and returns a function that takes message and produces an hmac.
(use hmac sha1) ((hmac "secret-key" (sha1-primitive)) "message")