Cómo escribir un programa VBS que oculte el código fuente

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

Si no es WScript.Arguments.Count=1, entonces WScript.Echo "¡Por favor, apriete el archivo vbs para convertirlo a mí! " :WScript.Quit

Establecer fso=CreateObject("Scripting.FileSystemObject")

Establecer self=fso.OpenTextFile(WScript.ScriptFullName)

Establecer vbs =fso.CreateTextFile(Left(WScript.Arguments(0),Len(WScript.Arguments(0))-4)+"_new.vbs")

Hacer hasta self.AtEndOfStream

aline= self.ReadLine

Si aline="Función Decode(s,n)"Entonces w=true

Si w Entonces vbs.WriteLine aline

Bucle

Establecer src=fso.OpenTextFile(WScript).

Aleatorización: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

Establecer src=Nada :Establecer vbs=Nada:Establecer self=Nada:Establecer fso=Nada

WScript.Echo "¡Éxito!"

Codificación de función(s,n)

Para i=1 a Len(s)

Encode=Encode&" "&(Asc(Mid(s,i,1)) Xor n)

Función final

Función Decodificar(s,n)

ns=Split(Mid(s,2,Len (s)-1))

Para i=0 a UBound(ns)

Decode=Decode&Chr(CInt(ns(i))Xor n)

Función final