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

refacto crypto: add eddsa.ml + rsa.ml

Browse source
This commit is contained in:
swrup 2026-03-20 22:47:58 +01:00 • committed by Swrup
parent 4e707b080a
commit 87f06339c8
16 changed files with 517 additions and 537 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/secmod_rsa.ml
View file

@ -4,10 +4,10 @@ module Log = (val Logs.src_log src : Logs.LOG)
(* - *)
open Syntax
open Crypto
open Time
module Sfn = Mfat.Sfn
module Spath = Mfat.Spath
module DenominationHash = Hash.DenominationHash
module Coin_config = struct
type t = {
@ -43,8 +43,8 @@ end
type key = {
section_name: string;
priv: RsaPrivateKey.t;
pub: RsaPublicKey.t;
priv: Rsa.priv;
pub: Rsa.pub;
h_pub: DenominationHash.t;
t1: TimeAbsolute.t;
t2: TimeAbsolute.t;
@ -52,21 +52,21 @@ type key = {
type t = {
fs: Fat.t;
sm_priv: EddsaPrivateKey.t;
sm_pub: EddsaPublicKey.t;
sm_priv: Eddsa.priv;
sm_pub: Eddsa.pub;
ht: (DenominationHash.t, key) Hashtbl.t;
}
let key_bin =
let open Bin in
record (fun t1 t2 section_name priv ->
let pub = RsaPrivateKey.pub_of_priv priv in
let pub = Rsa.pub_of_priv priv in
let h_pub = DenominationHash.hash_of_rsa pub in
{ section_name; t1; t2; priv; pub; h_pub })
|+ field TimeAbsolute.bin (fun t -> t.t1)
|+ field TimeAbsolute.bin (fun t -> t.t2)
|+ field cstring (fun t -> t.section_name)
|+ field RsaPrivateKey.bin (fun t -> t.priv)
|+ field Rsa.priv_bin (fun t -> t.priv)
|> sealr
let key_spath k =
@ -80,13 +80,13 @@ let key_spath k =
let read_eddsa fs spath =
Log.debug (fun m -> m "reading key file `%a`" Spath.pp spath);
let* data = Fat.read fs spath |> unwrap_msg in
let* priv = EddsaPrivateKey.of_octets data in
let pub = EddsaPrivateKey.pub_of_priv priv in
let* priv = Eddsa.priv_of_octets data in
let pub = Eddsa.pub_of_priv priv in
Ok (priv, pub)
let write_eddsa fs spath priv =
Log.debug (fun m -> m "writing key file `%a`" Spath.pp spath);
let data = EddsaPrivateKey.to_octets priv in
let data = Eddsa.priv_to_octets priv in
Fat.write fs spath data |> unwrap_msg
let read_key fs spath =
@ -109,7 +109,7 @@ let delete_file fs spath =
(* -- *)
let gen_key cfg t1 t2 =
let priv, pub = RsaPrivateKey.generate ~bits:cfg.Coin_config.rsa_keysize () in
let priv, pub = Rsa.generate ~bits:cfg.Coin_config.rsa_keysize () in
let h_pub = DenominationHash.hash_of_rsa pub in
let k = { section_name= cfg.name; priv; pub; h_pub; t1; t2 } in
Log.debug (fun m ->
@ -170,9 +170,9 @@ let init fs =
match opt with
| Some t -> Ok t
| None ->
let sm_priv, sm_pub = EddsaPrivateKey.generate () in
let sm_priv, sm_pub = Eddsa.generate () in
Log.debug (fun m ->
m "generated secmod key: `%s`" (EddsaPublicKey.to_b32 sm_pub));
m "generated secmod key: `%s`" (Eddsa.pub_to_b32 sm_pub));
let* () = write_eddsa fs Cfg.sm_key sm_priv in
let ht = Hashtbl.create 0xff in
Ok { fs; sm_priv; sm_pub; ht }
@ -217,11 +217,11 @@ module Make (Fs : Fat.FS) = struct
()
let sm_pub = t.sm_pub
let sign_secmod s = EddsaSignature.sign ~key:t.sm_priv s
let sign_secmod s = Eddsa.sign ~key:t.sm_priv s
let sign h_pub msg =
let+ k = find h_pub in
let data = RsaSignature.sign ~key:k.priv msg in
let data = Rsa.sign ~key:k.priv msg in
data
let revoke h_pub =