swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-12-07 07:26:34 +01:00
parent c0765bac8e
commit 72a4321b4e
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/b32.ml
View file

@ -23,4 +23,6 @@ let decode s =
| c -> c) | c -> c)
s s
in in
Base32.decode ~alphabet ~off:0 ~len:(String.length s) s match Base32.decode ~alphabet ~off:0 ~len:(String.length s) s with
| Error (`Msg e) -> Error e
| Ok v -> Ok v

9
src/crypto.ml
View file

@ -25,7 +25,10 @@ module EddsaPublicKey = struct
let of_b32 s = let of_b32 s =
let open Syntax in let open Syntax in
let* octets = B32.decode s in let* octets = B32.decode s in
let* pub = of_octets octets in let* pub =
of_octets octets
|> Result.map_error (fun e -> Fmt.str "%a" Mirage_crypto_ec.pp_error e)
in
Ok pub Ok pub
let to_b32 t = B32.encode (to_octets t) let to_b32 t = B32.encode (to_octets t)
@ -61,8 +64,6 @@ module EddsaSignature : sig
val sign : key:EddsaPrivateKey.t -> string -> t val sign : key:EddsaPrivateKey.t -> string -> t
val verify : key:EddsaPublicKey.t -> t -> msg:string -> bool val verify : key:EddsaPublicKey.t -> t -> msg:string -> bool
val of_b32 : string -> (t, string) result
val to_b32 : t -> string
val to_octets : t -> string val to_octets : t -> string
val of_octets : string -> t val of_octets : string -> t
val jsont : t Jsont.t val jsont : t Jsont.t
@ -145,8 +146,6 @@ module RsaSignature : sig
val to_octets : t -> string val to_octets : t -> string
val sign : key:Mirage_crypto_pk.Rsa.priv -> string -> t val sign : key:Mirage_crypto_pk.Rsa.priv -> string -> t
val of_b32 : string -> (t, string) result
val to_b32 : t -> string
val jsont : t Jsont.t val jsont : t Jsont.t
end = struct end = struct
type t = string type t = string