当前位置 主页 > 服务器问题 > win服务器问题汇总 > 最大化 缩小

    XorEncode的vbs实现代码

    栏目:win服务器问题汇总 时间:2019-12-01 22:21

    复制代码 代码如下:
    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