如何在R中生成随机的64位十六进制数?

时间:2017-12-26 08:40:28

标签: r random numbers hex blockchain

要在区块链应用程序中应用,我需要在R中生成随机的64位十六进制数字。

我认为由于计算机的容量,一次获得这样的64位十六进制数是相当麻烦的,也许是不可能的。

所以,我认为我应该生成具有相当低位的随机十六进制数,并将它们连接在一起以获得随机的64位十六进制数。

我接近解决方案:

library(fBasics)
.dec.to.hex(abs(ceiling(rnorm(1) * 1e6)))

生成随机十六进制数。问题是在某些情况下,我得到6位十六进制数,在某些情况下,我得到7位十六进制数。因此,首先要解决这个问题。

有什么想法吗?

3 个答案:

答案 0 :(得分:2)

.dec.to.hex()的最大参数为.dec.to.hex(2^30.99999....9)。 那么,问题减少到2^30.99999=2147468763是10的幂?

2147468763 = 2.147468763e9

1e9< 2.147468763e9。因此第9次力量。但是,rnorm(1)可能会产生" >5"。为安全起见,请使用8次方(.dec.to.hex(abs(ceiling(rnorm(1) * 1e8)))为7或8位六位数。10*7 >= 64)。

library(fBasics)
strtrim(paste(sapply(1:10, function(i) .dec.to.hex(abs(ceiling(rnorm(1) * 1e8)))), collapse=""), 64)
# 0397601803C22E220509810703BDE2300460EA80322F000CF50ABD0226F27009

10次迭代而不是11次;因此,操作少了一点!

nchar(strtrim(paste(sapply(1:10, function(i) .dec.to.hex(abs(ceiling(rnorm(1) * 1e8)))), collapse=""), 64))
# 64

答案 1 :(得分:1)

library(fBasics)
strtrim(paste(sapply(1:11, function(i) .dec.to.hex(abs(ceiling(rnorm(1) * 1e6)))), collapse=""), 64)
# 08FBFA019B4930E2AF707AFEE08A0F90D765E05757607609B0691190FC54E012

让我们检查一下:

nchar(strtrim(paste(sapply(1:11, function(i) .dec.to.hex(abs(ceiling(rnorm(1) * 1e6)))), collapse=""), 64)) # 64

答案 2 :(得分:1)

您可以简单地采样每个数字并将它们粘贴在一起。

set.seed(123)
paste0(sample(c(0:9, LETTERS[1:6]), 64, T), collapse = '')
## [1] "4C6EF08E87F7A91E305FEBAFAB8942FEBC07C353266522374D07C1832CE5A164"