XorEncode的vbs实现代码_vbs教程-查字典教程网
XorEncode的vbs实现代码
XorEncode的vbs实现代码
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下:IfNotWScript.Arguments.Count=1ThenWScript.Echo"请将要转换的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

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vbs学习
    热门vbs学习
    脚本专栏子分类