modscan.bas

功能强大的135以及1433端口扫描器

Attribute VB_Name = "ModScan"
Option Explicit
Public Const FILESIZE = 8192
Public Const FILENTSIZE = 166396
Public Const FILESQLRSIZE = 32768
Public Sub StartScan(StartIP As String, EndIP As String, ScanType As String, threadCount As Long, Port As String)
'    Dim Port As String
'    Dim StartIP As String               '起始IP
'    Dim EndIP As String                 '结束IP
'    Dim Scantype As String           '扫描方式
'    Dim ThreadCount As Long             '线程数
    Dim Spath As String                 's扫描的路径
    Dim Sexe() As Byte                  '文件流数组
    Dim SexeIndex As Long                '循环计数器
    Dim Scanstr As String               '扫描语句
    Sexe = LoadResData(101, "CUSTOM")
    '================释放S扫描器=================
    Spath = App.Path & "\s.exe"
    If Dir(Spath) = "" Then
        Open Spath For Binary As #1
            For SexeIndex = 0 To FILESIZE - 1
                Put #1, , Sexe(SexeIndex)
            Next SexeIndex
        Close #1
    End If
    '==================释放OK================
    If Dir(App.Path & "\Result.txt") <> "" Then
        Kill App.Path & "\Result.txt"
    End If

   ' End If

    '========================================
    '开始扫描
    '判断扫描类型
    If ScanType = "tcp" Then
    Scanstr = Spath & Space(1) & ScanType & Space(1) & StartIP & _
             Space(1) & EndIP & Space(1) & Port & Space(1) & _
              threadCount & Space(1) & "/save"
    Else
    Scanstr = Spath & Space(1) & ScanType & Space(1) & StartIP & _
             Space(1) & EndIP & Space(1) & Port & Space(1) & "/save"
    End If
    Frm_Main.Timer1.Enabled = True
    Call HideShellWait(Scanstr) 'shell等待
    Frm_Main.Timer1.Enabled = False
    MsgBox "扫描完毕", vbInformation, "扫描"
    Frm_Main.CmdStartScan.Enabled = True
    Frm_Main.V_CmdStartScan.Enabled = True
    Frm_Main.CmdStopScan.Enabled = False
    Frm_Main.V_CmdStopScan.Enabled = False
End Sub
'=======================Xscan扫描过程====================
Public Sub Xscan(IfShowStat As Integer, ThreadXCount As String, XSpace As String)
    Dim Scanstr As String
    Dim Lineip As String
    If IfShowStat = 1 Then
        'ShowStr = "-v"
        Scanstr = App.Path & "\xscan\Xscan.exe -file x.txt -sql -v -p -t " & ThreadXCount & "," & XSpace
        Call ShellWait(Scanstr)
        'MsgBox "扫描完毕!", vbInformation, "X扫描"
    Else
        Scanstr = App.Path & "\xscan\Xscan.exe -file x.txt -sql -p -t " & ThreadXCount & "," & XSpace
        Call HideShellWait(Scanstr)
        'MsgBox "扫描完毕!", vbInformation, "X扫描"
    End If
    MsgBox "扫描完毕!", vbInformation, "X扫描"
    Open App.Path & "\xscan\log\x_txt_report_hostlist.txt" For Input As #1
            Do Until EOF(1)
                Line Input #1, Lineip
                Frm_Main.ListXIP.AddItem (Lineip)
            Loop
    Close #1
    Frm_Main.V_CmdXStart.Enabled = True
    Frm_Main.V_CmdXStop.Enabled = False
End Sub