从 VBA (MS Access) 解密 PGP 加密文件的最简单方法

Question

我需要编写代码从 FTP 位置获取 PGP 加密的文件并处理它们。 这些文件将使用我的公钥进行加密（我还没有公钥）。 显然，我需要一个可以在 Microsoft Access 中使用的 PGP 库。 您能推荐一款易于使用的吗？

我正在寻找不需要大量 PKI 知识的东西。 理想情况下，能够轻松生成一次性私钥/公钥对，然后有一个简单的解密例程的东西。

Answer 1

命令行解决方案很好。 如果您的数据库是内部应用程序，而不是重新分发，我可以推荐 Gnu Privacy Guard。 这个基于命令行的工具将允许您执行与 OpenPGP 标准相关的任何操作。

在 Access 中，您可以在宏中使用 Shell() 命令，如下所示：

Public Sub DecryptFile(ByVal FileName As String)
  Dim strCommand As String
  strCommand = "C:\Program Files\GNU\GnuPG\gpg.exe " _
  & "--batch --passphrase ""My PassPhrase that I used""" & FileName
  Shell strCommand, vbNormalFocus
End Sub

这将运行命令行工具来解密文件。 此语法使用您的秘密密码的纯文本版本。 这不是最安全的解决方案，但如果您的数据库是内部的并且仅由受信任的人员使用，则可以接受。 GnuPG 支持其他技术来保护密码。

Answer 2

PGP 有一个用于解密文件的命令行选项。

我们有一个执行解密的批处理文件，传入要解密的文件名：

批处理文件：

"C:\Program Files\Network Associates\PGPNT\pgp" +FORCE %1 -z *password* 

我们从 VBS 中调用它：

  Command = "decrypt.bat """ & FolderName & FileName & """"

  'Executes the command script.
  Set objShell = WScript.CreateObject ("WSCript.shell")
  Command = "cmd /c " & Command
  objShell.run Command, 1, True

希望这能为您指明一个有用的方向。

Answer 3

您可以使用 OpenPGPBlackbox（ActiveX 版本） 来实现此目的

Answer 4

Stu...我曾经不得不用 Java 编写一个“安全 SMTP”服务器...最简单、最快的方法是下载和/或购买 PGP。 他们有一个 SDK，您可以使用它来访问任何您想要的内容。

我必须回去看看是否需要编写一个 COM 包装器，或者他们是否已经有了一个。 （我大约 10 年前编写了这个 SMTP 服务器）。 无论如何，不​​要灰心。 大约 5 年前，我用 C++ 编写了一个完整的基于 PGP 的应用程序（基于 openPGP RFC），但问题是，我不允许使用任何现有的库。 所以我必须自己写所有这些东西。 而且，我使用 GPG、OpenPGP 和 PGP 进行测试等...

所以，我什至可以为您提供有关如何在 VBA 中解码这些内容的帮助。 这并非不可能（它可能会很慢，但并非不可能），而且我不是一个“掏出并运行命令行东西来为你做这样的工作的人，因为它会让你面临一些严重的安全风险” ，因为 hurcane 的建议（例如）将导致您的密码短语显示给 ProcExp 等工具。第一步是学习 PKE 的工作原理等。然后，您需要执行的步骤就是我想要的

。我有兴趣提供帮助，因为我总是会编写每个人都说无法完成的代码:) 另外，由于合并、关闭等原因，我拥有我编写的应用程序的源代码。它

最初是为石油和天然气行业编写的，所以我知道它是安全的，这并不是说我的代码没有任何安全缺陷，但我认为它是稳定的。我的中文余数理论代码有问题。由于某种原因，当我使用该快捷方式时，我无法正确解码数据，但如果我使用 RSA“长路”，它就可以工作...

现在，这个应用程序从未完全完成，所以我不支持 DSA 密钥对之类的东西，但我确实支持 RSA 密钥对、SHA1、MD5、使用 IDEA、AES（我认为我的 3DES 代码确实支持无法正常工作，但我可能已经解决了这个问题）。 我还没有实现压缩等等...但是，我很想有一个理由再次回去处理这段代码。

我/可以/为您创建一个 COM 对象，您可以从 VBA 调用该对象，传递原始 Base64 数据以及 Base64 密钥数据（或指向磁盘上密钥文件的指针），以及用于解码文件的 passpsshrase... 多年来

想想看...让我知道..

，我收集了用于执行 MD5、SHA1、IDEA 和其他加密例程等操作的 vbScript 代码，但我没有编写它们。 天哪，您可能只需与 Microsoft 的 CryptoAPI 进行交互，并将每个操作分解为其核心部分，并且仍然可以正常工作。 （你不会找到像“DecryptPGP()”这样的 Micosoft CryptoAPI 调用......这一切都必须分块完成）。

让我知道我是否可以帮忙。

Answer 5

我会寻找一个命令行加密器/解密器，然后使用正确的参数从 Access 应用程序中调用 exe。

据我所知，VBA 中没有 PGP 加密器/解密器。

Answer 6

我不熟悉 VBA for Access，但我认为最好的解决方案（也许最简单）是运行外部命令行 PGP 实用程序。

Answer 7

您可以直接从 VBA 应用程序调用一个 DLL，而无需跨外部程序：CryptoCX< /a>. PGP 还有一个可以调用的 DLL。