remove old code
This commit is contained in:
parent
6a0578ad0c
commit
c997045372
1 changed files with 0 additions and 16 deletions
|
@ -132,27 +132,11 @@ handshakeSendServerData handle = do
|
||||||
case map snd $ pCertificates sp of
|
case map snd $ pCertificates sp of
|
||||||
(Just privkey : _) -> usingState_ $ setPrivateKey privkey
|
(Just privkey : _) -> usingState_ $ setPrivateKey privkey
|
||||||
_ -> return () -- return a sensible error
|
_ -> return () -- return a sensible error
|
||||||
--let srvcert = Certificates [ cert ]
|
|
||||||
|
|
||||||
|
|
||||||
-- in TLS12, we need to check as well the certificates we are sending if they have in the extension
|
-- in TLS12, we need to check as well the certificates we are sending if they have in the extension
|
||||||
-- the necessary bits set.
|
-- the necessary bits set.
|
||||||
let needkeyxchg = cipherExchangeNeedMoreData $ cipherKeyExchange cipher
|
let needkeyxchg = cipherExchangeNeedMoreData $ cipherKeyExchange cipher
|
||||||
|
|
||||||
{-
|
|
||||||
let privkey = PrivRSA $ RSA.PrivateKey
|
|
||||||
{ RSA.private_sz = fromIntegral $ KeyRSA.lenmodulus privkeycert
|
|
||||||
, RSA.private_n = KeyRSA.modulus privkeycert
|
|
||||||
, RSA.private_d = KeyRSA.private_exponant privkeycert
|
|
||||||
, RSA.private_p = KeyRSA.p1 privkeycert
|
|
||||||
, RSA.private_q = KeyRSA.p2 privkeycert
|
|
||||||
, RSA.private_dP = KeyRSA.exp1 privkeycert
|
|
||||||
, RSA.private_dQ = KeyRSA.exp2 privkeycert
|
|
||||||
, RSA.private_qinv = KeyRSA.coef privkeycert
|
|
||||||
}
|
|
||||||
setPrivateKey privkey
|
|
||||||
-}
|
|
||||||
|
|
||||||
sendPacket handle (Handshake srvhello)
|
sendPacket handle (Handshake srvhello)
|
||||||
sendPacket handle (Handshake srvCerts)
|
sendPacket handle (Handshake srvCerts)
|
||||||
when needkeyxchg $ do
|
when needkeyxchg $ do
|
||||||
|
|
Loading…
Reference in a new issue