Crypto Multihash

Multihash library implemented on top of cryptonite cryptographic library. Multihash is a protocol for encoding the hash algorithm and digest length at the start of the digest, see the official multihash github page.

This library is still experimental and the api is not guaranteed stable. I will increment the version number appropriately in case of breaking changes.

For the moment the library implements all the expected hashing algorithms with the exception of shake-128 and shake-256. A Multihash can be encoded in hex (Base16), bitcoin base58 (Base58) and base64 (Base64).

The Base32 encoding is not yet supported due to discrepancy between the encoding from Data.ByteArray.Encoding and the one appearing in the official multihash page.

Usage

{-# LANGUAGE OverloadedStrings #-}

import Crypto.Multihash
import Data.ByteString (ByteString)

main = do
    let m = multihash SHA256 ("test"::ByteString)
    putStrLn $ "Base16: " ++ (encode Base16 m)
    putStrLn $ "Base58: " ++ (encode Base58 m)
    putStrLn $ "Base64: " ++ (encode Base64 m)

Test

Some preliminary tests can be performed with stack test. A simple example encoder is in app/Main.hs. You can run it on files (e.g. echo -n test | stack exec mh -- somefile someotherfile) or read data from the standard input (e.g. echo -n test | stack exec mh -- -)

TODO

• Implement hash checker that takes some data and an encoded multihash and check that the multihash corresponds to the data (inferring automatically the appropriate hash function)
• Evaluate if throwing an error in the encode function is the wanted behaviour and anyway implement a safe version returning an Either type
• Implement shake-128 and shake-256 multihashes
• Implement Base32 encoding