r - 如何在 R 中加密数据？

Question

我正在添加 sentry handler到R logging package 。目前django-sentry基于在安全通道中以明文形式传输的共享 key 验证客户端(发送日志记录的应用程序)。

我想知道是否可以从 R 进行加密，最好是非对称的、基于公钥的加密，但我发现没有任何相关内容。

好吧，不是“如果可能的话”，而是“如何做到这一点”以及是否有人已经这样做了。

<小时/>

与 django-sentry 的作者互动后，我们选择了 hmac，我已在 digest 中实现了它。 R 包(0.5+ 版本包含它)。这并没有回答“如何使用 R 加密数据”的问题，但它解决了构成我最初问题基础的问题。

目前我不再积极研究 R 中的非对称加密，但是，如果您对此感兴趣并且想要贡献想法或代码，请在此处留言!

Answer 1

您也可以在 PKI package 中找到合适的功能作者西蒙·厄本内克 (Simon Urbanek)。

该软件包提供 PKI 功能，例如验证证书、RSA 加密和签名，可用于构建 PKI 基础设施和执行加密任务。

教程中的示例代码:

require(PKI)
key <- PKI.genRSAkey(2048)
x <- charToRaw("Hello, world!")
e <- PKI.encrypt(x, key)
y <- PKI.decrypt(e, key)
stopifnot(identical(x, y))
print(rawToChar(y))

给出结果:[1]“Hello, world!”

而加密消息e是:

  [1] 36 83 d3 70 0a 67 b5 05 a6 40 1e 37 28 b9 4e 28 f1 31 92 14 2c 35 c8 8a 61 93 1e 04 62 01 da 3b 2b a0 75 1c 10 58 26
 [40] e4 77 da 7a 47 3f 4e 44 29 8e 97 6f 62 b1 98 44 ba 18 ef 57 1e 9e 9c 27 a8 6e 9c 7b c7 8b c0 c3 a3 00 e2 67 98 8b 6e
 [79] 1a 93 c6 d6 ed 4b 54 e5 7a 07 d7 06 ef a6 bb 36 6a 7f 57 06 b9 15 03 f6 51 3f 07 48 cb f4 2d 25 15 be 42 de f4 8a 06
[118] 72 89 b1 e3 04 d3 ec 80 99 f0 66 0f 84 e1 b5 af 23 24 a1 36 8e 62 65 ae 19 fb 77 d1 36 06 ae 71 95 ee 57 aa 68 5a 6b
[157] 4e 28 ba a2 0d 17 78 11 6c 7f 1b b3 ce 31 65 a9 d3 71 89 76 f9 19 a0 7a bf 02 dd c9 1f cb 9c 39 25 d4 48 a2 23 83 26
[196] b4 a9 b1 40 f5 1d 46 21 35 12 52 73 09 9b f3 52 e1 9e 0d 2a 9b ff 70 81 41 24 49 ed 58 b2 61 dc 3e c9 b3 b2 b1 37 e0
[235] 48 76 18 bf b0 e5 c2 d9 2b 92 2f 6b 49 dd e0 93 b7 10 f8 ba d2 8a