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

Client: fix wallet import

Browse Source
This commit is contained in:
Grégoire Henry 2018-04-17 10:50:27 +02:00
parent 020ef19460
commit 7429a5b21d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib_client_base_unix/client_signer_encrypted.ml
View File

@ -143,9 +143,12 @@ module Encrypted_signer : SIGNER = struct
| Some t -> | Some t ->
cctxt#prompt_password cctxt#prompt_password
"Enter the password used for the paper wallet: " >>= fun password -> "Enter the password used for the paper wallet: " >>= fun password ->
let sk = Bip39.to_seed ~passphrase:(password ^ email) t in (* TODO: unicode normalization (NFKD)... *)
let sk = Bip39.to_seed ~passphrase:(email ^ password) t in
let sk = Cstruct.(to_bigarray (sub sk 0 32)) in let sk = Cstruct.(to_bigarray (sub sk 0 32)) in
let sk = Data_encoding.Binary.of_bytes_exn Signature.Secret_key.encoding sk in let sk : Signature.Secret_key.t =
Ed25519
(Data_encoding.Binary.of_bytes_exn Ed25519.Secret_key.encoding sk) in
let pk = Signature.Secret_key.to_public_key sk in let pk = Signature.Secret_key.to_public_key sk in
let pkh = Signature.Public_key.hash pk in let pkh = Signature.Public_key.hash pk in
let msg = Format.asprintf let msg = Format.asprintf