当前位置：文江博客话题详情

免费的 VBscript 混淆器

发布于 2024-10-04 01:49:46 字数 219 浏览 7 评论 0原文

大家好
我有一个相当大（2k 行）的 vbScript 文件，我需要对其进行混淆。它是一个定制的QTP函数库，因此必须随产品一起分发。有没有免费的 VBscript 混淆器可以做不错的工作？
谢谢！

编辑：
加密不适合与 QTP 一起使用，因此 Windows 脚本加密工具将无法工作，QTP 必须能够理解输出。我并不是想让输出被黑客证明，只是为了让临时程序员不会费心去花精力去混淆它

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

九局 2024-10-11 01:49:46

这是我为您编写的一个小脚本，它将混淆任何 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

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

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

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

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

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.

Please note, Standard disclaimer applies...I'm not responsible for any damage that maybe occur due to the script, use at own risk. I don't guarantee it'll 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

回复收藏 0 原文