Question
I deobfuscated for the most part i think. What does this code do? var1=var2 Set var3 = CreateObject(Scripting.Dictionary) var4=0 var5=1 var6=2 var7=32 var8=&H var9= var10=chr(var6*6+var5)+chr(var6*5)
I deobfuscated for the most part i think. What does this code do?
var1="var2"
Set var3 = CreateObject("Scripting.Dictionary")
var4=0
var5=1
var6=2
var7=32
var8="&H"
var9=""
var10=chr(var6*6+var5)+chr(var6*5)
var11=chr(var7+15)
sub var12(var13)
var14=len(var13)
var15=""
for loop1=var5 to var14
var15=var15+var3(mid(var13,loop1,var5))
next
var14=len(var15)
for loop1=var5 to var14-var5 step var6
payload=payload+chr(int(var8+mid(var15,loop1,var6)))
next
payload=payload+var10
end sub
sub var16()
for loop1=var5 to var7
var3.add mid(var1,loop1,var5),lcase(hex(loop1-var5))
next
var17=InStr(var18,var11)
payload=var9
while var17<>var4
var19=left(var18,var17-var5)
var12(var19)
var18=mid(var18,var17+var5)
var17=InStr(var18,var11)
wend
executeglobal payload
end sub
Step by Step Solution
There are 3 Steps involved in it
Step: 1
Get Instant Access to Expert-Tailored Solutions
See step-by-step solutions with expert insights and AI powered tools for academic success
Step: 2
Step: 3
Ace Your Homework with AI
Get the answers you need in no time with our AI-driven, step-by-step assistance
Get Started