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

add data_file.ml

Browse source
This commit is contained in:
swrup 2025-11-29 14:03:37 +01:00
parent 760e6de1fb
commit bc91f7357c
8 changed files with 207 additions and 101 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/denomination.ml
View file

@ -2,6 +2,7 @@ open Crypto
type t = {
pub: RsaPublicKey.t;
priv: RsaPrivateKey.t;
section_name: string;
value: Amount.t;
stamp_start: Timestamp.t;
@ -14,7 +15,6 @@ type t = {
fee_refund: Amount.t;
age_mask: int;
h_pub: Bin_type.DenominationHash.t;
sign: string -> RsaSignature.t;
master_sig: EddsaSignature.t option;
}
@ -51,10 +51,10 @@ let make
let priv = generate ~bits:rsa_keysize () in
let pub = pub_of_priv priv in
let h_pub = Bin_type.DenominationHash.hash (RsaPublicKey.to_octets pub) in
let sign = RsaSignature.sign ~key:priv in
let master_sig = None in
{
pub;
priv;
section_name;
value;
stamp_start;
@ -67,6 +67,5 @@ let make
fee_refund;
age_mask= 0;
h_pub;
sign;
master_sig;
}