windows-xptelnet命令
windows-xp telnet命令的扩展（要求指定源ip地址）
你好,
路有器才能用loopback0来实现: telnet 192.168.1.1 source lo0
电脑的loopback0只能用来测试.
PC向服务器TELNET发送数据源端口号和目的端口号是多少
源端口是大于1024的随即端口，目的端口是23。
怎么只允许指定的IP地址telnet到路由器上？
使用line vty 中使用命令 access-class
Router(config)# line vty 0 4 进入telnet的线路 0-4
Router(config-line)# access-class + ACL + in
ACL里面设置permit 的IP地址
Linux系统下telnet远程主机端口时，可以带上源地址吗?
不明白你什么意思，telnet是通过23端口去连接这个主机，如果你的系统开启了23端口和telnet服务，那么只需要telnet ip地址 就行了，端口是默认的，如果你自行修改了端口号，当然在telnet的时候是需要加端口的。你的这个源地址是指什么？
思科路由器如何制定特定IP才能telnet，求具体命令
什么情况，详细倒来？
谁有delphi中实现telnet的完整源码
Telnet（TCP/IP Terminal Emulation Protocol，TCP/IP终端仿真协议）是一种基于TCP 23端口的虚拟终端通讯协议。Telnet是标准的提供远程登录功能的应用，能够运行于不同操作系统的主机之间。 Telnet由运行在本地计算机上的Telnet客户进程和运行在
500分求telnet client 的VB源码或示例？
原来是有认证信息，有个简单的方法是拒绝所有认证，代码如下
Option Explicit
Private host As String
Private port As Integer
Private Sub Form_Load()
host = Trim(InputBox("输入主机地址，端口号用空格分割"))
Text1.Text = ""
Text1.Locked = True
If InStr(host, " ") > 0 Then
port = Val(Mid(host, InStr(host, " ") + 1))
host = Left(host, InStr(host, " ") - 1)
End If
If port = 0 Then port = 23
Winsock1.Protocol = sckTCPProtocol
Winsock1.Connect host, port
End Sub
Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim c As String
c = Chr(KeyAscii)
Winsock1.SendData c
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s() As Byte
Dim l As Long
Winsock1.GetData s
ExplainCode s
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Text1.Text = Text1.Text & vbCrLf & "Connect Error" & vbCrLf
End Sub
Private Function ExplainCode(ByRef s() As Byte) As String
Dim i As Long, j As Long
Dim l As Long
Dim k() As Byte
Dim db() As Byte, dbl As Long
ReDim k(UBound(s)) As Byte
Dim ss As String
dbl = -1
ExplainCode = vbNullChar
For i = 0 To UBound(s)
Select Case s(i)
Case 8
If i < UBound(s) - 1 Then
If s(i + 2) = 8 Then
ss = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.Text = ss
i = i + 2
End If
End If
Case 255
If i < UBound(s) Then
Select Case s(i + 1)
Case 253
If i < UBound(s) - 1 Then
ReDim Preserve db(0 To dbl + 3)
db(dbl + 1) = s(i)
db(dbl + 2) = &HFC '所有特殊请求全部拒绝
db(dbl + 3) = s(i + 2)
dbl = dbl + 3
i = i + 2
End If
Case 250
For j = i To UBound(s)
If s(j) = 240 Then
Exit For
End If
Next j
i = j
Case 251
If i < UBound(s) - 1 Then
i = i + 2
End If
End Select
End If
Case 27
If i < UBound(s) - 1 Then
If s(i + 1) = &H5B Then
If s(i + 2) = &H48 Then
Text1.Text = Text1.Text & vbCrLf
i = i + 2
ElseIf s(i + 2) = &H4A Then
Text1.Text = ""
i = i + 2
Else
For j = i To UBound(s)
If s(j) = 109 Or s(j) = 75 Or s(j) = 74 Then
Exit For
End If
Next j
i = j
End If
End If
End If
Case Else
If i < UBound(s) Then
If s(i) = 10 And s(i + 1) = 13 Then
s(i) = 13
s(i + 1) = 10
End If
End If
k(l) = s(i)
l = l + 1
End Select
Next i
If dbl -1 Then Winsock1.SendData db
If l = 0 Then Exit Function
ReDim Preserve k(0 To l - 1) As Byte
ExplainCode = StrConv(k, vbUnicode)
Text1.Text = Text1.Text & ExplainCode
End Function