Telnet Client - Verbindung schlägt fehl, error

  • VB.NET

    Telnet Client - Verbindung schlägt fehl, error

    Hi,

    bekomme jedesmal nen error, wenn ich auf mein Netduino+ connecten möchte (über telnet).
    Ich hoffe, das ihr mir helfen könnt, da ich nicht schlauer werde. Das Programm schafft es sogar, den Netduino+ server zu crashen -.-
    Spoiler anzeigen
    Module1.vb

    VB.NET-Quellcode

    1. Namespace MinimalisticTelnet
    2. Module Module1
    4. Sub Main()
    5. Console.WriteLine("Ziel-Adresse:")
    6. 'verlangt die Ziel-Adresse
    7. Dim x As String = Console.ReadLine()
    8. 'erstellt eine neue telnet verbindung zum hostname "x" auf dem port 23
    9. Dim tc As New TelnetConnection(x, 23)
    11. 'loggt sich mit ein [Username, Passwort, timeout] und wartet den timeout ab.
    12. Dim s As String = tc.Login("test", "test", 100)
    13. 'die rückmeldung wird angezeigt
    14. Console.WriteLine(s)
    16. 'rückmeldung muss mit einem "$" oder > enden, sonst gilt die verbindung als gescheitert
    17. Dim prompt As String = s.TrimEnd()
    18. prompt = s.Substring(prompt.Length - 1, 1)
    19. If prompt <> "$" AndAlso prompt <> ">" Then
    20. Throw New Exception("Verbindung fehlgeschlagen")
    21. End If
    23. prompt = ""
    25. 'während die verbindung steht...
    26. While tc.IsConnected AndAlso prompt.Trim() <> "exit"
    27. 'zeigt die server-rückmeldungen an
    28. Console.Write(tc.Read())
    30. 'sendet dem Server den eingegebenen befehl
    31. prompt = Console.ReadLine()
    32. tc.WriteLine(prompt)
    34. 'zeigt die server-rückmeldungen an
    35. Console.Write(tc.Read())
    36. End While
    37. ' und wenn die verbindung getrennt wird, wird eine nachricht ausgegeben
    38. Console.WriteLine("***VERBINDUNG GETRENNT")
    39. Console.ReadLine()
    40. End Sub
    42. End Module
    43. End Namespace



    TelnetInterface.vb

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.Text
    3. Imports System.Net.Sockets
    4. Namespace MinimalisticTelnet
    5. Enum Verbs
    6. WILL = 251
    7. WONT = 252
    8. [DO] = 253
    9. DONT = 254
    10. IAC = 255
    11. End Enum
    13. Enum Options
    14. SGA = 3
    15. End Enum
    17. Class TelnetConnection
    18. Private tcpSocket As TcpClient
    19. 'Definiert den "Timeout"
    20. Private TimeOutMs As Integer = 500
    22. Public Sub New(ByVal Hostname As String, ByVal Port As Integer)
    23. 'Startet einen tcpclient mit dem hostname und dem Port
    24. tcpSocket = New TcpClient(Hostname, Port)
    25. End Sub
    27. Public Function Login(ByVal Username As String, ByVal Password As String, ByVal LoginTimeOutMs As Integer) As String
    28. 'Klasse, um sich einzuloggen
    29. 'Wenn kein username: oder Passwort: verlangt wird, wird die verbindung als fehlgeschalgen erklärt
    31. 'speichert den internen timeout temporät ab...
    32. Dim oldTimeOutMs As Integer = TimeOutMs
    33. 'und ändert ihn mit dem eingegebenen timeout um.
    34. TimeOutMs = LoginTimeOutMs
    35. Dim s As String = Read()
    36. 'Wenn kein Username verlangt wird, wird die verbindung getrennt
    37. If Not s.TrimEnd().EndsWith(":") Then
    38. Throw New Exception("Verbindung fehlgeschlagen : kein login-prompt")
    39. End If
    40. WriteLine(Username)
    41. 'Wenn kein Passwort verlangt wird, wird die verbindung getrennt
    42. s += Read()
    43. If Not s.TrimEnd().EndsWith(":") Then
    44. Throw New Exception("Verbindung fehlgeschlagen : kein passwort-prompt")
    45. End If
    46. WriteLine(Password)
    48. 'Wenn die verbindung akzeptiert wird, wird die Rückmeldung zurückgegeben.
    49. s += Read()
    50. 'Der interne Timeout wird wiederhergestellt.
    51. TimeOutMs = oldTimeOutMs
    53. 'Gibt den jeweiligen Wert (oder fehler) zurück
    54. Return s
    55. End Function
    57. Public Sub WriteLine(ByVal cmd As String)
    58. 'Hier werden die Befehle gesendet
    59. Write(cmd & vbLf)
    60. End Sub
    62. Public Sub Write(ByVal cmd As String)
    63. If Not tcpSocket.Connected Then
    64. Return
    65. End If
    66. Dim buf As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(cmd.Replace(vbNullChar & "xFF", vbNullChar & "xFF" & vbNullChar & "xFF"))
    67. tcpSocket.GetStream().Write(buf, 0, buf.Length)
    68. End Sub
    70. Public Function Read() As String
    71. If Not tcpSocket.Connected Then
    72. Return Nothing
    73. End If
    74. Dim sb As New StringBuilder()
    75. Do
    76. ParseTelnet(sb)
    77. System.Threading.Thread.Sleep(TimeOutMs)
    78. Loop While tcpSocket.Available > 0
    79. Return sb.ToString()
    80. End Function
    82. Public ReadOnly Property IsConnected() As Boolean
    83. Get
    84. Return tcpSocket.Connected
    85. End Get
    86. End Property
    88. Private Sub ParseTelnet(ByVal sb As StringBuilder)
    89. While tcpSocket.Available > 0
    90. Dim input As Integer = tcpSocket.GetStream().ReadByte()
    91. Select Case input
    92. Case -1
    93. Exit Select
    94. Case CInt(Verbs.IAC)
    95. ' interpret as command
    96. Dim inputverb As Integer = tcpSocket.GetStream().ReadByte()
    97. If inputverb = -1 Then
    98. Exit Select
    99. End If
    100. Select Case inputverb
    101. Case CInt(Verbs.IAC)
    102. 'literal IAC = 255 escaped, so append char 255 to string
    103. sb.Append(inputverb)
    104. Exit Select
    105. Case CInt(Verbs.[DO]), CInt(Verbs.DONT), CInt(Verbs.WILL), CInt(Verbs.WONT)
    106. ' reply to all commands with "WONT", unless it is SGA (suppres go ahead)
    107. Dim inputoption As Integer = tcpSocket.GetStream().ReadByte()
    108. If inputoption = -1 Then
    109. Exit Select
    110. End If
    111. tcpSocket.GetStream().WriteByte(CByte(Verbs.IAC))
    112. If inputoption = CInt(Options.SGA) Then
    113. tcpSocket.GetStream().WriteByte(If(inputverb = CInt(Verbs.[DO]), CByte(Verbs.WILL), CByte(Verbs.[DO])))
    114. Else
    115. tcpSocket.GetStream().WriteByte(If(inputverb = CInt(Verbs.[DO]), CByte(Verbs.WONT), CByte(Verbs.DONT)))
    116. End If
    117. tcpSocket.GetStream().WriteByte(CByte(inputoption))
    118. Exit Select
    119. Case Else
    120. Exit Select
    121. End Select
    122. Exit Select
    123. Case Else
    124. sb.Append(ChrW(input))
    125. Exit Select
    126. End Select
    127. End While
    128. End Sub
    129. End Class
    130. End Namespace



    Der Fehler tritt immer bei TelnetInterface.vb>"

    VB.NET-Quellcode

    1. If Not s.TrimEnd().EndsWith(":") Then
    2. Throw New Exception("Verbindung fehlgeschlagen : kein login-prompt")
    3. End If
    "

    Der fehler: Verbindung fehlgeschlagen : kein login-prompt
    Obwohl der Server "Username:" sendet

    Wenn ich den TimeOut im Module1.vb erhöhe, bekomme ich in module1.vb>zeile20 den fehler: Verbindung fehlgeschlagen
    Obwohl die Konsole schon "Username:" anzeigt...

    oder gibt es eine einfachere variante, telnet-befehle zu versenden?

    mfg

    gfc

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „gfcwfzkm“ ()

Facebook
Telefonspende