From 350f9be2ae25abb83d2f25209be6fe369860eac7 Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 27 Feb 2026 23:49:52 +0100 Subject: [PATCH] --- src/crypto.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/crypto.ml b/src/crypto.ml index a223a606..afc0276b 100644 --- a/src/crypto.ml +++ b/src/crypto.ml @@ -284,10 +284,10 @@ end = struct let cipher = cipher_to_int32 RSA in let pub = RsaPublicKey.to_octets pub in let pub_len = String.length pub in - let b = Bytes.create (2 + 2 + pub_len) in + let b = Bytes.create (4 + 4 + pub_len) in Bytes.set_int32_be b 0 age_mask; - Bytes.set_int32_be b 2 cipher; - Bytes.blit_string pub 0 b 4 pub_len; + Bytes.set_int32_be b 4 cipher; + Bytes.blit_string pub 0 b (4 + 4) pub_len; SHA512.(digest_bytes b) let of_octets s =