SHA-1 prototype¶

Goals¶

• Compute the SHA-1 of each part of a given file.
• Compute the SHA-1 of a stream.

Speed measures¶

file : 01.wmv : 17'639'245 byte ~ 17Mo (buffered)

sha1sum from GNU coreutils (Reference)¶

speed : 57 MB/s

<gburri@overnux:~/code/lang/haskell/SHA1$> time sha1sum < 01.wmv
3aec84601612e8c604ac01971e0ecd9d536dbead  -

real    0m0.301s
user    0m0.276s
sys     0m0.020s

SHA 1.2.0¶

file : Hash.hs
speed : 4 times slower (14 MB/s)

<gburri@overnux:~/code/lang/haskell/SHA1$> ghc --make -O2 Hash.hs -o hash && time ./hash 01.wmv
[0 - 3aec84601612e8c604ac01971e0ecd9d536dbead]

real    0m1.214s
user    0m1.200s
sys     0m0.012s$

Crypto 4.2.0¶

file : Hash2.hs
speed : 267 times slower (1 MB/s) :

<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    0m7.628s
user    0m7.576s
sys     0m0.028s

Binding with sha1.h from coreutils¶

file : Hash3.hs

TODO...