简单区块链实施的工作证明算法（F#）

Question

我目前正在努力学习区块链，并且已经理解了基本原则。因此，我尝试实施一个简单的区块链

问题是我无法得到一个工作证明算法。

let sha256 = System.Security.Cryptography.SHA256.Create()
let hash (n : int) =
    sha256.ComputeHash (BitConverter.GetBytes n)
    |> BitConverter.ToString
    |> fun x -> x.Replace ("-", "")

let verify x = hash x |> fun p1 -> p1.EndsWith "0000"

let rec proofOfWork p0 x =
  if verify (p0 + x) then
     x
  else
     proofOfWork p0 (x + 1)

[<EntryPoint>]
let main argv =

   let s = proofOfWork 100 1
   let s' = proofOfWork s 1 
   let s'' = proofOfWork s' 1

   0 

这将返回一个“10312”的闭环-

Answer 1

您的工作证明算法存在问题。PoW算法应该获取一些数据X并找到一个数字Y，这样附加到X的Y散列将得到一个数字，在本例中，该数字以4个尾随零结尾。

可能的解决办法

let rec proofOfWork p0 x =
  let pow' = (string x) + (string p0) |> int
  if verify (pow') then
     x
  else
     proofOfWork p0 (x + 1)