0

我的 PC 上的 Visual Studio 一切正常，从“开始”按钮运行它。当我构建可执行文件并将可执行文件复制到生产机器并通过生产机器上的 SQL Server 代理安排作业时——创建文件一切正常，但加密位不起作用。gpg.exe 在生产服务器上：\sql2014\c$\Program Files (x86)\GnuPG\bin

gpg 在我的电脑上：C:\Program Files (x86)\GnuPG\bin

filename.csv 可以在正确的位置创建 - 我用这两个名称进行了测试 Dim Extract_File As String = “\sql2014\e$\Extracts\ProgramName\filename.csv” 'Dim Extract_File As String = “E:\Extracts\ ProgramName\filename.csv” '从我的 PC 上执行此操作，我必须将 E: 更改为 C:

此行调用函数： FileEncrypted = Encrypt_File(Extract_File, Batch_Timestamp)

Private Function Encrypt_File(File_To_Encrypt As String, Batch_Timestamp As Date)
    On Error GoTo Encrypt_File_Error
    Dim Success As Boolean = False
    Dim sourceName As String = File_To_Encrypt
    Dim gpgProcess = New Process()
    ‘Test with working directory - no effect
    ‘gpgProcess.StartInfo.UseShellExecute = False 
    'gpgProcess.StartInfo.WorkingDirectory = "\\sql2014\c$\Program Files (x86)\GnuPG\bin\"
    ‘gpgProcess.StartInfo.FileName = "gpg.exe"
    gpgProcess.StartInfo.FileName = \\sql2014\c$\Program Files (x86)\GnuPG\bin\gpg.exe  ‘This works from my PC
    ‘gpgProcess.StartInfo.FileName = \\sql2014\c$\Program Files (x86)\GnuPG\bn\gpg.exe  ‘If I change this path took the “i” out of bin I get an error:  The system cannot find the file specified
    gpgProcess.StartInfo.UseShellExecute = False 
    gpgProcess.StartInfo.CreateNoWindow = True
    gpgProcess.StartInfo.Arguments = "--batch --yes --recipient reciptname --encrypt " & sourceName
    gpgProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    gpgProcess.Start()
    gpgProcess.WaitForExit()
    If FileExists(sourceName & ".gpg") Then
        Success = True
    End If
Encrypt_File_Exit:
    On Error Resume Next
    ‘gpgProcess.WaitForExit() moved this up to 
    gpgProcess.Close()
    Return Success
    Exit Function
Encrypt_File_Error:
    Error_Handler("SomeModule.vb", "Encrypt_File", Err, System_Output, Batch_Timestamp)
    Resume Encrypt_File_Exit
End Function

有关如何解决此问题的任何建议。当它在我的 PC 上运行时，它会在与 filename.csv 相同的目录中创建一个 filename.csv.gpg。在生产服务器上，它不会创建 gpg，也不会给出可见的错误消息。

4

1 回答 1

0

这就是我解决这个问题的方法。我从 NuGet 包管理器安装了 OpenPgpLib 并重新编写了这个函数，如下所示。我从 Kleopatra 工具创建了 .asc 文件，并将其保存在下面代码位中的 pubkey 中使用的位置。OpenPgp 来自包。

    Private Function Encrypt_File(File_To_Encrypt As String, Log_File As String, Batch_Timestamp As Date)
        Dim Success As Boolean = False
        Dim encryptthis As String = File_To_Encrypt
        Dim thisencrypted As String = File_To_Encrypt & ".gpg"
        Dim pubkey As String = "\\sql2014\c$\Data_Programs\MyDirectory\<thepublickeyfile>.asc"
        Try
            OpenPgp.EncryptFile(encryptthis, thisencrypted, pubkey, False, False)
            If FileExists(thisencrypted) Then
                Success = True
            End If
        Catch ex As Exception
            App_Logger(Log_File, ex.StackTrace.ToString(), System_Output, Batch_Timestamp)
            Success = False
        End Try
        Return Success
    End Function
于 2018-09-28T20:09:49.837 回答