@@ 14,12 14,6 @@
(define (gen)
(let* ([bstr (crypto-random-bytes num-bytes)])
- ;; (displayln (format "bstr: ~a" (bytes->hex-string bstr)))
- ;; (displayln (format "binaryio: ~a" (bytes->integer bstr #f #t)))
- ;; (for/sum ([i (in-range 0 num-bytes 8)])
- ;; (arithmetic-shift
- ;; (integer-bytes->integer bstr #f #t i (+ i 8))
- ;; (- 1024 64 (* i 8))))
(bytes->integer bstr #f #t 0 num-bytes)))
(define (random-poly degree constant)
@@ 49,37 43,6 @@
(integer->bytes point num-bytes #f #t))
'name username))))
-;; (define-values (status headers port))
-;; (http-sendrecv
-;; "localhost"
-;; "/register"
-;; #:port 1984
-;; #:method "POST"
-;; #:data
-;; (jsexpr->bytes (hasheq 'input (bytes->hex-string
-;; (integer->bytes point num-bytes #f #t))
-;; 'name username))
-;; ;; #:headers (list "Content-Type: application/x-www-form-urlencoded")
-;; )
-
-;; (let-values)
-;; (define-values (status headers port)
-;; (with-handlers ([exn:fail:network? (lambda (exn)
-;; (begin
-;; (displayln "Err: lost connection to bulletin")
-;; (exit)))])
-;; (let loop ([wait 0])
-;; (displayln "attempting to retrieve peers")
-;; (sleep wait)
-;; (let-values ([(status headers port)
-;; (http-sendrecv
-;; "localhost"
-;; "/peers"
-;; #:port 1984)])
-;; (if (eq? status 200)
-;; (values status headers port)
-;; (loop 3))))))
-
(define peers
(json-response-body
(let loop ([wait 0])
@@ 120,24 83,3 @@
output
(add1 (integer-bytes-length output #f))
#t)))))))
-
-;; (define peers
-;; (let loop ([wait 0])
-;; (sleep wait)
-;; (let ([resp (get bulletin "/peers")])
-;; (displayln "attempting to retrieve peers...")
-;; (displayln (get-status-code resp))
-;; ;; (if (eq? (get-status-code resp) 200)
-;; ;; (json-response-body resp)
-;; ;; (loop 3))
-;; )))
-
-;; (displayln (format "peers: ~a" peers))
-
-;; (displayln status)
-;; (displayln headers)
-;; (displayln (port->string port #:close? #t))
-
-;; (http-sendrecv
-;; "localhost"
-;; "/peers")