如何在‘encryptr’包中保存脚本R中的密码？

Question

我这样做：

library(encryptr)
genkeys()

我创建了密码：0)]30l^8

password<-"0)]30l^8"
data(gp)
write.csv(gp, "gp.csv")
encrypt_file("gp.csv")

我的问题是:如何在decrypt_file("gp.csv.encryptr.bin", file_name = "gp2.csv")上自动输入密码

我需要这个在短时间内解密许多文件。

Answer 1

非常感谢你的问题。不建议将密码保存在脚本中，因为这会在大多数情况下违背加密文件的目的。您可以绕过这一有意为之的功能，尽管不推荐这样做。

password<-"0)]30l^8"
.crypt = readRDS("gp.csv.encryptr.bin") # in file
zz = file("gp2.csv", "wb") # out file
openssl::decrypt_envelope(.crypt$data, .crypt$iv, .crypt$session, key = "id_rsa", password = password) %>%
  writeBin(zz)
close(zz)