时间戳

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

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

问题描述

我在我的 PC 上加载了 Kleopatra，我为我的 keypairID 创建了一个密钥/对，我创建了一个 VB.net 脚本，该脚本在指定目录中创建了一个加密文件——创建 TestText.txt.gpg 文件一切都很好。

我是整个 VSTS 世界的新手，我不确定解决方案资源管理器中应该包含哪些内容，以便现在从生产服务器而不是我的 PC 运行它。应该包括 Keopatra 的哪些元素（.exe 或 .dll 等），以及我应该使用“解决方案资源管理器 > 添加”菜单下的哪个选项来添加它们，以便生产作业可以找到密钥对并执行 gpg.exe ?

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

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

您可以分享一个教程或 youtube，解释如何设置这种情况以使用很棒的 3rd 方可执行文件！谢谢！

Sub Main()

    Dim sourceName As String = "TestText.txt"
    Dim toencryptedFileName As String = ("C:\Folder1\Folder2\" & sourceName)
    Dim p As New ProcessStartInfo

    'Location of the binary on my PC
    p.FileName = "C:\Program Files (x86)\GnuPG\bin\gpg.exe"     
    p.Arguments = "--batch --yes --recipient keypairID --encrypt " & toencryptedFileName
    p.WindowStyle = ProcessWindowStyle.Hidden

    Process.Start(p)

End Sub

标签： vb.netazure-devops

解决方案

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

095:    Dim Extract_File As String  = C:\Extracts\ProgramName\filename.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

推荐阅读