diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-08-16 00:47:59 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-08-16 00:47:59 +0200 |
commit | d1fae02b7b960c8f1382e919afe1056d4fdb447d (patch) | |
tree | 961d508292f895d4d4d8d6ea27d320d6e4e361fd | |
parent | bc645dba59b2624a0d329d19eb7e03247ab44b4a (diff) |
HMAC: Fix key padding.
-rw-r--r-- | hmac.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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))))) |