|
VB编写入侵监听程序 |
| 来源：电脑志
作者：佚名 时间：2007-9-23 17:28:35 【字体：小
大】 [IE收藏] [QQ书签收藏] |
|
|
以下是代码片段：
‘本程序在VB6.0＋Windows2000下测试通过！
Dim tmpstr As String
Dim NOW_OUT As Integer ’’总共出去连接的有几个Winsock
Private Sub Command1_Click()
ListPorts.AddItem txtADDPORT.Text
End Sub
Private Sub Command2_Click()
On Error Resume Next
If Command2.Caption = "监听" Then
For i = 0 To ListPorts.ListCount - 1
Load Winsock1(i + 1) ’’加载监听端口的winsock1数组控件
Winsock1(i + 1).LocalPort = ListPorts.List(i) ’’设定端口
Winsock1(i + 1).Listen ’’监听
Next i
Command2.Caption = "停止"
Else
For i = 1 To Winsock1.Count - 1
Unload Winsock1(i)
Next i
For i2 = 1 To Winsock2.Count - 1
Unload Winsock2(i2)
Next i2
Command2.Caption = "监听"
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
txtLOG.Text = "日志:" & vbCrLf
NOW_OUT = 1
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Load Winsock2(NOW_OUT) ’’加载建立连接的Winsock2数组控件
Winsock2(NOW_OUT).Accept requestID ’’建立连接
Winsock1(Index).Close
Winsock1(Index).Listen ’’Winsock1继续监听
NOW_OUT = NOW_OUT + 1 ’’连接的控件累加
myAddLog "来自" & Winsock1(Index).RemoteHostIP & "连接到本地端口:" & Winsock1(Index).LocalPort
’’显示捕获的连接
End Sub
Private Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Winsock2(Index).GetData tmpstr ’’通过Getdata捕获数据
myAddLog "来自" & Winsock2(Index).RemoteHostIP & "的数据：" & tmpstr ’’显示捕获的数据
End Sub
Sub myAddLog(tmptext As String) ’’加入日志
tmptext = tmptext & vbCrLf
txtLOG.SelStart = Len(txtLOG.Text)
txtLOG.SelText = tmptext
End Sub |
|
|
|
|
上一篇文章： 小偷程序原理和简单示例下一篇文章： 远程调用ACCESS数据库 |
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系网站管理员，我们尽快予以更正。 |
|
|
|
|
