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

Browse source
This commit is contained in:
swrup 2025-11-20 23:11:46 +01:00
parent ccbf4b57e9
commit 1a70732977
2 changed files with 0 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

5
include/dune
View file

@ -4,11 +4,6 @@
(modules taler_signatures) (modules taler_signatures)
(libraries)) (libraries))
(executable
(name gen_eddsa_key)
(modules gen_eddsa_key)
(libraries fmt mirage-crypto-rng.unix mirage-crypto-ec b32))
(library ; todo: should I have a /lib? (library ; todo: should I have a /lib?
(name parse_config) (name parse_config)
(modules parse_config) (modules parse_config)

16
include/gen_eddsa_key.ml
View file

@ -1,16 +0,0 @@
let () =
Mirage_crypto_rng_unix.use_default ();
let open Mirage_crypto_ec.Ed25519 in
let _priv, pub = generate () in
let octets = pub_to_octets pub in
let pub_b32 = B32.encode octets in
let octets' = B32.decode pub_b32 |> Result.get_ok in
assert (octets = octets');
(*
Fmt.pr "public key :@.%S@." octets;
Fmt.pr "len: %d@." (String.length octets);
Fmt.pr "len: %d@." (String.length pub_b32);
*)
Fmt.pr "%s@." pub_b32;
()