Add salt to hashlock contract

2020-01-22 01:40:23 -08:00 · 2020-01-22 01:40:23 -08:00 · d878387424
commit d878387424
parent 7756bfda93
1 changed files with 3 additions and 0 deletions
--- a/src/test/contracts/hashlock.mligo
+++ b/src/test/contracts/hashlock.mligo
@ -9,6 +9,9 @@ type parameter = {
 }

 let main ((p,s): parameter * storage) : operation list * storage =
+  (* We have to use a hash salted with the solvers address, otherwise a baker
+     could steal *)
+  let salted: bytes = Bytes.concat p.hashable (Bytes.pack sender) in
  if ((Crypto.sha256 p.hashable) = s.hashed) && s.unused
  then
    let s: storage = {hashed = s.hashed; unused = false} in