VB实现SFTP下载和上传的功能

背景

　　因为安全原因，需要SFTP协议（sftp是Secure File Transfer Protocol的缩写，安全文件传送协议。可以为传输文件提供一种安全的加密方法。sftp 与 ftp 有着几乎一样的语法和功能。SFTP 为 SSH的一部份，是一种传输档案至 Blogger 伺服器的安全方式。其实在SSH软件包中，已经包含了一个叫作SFTP(Secure File Transfer Protocol)的安全文件传输子系统，SFTP本身没有单独的守护进程，它必须使用sshd守护进程（端口号默认是22）来完成相应的连接操作，所以从某种意义上来说，SFTP并不像一个服务器程序，而更像是一个客户端程序。SFTP同样是使用加密传输认证信息和传输的数据，所以，使用SFTP是非常安全的。但是，由于这种传输方式使用了加密/解密技术，所以传输效率比普通的FTP要低得多，如果您对网络安全性要求更高时，可以使用SFTP代替FTP）

准备阶段

　　需要引用第三方类库Tamir.SharpSSH.dll。链接地址（http://www.tamirgal.com/blog/page/SharpSSH.aspx）

     我下载的是（Download binaries: SharpSSH-1.1.1.13.bin.zip）DotNetSSH 文件

　　把Tamir.SharpSSH.dll加载到项目中。

实现阶段

　　增加一个类SFTPHelper

　　

Imports Tamir.SharpSsh.jsch

Public Class SFTPHelper
    Private m_session As Session
    Private m_channel As Channel
    Private m_sftp As ChannelSftp

    Public Sub New(ByVal host As String, ByVal user As String, ByVal pwd As String)
        Dim arr() As String = host.Split(":")
        Dim ip As String = arr(0)
        Dim port As Integer = 22
        If (arr.Length > 1) Then
            port = Int32.Parse(arr(1))
        End If

        Dim jsch As JSch = New JSch()
        m_session = jsch.getSession(user, ip, port)
        Dim ui As MyUserInfo = New MyUserInfo()
        ui.setPassword(pwd)
        m_session.setUserInfo(ui)
    End Sub

    'SFTP获取文件        
    Public Function GetInfo(ByVal remotePath As String, ByVal localPath As String) As Boolean
        Try
            Dim src As Tamir.SharpSsh.java.String = New Tamir.SharpSsh.java.String(remotePath)
            Dim dst As Tamir.SharpSsh.java.String = New Tamir.SharpSsh.java.String(localPath)
            m_sftp.get(src, dst)
            Return True
        Catch
            Return False
        End Try
    End Function
    'SFTP连接状态        
    Public Property Connected As Boolean
        Get
            Return m_session.isConnected()
        End Get
        Set(ByVal value As Boolean)

        End Set
    End Property

    '连接SFTP        
    Public Function Connect() As Boolean
        Dim flag As Boolean = False
        Try
            If (Not Connected()) Then
                m_session.connect()
                m_channel = m_session.openChannel("sftp")
                m_channel.connect()
                m_sftp = m_channel
                flag = True
            End If
        Catch
            flag = False
        End Try
        Return flag
    End Function

    '断开SFTP        
    Public Sub Disconnect()

        If (Connected()) Then
            m_channel.disconnect()
            m_session.disconnect()
        End If
    End Sub

    '登录验证信息        
    Public Class MyUserInfo
        Implements UserInfo

        Dim passwd As String

        Public Sub setPassword(ByVal ppasswd As String)
            passwd = ppasswd
        End Sub
        Public Function getPassphrase() As String Implements Tamir.SharpSsh.jsch.UserInfo.getPassphrase
            Return Nothing
        End Function
        Public Function getPassword() As String Implements Tamir.SharpSsh.jsch.UserInfo.getPassword
            Return passwd
        End Function

        Public Function promptPassphrase(ByVal message As String) As Boolean Implements Tamir.SharpSsh.jsch.UserInfo.promptPassphrase
            Return True
        End Function
        Public Function promptPassword(ByVal message As String) As Boolean Implements Tamir.SharpSsh.jsch.UserInfo.promptPassword
            Return True
        End Function
        Public Function promptYesNo(ByVal message As String) As Boolean Implements Tamir.SharpSsh.jsch.UserInfo.promptYesNo
            Return True
        End Function
        Public Sub showMessage(ByVal message As String) Implements Tamir.SharpSsh.jsch.UserInfo.showMessage

        End Sub
    End Class

End Class

 　　　　这里我只实现了下载的功能，上传的功能修改后加上。今天暂时不加。

　　　　发现C#转VB面向对象这块不熟悉，所以实现接口那里纠结了一下，后面还好自己乱敲了几个回车就好了，真想说，居然乱敲也行

　　　　调用部分　　　　　　

 Dim RedirectURL As String = loMicUi.GetApKeyValue("RedirectURL")
            Dim strLoaclfilePath As String = loMicUi.GetApKeyValue("LoaclFile")

            Dim sftp As SFTPHelper = New SFTPHelper(loMicUi.GetApKeyValue("HostIP"), loMicUi.GetApKeyValue("UserName"), loMicUi.GetApKeyValue("Password"))
            sftp.Connect()
            Dim strSourceFilePath As String = e.Item.Cells(12).Text
            Dim strLocalFileNameList() As String = e.Item.Cells(12).Text.Split("\")
            Dim strLocalFileName As String = strLocalFileNameList(strLocalFileNameList.Length - 1)
            If strSourceFilePath.Substring(0, 2) <> "\\" Then
                If strSourceFilePath(0) = "\" Then
                    strSourceFilePath = "\" & strSourceFilePath
                Else
                    strSourceFilePath = "\\" & strSourceFilePath
                End If
            End If
            If Not sftp.GetInfo(strSourceFilePath, strLoaclfilePath) Then
                Throw New Exception("Can not find file in SFTP path[" & strSourceFilePath & "]")
            End If
            sftp.Disconnect()
            strLoaclfilePath = strLoaclfilePath & "\" & strLocalFileName

            If File.Exists(strLoaclfilePath) Then
                Response.Redirect(RedirectURL & strLocalFileName)
            Else
                'Can not find path 
                Throw New Exception("Can not find path[" & strLocalFileName & "]")
            End If

大致上是能够下载下来，也能打开了，另外host，username，password，SFTP上的文件路径以及下载到本地的路径，我都是需要自己在config里面配置，其实也可以直接hardcode在代码里面，不过这样灵活一些。