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