私がする:
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")
短時間で多くのファイルを復号化するためにこれが必要です。
質問に感謝します。ほとんどの場合、ファイルを暗号化する目的が損なわれるため、パスワードをスクリプトに保存することはお勧めしません。推奨されていませんが、この意図的な機能を回避することができます。
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)
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加