Haskell中的SHA1编码

>应该使用哪些包？为什么？

>方法的一致性如何？我的意思是：如果使用sha1编码自身的不同程序可能会有不同的结果(例如sha1sum)

软件包可能是最简单的使用方法.只需将您的输入读入lazy1 ByteString并使用hashlazy函数获取带有结果哈希的ByteString.这是一个小样本程序,您可以使用它来比较输出和sha1sum的输出.

import Crypto.Hash.SHA1 (hashlazy)
import qualified Data.ByteString as Strict
import qualified Data.ByteString.Lazy as Lazy
import System.Process (system)
import Text.Printf (printf)

hashFile :: FilePath -> IO Strict.ByteString
hashFile = fmap hashlazy . Lazy.readFile 

toHex :: Strict.ByteString -> String
toHex bytes = Strict.unpack bytes >>= printf "%02x"

test :: FilePath -> IO ()
test path = do
  hashFile path >>= putStrLn . toHex
  system $"sha1sum " ++ path
  return ()

因为它读取普通字节而不是字符,所以应该没有编码问题,它应该总是给出与sha1sum相同的结果：

> test "/usr/share/dict/words"
d6e483cb67d6de3b8cfe8f4952eb55453bb99116
d6e483cb67d6de3b8cfe8f4952eb55453bb99116  /usr/share/dict/words

这也适用于cryptohash包支持的任何哈希.只需将导入更改为例如Crypto.Hash.SHA256使用不同的哈希.

1使用lazy ByteStrings可以避免一次将整个文件加载到内存中,这在处理大文件时很重要.