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

fix denomination hash

Browse source
This commit is contained in:
swrup 2026-02-27 23:36:05 +01:00
parent 9c87aa63ea
commit 0b72705602
11 changed files with 106 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/secmod_rsa.ml
View file

@ -7,7 +7,6 @@ module Log = (val Logs.src_log src : Logs.LOG)
open Syntax
open Crypto
open Time
module DenominationHash = Hash.DenominationHash
module Cfg = struct
open Config
@ -125,7 +124,7 @@ let get_key_dir_contents dir_fpath =
let gen_key ~section_name t1 t2 =
let bits = Cfg.rsa_keysize ~section_name in
let priv, pub = RsaPrivateKey.generate ~bits () in
let h_pub = DenominationHash.hash (RsaPublicKey.to_octets pub) in
let h_pub = DenominationHash.hash_of_rsa pub in
Log.debug (fun m ->
m "generated key (%a):@,`%s`" pp_filename (t1, t2)
(DenominationHash.to_octets h_pub |> B32.encode));
@ -179,7 +178,7 @@ let load_key ~section_name fpath =
| Some (t1, t2) ->
let+ priv = read_rsa fpath in
let pub = RsaPrivateKey.pub_of_priv priv in
let h_pub = DenominationHash.hash (RsaPublicKey.to_octets pub) in
let h_pub = DenominationHash.hash_of_rsa pub in
{ section_name; priv; pub; h_pub; t1; t2 }
let load_section section_name =