Module Tls.Handshake_crypto13
val cdiv : int -> int -> int
val not_all_zero :
(string, [> `Fatal of [> `Handshake of [> `BadDH of string ] ] ] as 'a)
result ->
(string, 'a) result
val trace : string -> string -> unit
val pp_hash_k_n :
[< `AES_128_CCM_SHA256
| `AES_128_GCM_SHA256
| `AES_256_GCM_SHA384
| `CHACHA20_POLY1305_SHA256 ] ->
Ciphersuite.aead_cipher * [> `SHA256 | `SHA384 ] * int * int
val hkdflabel : string -> string -> int -> string
val derive_secret_no_hash :
Digestif.hash' ->
string ->
?length:int ->
?ctx:string ->
string ->
string
val traffic_key :
[< `AES_128_CCM_SHA256
| `AES_128_GCM_SHA256
| `AES_256_GCM_SHA384
| `CHACHA20_POLY1305_SHA256 ] ->
string ->
string * string