yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

create a sendClientKeyXchg

Browse source
This commit is contained in:
Vincent Hanquez 2011-06-12 21:55:22 +01:00
parent 02f77a1225
commit 1b8474d388
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Network/TLS/Core.hs
View file

@ -255,9 +255,7 @@ handshakeClient ctx = do
certRequested <- return False certRequested <- return False
when certRequested (sendPacket ctx $ Handshake [Certificates clientCerts]) when certRequested (sendPacket ctx $ Handshake [Certificates clientCerts])
-- Send ClientKeyXchg sendClientKeyXchg
prerand <- getStateRNG ctx 46 >>= return . ClientKeyData
sendPacket ctx $ Handshake [ClientKeyXchg ver prerand]
{- maybe send certificateVerify -} {- maybe send certificateVerify -}
{- FIXME not implemented yet -} {- FIXME not implemented yet -}
@ -308,6 +306,9 @@ handshakeClient ctx = do
--modify (\sc -> sc { scCertRequested = True }) --modify (\sc -> sc { scCertRequested = True })
processHandshake _ = return () processHandshake _ = return ()
sendClientKeyXchg = do
prerand <- getStateRNG ctx 46 >>= return . ClientKeyData
sendPacket ctx $ Handshake [ClientKeyXchg ver prerand]
-- on certificate reject, throw an exception with the proper protocol alert error. -- on certificate reject, throw an exception with the proper protocol alert error.
certificateRejected CertificateRejectRevoked = certificateRejected CertificateRejectRevoked =