fix secmod add/write; + wip test revoke

tools/offline.ml

@@ -137,6 +137,23 @@ let revoke_denom_cmd =
   let+ output = output and+ master_key = master_key and+ h_denom = h_denom in
   revoke_denom ~output ~master_key ~h_denom
 
+(* just for tests... *)
+let test_hash64_cmd =
+  let doc =
+    "Compute SHA-512, print output to stdout, input and output are \
+     Crockford-base32 encoded"
+  in
+  let s = Arg.(required & pos 0 (some string) None & info []) in
+  Cmd.make (Cmd.info "hash64" ~doc)
+  @@
+  let+ s = s in
+  match B32.decode s with
+  | Error e -> Error e
+  | Ok s ->
+      let h = Hash.DenominationHash.hash s in
+      let s = B32.encode (Hash.DenominationHash.to_octets h) in
+      Fmt.pr "%s@." s; Ok ()
+
 let revoke_signkey_cmd =
   let doc = "Revoke signkey." in
   let signkey =
@@ -305,6 +322,7 @@ let cli =
       wire_fee_cmd;
       global_fees_cmd;
       drain_cmd;
+      test_hash64_cmd;
     ]
 
 let main () = Cmd.eval_result cli