package ocamlnet

  1. Overview
  2. Docs
Legend:
Library
Module
Module type
Parameter
Class
Class type
type oid = Netoid.t
class type directory_name = object ... end
class type x509_certificate = object ... end
module DN_attributes : sig ... end
val lookup_dn_ava : directory_name -> oid -> Netasn1.Value.value
val lookup_dn_ava_utf8 : directory_name -> oid -> string
module CE : sig ... end
exception Extension_not_found of oid
val find_extension : oid -> (oid * string * bool) list -> string * bool
val check_critical_exts : oid list -> (oid * string * bool) list -> bool
type general_name = [
  1. | `DNS_name of string
  2. | `Directory_name of directory_name
  3. | `Edi_party_name of string option * string
  4. | `IP_address of Unix.socket_domain * Unix.inet_addr * Unix.inet_addr
  5. | `Other_name of oid * Netasn1.Value.value
  6. | `Registered_ID of oid
  7. | `Rfc822_name of string
  8. | `Uniform_resource_identifier of string
  9. | `X400_address of Netasn1.Value.value
]
type authority_key_identifier = {
  1. aki_key_identifier : string option;
  2. aki_authority_cert_issuer : general_name list;
  3. aki_authority_cert_serial_number : string option;
}
val parse_authority_key_identifier : string -> authority_key_identifier
val parse_subject_key_identifier : string -> string
type key_usage_flag = [
  1. | `Crl_sign
  2. | `Data_encipherment
  3. | `Decipher_only
  4. | `Digital_signature
  5. | `Encipher_only
  6. | `Key_agreement
  7. | `Key_cert_sign
  8. | `Key_encipherment
  9. | `Non_repudiation
]
val parse_key_usage : string -> key_usage_flag list
val parse_subject_alt_name : string -> general_name list
val parse_issuer_alt_name : string -> general_name list
val parse_subject_directory_attributes : string -> (oid * Netasn1.Value.value list) list
val parse_basic_constraints : string -> bool * int option
type ext_key_usage_flag = [
  1. | `Client_auth
  2. | `Code_signing
  3. | `Email_protection
  4. | `OCSP_signing
  5. | `Server_auth
  6. | `Time_stamping
  7. | `Unknown
]
val parse_ext_key_usage : string -> (oid * ext_key_usage_flag) list
module KP : sig ... end
type authority_access_description_flag = [
  1. | `CA_issuers
  2. | `OCSP
  3. | `Unknown
]
type subject_access_description_flag = [
  1. | `CA_repository
  2. | `Time_stamping
  3. | `Unknown
]
type access_description_flag = [
  1. | `CA_issuers
  2. | `CA_repository
  3. | `OCSP
  4. | `Time_stamping
  5. | `Unknown
]
val parse_authority_info_access : string -> (oid * authority_access_description_flag * general_name) list
val parse_subject_info_access : string -> (oid * subject_access_description_flag * general_name) list
module AD : sig ... end
val general_name_from_ASN1 : Netasn1.Value.value -> general_name
val general_names_from_ASN1 : Netasn1.Value.value -> general_name list
val directory_string_from_ASN1 : Netasn1.Value.value -> string
val attribute_from_ASN1 : Netasn1.Value.value -> oid * Netasn1.Value.value list
val attributes_from_ASN1 : Netasn1.Value.value -> (oid * Netasn1.Value.value list) list
OCaml

Innovation. Community. Security.