package mirage-crypto-rng

  1. Overview
  2. Docs
A cryptographically secure PRNG

Install

Dune Dependency

Authors

Maintainers

Sources

mirage-crypto-1.2.0.tbz
sha256=09542bcd96c1d368ff9ba8853105f4c1781d8c94c2400df9f3ac0610ee07e67e
sha512=1b31c9df0ce774c87a36f714db4ea1f295bc1e2e317d30497523ec03564cace0f64ac4c535aa83c82792aa3331a92efe774e4c3300a6ffe09110ce0efc2ce24b

doc/src/mirage-crypto-rng.unix/urandom.ml.html

Source file urandom.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

type g = In_channel.t * Mutex.t

(* The OCaml runtime always reads at least IO_BUFFER_SIZE from an input channel, which is currently 64 KiB *)
let block = 65536

let create ?time:_ () =
  let ic = In_channel.open_bin "/dev/urandom"
  and mutex = Mutex.create ()
  in
  at_exit (fun () -> In_channel.close ic);
  (ic, mutex)

let generate_into ~g:(ic, m) buf ~off len =
  let finally () = Mutex.unlock m in
  Mutex.lock m;
  Fun.protect ~finally (fun () ->
      match In_channel.really_input ic buf off len with
      | None -> failwith "couldn't read enough bytes from /dev/urandom"
      | Some () -> ())

let reseed ~g:_ _data = ()

let accumulate ~g:_ _source =
  `Acc (fun _data -> ())

let seeded ~g:_ = true

let pools = 0
OCaml

Innovation. Community. Security.