| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。