Бесплатный обфускатор VBscript

Вот небольшой скрипт, который я приготовил для вас, чтобы запутать любой файл 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