任何方式来PGP加密数据流，并将其直接保存到FTP，而不必保存在本地？

Question

我必须通过sFTP以asc格式将PGP加密文件发送到FTP文件夹。有没有办法让PGP加密一个流（它是CSV格式的流）并将它推送到sFTP ，而不必将它保存在本地机器上。

下面是我用PGP加密函数，它接受文件名作为PARAM：

Private Function PGPEncrypt(ByVal FileName As String) As Boolean 
     Dim errorHappened As Boolean = False 
     Dim encodedFileName As String = String.Format("{0}{1}", FileName, ".asc") 
     Dim pgpRecipient As String = System.Configuration.ConfigurationManager.AppSettings.Get("PgpRecipient") 
     Dim psi As System.Diagnostics.ProcessStartInfo 
     Dim ErrorResult As String = "" 
     Dim Result As String = "" 
     Try 
      psi = New ProcessStartInfo(System.Configuration.ConfigurationManager.AppSettings.Get("PgpPath")) 
      psi.CreateNoWindow = True 
      psi.UseShellExecute = False 
      psi.Arguments = String.Format(" --armor --yes --recipient ""{0}"" --output ""{1}"" --encrypt ""{2}""", _ 
              pgpRecipient, encodedFileName, FileName) 
      psi.RedirectStandardInput = True 
      psi.RedirectStandardOutput = True 
      psi.RedirectStandardError = True 
      ProcessPGP = System.Diagnostics.Process.Start(psi) 
      ProcessPGP.StandardInput.Write(m_Passphrase) 
      Result = ProcessPGP.StandardError.ReadToEnd() 
      ProcessPGP.WaitForExit() 
     Catch ex As Exception 
      errorHappened = True 
      Dim ReadError As New StringBuilder() 
      ReadError.Append(vbCrLf & "Error Detail:") 
      ReadError.Append(vbCrLf & ex.ToString()) 
      OurEventLog.WriteEntry(ReadError.ToString(), EventLogEntryType.Error) 
     End Try 
     Return errorHappened 
    End Function 

再次，主要要求是不保存到本地PGP加密的文件，然后发送到FTP但PGP加密文件必须通过流创建。

任何想法？

UPDATE：

FTP代码：

ftp.ConnectMode = FTPConnectMode.PASV 
       ftp.RemoteHost = Csla.ConfigurationManager.AppSettings("FTPRemoteHost") 
       If _blnDiagnostics Then DiagnosticsManager.Publish("STREAM_TO_FTP: CONNECT TO FTP", DiagnosticsManager.EntryType.SuccessAudit) 
       ftp.Connect() 
       ftp.Login(strUser, strPassword) 
       ftp.TransferType = FTPTransferType.BINARY 'ASCII 
       ftp.Put(OUTBOUNDMESSAGE, pFilename) 

       ftp.Quit() 
       ftp = Nothing 

OUTBOUNDMESSAGE是System.IO.Stream。

Answer 1

您可以将-传递给--output，而不是将文件名作为命令行的选项，而直接将输出显示给控制台。您可以直接传输这些数据。然后

你Arguments属性应该是这样的：

psi.Arguments = String.Format(" --armor --yes --recipient ""{0}"" --output - --encrypt ""{1}""", _ 
             pgpRecipient, FileName) 

在执行的过程中，ProcessPGP.StandardOutput应该得到你所需要的数据流。