自由VBscript模糊器

大家好
我有一个相当大（2k行）的vbScript文件，需要对其进行模糊处理。它是一个定制的QTP函数库，因此必须随产品一起分发。有没有免费的VBscript模糊器做得很好？
谢谢

编辑：

---

加密不适合与QTP一起使用，因此Windows脚本加密工具无法工作，QTP必须能够理解输出。我不想让输出防黑客，只是为了让普通程序员不必费心费心去消除它的混淆，在Windows XP中，你可以使用。

---

请注意，这是一个小脚本。

这是我为您准备的一个小脚本，它将混淆任何

vbs

文件

模糊处理非常简单，因此任何熟悉

vbs

的人都可以在1分钟内完成模糊处理

如果你想要更高层次的混淆，那么你需要付钱给我……：）但为了这个，我会接受你们的投票D

生成的脚本

obfuscated.vbs

将保持为有效的

vbs

文件

我本可以制作一个自解密vbs，但很有可能这会导致一个带有防病毒的红旗…如果你的防病毒很好，它应该将其标记为可疑

请注意，标准免责声明适用…我不负责脚本可能造成的任何损坏，使用风险自负。我不能保证它会一直工作

---

我发现了一个免费的在线vbscript模糊器，它利用了一堆模糊技术（以及格式化和最小化）：

谢谢，伙计，我会调查一下的。我调查过了，它在这种情况下不起作用，这就是原因。WSH脚本编码器“加密”QTP无法再执行的vbs（使其成为vbe文件）。这是一个很好的解决方案，但它不是模糊的，而是加密的+1为了找到一个加密脚本语言的解决方案，虽然他不知道这是可能的，但他非常适合让爱管闲事的商务人士远离测试脚本。谢谢你，伙计！发现这里实现了：@JustYY，哈！我不介意。我很确定这是电脑病毒造成的。我试着用St0le上面的代码转换我的vbs文件。已创建模糊处理的文件。当我试着运行它时，计算机说我没有权限，我的卡巴斯基告诉我活动恶意软件正在运行。无论如何，我同意卡巴斯基。它运行了防病毒软件，删除了模糊文件并重新启动了计算机@st0le-VBScript代码混淆

'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