在vb.net解决方案资源管理器中设置Kleopatra

Question

我在电脑上加载了Kleopatra，我为我的keypairID创建了一个密钥/对，我创建了VB.net脚本，在指定的目录中创建了加密文件——创建TestText.txt.gpg文件非常有效。

我对VSTS的整个世界有点陌生，我不确定解决方案资源管理器中应该包含什么，现在可以在生产服务器上运行，而不是在我的电脑上。Keopatra的哪些元素(.exe或.dll等(应该包括在内，我应该在"Solution Explorer>Add"菜单下的哪个选项下添加它们，以便生产作业可以找到密钥对并执行gpg.exe？

当我在我的电脑上安装Kleopatra时，它创建了两个文件夹C:\Program Files(x86(\Gpg4win(包含Kleopatra.exe(和C:\Program Files\GnuPG(包含gpg.exe(。

请不要建议使用供应商坚持使用Kleopatra加密的其他东西。

你可以分享一个教程或youtube，解释如何设置这种情况以使用第三方可执行程序，这将非常棒！非常感谢。

Sub Main()
Dim sourceName As String = "TestText.txt"
Dim toencryptedFileName As String = ("C:Folder1Folder2" & sourceName)
Dim p As New ProcessStartInfo
'Location of the binary on my PC
p.FileName = "C:Program Files (x86)GnuPGbingpg.exe"     
p.Arguments = "--batch --yes --recipient keypairID --encrypt " & toencryptedFileName
p.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(p)
End Sub

Answer 1

在我的电脑上，这很好地创建了文件：filename.csv.gpg注意：您需要下载并安装Kleopatra，然后您可以将其他收件人为"Receptname"提供的公钥导入Kleopatra。这里有相关说明：https://www.deepdotweb.com/2015/02/21/pgp-tutorial-for-windows-kleopatra-gpg4win/

095:    Dim Extract_File As String  = C:ExtractsProgramNamefilename.csv”
‘This line calls the function:
096:    FileEncrypted = Encrypt_File(Extract_File, Batch_Timestamp)
Private Function Encrypt_File(File_To_Encrypt As String, Batch_Timestamp As Date)
100:    On Error GoTo Encrypt_File_Error
110:    Dim Success As Boolean = False
120:    Dim sourceName As String = File_To_Encrypt
130:    Dim gpgProcess = New Process()
140:    gpgProcess.StartInfo.FileName = "gpg.exe"
150:    gpgProcess.StartInfo.UseShellExecute = False
160:    gpgProcess.StartInfo.CreateNoWindow = True
170:    gpgProcess.StartInfo.Arguments = "--batch --yes --recipient reciptname --encrypt " & sourceName
180:    gpgProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
190:    gpgProcess.Start()
200:    Success = True
Encrypt_File_Exit:
210:    On Error Resume Next
220:    gpgProcess.WaitForExit()
230:    gpgProcess.Close()
240:    Return Success
250:    Exit Function
Encrypt_File_Error:
260:    Error_Handler("SomeModule.vb", "Encrypt_File", Err, System_Output, Batch_Timestamp)
270:    Resume Encrypt_File_Exit
End Function