suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updating based on Linux debugging

Browse Source 
svn: r16520
This commit is contained in:
Jay McCarthy 2009-11-03 17:32:41 +00:00
parent f51803a3c7
commit b49896f2f7
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/web-server/stuffers/hmac-sha1.ss
View File

@ -28,15 +28,16 @@
[key_len : _int = (bytes-length key)] [key_len : _int = (bytes-length key)]
[data : _bytes] [data : _bytes]
[data_len : _int = (bytes-length data)] [data_len : _int = (bytes-length data)]
[md : _pointer = #f] [md : (_bytes o 20)]
[md_len : _uint = 0] [md_len : (_ptr o _uint)]
f-> f-> _bytes
_pointer)) f-> md))
(lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load")))) (lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load"))))
(define (HMAC-SHA1 key data) (define (HMAC-SHA1 key data)
(HMAC-SHA1/raw key data)
; It returns the same pointer always ; It returns the same pointer always
(bytes-copy #;(bytes-copy
; A SHA1 is 20 bytes, including 0s ; A SHA1 is 20 bytes, including 0s
(make-sized-byte-string (HMAC-SHA1/raw key data) 20))) (make-sized-byte-string (HMAC-SHA1/raw key data) 20)))