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

check proof of work

Browse Source
This commit is contained in:
Eitan Chatav 2016-11-09 18:29:57 -08:00
parent e9ff110d08
commit 4cd86b7ca8
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/utils/crypto_box.ml
View File

@ -28,7 +28,20 @@ let to_public_key = Sodium.Box.Bigbytes.to_public_key
let of_public_key = Sodium.Box.Bigbytes.of_public_key let of_public_key = Sodium.Box.Bigbytes.of_public_key
let to_nonce = Sodium.Box.Bigbytes.to_nonce let to_nonce = Sodium.Box.Bigbytes.to_nonce
let of_nonce = Sodium.Box.Bigbytes.of_nonce let of_nonce = Sodium.Box.Bigbytes.of_nonce
let check_proof_of_work pk nonce difficulty = assert false let check_proof_of_work pk nonce difficulty =
let hash_bytes l =
let hash = Cryptokit.Hash.sha256 () in
List.iter (fun b -> hash#add_string (MBytes.to_string b)) l;
let r = hash#result in hash#wipe; r in
let hash = hash_bytes [of_public_key pk; of_nonce nonce] in
let bytes = MBytes.of_string hash in
let len = MBytes.length bytes * 8 in
try
for i = len - 1 downto (len - difficulty) do
if MBytes.get_bool bytes i then raise Exit
done;
true
with Exit -> false
let generate_proof_of_work pk difficulty = let generate_proof_of_work pk difficulty =
let rec loop nonce = let rec loop nonce =
if check_proof_of_work pk nonce difficulty then nonce if check_proof_of_work pk nonce difficulty then nonce