From d1fae02b7b960c8f1382e919afe1056d4fdb447d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 16 Aug 2011 00:47:59 +0200
Subject: HMAC: Fix key padding.

---
 hmac.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'hmac.rkt')

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)))))
-- 
cgit v1.2.3