代码之家 › 专栏 › 技术社区 › TerrorAustralis

自由vbscript模糊器

obfuscation vbscript

3

TerrorAustralis · 技术社区 · 15 年前

大家好
我有一个相当大的(2K行)vbscript文件,需要对其进行模糊处理。它是一个定制的qtp函数库,因此必须与产品一起分发。有没有免费的vbscript模糊器可以做一个体面的工作?
谢谢!

编辑:
加密不适合与qtp一起使用,因此Windows脚本加密工具将无法工作,qtp必须能够理解输出。我并不是想让输出防黑客,只是为了让临时的程序员不必费心去尝试去混淆它。

3 回复 | 直到 13 年前

1

7

st0le 15 年前

vbs

obfuscated.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

2

0

SLaks 15 年前

WSH Script Encoder
reverse-engineered

3

0

Bart Tomer W 14 年前

vbsobfuscator.com