diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-08-16 15:14:52 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-08-16 15:14:52 +0200 |
commit | 93515cf43ce16974c7bef1d1d8332e3c8cfe6fac (patch) | |
tree | 84af96f2c50a933d94857d1563186c8bd66dadb7 /whirlpool.rkt | |
parent | 594c161d6e84581fb89873e216a70bd68a750919 (diff) |
Implement the Salsa20 stream cipher.
Diffstat (limited to 'whirlpool.rkt')
-rw-r--r-- | whirlpool.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/whirlpool.rkt b/whirlpool.rkt index 5d436aa..222f9df 100644 --- a/whirlpool.rkt +++ b/whirlpool.rkt @@ -204,7 +204,7 @@ (+ (arithmetic-shift acc 8) byte))) (define: (length->bytes [n : Exact-Nonnegative-Integer]) : Bytes - (let ([b (integer->bytes n)]) + (let ([b (integer->bytes n 'big-endian)]) (bytes-append (make-bytes (- 32 (bytes-length b)) 0) b))) (define: (pad-whirlpool-bytes [b : Bytes]) : Bytes |