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

pr 10236, okay for release

Browse Source 
svn: r14883
This commit is contained in:
Jay McCarthy 2009-05-20 14:20:53 +00:00
parent dbc7baf587
commit 5caffa296a
1 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,23 +12,27 @@
(unsafe!)
(define libcrypto
(ffi-lib libcrypto-so '("" "0.9.8b" "0.9.8" "0.9.7")))
(with-handlers ([exn:fail? (lambda (x) #f)])
(ffi-lib libcrypto-so '("" "0.9.8b" "0.9.8" "0.9.7"))))
(define EVP_SHA1
(get-ffi-obj 'EVP_sha1 libcrypto
(_fun f-> _fpointer)))
(and libcrypto
(get-ffi-obj 'EVP_sha1 libcrypto
(_fun f-> _fpointer))))
(define HMAC-SHA1/raw
(get-ffi-obj 'HMAC libcrypto
(_fun [EVP_MD : _fpointer = (EVP_SHA1)]
[key : _bytes]
[key_len : _int = (bytes-length key)]
[data : _bytes]
[data_len : _int = (bytes-length data)]
[md : _int = 0]
[md_len : _int = 0]
f->
_pointer)))
(if libcrypto
(get-ffi-obj 'HMAC libcrypto
(_fun [EVP_MD : _fpointer = (EVP_SHA1)]
[key : _bytes]
[key_len : _int = (bytes-length key)]
[data : _bytes]
[data_len : _int = (bytes-length data)]
[md : _int = 0]
[md_len : _int = 0]
f->
_pointer))
(lambda (key data) (error 'HMAC-SHA1/raw "libcrypto could not load"))))
(define (HMAC-SHA1 key data)
; It returns the same pointer always