awa
Awa.Auth
type user = {
name : string;
password : string option;
keys : Hostkey.pub list;
}
type db = user list
type state =
| Preauth
| Inprogress of string * string * int
| Done
val make_user : string -> ?password:string -> Hostkey.pub list -> user
val lookup_user : string -> user list -> user option
val lookup_key : user -> Hostkey.pub -> Hostkey.pub option
val lookup_user_key : string -> Hostkey.pub -> user list -> Hostkey.pub option
val by_password : string -> string -> user list -> bool
val to_hash : string -> Hostkey.alg -> Hostkey.pub -> Cstruct.t -> string -> Cstruct.t
val sign : string -> Hostkey.alg -> Hostkey.priv -> Cstruct.t -> string -> Cstruct.t
val by_pubkey : string -> Hostkey.alg -> Hostkey.pub -> Cstruct.t -> string -> Cstruct.t -> user list -> bool