2022年VB黑客攻击扫描程序源代码 .pdf

《2022年VB黑客攻击扫描程序源代码 .pdf》由会员分享，可在线阅读，更多相关《2022年VB黑客攻击扫描程序源代码 .pdf（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、首次曝光黑客攻击扫描程序源代码类型：原创作者：中关村在线netdream 日期： 2005-08-15 08:43:52 真正的黑客是那些具有开源思想的程序员（不知我这么讲会不会有鸡蛋扔过来），现在网上的黑客工具多了， 黑别人与被黑的几率就大了。黑客工具始终是一把双刃剑， 他们可以是检测网络漏洞的助手，也可以是黑别人的工具。 喜欢黑客技术的网友一定用过网络扫描器，这是入侵之前踩点儿的好工具，大家一定对他们是怎么做出来的很感兴趣，好，下面我就带大家一起来了解一下一个简单的端口扫描器是如何做出来的。端口扫描 通常指用同一信息对目标计算机的所有所需扫描的端口进行发送，然后根据返回端口状态来分析目标计

2、算机的端口是否打开、是否可用。 端口扫描 行为的一个重要特征是：在短时期内有很多来自相同的信源地址传向不同的目的地端口的包。端口扫描器通过选用远程TCP/IP 协议不同端口的服务，记录目标计算机端口给予的回答的方法，可以搜集到很多关于目标计算机的各种有用信息（比如：是否有端口在侦听？是否允许匿名登陆？是否有可写的FTP目录，是否能用TELNET 等 ）。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 11 页 - - - - - - - - - 端口扫描的基本原理图好了，

3、下面我们就用VB6.0 打造一个属于自己的端口扫描器吧。首先新建工程， 准备好以下控件： SSTab 、Label 、Textbox、Commandbutton 、Progressbar 、PictureBox 、Winsock、Flatscrollbar、Optionbutton. 添加两个窗体和一个模块， 分别命名为 Frmscaner、OpenPortDlg、Module1。Frmscaner 为扫描器的主窗体， OpenPortDlg 为扫描结束后的弹出结果窗口，Module1当然就是我们所要添加的模块了，如下图拖放好控件，准备添加代码。名师资料总结 - - -精品资料欢迎下载 - -

4、 - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 11 页 - - - - - - - - - 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 11 页 - - - - - - - - - 设计界面在通用声明部分添加如下代码：Option Explicit Dim countline As Integer Dim nowport As Integer Dim lognum As Integer Di

5、m fso As New FileSystemObject Dim flag As Boolean Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long Const EM_GETLINECOUNT = &HBA Const EM_GETLINE = &HC4在 Command1中，即开始按钮中添加如下代码：Private Su

6、b Command1_Click() Dim i If Command1.Caption = 开始 Then GoOnFlag = True Command1.Caption = 停止 WckNum = ThreadNUM.Value 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 11 页 - - - - - - - - - StartPort = PORTSTART.Text EndPort = PORTEND.Text RemoteIP = IPADDRESS.Te

7、xt Fengzi = 0 Fengmu = EndPort - StartPort + 1 portscan StartPort, EndPort, WckNum Else Command1.Enabled = False GoOnFlag = False DoEvents On Error Resume Next For i = 1 To WckNum Winsock(i).Close Next i End If End Sub在退出按钮中只需写一句Unload Me 就可以了：Private Sub Command2_Click() Unload Me End Sub在 Form Loa

8、d 中添加：Private Sub Form_Load() WckNum = ThreadNUM.Value StartPort = PORTSTART.Text EndPort = PORTEND.Text PgBar.Value = 0 Call paintstatus flag = True End Sub在 Form Resize中添加：Private Sub Form_Resize() STATUS.Width = Me.Width - 4830 End Sub在通用 Frame1_DblClick 中添加：Private Sub Frame1_DblClick(Cancel As

9、MSForms.ReturnBoolean) If flag Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 11 页 - - - - - - - - - Me.WindowState = 2 Else Me.WindowState = 0 End If End Sub在 Option1 Click 中添加：Private Sub Option1_Click() ThreadNUM.Enabled = True End Sub在 Option2 Click 中添

10、加：Private Sub Option2_Click() ThreadNUM.Value = 500 End Sub 在 Option3 Click 中添加：Private Sub Option3_Click() ThreadNUM.Value = 100 End Sub在 STATUS Change中添加：Private Sub STATUS_Change() countline = SendMessage(STATUS.hwnd, EM_GETLINECOUNT, 0, 0) If countline 26 Then STATUS.Text = End If End Sub在 Threa

11、dNUM Change中添加：Private Sub ThreadNUM_Change() WckNum = ThreadNUM.Value labelnumber.Caption = Str(WckNum) End Sub在 Winsock Connect中添加：Private Sub Winsock_Connect(Index As Integer) STATUS.Text = STATUS.Text & ( 端口 & Str(Winsock(Index).RemotePort) & 开名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -

12、 - - 名师精心整理 - - - - - - - 第 6 页，共 11 页 - - - - - - - - - 放) & vbCrLf & vbCrLf Addtolist Winsock(Index).RemotePort End Sub在通用 Addtolist 中添加：Sub Addtolist(port As Integer) Dim addstr, plus As String addstr = 发现端口 & Str(port) & 打开 & Space(5) Select Case port Case 7 plus = ECHO 服务 Case 21 plus = FTP 服务

13、Case 25 plus = SMTP 服务 Case 43 plus = Whois 服务 Case 53 plus = DNS 服务 Case 80 plus = HTTP 服务 Case 81 plus = HOSTS2 名称服务 Case 99 plus = NCX99 后门 Case 110 plus = POP3服务 Case 111 plus = Sun RPC服务 Case 135 plus = 本地服务 Case 137 plus = NETBIOS 名称服务 /流影 POP Case 138 plus = NETBIOS 数据存储服务 Case 139 plus = NET

14、BIOS 会议服务 Case 119 plus = NNTP 虚拟服务 Case 163 plus = SNMP 服务 Case 443 plus = https服务 Case 512 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 11 页 - - - - - - - - - plus = 远程执行服务 Case 513 plus = login, remote login Case 514 plus = cmd, exec with auto auth. Case 6

15、00 plus = Sun IPC服务器 Case 1080 plus = SOCKS 代理服务 Case 1433 plus = SQL 服务器 Case 3128 plus = HTTP 代理服务 Case 7626 plus = 木马冰河 Case 8080 plus = HTTP 代理服务 Case Else plus = 未知服务 ! End Select OpenPortDlg.List1.AddItem (addstr & plus) End Sub 在通用 paintstatus中你看到的代码是个版权信息，可以根据自己的需要去改：）Sub paintstatus() STATU

16、S.Text = = & vbCrLf _ & PortScanner 1.0 & vbCrLf _ & by netdream & vbCrLf _ & vbCrLf _ & N & vbCrLf _ & = & vbCrLf End Sub下面是模块中的代码，分了两部分：Public WckNum As Integer Public StartPort As Integer Public EndPort As Integer Public RemoteIP As String Public WCKcount As Integer Public GoOnFlag As Boolean 名师资

17、料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 11 页 - - - - - - - - - Public Fengzi As Integer Public Fengmu As Integer Public Sub portscan(startpt As Integer, endpt As Integer, wck As Integer) On Error Resume Next Dim n, nowport, nextstart As Integer portnum = en

18、dpt - startpt + 1 nextstart = nextstart + startpt If portnum 0 Then If Not GoOnFlag Then OpenPortDlg.Show 1 FrmScaner.Command1.Enabled = True FrmScaner.Command1.Caption = 开始 Exit Sub End If If portnum = wck And GoOnFlag Then FrmScaner.PgBar.Max = portnum nowport = startpt For n = 1 To portnum Load F

19、rmScaner.Winsock(n) FrmScaner.Winsock(n).RemoteHost = RemoteIP FrmScaner.Winsock(n).RemotePort = nowport FrmScaner.STATUS.Text = FrmScaner.STATUS.Text + 线程 & Str(n) & 启动 :连接远程端口 : & Str(nowport) & vbCrLf & vbCrLf FrmScaner.Winsock(n).Connect DoEvents FrmScaner.PgBar.Value = FrmScaner.PgBar.Value + 1

20、 Fengzi = Fengzi + 1 FrmScaner.AllPg.Caption = Trim(Str(CInt(Fengzi / Fengmu * 100) nowport = nowport + 1 Next n Do While FrmScaner.Winsock(nowport - 1).State 7 DoEvents Exit Do Loop For n = 1 To portnum FrmScaner.Winsock(n).Close Unload FrmScaner.Winsock(n) Next n FrmScaner.Command1.Caption = 开始 Op

21、enPortDlg.Show 1 FrmScaner.PgBar.Value = 0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 11 页 - - - - - - - - - Call FrmScaner.paintstatus Exit Sub Else If GoOnFlag Then nowport = startpt FrmScaner.PgBar.Max = wck For n = 1 To wck Load FrmScaner.Winsock(n) Frm

22、Scaner.Winsock(n).RemoteHost = RemoteIP FrmScaner.Winsock(n).RemotePort = nowport FrmScaner.STATUS.Text = FrmScaner.STATUS.Text + 线程 & Str(n) & 启动 :连接远程端口 : & Str(nowport) & vbCrLf & vbCrLf FrmScaner.Winsock(n).Connect DoEvents Fengzi = Fengzi + 1 FrmScaner.AllPg.Caption = Trim(Str(CInt(Fengzi / Fen

23、gmu * 100) FrmScaner.PgBar.Value = FrmScaner.PgBar.Value + 1 nowport = nowport + 1 Next n Do While FrmScaner.Winsock(nowport - 1).State 7 DoEvents Exit Do Loop For n = 1 To wck FrmScaner.Winsock(n).Close Unload FrmScaner.Winsock(n) Next n nextstart = nextstart + wck FrmScaner.PgBar.Value = 0 portsca

24、n nextstart, EndPort, WckNum End If End If End If Exit Sub msgboxerr: MsgBox 有错误了！请告诉我，我会在后续版本中改正的! & vbCrLf & Mail:, 16, 错误 End Sub 下面是编译好后运行时的界面名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 11 页 - - - - - - - - - 运行界面至此我已经把所有的代码交待了一遍，大家可以好好研究研究，这只是一种思路，希望大家如果有更好的代码能共享出来，做个真正的黑客。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 11 页 - - - - - - - - -