From 17f85735f693f3ad96be1c97e3a77ed07ca01e7c Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Sat, 7 Feb 2026 21:22:29 +0100
Subject: [PATCH]

---
 src/mte.ml | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/mte.ml b/src/mte.ml
index e2d14d79..159f688b 100644
--- a/src/mte.ml
+++ b/src/mte.ml
@@ -13,6 +13,19 @@
     You should have received a copy of the GNU Affero General Public License
     along with this program.  If not, see <https://www.gnu.org/licenses/>. *)
 
+(* TODO mirage-crypto
+   is this ok?
+   maybe don't use the same RNG-initialization as the one used to generate keys *)
+let seed req _server _env =
+  Logs.info (fun m -> m "GET /seed");
+  (* RNG is initialized by Vif.run *)
+  let s = Mirage_crypto_rng.generate 64 in
+  let open Vif.Response in
+  let open Syntax in
+  let* () = add ~field:"content-type" "application/octet-stream" in
+  let* () = with_string req s in
+  respond `OK
+
 let config req _server _env =
   Logs.info (fun m -> m "GET /config");
   let s = Api.(encode_exn ExchangeVersionResponse.jsont config) in
@@ -39,7 +52,11 @@ let routes =
     ]
   in
   let status_info =
-    [ get_ (rel / "config") --> config; get_ (rel / "keys") --> Http_keys.f ]
+    [
+      get_ (rel / "seed") --> seed;
+      get_ (rel / "config") --> config;
+      get_ (rel / "keys") --> Http_keys.f;
+    ]
   in
   let management =
     let open Http_management in