VBS 偏移量解密工具[算法解密]
更新時(shí)間：2009年12月23日 23:59:16 作者：
請(qǐng)將通過(guò)偏移量加密過(guò)的 VBS 文件拖放到本腳本上即可[請(qǐng)逐個(gè)解密
復(fù)制代碼 代碼如下:
If wscript.arguments.count=0 Or wscript.arguments.Count>1 then
msgbox "請(qǐng)將通過(guò)偏移量加密過(guò)的 VBS 文件拖放到本腳本上即可[請(qǐng)逐個(gè)解密]！",48,"提示"
wscript.quit
End If
For Each fname In wscript.Arguments
If Right(fname,3)<> "vbs" Then
MsgBox "請(qǐng)選擇 VBS 文件!",64,"提示"
WScript.Quit
else
Set fso=CreateObject("scripting.filesystemobject")
set objf=fso.opentextfile(fname)
str=objf.ReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objf.Close
Set objf=fso.OpenTextFile(fname,2)
objf.Write runner
MsgBox "解密成功",64,"提示"
End if
Next
相關(guān)文章
VBS實(shí)現(xiàn)將當(dāng)前時(shí)間轉(zhuǎn)換成UTC時(shí)間
這篇文章主要介紹了VBS實(shí)現(xiàn)將當(dāng)前時(shí)間轉(zhuǎn)換成UTC時(shí)間,十分的簡(jiǎn)單實(shí)用，需要的朋友可以參考下2015-05-05
用vbs遍歷文件并隨機(jī)顯示的腳本...2007-10-10
用vbs實(shí)現(xiàn)的利用ADSL撥號(hào)變ip刷投票的代碼
朋友讓我?guī)退⑼镀?，我看了看，那個(gè)投票系統(tǒng)只是限制ip，考慮的不是很全面，可以刷。2010-03-03
VBS真是妙用無(wú)窮。會(huì)的程序語(yǔ)言不用太多，也不用太復(fù)雜，精通一門就好2013-05-05
VBS教程：對(duì)象-正則表達(dá)式(RegExp)對(duì)象
RegExp對(duì)象在VBScript中提供正則表達(dá)式支持功能，該對(duì)象有3個(gè)屬性和3個(gè)方法2006-11-11
用來(lái)計(jì)算中文姓名的筆畫數(shù)的腳本，非常不錯(cuò)，算命常用的2009-08-08
VBS教程：函數(shù)-Space 函數(shù)...2006-11-11
輸入小助手.vbs有時(shí),滲透時(shí),溢出得個(gè)SHELL,或只有一個(gè)CMDSHELL,想下載些東西,或上傳東西,時(shí)真是不方便啊 特別是當(dāng)目標(biāo)不能上網(wǎng),或限制比較嚴(yán)格時(shí)… ECHO東西,手工輸入,那個(gè)累啊….還是弄個(gè)腳本方便些…2008-05-05
使用VBS禁用、啟動(dòng)USB存儲(chǔ)設(shè)備
這篇文章主要介紹了使用VBS禁用、啟動(dòng)USB存儲(chǔ)設(shè)備,需要的朋友可以參考下2014-09-09
首先要說(shuō)的是，VBS是由腳本宿主解釋執(zhí)行的未經(jīng)編譯的明文代碼。連exe的加密免殺都十分困難，大家也不必報(bào)用VBS挑戰(zhàn)殺軟的幻想2012-12-12