ripemd160

commit dd90925d5ed246f29a299f2f2b6f47b04342358c
parent a893f31446b2e0fcd3e3f21ca7ba3d6f5eecd410
Author: Jared Tobin <jared@jtobin.io>
Date:   Tue, 12 Nov 2024 12:17:36 +0400

lib: fix outlen

Diffstat:
M
lib/Crypto/Hash/RIPEMD160.hs
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/Crypto/Hash/RIPEMD160.hs b/lib/Crypto/Hash/RIPEMD160.hs
@@ -442,7 +442,7 @@ data KeyAndLen = KeyAndLen
 --
 --   The 160-bit MAC is returned as a strict bytestring.
 --
---   Per RFC 2104, the key /should/ be a minimum of 32 bytes long. Keys
+--   Per RFC 2104, the key /should/ be a minimum of 20 bytes long. Keys
 --   exceeding 64 bytes in length will first be hashed (via RIPEMD-160).
 --
 --   >>> hmac "strict bytestring key" "strict bytestring input"
@@ -463,7 +463,7 @@ hmac mk text =
     !(KeyAndLen k lk) =
       let l = BS.length mk
       in  if   l > 64
-          then KeyAndLen (hash mk) 32
+          then KeyAndLen (hash mk) 20
           else KeyAndLen mk l
 
 -- | Produce a message authentication code for a lazy bytestring, based
@@ -471,7 +471,7 @@ hmac mk text =
 --
 --   The 160-bit MAC is returned as a strict bytestring.
 --
---   Per RFC 2104, the key /should/ be a minimum of 32 bytes long. Keys
+--   Per RFC 2104, the key /should/ be a minimum of 20 bytes long. Keys
 --   exceeding 64 bytes in length will first be hashed (via RIPEMD-160).
 --
 --   >>> hmac_lazy "strict bytestring key" "lazy bytestring input"
@@ -492,6 +492,6 @@ hmac_lazy mk text =
     !(KeyAndLen k lk) =
       let l = BS.length mk
       in  if   l > 64
-          then KeyAndLen (hash mk) 32
+          then KeyAndLen (hash mk) 20
           else KeyAndLen mk l