gistfile1.lisp

(defun to-auth-header (user &optional (date (http-date (now))))
  "Encode a user's email, password and a timestamp with hmac."
  (let* ((hmac (make-hmac *hmac-secret* :sha256))
         (message (string-to-octets (format nil "~S ~S" (password user) date)))
         (digest (progn
                   (update-hmac hmac message)
                   (hmac-digest hmac)))
         (b64-digest (usb8-array-to-base64-string digest)))
    (values (format nil "NOQ ~A:~A" (email user) b64-digest)
            (format nil "Date: ~A" date))))