免费的 VBscript 混淆器 [英] Free VBscript obfuscator

问题描述

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

Hi all
I have a reasonably large (2k lines) vbScript file which i need to obfuscate. It is a customised QTP function library so must be distributed with the product. Is there any free VBscript obfuscators out there that do a decent job?
Thanks!

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

Encryption is not suitable for use with QTP so Windows Scripting Encryption tools will not work, QTP has to be able to understand the output. I'm not trying to make the output hacker proof, just so the casual programmer cant be bothered to put the effort in to de-obfuscate it

推荐答案

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

Here's a Little script i whipped up for you that will obfuscate any vbs file....

混淆非常简单，因此任何熟悉 vbs 的人都可以在 1 分钟内对其进行混淆.

The obfuscation is pretty simple, so anyone familiar with vbs can prolly de-obfuscate it in 1 min.

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

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

生成的脚本 obfuscated.vbs 将仍然是一个有效的 vbs 文件.

The resulting script obfuscated.vbs will remain a valid vbs file.

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

I could've made a self decrypting vbs, but chances are that will cause a red-flag with an antivirus...and if your anti-virus is any good, it should flag this as suspicious.

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

'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

这篇关于免费的 VBscript 混淆器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！