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 34619cecdb
1 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

29
tools/offline_signature.ml
View file

@ -1,4 +1,27 @@
let _denom_signature ~key ~key_pub
let _signkey_signature ~master_key ~master_key_pub:_
Api.FutureSignKey.
{
key;
stamp_start;
stamp_expire;
stamp_end;
(* TODO check sigs *)
signkey_secmod_sig= _;
} =
let master_sig =
let open Bin_signature.ExchangeSigningKeyValidityPS in
{
start= stamp_start;
expire= stamp_expire;
end_= stamp_end;
signkey_pub= key;
}
|> Bin.to_string bin
|> Crypto.EddsaSignature.sign ~key:master_key
in
Api.SignKeySignature.{ key; master_sig }
let _denom_signature ~master_key ~master_key_pub
Api.FutureDenom.
{
section_name= _;
@ -29,7 +52,7 @@ let _denom_signature ~key ~key_pub
let open Bin_type in
let open Bin_signature.DenominationKeyValidityPS in
{
master= key_pub;
master= master_key_pub;
start= stamp_start;
expire_withdraw= stamp_expire_withdraw;
expire_spend= stamp_expire_deposit;
@ -41,7 +64,7 @@ let _denom_signature ~key ~key_pub
denom_hash= DenominationHash.hash pub_octets;
}
|> Bin.to_string bin
|> Crypto.EddsaSignature.sign ~key
|> Crypto.EddsaSignature.sign ~key:master_key
in
Api.DenomSignature.{ h_denom_pub; master_sig }