溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

VBS如何實現(xiàn)偏移量解密工具

發(fā)布時間：2021-10-12 10:36:58 來源：億速云 閱讀：115 作者：小新 欄目：開發(fā)技術(shù)

這篇文章給大家分享的是有關(guān)VBS如何實現(xiàn)偏移量解密工具的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

代碼如下:


If wscript.arguments.count=0 Or wscript.arguments.Count>1 then
msgbox "請將通過偏移量加密過的 VBS 文件拖放到本腳本上即可[請逐個解密]！",48,"提示"
wscript.quit
End If

For Each fname In wscript.Arguments
If Right(fname,3)<> "vbs" Then
MsgBox "請選擇 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如何實現(xiàn)偏移量解密工具”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

向AI問一下細節(jié)

免責聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

vbs
AI
助
手