Crypto (tls.tls.Tls.Crypto)

val dh_params_pack : Mirage_crypto_pk.Dh.group -> string -> Core.dh_parameters

val dh_params_unpack : 
  Core.dh_parameters ->
  (Mirage_crypto_pk.Dh.group * string, [> `Msg of string ]) result

module Ciphers : sig ... end

val sequence_buf : int64 -> string

val aead_nonce : String.t -> int64 -> string

val adata_1_3 : int -> string

val pseudo_header : 
  int64 ->
  Packet.content_type ->
  (int * int) ->
  int ->
  string

val mac : Digestif.hash' -> string -> String.t -> String.t -> string

val cbc_block : (module Mirage_crypto.Block.CBC with type key = 'a) -> int

val cbc_pad : int -> String.t -> string

val cbc_unpad : String.t -> string option

val tag_len : (module Mirage_crypto.AEAD with type key = 'a) -> int

val encrypt_aead : 
  cipher:(module Mirage_crypto.AEAD with type key = 'a) ->
  key:'a ->
  nonce:string ->
  ?adata:string ->
  string ->
  string

val decrypt_aead : 
  cipher:(module Mirage_crypto.AEAD with type key = 'a) ->
  key:'a ->
  nonce:string ->
  ?adata:string ->
  string ->
  string option

val encrypt_cbc : 
  cipher:(module Mirage_crypto.Block.CBC with type key = 'a) ->
  key:'a ->
  iv:string ->
  String.t ->
  string * string

val decrypt_cbc : 
  cipher:(module Mirage_crypto.Block.CBC with type key = 'a) ->
  key:'a ->
  iv:string ->
  string ->
  (string * string) option