Free Obfuscator VBscript

Question

Hello everyone | I have a large enough (2k lines) vbScript file that I need to obfuscate. This is a custom QTP feature library, so it needs to be distributed with the product. Are there any free OBFuscator VBscript out there that do a decent job?
Thank you

EDIT:
Encryption is not suitable for use with QTP, so Windows Scripting Encryption will not work, QTP should be able to understand the result. I am not trying to make an output hacker proof, just so that a random programmer does not bother to make an effort to eliminate it.

Answer 1

Here's a little script I'm whipping for you that will mess up any file vbs....

Obfuscation is pretty simple, so anyone who is familiar with vbscan tear it up in 1 minute.

If you want a higher level of obfuscation, well you need to pay me ... :), but for this I will take your votes !: D

As a result, the script obfuscated.vbswill remain a valid vbsfile.

I could make the decrypting vbs myself, but most likely it will lead to a red flag with an antivirus ... and if your antivirus is useful, it should consider it suspicious.

Please note that the standard disclaimer applies ... I am not responsible for any damage that may occur due to the script, use at your own risk. I can’t guarantee that it will work all the time.

'VBS Obfuscator by st0le

Randomize
set fso = CreateObject("Scripting.FileSystemObject")
fileName = Inputbox("Enter Path of the File to scramble : ")
set src = fso.OpenTextfile(fileName,1)
body = src.readall
set rep  = fso.createtextfile("Obfuscated.vbs",true)
rep.writeline "Execute(" & Obfuscate(body) & " ) "

Function Obfuscate(txt)
enc = ""
for i = 1 to len(txt)
enc = enc & "chr( " & form( asc(mid(txt,i,1)) ) & " ) & "
next
Obfuscate = enc & " vbcrlf "
End Function


Function form(n)

r = int(rnd * 10000)
k = int(rnd * 3)
if( k = 0) then ret = (r+n) & "-" & r
if( k = 1) then ret = (n-r) & "+" & r
if( k = 2) then ret = (n*r) & "/" & r
form = ret
End Function

Answer 2

Windows XP WSH Script Encoder.
, .

Answer 3

I found a free online vbscript obfuscator that uses a stack of obfuscation methods (as well as formatting and minimization): vbsobfuscator.com