TLS/Crypto/IES.hs

56                  | GroupPub_FFDHE2048 PublicNumber
57                  | GroupPub_FFDHE3072 PublicNumber
58                  | GroupPub_FFDHE4096 PublicNumber
59                  | GroupPub_FFDHE6144 PublicNumber
60                  | GroupPub_FFDHE8192 PublicNumber
105 dhGroupGenerateKeyPair :: MonadRandom r => Group -> r (Params, PrivateNumber, PublicNumber)
130     -> (PublicNumber -> GroupPublic)
137      -> r (PrivateNumber, PublicNumber)
157 dhGroupGetPubShared :: MonadRandom r => Group -> PublicNumber -> r (Maybe (PublicNumber, SharedKey))
168              -> PublicNumber
169              -> (PublicNumber -> GroupPublic)
181               -> PublicNumber
182               -> r (Maybe (PublicNumber, SharedKey))
203 calcShared :: Params -> PublicNumber -> PrivateNumber -> Maybe SharedSecret
222 enc :: Params -> PublicNumber -> ByteString
223 enc params (PublicNumber p) = i2ospOf_ ((params_bits params + 7) `div` 8) p
231 decodeGroupPublic FFDHE2048 bs = Right . GroupPub_FFDHE2048 . PublicNumber $ os2ip bs
232 decodeGroupPublic FFDHE3072 bs = Right . GroupPub_FFDHE3072 . PublicNumber $ os2ip bs
233 decodeGroupPublic FFDHE4096 bs = Right . GroupPub_FFDHE4096 . PublicNumber $ os2ip bs
234 decodeGroupPublic FFDHE6144 bs = Right . GroupPub_FFDHE6144 . PublicNumber $ os2ip bs
235 decodeGroupPublic FFDHE8192 bs = Right . GroupPub_FFDHE8192 . PublicNumber $ os2ip bs
239 valid :: Params -> PublicNumber -> Bool
240 valid (Params p _ _) (PublicNumber y) = 1 < y && y < p - 1