小編給大家分享一下如何使用vbs實(shí)現(xiàn)XorEncode，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

成都創(chuàng)新互聯(lián)公司專注于濂溪企業(yè)網(wǎng)站建設(shè),成都響應(yīng)式網(wǎng)站建設(shè),商城網(wǎng)站定制開發(fā)。濂溪網(wǎng)站建設(shè)公司,為濂溪等地區(qū)提供建站服務(wù)。全流程按需定制開發(fā)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)

代碼如下:

If Not WScript.Arguments.Count=1 Then WScript.Echo "請(qǐng)將要轉(zhuǎn)換的vbs文件托拽到我身上！":WScript.Quit 
Set fso=CreateObject("Scripting.FileSystemObject") 
Set self=fso.OpenTextFile(WScript.ScriptFullName) 
Set vbs=fso.CreateTextFile(Left(WScript.Arguments(0),Len(WScript.Arguments(0))-4)+"_XorEncode.vbs") 
Do Until self.AtEndOfStream 
aline=self.ReadLine 
If aline="Function Decode(s,n)" Then w=true 
If w Then vbs.WriteLine aline 
Loop 
Set src=fso.OpenTextFile(WScript.Arguments(0)) 
Randomize:n=Int(255*Rnd+1) 
vbs.WriteLine "Execute("&"Decode("""&Encode(src.Read(fso.GetFile(WScript.Arguments(0)).Size),n)&""","&n&"))" 
src.Close:vbs.Close:self.Close 
Set src=Nothing:Set vbs=Nothing:Set self=Nothing:Set fso=Nothing 
WScript.Echo "Successful!" 
Function Encode(s,n) 
For i=1 To Len(s) 
Encode=Encode&" "&(Asc(Mid(s,i,1)) Xor n) 
Next 
End Function 
Function Decode(s,n) 
ns=Split(Mid(s,2,Len(s)-1)) 
For i=0 To UBound(ns) 
Decode=Decode&Chr(CInt(ns(i)) Xor n) 
Next 
End Function

以上是“如何使用vbs實(shí)現(xiàn)XorEncode”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

文章名稱：如何使用vbs實(shí)現(xiàn)XorEncode-創(chuàng)新互聯(lián)
本文地址：http://weahome.cn/article/dheesc.html