CAMLprim value caml_bitvect_test(value bv, value n)
{
  intnat pos = Long_val(n);
  return Val_int(Byte_u(bv, pos >> 3) & (1 << (pos & 7)));
}
The product exposes sensitive information to an actor that is not explicitly authorized to have access to that information.