用vbs來探測端口的代碼 不用注冊winsock
更新時間:2011年05月14日 14:00:04 作者:
寫這東東主要是在木馬的cmdshell中用,探測目標ip的常用端口是否開放。像用nc在shell中返回信息不方便,其它掃描軟件什么的tcp syn之類的掃描怕動靜太大
復(fù)制代碼 代碼如下:
On Error Resume Next
if (lcase(right(wscript.fullname,11))="wscript.exe") then
wscript.echo "Execute it under the cmd.exe Plz! Thx."
wscript.quit
end If
if Wscript.Arguments.count=0 Then
usage()
wscript.quit
End If
Set Arg=Wscript.Arguments
Sport= Split(arg(1),",")
For i=0 To UBound(Split(arg(1),","))
wsh.echo "scan "&Sport(i)&" ing……"
Set x=CreateObject("msxml2.serverXMLHTTP")
x.open "post","http://"&arg(0)&":"&Sport(i)
x.send("hello")
wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description
if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then
wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN"
End if
next
function usage()
wscript.echo "| 注意查看ERr.Description來判斷端口開放,自動探測不一定準確 |"
wscript.echo "| |"
wscript.echo "|Useage: |"
wscript.echo "| cscript.exe this.vbs ip port |"
wscript.echo "|ex: |"
wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |"
wscript.echo "+-------------------------------------------------------------------+"&chr(10)
end function
相關(guān)文章
把任意文件轉(zhuǎn)成vbs文件的file2vbs的vbs代碼
文章作者:xiaolu [BST] 信息來源:邪惡八進制信息安全團隊(www.eviloctal.com) 這個不是exe2vbs 所有類型的文件都可以轉(zhuǎn)化的 不過限于string的大小 文件不能太大 我測試過3m的文件是可以的2008-05-05簡單用VBS調(diào)用企業(yè)微信機器人發(fā)定時消息的方法
這篇文章主要介紹了簡單用VBS調(diào)用企業(yè)微信機器人發(fā)定時消息的方法,文中通過示例代碼介紹的非常詳細,對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-07-07VBS基礎(chǔ)篇 - 條件語句(if與Select Case)
經(jīng)常地,當我們編寫代碼時,我們需要根據(jù)不同的判斷執(zhí)行不同操作,我們可以使用條件語句完成這個工作,asp中的條件語句主要是if與Select Case這里就為大家介紹一下,需要的朋友可以參考下2018-05-05用vbscript腳本實現(xiàn)返回 IP 配置數(shù)據(jù)的代碼
用vbscript腳本實現(xiàn)返回 IP 配置數(shù)據(jù)的代碼...2007-05-05