Author

Topic: Fair bets in dice sites !!! (Read 1343 times)

hero member
Activity: 686
Merit: 500
February 26, 2015, 07:18:46 AM
#1
I want to attract the programmers to check those programs are really fair ??

Here is the actual SQL function ...... site uses.

create function dbo.CalculateBetResult
(
   @serverSeed binary(32),
   @clientSeed binary( 8 )
)
returns bigint
as
begin
   declare @hash binary(64)
   declare @index int
   declare @r bigint
   
   set @hash = HASHBYTES('SHA2_512', @serverSeed+@clientSeed)
   set @hash = HASHBYTES('SHA2_512', @hash)
   while 1=1
   begin
      
      set @index = 1
      while @index <= 64 - 3
      begin
         set @r = cast(substring(@hash, @index, 3) as bigint)
         if @r < 16000000
            return @r % 1000000
         set @index += 3
      end

      set @hash = HASHBYTES('SHA2_512', @hash)

   end
   return -1
end

------------------------------------------------------------------------------------------------------------------------------------------------


And here is some C# code you could also use to verify results.


static bool VerifyBetResult(string serverSeed, int clientSeed, int betNumber,
                            long betResult, string serverSeedHash = null)
{
    Func strtobytes = s => Enumerable
        .Range(0, s.Length / 2)
        .Select(x => byte.Parse(s.Substring(x * 2, 2), NumberStyles.HexNumber))
        .ToArray();
    byte[] server = strtobytes(serverSeed);
    byte[] client = BitConverter.GetBytes(clientSeed).Reverse().ToArray();
    byte[] num = BitConverter.GetBytes(betNumber).Reverse().ToArray();
    byte[] serverhash = serverSeedHash == null ? null : strtobytes(serverSeedHash);
    byte[] data = server.Concat(client).Concat(num).ToArray();
    using (SHA512 sha512 = new SHA512Managed())
    {
        if (serverhash != null)
            using (SHA256 sha256 = new SHA256Managed())
                if (!sha256.ComputeHash(server).SequenceEqual(serverhash))
                    throw new Exception("Server seed hash does not match server seed");
        byte[] hash = sha512.ComputeHash(sha512.ComputeHash(data));
        while (true)
        {
            for (int x = 0; x <= 61; x += 3)
            {
                long result = (hash
  • << 16) | (hash[x + 1] << 8 ) | hash[x + 2];
               if (result < 16000000)
                    return result % 1000000 == betResult;
            }
            hash = sha512.ComputeHash(hash);
        }
    }
}
Jump to: