1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17

module List = Core.List

let hash data = Cstruct.of_hex @@ Hashing.hash data

let xor = Nocrypto.Uncommon.Cs.xor

let xor_list = List.reduce_exn ~f:xor

let id () =
  let timestamp = hash @@ string_of_float @@ Unix.gettimeofday () in
  let pid = hash @@ string_of_int @@ Unix.getpid () in
  let hostname = hash @@ Unix.gethostname () in
  let cwd = hash @@ Unix.getcwd () in
  let context =
    Cstruct.to_string @@ xor_list [ timestamp; pid; hostname; cwd ]
  in
  Encoding.encode @@ Hashing.raw_hash context