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

wip fix mess

Browse source
This commit is contained in:
swrup 2025-12-15 08:56:44 +01:00
parent 26f5e392ee
commit 50a6137967
6 changed files with 115 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/offline_impl.ml
View file

@ -42,7 +42,7 @@ let sign ~master_key ~input ~output =
let open Crypto in
let* input = read_file input in
let* master_key = read_file master_key in
let master_key = EddsaPrivateKey.of_octets master_key in
let* master_key = EddsaPrivateKey.of_octets master_key in
let master_pub = EddsaPrivateKey.pub_of_priv master_key in
let* future_keys_response = Api.decode Api.FutureKeysResponse.jsont input in
let* () =
@ -58,7 +58,7 @@ let sign ~master_key ~input ~output =
let revoke_denom ~output ~master_key ~h_denom =
let open Crypto in
let* key = read_file master_key in
let key = EddsaPrivateKey.of_octets key in
let* key = EddsaPrivateKey.of_octets key in
let* h_denom = B32.decode h_denom in
let h_denom = Bin_type.DenominationHash.of_octets h_denom in
let denom_revoke = Offline_sig.mk_denom_revoke ~key h_denom in
@ -69,7 +69,7 @@ let revoke_denom ~output ~master_key ~h_denom =
let revoke_signkey ~output ~master_key ~signkey =
let open Crypto in
let* key = read_file master_key in
let key = EddsaPrivateKey.of_octets key in
let* key = EddsaPrivateKey.of_octets key in
let* signkey = EddsaPublicKey.of_b32 signkey in
let v = Offline_sig.mk_signkey_revoke ~key signkey in
let* s = Api.encode Api.SignkeyRevocationSignature.jsont v in