summaryrefslogtreecommitdiff
path: root/whirlpool.rkt
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-08-16 15:14:52 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-08-16 15:14:52 +0200
commit93515cf43ce16974c7bef1d1d8332e3c8cfe6fac (patch)
tree84af96f2c50a933d94857d1563186c8bd66dadb7 /whirlpool.rkt
parent594c161d6e84581fb89873e216a70bd68a750919 (diff)
Implement the Salsa20 stream cipher.
Diffstat (limited to 'whirlpool.rkt')
-rw-r--r--whirlpool.rkt2
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