package mirage-crypto-rng
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
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>