10 lines
248 B
Racket
10 lines
248 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(provide random-hex-string)
|
||
|
|
|
||
|
|
(require (only-in file/sha1 bytes->hex-string))
|
||
|
|
(require (only-in racket/random crypto-random-bytes))
|
||
|
|
|
||
|
|
(define (random-hex-string half-length)
|
||
|
|
(bytes->hex-string (crypto-random-bytes half-length)))
|