XorEncode的vbs实现代码
导读：收集整理的这篇文章主要介绍了XorEncode的vbs实现代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:If Not WScript.arguments.C...
收集整理的这篇文章主要介绍了XorEncode的vbs实现代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： XorEncode的vbs实现代码
本文地址： https://pptw.com/jishu/609742.html