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

Browse source
This commit is contained in:
swrup 2026-02-13 19:58:01 +01:00
parent ee871ad6d2
commit c51e19fcde
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/crypto.ml
View file

@ -64,6 +64,7 @@ module Binary_format_rsa = struct
pub pub
| _ -> assert false | _ -> assert false
(* custom private key binary format <> than gcrypt *)
let priv_to_octets ({ e; d; n; p; q; dp; dq; q' } : Mirage_crypto_pk.Rsa.priv) let priv_to_octets ({ e; d; n; p; q; dp; dq; q' } : Mirage_crypto_pk.Rsa.priv)
= =
z_array_to_octets [| e; d; n; p; q; dp; dq; q' |] z_array_to_octets [| e; d; n; p; q; dp; dq; q' |]