| /dports/devel/stack/stack-2.7.3/_cabal_deps/cryptonite-0.29/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer function
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/net-im/matterhorn/matterhorn-50200.13.0/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer constructor
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/finance/hs-hledger-web/hledger-web-1.19/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/devel/hs-spago/spago-0.20.3/_cabal_deps/cryptonite-0.28/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/devel/hs-hpack/hpack-0.34.4/_cabal_deps/cryptonite-0.26/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer function
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/devel/hs-hoogle/hoogle-5.0.18.2/_cabal_deps/cryptonite-0.26/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer function
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/lang/elm/compiler-0.19.1/_cabal_deps/cryptonite-0.26/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/www/hs-wai-app-static/wai-app-static-3.1.7.2/_cabal_deps/cryptonite-0.28/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| H A D | ElGamal.hs | 18 , PrivateNumber
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
[all …]
|
| /dports/www/hs-yesod-bin/yesod-bin-1.6.1/_cabal_deps/cryptonite-0.28/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer constructor
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/www/hs-postgrest/postgrest-8.0.0/_cabal_deps/cryptonite-0.29/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/devel/hs-git-annex/git-annex-8.20210903/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer function
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/devel/hs-darcs/darcs-2.16.4/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer constructor
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/lang/purescript/purescript-0.14.5/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer constructor
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/textproc/hs-pandoc-crossref/pandoc-crossref-0.3.12.0/_cabal_deps/cryptonite-0.28/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/x11/hs-xmobar/xmobar-0.39/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer function
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/textproc/hs-pandoc/pandoc-2.14.2/_cabal_deps/cryptonite-0.29/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|
| /dports/www/hs-DAV/DAV-1.3.4/_cabal_deps/cryptonite-0.27/Crypto/PubKey/ |
| H A D | DH.hs | 13 , PrivateNumber(..)
46 newtype PrivateNumber = PrivateNumber Integer type
64 generatePrivate :: MonadRandom m => Params -> m PrivateNumber
65 generatePrivate (Params p _ _) = PrivateNumber <$> generateMax p
69 calculatePublic :: Params -> PrivateNumber -> PublicNumber
70 calculatePublic (Params p g _) (PrivateNumber x) = PublicNumber $ expSafe g x p
76 generatePublic :: Params -> PrivateNumber -> PublicNumber
81 getShared :: Params -> PrivateNumber -> PublicNumber -> SharedKey
82 getShared (Params p _ bits) (PrivateNumber x) (PublicNumber y) = SharedKey $ i2ospOf_ ((bits + 7) `…
|