Copy Code code as follows:
If not wscript.arguments.count=1 Then WScript.Echo "Please drag the VBS file you want to convert to me!" ": 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