繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > XorEncode的vbs实现代码
- VBScript
- VBS教程：属性-DateCreated 属性
- VBS教程：属性-Count 属性
- VBS教程：属性-CompareMode 属性
- VBS教程：属性-Column 属性
- VBS教程：属性-AvailableSpace 属性
- VBS教程：属性-Attributes 属性
- VBS教程：属性-AtEndOfStream 属性
- VBS教程：属性-AtEndOfLine 属性
- VBS教程：对象-Folders 集合
- VBS教程：对象-Folder 对象
- VBS教程：对象-FileSystemObject 对象
- VBS教程：对象-Files 集合
- VBS教程：对象-File 对象
- VBS教程：对象-Drives 集合
- VBS教程：对象-Drive 对象
- VBS教程：对象-Dictionary
- VBS教程：方法-WriteLine 方法
- VBS教程：方法-WriteBlankLines 方法
- VBS教程：方法-Write 方法
- VBS教程：方法-SkipLine 方法
VBScript 中的 XorEncode的vbs实现代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 62 ::
收藏到网摘: n/a
复制代码 代码如下:
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
评论 (0) All
