Решено Ищу обфускатор vba/vbs

  • Автор темы Автор темы buket
  • Дата начала Дата начала

buket

Green Team
10.03.2018
11
2
Помогите найти хороший обфускатор, любые решения бесплатные/платные
 
Помогите найти хороший обфускатор, любые решения бесплатные/платные
Код:
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
 
Последнее редактирование:
  • Нравится
Реакции: kot-gor, buket и Vander
спасибо большое
а есть чтото подобное для VBA?
 
  • Нравится
Реакции: Bypass
Последнее редактирование:
  • Нравится
Реакции: kot-gor и buket
Есть кто-нибудь кто научит пользоваться этими обфускаторами? Отблагодарю
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

🚀 Первый раз на Codeby?
Гайд для новичков: что делать в первые 15 минут, ключевые разделы, правила
Начать здесь →
🔴 Свежие CVE, 0-day и инциденты
То, о чём ChatGPT ещё не знает — обсуждаем в реальном времени
Threat Intel →
💼 Вакансии и заказы в ИБ
Pentest, SOC, DevSecOps, bug bounty — работа и проекты от проверенных компаний
Карьера в ИБ →

HackerLab