balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Client: add encrypt secret key client command

Browse Source
This commit is contained in:
Vincent Bernardoff 2018-11-17 23:07:53 +01:00 committed by Benjamin Canou
parent 24b0ab4b56
commit 9f5ebc659e
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/lib_client_commands/client_keys_commands.ml
View File

@ -271,6 +271,23 @@ let commands version : Client_context.io_wallet Clic.command list =
gen_keys_containing ~encrypted ~force ~prefix ~containing ~name cctxt)
end ;
command ~group ~desc: "Encrypt an unencrypted secret key."
no_options
(prefixes [ "encrypt" ; "secret" ; "key" ]
@@ stop)
(fun () (cctxt : Client_context.io_wallet) ->
cctxt#prompt_password "Enter unencrypted secret key: " >>=? fun sk_uri ->
let sk_uri = Uri.of_string (MBytes.to_string sk_uri) in
begin match Uri.scheme sk_uri with
| None | Some "unencrypted" -> return_unit
| _ -> failwith "This command can only be used with the \"unencrypted\" scheme"
end >>=? fun () ->
Lwt.return (Signature.Secret_key.of_b58check (Uri.path sk_uri)) >>=? fun sk ->
Tezos_signer_backends.Encrypted.encrypt cctxt sk >>=? fun sk_uri ->
cctxt#message "Encrypted secret key %a" Uri.pp_hum (sk_uri :> Uri.t) >>= fun () ->
return_unit
) ;
command ~group ~desc: "Add a secret key to the wallet."
(args1 (Secret_key.force_switch ()))
(prefix "import"