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

fix secmod_rsa config; fix signkey stamp_end

Browse source
This commit is contained in:
swrup 2026-02-23 05:20:24 +01:00 • committed by Swrup
parent 4a66ce5932
commit 805af58fe6
4 changed files with 59 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/config.ml
View file

@ -188,25 +188,8 @@ module Exchange_secmod_rsa = struct
let lookahead_sign = get "lookahead_sign" |> duration
let overlap_duration = get "overlap_duration" |> duration
let duration = get "duration" |> duration
let key_dir = get "key_dir"
let sm_priv_key = get "sm_priv_key"
(* only support one rsa_keysize *)
let rsa_keysize =
Coin.all_coins
|> List.map (fun coin -> coin.Coin.rsa_keysize)
|> List.sort_uniq Int.compare
|> function
| [] -> fail "no coin section found"
| a :: b :: _ ->
fail
"coins with different rsa_keysize are not supported, found \
rsa_keysize = %d and %d"
a b
| n :: [] -> n
let sections = Coin.all_coins |> List.map (fun coin -> coin.Coin.section_name)
end
module Exchange_secmod_eddsa = struct