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

better secmod

Browse source
This commit is contained in:
swrup 2025-12-16 14:20:41 +01:00
parent f69f393abb
commit bf45cdc6b1
6 changed files with 104 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/offline_sig.ml
View file

@ -24,7 +24,8 @@ let denom_signature ~master_key
let open Bin_sig.DenominationKeyValidity in
let master = EddsaPrivateKey.(pub_of_priv master_key) in
let denom_hash = DenominationHash.hash octets in
sign ~key:master_key
sign_f
~f:(EddsaSignature.sign ~key:master_key)
{
master;
start= stamp_start;
@ -45,7 +46,8 @@ let signkey_signature ~master_key
{ key; stamp_start; stamp_expire; stamp_end; signkey_secmod_sig= _ } =
let master_sig =
let open Bin_sig.ExchangeSigningKeyValidity in
sign ~key:master_key
sign_f
~f:(EddsaSignature.sign ~key:master_key)
{
start= stamp_start;
expire= stamp_expire;
@ -77,7 +79,9 @@ let verify_future_signkey ~sm_signkey_pub
let anchor_time = stamp_start in
let duration = Timestamp.diff stamp_start stamp_expire in
let open Bin_sig.SigningKeyAnnouncement in
verify ~key:sm_signkey_pub signkey_secmod_sig
verify_f
~f:(EddsaSignature.verify ~key:sm_signkey_pub)
signkey_secmod_sig
{ exchange_pub; anchor_time; duration }
let verify_future_denom ~sm_denom_pub
@ -103,7 +107,9 @@ let verify_future_denom ~sm_denom_pub
let anchor_time = stamp_start in
let duration_withdraw = Timestamp.diff stamp_start stamp_expire_withdraw in
let open Bin_sig.DenominationKeyAnnouncement in
verify ~key:sm_denom_pub denom_secmod_sig
verify_f
~f:(EddsaSignature.verify ~key:sm_denom_pub)
denom_secmod_sig
{ h_denom_pub; h_section_name; anchor_time; duration_withdraw }
let verify_future_keys_response our_master_public_key
@ -138,13 +144,13 @@ let verify_future_keys_response our_master_public_key
let mk_denom_revoke ~key h_denom_pub =
let master_sig =
let open Bin_sig.MasterDenominationKeyRevocation in
sign ~key { h_denom_pub }
sign_f ~f:(EddsaSignature.sign ~key) { h_denom_pub }
in
DenomRevocationSignature.{ master_sig }
let mk_signkey_revoke ~key exchange_pub =
let master_sig =
let open Bin_sig.MasterSigningKeyRevocation in
sign ~key { exchange_pub }
sign_f ~f:(EddsaSignature.sign ~key) { exchange_pub }
in
SignkeyRevocationSignature.{ master_sig }