VBS如何實(shí)現(xiàn)偏移量解密工具-創(chuàng)新互聯(lián)

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

我們提供的服務(wù)有：網(wǎng)站設(shè)計(jì)制作、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、五通橋ssl等。為近1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的五通橋網(wǎng)站制作公司

代碼如下:

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如何實(shí)現(xiàn)偏移量解密工具”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

本文標(biāo)題：VBS如何實(shí)現(xiàn)偏移量解密工具-創(chuàng)新互聯(lián)
文章起源：http://bm7419.com/article44/didhee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、網(wǎng)站內(nèi)鏈、網(wǎng)站建設(shè)、軟件開發(fā)、域名注冊、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)