54 lines
2.0 KiB
OCaml
54 lines
2.0 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2017. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open Client_keys
|
||
|
|
|
||
|
|
module Unencrypted_signer : SIGNER = struct
|
||
|
|
let scheme = "unencrypted"
|
||
|
|
|
||
|
|
type secret_key = Ed25519.Secret_key.t
|
||
|
|
type public_key = Ed25519.Public_key.t
|
||
|
|
|
||
|
|
let sk_locator_of_human_input _cctxt = function
|
||
|
|
| sk :: _ ->
|
||
|
|
return (Secret_key_locator.create ~scheme ~location:sk)
|
||
|
|
| [] ->
|
||
|
|
let _, _, sk = Ed25519.generate_key () in
|
||
|
|
return (Secret_key_locator.create ~scheme
|
||
|
|
~location:(Ed25519.Secret_key.to_b58check sk))
|
||
|
|
|
||
|
|
let pk_locator_of_human_input _cctxt = function
|
||
|
|
| [] -> failwith "Missing public key argument"
|
||
|
|
| pk :: _ -> return (Public_key_locator.create ~scheme ~location:pk)
|
||
|
|
|
||
|
|
let sk_of_locator (Sk_locator { location }) =
|
||
|
|
Lwt.return (Ed25519.Secret_key.of_b58check location)
|
||
|
|
|
||
|
|
let pk_of_locator (Pk_locator { location }) =
|
||
|
|
Lwt.return (Ed25519.Public_key.of_b58check location)
|
||
|
|
|
||
|
|
let sk_to_locator sk =
|
||
|
|
Secret_key_locator.create
|
||
|
|
~scheme ~location:(Ed25519.Secret_key.to_b58check sk) |>
|
||
|
|
Lwt.return
|
||
|
|
|
||
|
|
let pk_to_locator pk =
|
||
|
|
Public_key_locator.create
|
||
|
|
~scheme ~location:(Ed25519.Public_key.to_b58check pk) |>
|
||
|
|
Lwt.return
|
||
|
|
|
||
|
|
let neuterize x = Lwt.return (Ed25519.Secret_key.to_public_key x)
|
||
|
|
let public_key x = Lwt.return x
|
||
|
|
let public_key_hash x = Lwt.return (Ed25519.Public_key.hash x)
|
||
|
|
let sign t buf = return (Ed25519.sign t buf)
|
||
|
|
end
|
||
|
|
|
||
|
|
let () =
|
||
|
|
register_signer (module Unencrypted_signer)
|