SHA-1 prototype (oldHaskell) » History » Revision 2
Revision 1 (Greg Burri, 03/25/2009 11:46 AM) → Revision 2/6 (Greg Burri, 03/25/2009 11:46 AM)
h1. SHA-1 prototype h2. Goals * Compute the SHA-1 of each part of a given file. * Compute the SHA-1 for a given part of a given file. * Compute the SHA-1 of a stream. h2. Speed measures file *file* : @01.wmv@ 01.wmv : 17'639'245 byte ~ 17Mo h3. sha1sum from GNU coreutils (Reference) speed : 173 MB/s <pre> <gburri@overnux:~/code/lang/haskell/SHA1$> time sha1sum < 01.wmv 3aec84601612e8c604ac01971e0ecd9d536dbead - real 0m0.098s user 0m0.092s sys 0m0.004s </pre> h3. "SHA 1.2.0":http://hackage.haskell.org/cgi-bin/hackage-scripts/package/SHA-1.2.0 file : _Hash.hs_ speed : 18 times slower (13 MB/s) <pre> <gburri@overnux:~/code/lang/haskell/SHA1$> ghc --make -O2 Hash.hs -o hash && time ./hash 01.wmv [0 - 3aec84601612e8c604ac01971e0ecd9d536dbead] real 0m1.244s user 0m1.212s sys 0m0.036s$ </pre> h3. "Crypto 4.2.0":http://hackage.haskell.org/cgi-bin/hackage-scripts/package/Crypto-4.2.0 file : _Hash2.hs_ speed : 267 times slower (1 MB/s) : <pre> <gburri@overnux:~/code/lang/haskell/SHA1$> ghc --make -O2 Hash2.hs -o hash2 && time ./hash2 01.wmv [0 - Word160 988578912 370337990 78381463 504286621 1399701165] real 0m17.078s user 0m16.921s sys 0m0.072s </pre> h3. Binding with sha1.h from coreutils file : _Hash3.hs_ TODO...