sig
class type tls_channel =
object
method close_in : unit -> unit
method close_out : unit -> unit
method flush : unit -> unit
method input : string -> int -> int -> int
method output : string -> int -> int -> int
method pos_in : int
method pos_out : int
method tls_endpoint : Netsys_crypto_types.tls_endpoint
end
class tls_layer :
?start_pos_in:int ->
?start_pos_out:int ->
?resume:string ->
role:[ `Client | `Server ] ->
rd:Netchannels.raw_in_channel ->
wr:Netchannels.raw_out_channel ->
peer_name:string option -> Netsys_crypto_types.tls_config -> tls_channel
class tls_endpoint :
?start_pos_in:int ->
?start_pos_out:int ->
?resume:string ->
role:[ `Client | `Server ] ->
peer_name:string option ->
Unix.file_descr -> Netsys_crypto_types.tls_config -> tls_channel
class type crypto_out_filter =
object
method close_out : unit -> unit
method flush : unit -> unit
method mac : unit -> string
method output : string -> int -> int -> int
method output_buffer : Buffer.t -> unit
method output_byte : int -> unit
method output_channel : ?len:int -> Netchannels.in_obj_channel -> unit
method output_char : char -> unit
method output_string : string -> unit
method pos_out : int
method really_output : string -> int -> int -> unit
method supports_aead : bool
end
class type crypto_in_filter =
object
method close_in : unit -> unit
method input : string -> int -> int -> int
method input_byte : unit -> int
method input_char : unit -> char
method input_line : unit -> string
method mac : unit -> string
method pos_in : int
method really_input : string -> int -> int -> unit
method supports_aead : bool
end
val encrypt_out :
Netsys_ciphers.cipher_ctx ->
Netchannels.out_obj_channel -> Netchannels_crypto.crypto_out_filter
val encrypt_in :
Netsys_ciphers.cipher_ctx ->
Netchannels.in_obj_channel -> Netchannels_crypto.crypto_in_filter
val decrypt_out :
Netsys_ciphers.cipher_ctx ->
Netchannels.out_obj_channel -> Netchannels_crypto.crypto_out_filter
val decrypt_in :
Netsys_ciphers.cipher_ctx ->
Netchannels.in_obj_channel -> Netchannels_crypto.crypto_in_filter
end
