src/secmod_rsa.ml

@@ -257,9 +257,10 @@ 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
+    let bks = "deadbeaf" in
+    let data = Fdh_rsa.sign ~priv:k.priv ~pub:k.pub ~bks ~msg in
     data
 
   let revoke h_pub =