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

Sub DecryptPGPFile()
    Dim publicKey As String
    Dim privateKey As String
    Dim passphrase As String
    Dim encryptedFilePath As String
    Dim decryptedFilePath As String
    
    ' 设置公钥、私钥、密码短语和文件路径
    publicKey = "-----BEGIN PGP PUBLIC KEY BLOCK----- ..."
    privateKey = "-----BEGIN PGP PRIVATE KEY BLOCK----- ..."
    passphrase = "your_passphrase_here"
    encryptedFilePath = "path/to/your/encrypted/file.pgp"
    decryptedFilePath = "path/to/your/decrypted/file.txt"
    
    ' 使用 OpenPGP.js 解密文件
    Dim openpgp As Object
    Set openpgp = CreateObject("OpenPGP.js")
    
    Dim encryptedData As String
    Dim decryptedData As String
    
    ' 读取加密文件
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    Set file = fso.OpenTextFile(encryptedFilePath, 1)
    encryptedData = file.ReadAll()
    file.Close
    
    ' 解密文件
    Dim result As Object
    Set result = openpgp.decrypt(encryptedData, privateKey, passphrase)
    
    ' 将解密后的数据写入文件
    Set file = fso.CreateTextFile(decryptedFilePath, True)
    file.Write result.data
    file.Close
End Sub