{-# LANGUAGE OverloadedStrings #-}
module Crypto.PubKey.HashDescr
(
HashFunction
, HashDescr(..)
, hashDescrMD2
, hashDescrMD5
, hashDescrSHA1
, hashDescrSHA224
, hashDescrSHA256
, hashDescrSHA384
, hashDescrSHA512
, hashDescrRIPEMD160
) where
import Data.ByteString (ByteString)
import Data.Byteable (toBytes)
import qualified Data.ByteString as B
import Crypto.Hash
type HashFunction = ByteString -> ByteString
data HashDescr = HashDescr { HashDescr -> HashFunction
hashFunction :: HashFunction
, HashDescr -> HashFunction
digestToASN1 :: ByteString -> ByteString
}
hashDescrMD2 :: HashDescr
hashDescrMD2 :: HashDescr
hashDescrMD2 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest MD2 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest MD2 -> ByteString)
-> (ByteString -> Digest MD2) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest MD2
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest MD2)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x20\x30\x0c\x06\x08\x2a\x86\x48\x86\xf7\x0d\x02\x02\x05\x00\x04\x10"
}
hashDescrMD5 :: HashDescr
hashDescrMD5 :: HashDescr
hashDescrMD5 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest MD5 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest MD5 -> ByteString)
-> (ByteString -> Digest MD5) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest MD5
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest MD5)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x20\x30\x0c\x06\x08\x2a\x86\x48\x86\xf7\x0d\x02\x05\x05\x00\x04\x10"
}
hashDescrSHA1 :: HashDescr
hashDescrSHA1 :: HashDescr
hashDescrSHA1 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest SHA1 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest SHA1 -> ByteString)
-> (ByteString -> Digest SHA1) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest SHA1
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest SHA1)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x21\x30\x09\x06\x05\x2b\x0e\x03\x02\x1a\x05\x00\x04\x14"
}
hashDescrSHA224 :: HashDescr
hashDescrSHA224 :: HashDescr
hashDescrSHA224 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest SHA224 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest SHA224 -> ByteString)
-> (ByteString -> Digest SHA224) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest SHA224
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest SHA224)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x2d\x30\x0d\x06\x09\x60\x86\x48\x01\x65\x03\x04\x02\x04\x05\x00\x04\x1c"
}
hashDescrSHA256 :: HashDescr
hashDescrSHA256 :: HashDescr
hashDescrSHA256 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest SHA256 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest SHA256 -> ByteString)
-> (ByteString -> Digest SHA256) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest SHA256
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest SHA256)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x31\x30\x0d\x06\x09\x60\x86\x48\x01\x65\x03\x04\x02\x01\x05\x00\x04\x20"
}
hashDescrSHA384 :: HashDescr
hashDescrSHA384 :: HashDescr
hashDescrSHA384 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest SHA384 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest SHA384 -> ByteString)
-> (ByteString -> Digest SHA384) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest SHA384
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest SHA384)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x41\x30\x0d\x06\x09\x60\x86\x48\x01\x65\x03\x04\x02\x02\x05\x00\x04\x30"
}
hashDescrSHA512 :: HashDescr
hashDescrSHA512 :: HashDescr
hashDescrSHA512 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest SHA512 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest SHA512 -> ByteString)
-> (ByteString -> Digest SHA512) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest SHA512
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest SHA512)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x51\x30\x0d\x06\x09\x60\x86\x48\x01\x65\x03\x04\x02\x03\x05\x00\x04\x40"
}
hashDescrRIPEMD160 :: HashDescr
hashDescrRIPEMD160 :: HashDescr
hashDescrRIPEMD160 =
HashDescr :: HashFunction -> HashFunction -> HashDescr
HashDescr { hashFunction :: HashFunction
hashFunction = Digest RIPEMD160 -> ByteString
forall a. Byteable a => a -> ByteString
toBytes (Digest RIPEMD160 -> ByteString)
-> (ByteString -> Digest RIPEMD160) -> HashFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString -> Digest RIPEMD160
forall a. HashAlgorithm a => ByteString -> Digest a
hash :: ByteString -> Digest RIPEMD160)
, digestToASN1 :: HashFunction
digestToASN1 = ByteString -> HashFunction
toHashWithInfo "\x30\x21\x30\x09\x06\x05\x2b\x24\x03\x02\x01\x05\x00\x04\x14"
}
toHashWithInfo :: ByteString -> ByteString -> ByteString
toHashWithInfo :: ByteString -> HashFunction
toHashWithInfo pre :: ByteString
pre digest :: ByteString
digest = ByteString
pre ByteString -> HashFunction
`B.append` ByteString
digest