[Draft] read encrypted xlsx files

.gitignore

@@ -4,6 +4,7 @@
 .DS_Store
 .vscode/*
 src/*.o
+src/xlcpp/*.o
 src/*.so
 src/*.dll
 src-i386/*.dll

DESCRIPTION

@@ -43,3 +43,5 @@ Roxygen: list(markdown = TRUE)
 Config/testthat/edition: 3
 Config/testthat/parallel: false
 Config/testthat/start-first: aaa
+SystemRequirements: C++20
+

R/RcppExports.R

@@ -1,6 +1,10 @@
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
+read_encryption <- function(PATH, OUT, PASSWORD) {
+    invisible(.Call(`_openxlsx2_read_encryption`, PATH, OUT, PASSWORD))
+}
+
 #' Check if path is to long to be an R file path
 #' @param path the file path used in file.exists()
 #' @noRd

R/wb_load.R

@@ -40,6 +40,7 @@ wb_load <- function(
     ...
 ) {
 
+  password <- NULL
   standardize_case_names(...)
 
   file <- xlsx_file %||% file
@@ -49,6 +50,14 @@ wb_load <- function(
     stop("File does not exist.")
   }
 
+  pwd <- list(...)$password
+
+  if (!is.null(pwd)) {
+    unencrypted_xlsx <- temp_xlsx()
+    read_encryption(PATH = path.expand(file), OUT = unencrypted_xlsx, PASSWORD = pwd)
+    file <- unencrypted_xlsx
+  }
+
   ## create temp dir
   xmlDir <- temp_dir("_openxlsx_wb_load")
 

src/Makevars

@@ -1 +1,34 @@
-PKG_CPPFLAGS = -I. -I../inst/include/pugixml
+
+PKG_CXXFLAGS =  -I. -Ixlcpp -I../inst/include/pugixml -DXLCPP_EXPORT
+
+PKG_LIBS = -Lpugixml -Lxlcpp
+
+PKGROOT = ./xlcpp
+
+OBJECTS = decrypt.o \
+					helper_functions.o \
+					load_workbook.o \
+					pugi.o \
+					strings_xml.o \
+					styles_xml.o \
+					write_file.o \
+					$(PKGROOT)/aes.o \
+					$(PKGROOT)/b64.o \
+					$(PKGROOT)/cfbf.o \
+					$(PKGROOT)/sha1.o \
+					$(PKGROOT)/sha512.o \
+					$(PKGROOT)/xlcpp.o \
+					$(PKGROOT)/xml-reader.o \
+					RcppExports.o
+
+XLCPP = $(PKGROOT)/aes.cpp \
+				$(PKGROOT)/b64.cpp \
+				$(PKGROOT)/cfbf.cpp \
+				$(PKGROOT)/sha1.cpp \
+				$(PKGROOT)/sha512.cpp \
+				$(PKGROOT)/xml-reader.cpp \
+				$(PKGROOT)/xlcpp.cpp
+
+PUGIXML = ../inst/include/pugixml/pugixml.cpp
+
+# CXX_STD=CXX20

src/RcppExports.cpp

@@ -11,6 +11,18 @@ Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
 Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
 #endif
 
+// read_encryption
+void read_encryption(std::string PATH, std::string OUT, std::string PASSWORD);
+RcppExport SEXP _openxlsx2_read_encryption(SEXP PATHSEXP, SEXP OUTSEXP, SEXP PASSWORDSEXP) {
+BEGIN_RCPP
+    Rcpp::RNGScope rcpp_rngScope_gen;
+    Rcpp::traits::input_parameter< std::string >::type PATH(PATHSEXP);
+    Rcpp::traits::input_parameter< std::string >::type OUT(OUTSEXP);
+    Rcpp::traits::input_parameter< std::string >::type PASSWORD(PASSWORDSEXP);
+    read_encryption(PATH, OUT, PASSWORD);
+    return R_NilValue;
+END_RCPP
+}
 // to_long
 bool to_long(std::string path);
 RcppExport SEXP _openxlsx2_to_long(SEXP pathSEXP) {
@@ -842,6 +854,7 @@ END_RCPP
 }
 
 static const R_CallMethodDef CallEntries[] = {
+    {"_openxlsx2_read_encryption", (DL_FUNC) &_openxlsx2_read_encryption, 3},
     {"_openxlsx2_to_long", (DL_FUNC) &_openxlsx2_to_long, 1},
     {"_openxlsx2_openxlsx2_type", (DL_FUNC) &_openxlsx2_openxlsx2_type, 1},
     {"_openxlsx2_int_to_col", (DL_FUNC) &_openxlsx2_int_to_col, 1},

src/decrypt.cpp

@@ -0,0 +1,11 @@
+#include <xlcpp/xlcpp.h>
+
+// [[Rcpp::export]]
+void read_encryption(std::string PATH, std::string OUT, std::string PASSWORD) {
+
+
+  xlcpp::workbook wb(PATH, PASSWORD, OUT);
+
+  // this creates xlcpp workbook, not the unzipped xlsx file
+  // wb.save(OUT);
+}