FTP über SSL mit FtpWebRequest.EnableSsl

  • VB.NET

    FTP über SSL mit FtpWebRequest.EnableSsl

    Hallo zusammen,

    ich habe hier ein Beispielprogramm, an dem ich ein Problem verdeutlichen möchte, was auftritt, wenn ich versuche, eine FTPS-Verbindung zu einem FTP-Server aufzubauen, der dies unterstützt. Der FTP-Server unterstützt zum Einen eine unverschlüsselte Verbindung über Port 21 und eine Verbindung mittels "FTPS – FTP über impliziertes TLS/SSL" über Port 990. Ich habe nun folgendes Beispiel-Konsolenprogramm, was sich an dem Server anmelden und eine Beispieldatei hochladen soll. Das Programm enthält einige STOP-Anweisungen, die natürlich nur zu Debuggingzwecken enthalten sind, und ich lasse das Programm direkt über die Entwicklungsumgebung im Debugging laufen.

    VB.NET-Quellcode

    1. Module Module1
    3. Private Const USER = "USER"
    4. Private Const PASSWORD = "PASSWORD"
    5. Private Const ADDRESS = "ftp://server.domain:990/test.txt"
    6. Private Const FILE = "C:\Temp\test.txt"
    8. Sub Main()
    9. Try
    10. Dim credentials As New Net.NetworkCredential(USER, PASSWORD)
    11. Dim ftpWebRequest As Net.FtpWebRequest
    12. ftpWebRequest = Net.FtpWebRequest.Create(ADDRESS)
    13. ftpWebRequest.EnableSsl = True
    14. ftpWebRequest.Credentials = credentials
    15. ftpWebRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
    16. Net.ServicePointManager.ServerCertificateValidationCallback = New Net.Security.RemoteCertificateValidationCallback(AddressOf ValidateServerCertificate)
    18. Dim requestStream As IO.Stream = ftpWebRequest.GetRequestStream()
    19. Dim fileStream As IO.Stream = IO.File.OpenRead(FILE)
    21. Const bufferLength As Integer = 2048
    22. Dim buffer(bufferLength) As Byte
    23. Dim count As Integer = 0
    24. Dim readBytes As Integer = 0
    26. Do
    27. readBytes = fileStream.Read(buffer, 0, bufferLength)
    28. requestStream.Write(buffer, 0, readBytes)
    29. count += readBytes
    30. Loop While readBytes <> 0
    32. requestStream.Close()
    33. fileStream.Close()
    34. Catch ex As Net.WebException
    35. Dim response As Net.FtpWebResponse = ex.Response
    36. Stop
    37. Catch ex As Exception
    38. Stop
    39. End Try
    40. End Sub
    42. Public Function ValidateServerCertificate( _
    43. ByVal sender As Object, _
    44. ByVal certificate As Security.Cryptography.X509Certificates.X509Certificate, _
    45. ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, _
    46. ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors _
    47. ) As Boolean
    48. If sslPolicyErrors = Net.Security.SslPolicyErrors.None Then
    49. Return True
    50. End If
    52. Console.WriteLine("Certificate error {0}", sslPolicyErrors)
    54. Return False
    55. End Function
    57. End Module


    Den Port habe ich innerhalb der ADDRESS-Konstante um URI hinterlegt - ich weiß nicht, ob dies so korrekt ist, allerdings sind die Auswirkungen etwas anders, wenn ich hier den Port 990 angebe, im Gegensatz dazu, wenn ich keinen Port mit angebe.

    Lasse ich das Beispielprogramm nun laufen, tritt bei der Zeile...

    Dim requestStream As IO.Stream = ftpWebRequest.GetRequestStream()

    ...nach einer Zeit eine WebException "Timeout" auf:

    Timeout für den Vorgang wurde überschritten.

    Innerhalb der Exception steht ein WebResponse-Objekt über die Eigenschaft "Response" zur Verfügung, was in ein Objekt vom Typ "FtpWebResponse" gecastet werden kann. Dies enthält aber leider keinerlei weitere Angaben in den Eigenschaften.

    Lasse ich das Programm ohne Angabe eines Ports laufen, erhalte ich bei oben genannter Zeile sofort eine WebException:

    Der Remoteserver hat einen Fehler zurückgegeben: (530) Nicht angemeldet.

    Das WebResponse-Objekt in der Ausnahme zeigt dann Folgendes:

    {System.Net.FtpWebResponse}
    BannerMessage: "220 FTP-Server ready "
    ContentLength: 0
    ContentType: {"Die Eigenschaft wird von der Klasse nicht implementiert."}
    ExitMessage: ""
    Headers: {System.Net.WebHeaderCollection}
    IsFromCache: False
    IsMutuallyAuthenticated: False
    LastModified: #12:00:00 AM#
    ResponseUri: {System.Uri}
    StatusCode: NotLoggedIn {530}
    StatusDescription: "530 Please login with USER and PASS. "
    WelcomeMessage: ""

    Hat jemand eine Idee, was hier falsch ist, und wie ich mich an diesen FTP-Server mittels eines impliziten FTP over SSL anmelden kann?

    Vielen Dank im Voraus für Eure Hilfe!

    Gruß

    Harry

Facebook
Telefonspende