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

fdh_rsa.ml

Browse source
This commit is contained in:
swrup 2026-02-24 19:31:39 +01:00
parent 61150598d2
commit e0a9d7f1e2
4 changed files with 107 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/secmod_rsa.ml
View file

@ -257,9 +257,11 @@ module Make () = struct
let sm_pub = t.sm_pub
let sign_secmod s = EddsaSignature.sign ~key:t.sm_key_priv s
let sign h_pub s =
let sign h_pub msg =
let+ k = find h_pub in
let data = RsaSignature.sign ~key:k.priv s in
(* TODO fdh-rsa *)
let bks = "deadbeaf" in
let data = Fdh_rsa.sign ~priv:k.priv ~pub:k.pub ~bks ~msg in
data
let revoke h_pub =