如何使用vbs实现XorEncode-创新互联

小编给大家分享一下如何使用vbs实现XorEncode,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

成都创新互联公司专注于濂溪企业网站建设,成都响应式网站建设,商城网站定制开发。濂溪网站建设公司,为濂溪等地区提供建站服务。全流程按需定制开发,专业设计,全程项目跟踪,成都创新互联公司专业和态度为您提供的服务

代码如下:

If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的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实现XorEncode”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


当前题目:如何使用vbs实现XorEncode-创新互联
当前网址:http://myzitong.com/article/dheesc.html