From 34a9c6bef7db450e0d8ea58dbc04740e3b261b12 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 16 Aug 2011 00:33:19 +0200 Subject: Implement HMAC. --- whirlpool.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'whirlpool.rkt') diff --git a/whirlpool.rkt b/whirlpool.rkt index d57cf51..5d436aa 100644 --- a/whirlpool.rkt +++ b/whirlpool.rkt @@ -207,7 +207,7 @@ (let ([b (integer->bytes n)]) (bytes-append (make-bytes (- 32 (bytes-length b)) 0) b))) -(define: (pad-bytes [b : Bytes]) : Bytes +(define: (pad-whirlpool-bytes [b : Bytes]) : Bytes (let* ([missingno (modulo (- 32 (remainder (bytes-length b) 64)) 64)] [padding (cons #x80 (make-list (sub1 missingno) 0))] @@ -215,7 +215,7 @@ (bytes-append b (list->bytes padding) len))) (define: (bytes->message [b : Bytes]) : (Listof Matrix) - (let: ([pb : Bytes (pad-bytes b)]) + (let: ([pb : Bytes (pad-whirlpool-bytes b)]) (reverse (for/fold: ([acc : (Listof Matrix) (list)]) ([i : Exact-Nonnegative-Integer -- cgit v1.2.3