fed-prims: Phase F — RSA-SHA256 PKCS#1 v1.5 verify, pure OCaml, RSA-2048 vector

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
2026-05-18 17:32:35 +00:00
parent 76d1e9f53a
commit f8fc04840a
4 changed files with 254 additions and 1 deletions
--- a/hosts/ocaml/lib/sx_primitives.ml
+++ b/hosts/ocaml/lib/sx_primitives.ml
@@ -4209,4 +4209,10 @@ let () =
    | [String pk; String msg; String sg] ->
      Bool (try Sx_ed25519.verify ~pubkey:pk ~msg ~sig_:sg
            with _ -> false)
+    | _ -> Bool false);
+
+  register "rsa-sha256-verify" (fun args ->
+    match args with
+    | [String spki; String msg; String sg] ->
+      Bool (try Sx_rsa.verify ~spki ~msg ~sig_:sg with _ -> false)
    | _ -> Bool false)