Lines Matching refs:PrivateNumber
18 , PrivateNumber
44 import Crypto.PubKey.DH (PrivateNumber(..), PublicNumber(..), Params(..), SharedKey(..))
58 generatePrivate :: MonadRandom m => Integer -> m PrivateNumber
59 generatePrivate q = PrivateNumber <$> generateMax q
66 where toEphemeral (PrivateNumber n) = EphemeralKey n
70 generatePublic :: Params -> PrivateNumber -> PublicNumber
71 generatePublic (Params p g _) (PrivateNumber a) = PublicNumber $ expSafe g a p
88 decrypt :: Params -> PrivateNumber -> (Integer, Integer) -> Integer
89 decrypt (Params p _ _) (PrivateNumber a) (c1,c2) = (c2 * sm1) `mod` p
103 -> PrivateNumber -- ^ DH private key
107 signWith k (Params p g _) (PrivateNumber x) hashAlg msg
124 -> PrivateNumber -- ^ DH private key