/src/core/crypto.lisp

http://github.com/skypher/cl-oauth · Lisp · 15 lines · 11 code · 4 blank · 0 comment · 0 complexity · 55d7bb1740ad59ddcb49ad2049b32881 MD5 · raw file 

    

  1. (in-package :oauth)
    2. 

  2. 

  3. (defun string-or-octets->octets (x)
    4. 

  4.   (etypecase x
    5. 

  5.     (string (babel:string-to-octets x))
    6. 

  6.     ((simple-array (unsigned-byte 8)) x)))
    7. 

  7. 

  8. (defun hmac-sha1 (s key)
    9. 

  9.   (let* ((s (string-or-octets->octets s))
    10. 

  10.          (key (string-or-octets->octets key))
    11. 

  11.          (hmac (ironclad:make-hmac key 'ironclad:sha1)))
    12. 

  12.     (ironclad:update-hmac hmac s)
    13. 

  13.     (ironclad:hmac-digest hmac)))
    14.