safer (version 0.1.0)

decrypt_file: Decrypt a connection or file

Description

decrypt_file) decrypts a binary or a text file back to a file.

Usage

decrypt_file(infile, outfile, ascii = FALSE, key = "pass",
  method = "symmetric")

Arguments

infile

Encrypted file.

outfile

A non-existant file where the decrypted output will be written.

ascii

TRUE if the outfile is a ascii file. Default is FALSE

key

A string without embbeded NULL. Default is 'pass'.

method

Currently, a stub. It should be 'symmetric'(default).

Value

An invisible TRUE

Examples

# NOT RUN {
write.table(iris, "iris.csv")
all(
  encrypt_file("iris.csv", "iris_encrypted.bin")
  , file.exists("iris_encrypted.bin")
  , decrypt_file("iris_encrypted.bin", "iris_2.csv")
  , file.exists("iris_2.csv")
  , tools::md5sum("iris_2.csv") == tools::md5sum("iris.csv")
  , unlink("iris.csv") == 0
  , unlink("iris_2.csv") == 0
  , unlink("iris_encrypted.bin") == 0
)

write.table(iris, "iris.csv")
all(
  encrypt_file("iris.csv", "iris_encrypted.txt", ascii = TRUE)
  , file.exists("iris_encrypted.txt")
  , decrypt_file("iris_encrypted.txt", "iris_2.csv", ascii = TRUE)
  , file.exists("iris_2.csv")
  , tools::md5sum("iris_2.csv") == tools::md5sum("iris.csv")
  , unlink("iris.csv") == 0
  , unlink("iris_2.csv") == 0
  , unlink("iris_encrypted.txt") == 0
)

# }