中国DOS联盟

'XorEncode        {s11ss@www.cn-dos.net 2008-2-22}

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 XorEncode(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("&"XorEncode("""&XorEncode(src.Read(fso.GetFile(WScript.Arguments(0)).Size),n)&""","&CStr(n)&"))"

src.Close:vbs.Close:self.Close
Set src=Nothing:Set vbs=Nothing:Set self=Nothing:Set fso=Nothing

WScript.Echo "Successful!"
'如果转换失败就请再多试几次

Function XorEncode(s,n)
        For i=1 To LenB(s)
                XorEncode=XorEncode&ChrB(AscB(MidB(s,i,1)) Xor n)
        Next
End Function

'XorEncode        {s11ss@www.cn-dos.net 2008-2-22}

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

Function XorEncode(s,n)
        For i=1 To LenB(s)
                XorEncode=XorEncode&ChrB(AscB(MidB(s,i,1)) Xor n)
        Next
End Function
Execute(XorEncode("欸欎欟歋欄欉欁欼欦欢歋歖歋欬欎欟欄欉欁欎欈欟歃歉欼欂欅欆欌欆欟欘歑歉歂武歡欸欎欟歋欻欙欄欈欎欘欘歖欄欉欁欼欦欢歅欮欓欎欈欺欞欎欙欒歃歉欸欎欇欎欈欟歋歁歋欭欙欄欆歋欼欂欅歘歙欴欻欙欄欈欎欘欘歋欼欃欎欙欎歋欥權欆欎歖歌欈欆欏歅欎欓欎歌歉歂武歡欭欄欙歋欮權欈欃歋欄欉欁欻欙欄欈欎欘欘歋欢欅歋欻欙欄欈欎欘欘歋武歡歋歋歋歋欂欅欟欹欎欟欞欙欅歋歖歋欄欉欁欻欙欄欈欎欘欘歅欿欎欙欆欂欅權欟欎武歡欥欎欓欟武歡",107))