package pkcs11

  1. Overview
  2. Docs
Bindings to the PKCS#11 cryptographic API

Install 

dune-project
 Dependency

github.com Readme Changelog BSD-2-Clause License Edit opam file Versions (13)

Authors

  1. E
    Etienne Millon <etienne@cryptosense.com>

Maintainers

  1. E
    Etienne Millon <etienne@cryptosense.com>

Sources

pkcs11-0.9.0.tbz
sha256=0a1dc5fb54d3febbb0024b6fe9bb393f25e4ce6aadbc65fcc114345c5ca3982a
md5=c1a9bd7ed535e9fb31f2e6014567c9af

doc/src/pkcs11/p11_mechanism_info.ml.html

Source file p11_mechanism_info.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
type t =
  { ulMinKeySize : P11_ulong.t
  ; ulMaxKeySize : P11_ulong.t
  ; flags : P11_flags.t
  }
[@@deriving of_yojson]

let allowed_flags =
  let flags = P11_flags.(flags_of_domain Mechanism_info_domain) in
  let flags = List.map fst flags in
  List.fold_left P11_flags.logical_or P11_flags.empty flags

let flags_to_string = P11_flags.(to_pretty_string Mechanism_info_domain)

let flags_to_strings = P11_flags.(to_pretty_strings Mechanism_info_domain)

let to_strings info =
  [ "Minimum Key Size", Unsigned.ULong.to_string info.ulMinKeySize
  ; "Maximum Key Size", Unsigned.ULong.to_string info.ulMaxKeySize
  ; "Flags", flags_to_string info.flags
  ]

let to_string ?newlines ?indent info =
  P11_helpers.string_of_record ?newlines ?indent (to_strings info)

let to_strings info = to_strings info |> P11_helpers.strings_of_record

let to_yojson info =
  `Assoc
    [ "ulMinKeySize", `String (info.ulMinKeySize |> Unsigned.ULong.to_string)
    ; "ulMaxKeySize", `String (info.ulMaxKeySize |> Unsigned.ULong.to_string)
    ; "flags", P11_flags.to_json ~pretty:flags_to_string info.flags
    ]