vbscript - 免费的 VBscript 混淆器

Question

大家好
我有一个相当大(2k 行)的 vbScript 文件，我需要对其进行混淆。它是一个定制的 QTP 函数库，因此必须与产品一起分发。是否有任何免费的 VBscript 混淆器可以做得不错？
谢谢!

编辑:
加密不适合与 QTP 一起使用，因此 Windows 脚本加密工具将不起作用，QTP 必须能够理解输出。我不是要让输出证明是黑客证明，只是为了让随意的程序员不会费心去去混淆它

Answer 1

这是我为你准备的一个小脚本，它会混淆任何 vbs文件....

混淆非常简单，所以熟悉 vbs 的人都知道。可以在 1 分钟内对其进行混淆处理。

如果你想要更高级别的混淆，那么你需要付钱给我...... :) 但为此我会接受你的投票! :D

生成的脚本 obfuscated.vbs将保持有效 vbs文件。

我本可以制作一个自我解密的 vbs，但很可能会导致防病毒软件出现危险信号……如果您的防病毒软件有任何好处，它应该将其标记为可疑。

请注意，标准免责声明适用......我对由于脚本可能发生的任何损坏概不负责，使用风险自负。我不保证它会一直工作

'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