summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-08-16 00:47:59 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-08-16 00:47:59 +0200
commitd1fae02b7b960c8f1382e919afe1056d4fdb447d (patch)
tree961d508292f895d4d4d8d6ea27d320d6e4e361fd
parentbc645dba59b2624a0d329d19eb7e03247ab44b4a (diff)
HMAC: Fix key padding.
-rw-r--r--hmac.rkt4
1 files changed, 2 insertions, 2 deletions
diff --git a/hmac.rkt b/hmac.rkt
index 9ffa453..297b126 100644
--- a/hmac.rkt
+++ b/hmac.rkt
@@ -43,14 +43,14 @@
'left)])
(hashfn (bytes-append (integer->bytes/size
(bitwise-xor (bytes->integer opad)
- (bytes->integer key))
+ (bytes->integer padded-key))
blocksize)
(integer->bytes/size
(hashfn
(bytes-append
(integer->bytes/size
(bitwise-xor (bytes->integer ipad)
- (bytes->integer key))
+ (bytes->integer padded-key))
blocksize)
msg))
hashsize)))))