summaryrefslogtreecommitdiff
path: root/hmac.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'hmac.rkt')
-rw-r--r--hmac.rkt7
1 files changed, 7 insertions, 0 deletions
diff --git a/hmac.rkt b/hmac.rkt
index b618537..3a23119 100644
--- a/hmac.rkt
+++ b/hmac.rkt
@@ -31,6 +31,13 @@
;;
;; (hmac whirlpool 64 64 #"<secret key>" #"hello")
;;
+(: hmac ((Bytes -> Exact-Nonnegative-Integer)
+ Exact-Nonnegative-Integer
+ Exact-Nonnegative-Integer
+ Bytes
+ Bytes
+ ->
+ Exact-Nonnegative-Integer))
(define (hmac hashfn blocksize hashsize key msg)
(let ([opad (make-bytes blocksize #x5c)]
[ipad (make-bytes blocksize #x36)]