tjhintz/chicken-scheme-hmac
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleanup formatting.

Browse Source
This commit is contained in:
Thomas Hintz
2013-09-24 15:38:33 -07:00
parent ffe7b3bfe3
commit b52b480a81
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
hmac.scm
View File

@@ -8,7 +8,6 @@
(import scheme chicken srfi-4 srfi-13) (import scheme chicken srfi-4 srfi-13)
(use message-digest-port) (use message-digest-port)
; taken from example at http://wiki.call-cc.org/drupal-xml-rpc
(define (hmac key digest-primitive #!optional (block-size 64)) (define (hmac key digest-primitive #!optional (block-size 64))
(when (> (string-length key) block-size) (when (> (string-length key) block-size)
(set! key (call-with-output-digest digest-primitive (cut display key <>) 'string))) (set! key (call-with-output-digest digest-primitive (cut display key <>) 'string)))
@@ -16,6 +15,15 @@
(let ((ipad (string-map (lambda (c) (integer->char (bitwise-xor (char->integer c) #x36))) key)) (let ((ipad (string-map (lambda (c) (integer->char (bitwise-xor (char->integer c) #x36))) key))
(opad (string-map (lambda (c) (integer->char (bitwise-xor (char->integer c) #x5c))) key))) (opad (string-map (lambda (c) (integer->char (bitwise-xor (char->integer c) #x5c))) key)))
(lambda (message) (lambda (message)
(call-with-output-digest digest-primitive (cut display (string-append opad (call-with-output-digest digest-primitive (cut display (string-append ipad message) <>) 'string)) <>) 'string)))) (call-with-output-digest
digest-primitive
(cut display
(string-append opad
(call-with-output-digest
digest-primitive
(cut display (string-append ipad message) <>)
string))
<>)
'string))))
) )