From 0083e1e41c1cf1c64da9008bf723dc3f550dc0ea Mon Sep 17 00:00:00 2001
From: Csaba Kiraly <csaba.kiraly@gmail.com>
Date: Mon, 12 Jun 2023 11:35:01 +0200
Subject: [PATCH] generate segments systematically

Signed-off-by: Csaba Kiraly <csaba.kiraly@gmail.com>
---
 das/das.nim | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/das/das.nim b/das/das.nim
index 175342c..c1106f7 100644
--- a/das/das.nim
+++ b/das/das.nim
@@ -1,5 +1,5 @@
 import
-  std/[options, sequtils, random],
+  std/[options, sequtils, random, math],
   asynctest,
   bearssl/rand,
   chronicles,
@@ -64,7 +64,14 @@ proc toNodeId(data: openArray[byte]): NodeId =
 
 proc segmentData(s: int, segmentsize: int) : seq[byte] =
   result = newSeq[byte](segmentsize)
-  result[0] = byte(s mod 256)
+  var
+    r = s
+    i = 0
+  while r > 0:
+    assert(i<segmentsize)
+    result[i] = byte(r mod 256)
+    r = r div 256
+    i+=1
 
 proc sample(s: Slice[int], len: int): seq[int] =
     # random sample without replacement
@@ -99,6 +106,7 @@ when isMainModule:
       samplesize = 3
       upload_timeout = 5.seconds
       sampling_timeout = 5.seconds
+    assert(log2(blocksize.float).ceil.int <= segmentsize * 8 )
 
     var
       rng: ref HmacDrbgContext