wip: implement hash

need good handling of 0-terminated C-string

src/management.ml

@@ -28,16 +28,8 @@ let mk_future_denom denom_secmod_sign_f
   in
   let denom_secmod_sig =
     let open Binary_formats in
-    let h_denom_pub =
-      (* TODO hash *)
-      let hash = pub |> Types.RsaPublicKey.to_b32 in
-      DenominationHash.{ hash }
-    in
-    let h_section_name =
-      (* TODO hash *)
-      let hash = section_name in
-      HashCode.{ hash }
-    in
+    let h_denom_pub = DenominationHash.hash pub in
+    let h_section_name = HashCode.of_string section_name in
     let anchor_time =
       TimeAbsoluteNBO.{ v= Util.ptime_to_int64_us stamp_start }
     in