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

add --output-pubkey option; use cmdliner for gana script

Browse source
This commit is contained in:
swrup 2026-02-17 05:19:17 +01:00 • committed by Swrup
parent 53debfd866
commit 67d0820643
6 changed files with 186 additions and 131 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tools/offline_impl.ml
View file

@ -163,7 +163,16 @@ let read_master_key_file filename =
let download ~output ~url =
let open Bos in
OS.Cmd.run Cmd.(v "curl" % "--silent" % "-o" % output % "-X" % "GET" % url)
OS.Cmd.run
Cmd.(
v "curl"
% "--silent"
% "--show-error"
% "-o"
% output
% "-X"
% "GET"
% url)
|> unwrap_err_msg
let upload ~input ~url =
@ -182,13 +191,14 @@ let upload ~input ~url =
% url)
|> unwrap_err_msg
let setup ~output =
let () = Mirage_crypto_rng_unix.use_default () in
let setup ~output ~output_pubkey =
Mirage_crypto_rng_unix.use_default ();
let priv, pub = Mirage_crypto_ec.Ed25519.generate () in
Fmt.pr "generated master public key:@\n%s@."
(Mirage_crypto_ec.Ed25519.pub_to_octets pub |> B32.encode);
let priv_data = Mirage_crypto_ec.Ed25519.priv_to_octets priv in
write_file output priv_data
let* () = write_file output priv_data in
let pub_data = Mirage_crypto_ec.Ed25519.pub_to_octets pub |> B32.encode in
let* () = write_file output_pubkey pub_data in
Ok ()
let sign ~master_key ~input ~output =
let open Crypto in