PKCS12 (tls-async.Tls_async.X509

type t = X509.PKCS12.t

val encode_der : t -> string

val create : 
  ?mac:[ `SHA1 | `SHA224 | `SHA256 | `SHA384 | `SHA512 ] ->
  ?algorithm:[ `AES128_CBC | `AES192_CBC | `AES256_CBC ] ->
  ?iterations:int ->
  string ->
  X509.Certificate.t list ->
  X509.Private_key.t ->
  t

val decode_der : contents:string -> t Core.Or_error.t

val verify : 
  string ->
  t ->
  [ `Certificate of Certificate.t
  | `Crl of CRL.t
  | `Decrypted_private_key of Private_key.t
  | `Private_key of Private_key.t ]
    list
    Core.Or_error.t