diff options
Diffstat (limited to 'whirlpool.rkt')
-rw-r--r-- | whirlpool.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
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 |