sig
class type digest_ctx =
object
method add_memory : Netsys_types.memory -> unit
method add_substring : string -> int -> int -> unit
method finish : unit -> string
end
class type digest =
object
method block_length : int
method create : unit -> Netsys_digests.digest_ctx
method name : string
method size : int
end
val digests :
?impl:(module Netsys_crypto_types.DIGESTS) ->
unit -> Netsys_digests.digest list
val find :
?impl:(module Netsys_crypto_types.DIGESTS) ->
string -> Netsys_digests.digest
val digest_string : Netsys_digests.digest -> string -> string
val digest_mstrings :
Netsys_digests.digest -> Netsys_types.mstring list -> string
val hmac : Netsys_digests.digest -> string -> Netsys_digests.digest
end
