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-28 17:43:27 +01:00
parent 0879cdc46b
commit e8349ed701
2 changed files with 46 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/offline.ml
View file

@ -15,7 +15,9 @@ let download ~base_url ~output =
let setup ~output =
let output = Fpath.v output in
let () = Mirage_crypto_rng_unix.use_default () in
let priv, _pub = Mirage_crypto_ec.Ed25519.generate () in
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
Bos.OS.File.write output priv_data
@ -31,7 +33,7 @@ let sign ~input ~output ~master_key =
let master_key = EddsaPrivateKey.of_octets master_key in
let* future_key_response = Api.decode Api.FutureKeysResponse.jsont input in
let master_signatures =
Offline_signature.sign_future_keys ~master_key future_key_response
Offline_signature.master_signatures ~master_key future_key_response
in
let* s = Api.encode Api.MasterSignatures.jsont master_signatures in
let* () = File.write output s |> unwrap_err_msg in