Question

大家好我有一个相当大（2k行）的vbScript文件，我需要混淆。它是一个定制的QTP函数库，因此必须随产品一起分发。是否有任何免费的VBscript混淆器在那里做得不错？谢谢！

编辑：
加密不适合与QTP一起使用，因此Windows Scripting Encryption工具不起作用，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

Answer 2

在Windows XP中，您可以使用WSH Script Encoder 请注意，这是reverse-engineered。

Answer 3

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

免费的VBscript混淆器

3 个答案: