package awa

  1. Overview
  2. Docs
type user = {
  1. name : string;
  2. password : string option;
  3. keys : Hostkey.pub list;
}
type db = user list
type state =
  1. | Preauth
  2. | Inprogress of string * string * int
  3. | 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