如何在R中用7zip创建AES256加密的带密码Zip压缩包？

问题原因 #

你之前使用的zip()函数是base R自带工具，默认调用Windows系统原生的zip.exe，它不支持AES256加密，也无法识别7zip的参数格式，因此必须直接调用7zip的命令行工具才能实现需求。

a) 让R调用7zip进行压缩 #

7zip本质是命令行工具，我们可以用R的system2()函数直接执行它的命令：

1. 确认7zip安装路径，默认是C:/Program Files/7-Zip/7z.exe（路径用斜杠/或双反斜杠\\均可）
2. 如果已将7zip安装目录添加到系统环境变量PATH中，直接用"7z"作为命令路径即可，无需写完整路径

b) 设置AES256加密的参数 #

7zip实现AES256加密需要特定命令参数，核心参数说明：

• -tzip：指定生成标准ZIP格式（7zip默认生成7z格式）
• -p密码：设置压缩包密码（注意-p和密码之间没有空格）
• -mz=AES256：强制使用AES256加密算法（替代默认的ZipCrypto）
• -mhe=on：可选参数，开启文件名加密（不需要的话可省略）

完整可运行代码示例 #

# 定义7zip路径（若已加入系统PATH，直接写"7z"即可）
seven_zip <- "C:/Program Files/7-Zip/7z.exe"

# 配置压缩参数
output_zip <- "file2.zip"
target_files <- "test.txt"  # 可替换为多个文件，比如c("test.txt", "data.csv")
password <- "pwd123"

# 构建7zip命令参数
cmd_args <- c(
  "a",                    # 执行"添加文件到压缩包"操作
  "-tzip",                # 指定压缩格式为ZIP
  paste0("-p", password), # 设置密码
  "-mz=AES256",           # 使用AES256加密
  "-mhe=on",              # 加密文件名（可选，不需要则删除此行）
  output_zip,
  target_files
)

# 执行压缩命令
system2(seven_zip, args = cmd_args)

注意事项 #

• 如果密码包含空格、&等特殊字符，需要用引号包裹密码，例如：paste0('-p"', password, '"')
• 若要压缩整个文件夹，把target_files替换为文件夹路径即可
• 执行后无报错则表示压缩成功，可通过7zip打开验证加密方式

内容的提问来源于stack exchange，提问作者deschen