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

rename crockford

Browse source
This commit is contained in:
swrup 2026-03-31 13:28:40 +02:00 • committed by Swrup
parent 34b979a9bc
commit 10df5181a0
14 changed files with 80 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/eddsa.ml
View file

@ -25,14 +25,15 @@ module Priv = struct
Mirage_eddsa.priv_of_octets o
|> Result.map_error (Fmt.str "%a" pp_mirage_error)
let priv_to_b32 t = priv_to_octets t |> B32.encode
let priv_to_crockford t = priv_to_octets t |> Crockford.encode
let priv_of_b32 s =
let* octets = B32.decode s in
let priv_of_crockford s =
let* octets = Crockford.decode s in
priv_of_octets octets
let priv_jsont =
Jsont.of_of_string ~kind:"EddsaPrivateKey" priv_of_b32 ~enc:priv_to_b32
Jsont.of_of_string ~kind:"EddsaPrivateKey" priv_of_crockford
~enc:priv_to_crockford
let priv_bin =
let priv_of_octets_exn t =
@ -48,14 +49,15 @@ module Pub = struct
Mirage_eddsa.pub_of_octets t
|> Result.map_error (Fmt.str "%a" pp_mirage_error)
let pub_to_b32 t = pub_to_octets t |> B32.encode
let pub_to_crockford t = pub_to_octets t |> Crockford.encode
let pub_of_b32 s =
let* octets = B32.decode s in
let pub_of_crockford s =
let* octets = Crockford.decode s in
pub_of_octets octets
let pub_jsont =
Jsont.of_of_string ~kind:"EddsaPublicKey" pub_of_b32 ~enc:pub_to_b32
Jsont.of_of_string ~kind:"EddsaPublicKey" pub_of_crockford
~enc:pub_to_crockford
let pub_bin =
let pub_of_octets_exn t =
@ -77,14 +79,15 @@ module Sig_ = struct
| false -> Error "invalid eddsa signature length"
| true -> Ok (S s)
let sig_of_b32 s =
let* s = B32.decode s in
let sig_of_crockford s =
let* s = Crockford.decode s in
sig_of_octets s
let sig_to_b32 (S s) = B32.encode s
let sig_to_crockford (S s) = Crockford.encode s
let sig_jsont =
Jsont.of_of_string ~kind:"EddsaSignature" sig_of_b32 ~enc:sig_to_b32
Jsont.of_of_string ~kind:"EddsaSignature" sig_of_crockford
~enc:sig_to_crockford
let sig_bin =
let sig_of_octets_exn t =
@ -102,4 +105,4 @@ include Priv
include Pub
include Sig_
let pp_pub ppf pub = Fmt.pf ppf "%s" (pub_to_b32 pub)
let pp_pub ppf pub = Fmt.pf ppf "%s" (pub_to_crockford pub)