vbs腳本中加密需要注意什么-創(chuàng)新互聯(lián)

這篇文章給大家分享的是有關(guān)vbs腳本中加密需要注意什么的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考，一起跟隨小編過來看看吧。

為昭化等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及昭化網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為做網(wǎng)站、成都網(wǎng)站建設(shè)、昭化網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

代碼如下:

學(xué)vbs也有一小段時間了,最近看到一本書上講vbs腳本的加密,就自己試了試,可是有一點問題,低級的語法錯誤我都自己修正了,可腳本運行后不起作用.所以想請教你一下.腳本的原理是這樣的:它把代碼轉(zhuǎn)換成16進制,然后再寫個解密代碼,通過這個解密來執(zhí)行加密的代碼,將字符串成16進制的代碼如下:
Function str2hex (Byval strHex)
For i=1 to Len(strHex)
sHex = sHex & Hex(Asc(mid(strHex,i,1)))
next
str2Hex = sHex
end Function

解密的代碼如下:

Function hextostr(data)
Hextostr = "Execute"""""
C= "&Chr(&H"
N= ")"
Do while Len(data)>1
if IsNumeric (Left(data,1)) then
Hextostr=Hextostr&c&Left(data,2)&N
data=mid(data,3)
else
Hextostr=HextoStr&C&Left(data,4)&N
data=mid(data,5)
end if
loop
end Function

解密代碼好象有點問題,請幫忙指正,我實在找不出

整個成品就是:

on error resume next
set arg=wscript.arguement '聲明外部參數(shù)
if arg.count=0 Then wscript.quit '若無參數(shù)則退出腳本
set fso=creatobject("Scripting.Filesystem Object") '聲明fso組件
when fso.opentextfile(arg(0),1,flase)
data = readall:.close'讀取文本內(nèi)容
if err.number<>0 then wscript.quit '如果發(fā)生錯誤，則退出
with fso.opentextfile(arg(0)&"*.vbs",2,true) '將轉(zhuǎn)換好的寫到一個新的vbs中
if err.number<>0 then wscript.quit '如果發(fā)生錯誤，則退出
.writeline "Execute(Hextostr("""&str2hex(data)&"""))" '執(zhí)行解密并執(zhí)行解密后的代碼
.writeline "Function hextostr(data)"
.writeline "Hextostr=""Execute"""""""""""
.writeline "C=""&CHR(&H"""
.writeline "N= )"
.writeline "Do while Len(data)>1"
.writeline "if IsNumeric (Left(data,1)) then"
.writeline "Hextostr=Hextostr&c&Left(data,2)&N"
.writeline "data = (data,3)"
.writeline "else"
.writeline "Hextostr=Hex to str&c&Left(data,4)&N"
.writeline "data=mid(data,5)"
.writeline "end if"
.writeline "loop"
.writeline "end function"
'把解密函數(shù)寫進去
.close '關(guān)閉文本
set fso=Nothing'注銷fso組件
end with
msgbox "OK"
'以下是加密函數(shù)
Function str2hex (Byval strHex)
For i=1 to Len(strHex)
sHex = sHex & Hex(Asc(mid(strHex,i,1)))
next
str2Hex = sHex
end function
'全部代碼就到這了，好長~

書上說,把要加密的vbs腳本拖到這個腳本上就行了,不過我沒有成功,不知道那里有問題,請幫幫我,謝謝~

上面的代碼注意的幾個情況：
1、set arg=wscript.arguements
后門有個s
2、set fso=creatobject("Scripting.Filesystem Object") '聲明fso組件
應(yīng)該是filesystemboject
3、.writeline "N= )"
對于需要輸出N=")"用vbs輸入"（雙引號）的方法就是用兩個""
.writeline "N="")"""
4、.writeline "data = (data,3)"這里少個mid
基本上就這些了
do.vbs保存為do.vbs ，將要加密的js文件拖到這個文件上就可以

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

'on error resume next
set arg=wscript.arguments '聲明外部參數(shù)
if arg.count=0 Then wscript.quit '若無參數(shù)則退出腳本
set fso=createobject("Scripting.FilesystemObject") '聲明fso組件
filename=wscript.arguments(0)
set readline=fso.opentextfile(filename,1,flase)
data=readline.readall:
readline.close '讀取文本內(nèi)容
if err.number<>0 then wscript.quit '如果發(fā)生錯誤，則退出
with fso.opentextfile(filename&"_out.vbs",2,true) '將轉(zhuǎn)換好的寫到一個新的vbs中
if err.number<>0 then wscript.quit '如果發(fā)生錯誤，則退出
.writeline "Execute(Hextostr("""&str2hex(data)&"""))" '執(zhí)行解密并執(zhí)行解密后的代碼
.writeline "Function hextostr(data)"
.writeline "Hextostr=""Execute"""""""""""
.writeline "C=""&CHR(&H"""
.writeline "N= "")"""
.writeline "Do while Len(data)>1"
.writeline "if IsNumeric (Left(data,1)) then"
.writeline "Hextostr=Hextostr&c&Left(data,2)&N"
.writeline "data = mid(data,3)"
.writeline "else"
.writeline "Hextostr=Hextostr&c&Left(data,4)&N"
.writeline "data=mid(data,5)"
.writeline "end if"
.writeline "loop"
.writeline "end function"
'把解密函數(shù)寫進去
.close '關(guān)閉文本
end with
set fso=Nothing'注銷fso組件
msgbox "OK"
'以下是加密函數(shù)
Function str2hex (Byval strHex)
For i=1 to Len(strHex)
sHex = sHex & Hex(Asc(mid(strHex,i,1)))
next
str2Hex = sHex
end function

感謝各位的閱讀！關(guān)于“vbs腳本中加密需要注意什么”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識，如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

文章標(biāo)題：vbs腳本中加密需要注意什么-創(chuàng)新互聯(lián)
網(wǎng)站網(wǎng)址：http://muchs.cn/article48/pgdep.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、搜索引擎優(yōu)化、微信小程序、企業(yè)建站、App設(shè)計、外貿(mào)建站

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

猜你還喜歡下面的內(nèi)容