Cryptodbm_internals.KindsSourcetype key_kind = private {key_loc : location;key_how : (Cipher.passwd * Cipher.passwd * int) howstored;cryptf : hidden;}val get_key_info :
Cipher.passwd ->
subt_pas:(int -> Cipher.passwd) ->
encoded_key ->
(key_kind * string option) option