KeylessUniversal
CSLO Obfuscator Discontinued
FetchReg 1 month ago 49 viewsRun it
Copy the script and paste it into your executor.
CSLO Obfuscator Discontinued.lua · 3,251 lines
LunarisObfuscator = .()
MainFrame = .()
Title = .()
InputLabel = .()
InputBox = .()
OutputLabel = .()
OutputBox = .()
ObfuscateButton = .()
CopyButton = .()
ClearButton = .()
AnimatedIcon = .()
TitleGlow = .()
TopBar = .()
CloseButton = .()
ChangelogButton = .()
SaveButton = .()
LunarisObfuscator.Name =
LunarisObfuscator.Parent = :() .Players.LocalPlayer:()
LunarisObfuscator.ZIndexBehavior = .ZIndexBehavior.Sibling
LunarisObfuscator.ResetOnSpawn =
MainFrame.Name =
MainFrame.Parent = LunarisObfuscator
MainFrame.BackgroundColor3 = .(, , )
MainFrame.BackgroundTransparency =
MainFrame.BorderSizePixel =
MainFrame.Position = .(, , , )
MainFrame.Size = .(, , , )
MainFrame.ClipsDescendants =
UICorner = .()
UICorner.CornerRadius = .(, )
UICorner.Parent = MainFrame
DropShadow = .()
DropShadow.Name =
DropShadow.Parent = MainFrame
DropShadow.BackgroundTransparency =
DropShadow.BorderSizePixel =
DropShadow.Size = .(, , , )
DropShadow.Position = .(, -, , -)
DropShadow.Image =
DropShadow.ImageColor3 = .(, , )
DropShadow.ImageTransparency =
DropShadow.ScaleType = .ScaleType.Slice
DropShadow.SliceCenter = Rect.(, , , )
DropShadow.ZIndex = -
TopBar.Name =
TopBar.Parent = MainFrame
TopBar.BackgroundColor3 = .(, , )
TopBar.BorderSizePixel =
TopBar.Size = .(, , , )
TopBar.ZIndex =
TopBarCorner = .()
TopBarCorner.CornerRadius = .(, )
TopBarCorner.Parent = TopBar
AnimatedIcon.Name =
AnimatedIcon.Parent = TopBar
AnimatedIcon.BackgroundTransparency =
AnimatedIcon.Position = .(, , , )
AnimatedIcon.Size = .(, , , )
AnimatedIcon.Image =
AnimatedIcon.ZIndex =
Title.Name =
Title.Parent = TopBar
Title.BackgroundTransparency =
Title.Position = .(, , , )
Title.Size = .(, , , )
Title.Font = .Font.GothamBold
Title.Text =
Title.TextColor3 = .(, , )
Title.TextSize =
Title.TextXAlignment = .TextXAlignment.Left
Title.ZIndex =
TitleGlow.Name =
TitleGlow.Parent = Title
TitleGlow.BackgroundTransparency =
TitleGlow.Size = .(, , , )
TitleGlow.Position = .(-, , -, )
TitleGlow.Image =
TitleGlow.ImageColor3 = .(, , )
TitleGlow.ImageTransparency =
TitleGlow.ScaleType = .ScaleType.Slice
TitleGlow.SliceCenter = Rect.(, , , )
TitleGlow.ZIndex =
CloseButton.Name =
CloseButton.Parent = TopBar
CloseButton.BackgroundColor3 = .(, , )
CloseButton.BackgroundTransparency =
CloseButton.BorderSizePixel =
CloseButton.Position = .(, , , )
CloseButton.Size = .(, , , )
CloseButton.Font = .Font.GothamBold
CloseButton.Text =
CloseButton.TextColor3 = .(, , )
CloseButton.TextSize =
CloseButton.ZIndex =
CloseCorner = .()
CloseCorner.CornerRadius = .(, )
CloseCorner.Parent = CloseButton
ChangelogButton.Name =
ChangelogButton.Parent = TopBar
ChangelogButton.BackgroundColor3 = .(, , )
ChangelogButton.BackgroundTransparency =
ChangelogButton.BorderSizePixel =
ChangelogButton.Position = .(, , , )
ChangelogButton.Size = .(, , , )
ChangelogButton.Font = .Font.GothamBold
ChangelogButton.Text =
ChangelogButton.TextColor3 = .(, , )
ChangelogButton.TextSize =
ChangelogButton.TextScaled =
ChangelogButton.ZIndex =
SaveButton.Name =
SaveButton.Parent = TopBar
SaveButton.BackgroundColor3 = .(, , )
SaveButton.BackgroundTransparency =
SaveButton.BorderSizePixel =
SaveButton.Position = .(, , , )
SaveButton.Size = .(, , , )
SaveButton.Font = .Font.GothamBold
SaveButton.Text =
SaveButton.TextColor3 = .(, , )
SaveButton.TextSize =
SaveButton.TextScaled =
SaveButton.ZIndex =
SaveCorner = .()
SaveCorner.CornerRadius = .(, )
SaveCorner.Parent = SaveButton
ChangelogCorner = .()
ChangelogCorner.CornerRadius = .(, )
ChangelogCorner.Parent = ChangelogButton
InputLabel.Name =
InputLabel.Parent = MainFrame
InputLabel.BackgroundTransparency =
InputLabel.Position = .(, , , )
InputLabel.Size = .(, , , )
InputLabel.Font = .Font.Gotham
InputLabel.Text =
InputLabel.TextColor3 = .(, , )
InputLabel.TextSize =
InputLabel.ZIndex =
InputBox.Name =
InputBox.Parent = MainFrame
InputBox.BackgroundColor3 = .(, , )
InputBox.BorderSizePixel =
InputBox.Position = .(, , , )
InputBox.Size = .(, , , )
InputBox.Font = .Font.Code
InputBox.Text =
InputBox.TextColor3 = .(, , )
InputBox.TextSize =
InputBox.TextWrapped =
InputBox.TextXAlignment = .TextXAlignment.Left
InputBox.TextYAlignment = .TextYAlignment.Top
InputBox.ClearTextOnFocus =
InputBox.MultiLine =
InputBox.ZIndex =
InputCorner = .()
InputCorner.CornerRadius = .(, )
InputCorner.Parent = InputBox
OutputLabel.Name =
OutputLabel.Parent = MainFrame
OutputLabel.BackgroundTransparency =
OutputLabel.Position = .(, , , )
OutputLabel.Size = .(, , , )
OutputLabel.Font = .Font.Gotham
OutputLabel.Text =
OutputLabel.TextColor3 = .(, , )
OutputLabel.TextSize =
OutputLabel.ZIndex =
FileNameBox = .()
FileNameBox.Name =
FileNameBox.Parent = MainFrame
FileNameBox.BackgroundColor3 = .(, , )
FileNameBox.BorderSizePixel =
FileNameBox.Position = .(, , , )
FileNameBox.Size = .(, , , )
FileNameBox.Font = .Font.Code
FileNameBox.Text =
FileNameBox.PlaceholderText =
FileNameBox.TextColor3 = .(, , )
FileNameBox.TextSize =
FileNameBox.TextScaled =
FileNameBox.ClearTextOnFocus =
FileNameBox.ZIndex =
FileNameCorner = .()
FileNameCorner.CornerRadius = .(, )
FileNameCorner.Parent = FileNameBox
LoadFileButton = .()
LoadFileButton.Name =
LoadFileButton.Parent = MainFrame
LoadFileButton.BackgroundColor3 = .(, , )
LoadFileButton.BackgroundTransparency =
LoadFileButton.BorderSizePixel =
LoadFileButton.Position = .(, , , )
LoadFileButton.Size = .(, , , )
LoadFileButton.Font = .Font.GothamBold
LoadFileButton.Text =
LoadFileButton.TextColor3 = .(, , )
LoadFileButton.TextSize =
LoadFileButton.TextScaled =
LoadFileButton.ZIndex =
LoadFileCorner = .()
LoadFileCorner.CornerRadius = .(, )
LoadFileCorner.Parent = LoadFileButton
OutputBox.Name =
OutputBox.Parent = MainFrame
OutputBox.BackgroundColor3 = .(, , )
OutputBox.BorderSizePixel =
OutputBox.Position = .(, , , )
OutputBox.Size = .(, , , )
OutputBox.Font = .Font.Code
OutputBox.Text =
OutputBox.TextColor3 = .(, , )
OutputBox.TextSize =
OutputBox.TextWrapped =
OutputBox.TextXAlignment = .TextXAlignment.Left
OutputBox.TextYAlignment = .TextYAlignment.Top
OutputBox.ClearTextOnFocus =
OutputBox.MultiLine =
OutputBox.ZIndex =
OutputCorner = .()
OutputCorner.CornerRadius = .(, )
OutputCorner.Parent = OutputBox
ObfuscateButton.Name =
ObfuscateButton.Parent = MainFrame
ObfuscateButton.BackgroundColor3 = .(, , )
ObfuscateButton.BorderSizePixel =
ObfuscateButton.Position = .(, , , )
ObfuscateButton.Size = .(, , , )
ObfuscateButton.Font = .Font.GothamBold
ObfuscateButton.Text =
ObfuscateButton.TextColor3 = .(, , )
ObfuscateButton.TextSize =
ObfuscateButton.ZIndex =
ObfuscateCorner = .()
ObfuscateCorner.CornerRadius = .(, )
ObfuscateCorner.Parent = ObfuscateButton
CopyButton.Name =
CopyButton.Parent = MainFrame
CopyButton.BackgroundColor3 = .(, , )
CopyButton.BorderSizePixel =
CopyButton.Position = .(, , , )
CopyButton.Size = .(, , , )
CopyButton.Font = .Font.GothamBold
CopyButton.Text =
CopyButton.TextColor3 = .(, , )
CopyButton.TextSize =
CopyButton.ZIndex =
CopyCorner = .()
CopyCorner.CornerRadius = .(, )
CopyCorner.Parent = CopyButton
ClearButton.Name =
ClearButton.Parent = MainFrame
ClearButton.BackgroundColor3 = .(, , )
ClearButton.BorderSizePixel =
ClearButton.Position = .(, , , )
ClearButton.Size = .(, , , )
ClearButton.Font = .Font.GothamBold
ClearButton.Text =
ClearButton.TextColor3 = .(, , )
ClearButton.TextSize =
ClearButton.ZIndex =
ClearCorner = .()
ClearCorner.CornerRadius = .(, )
ClearCorner.Parent = ClearButton
()
TweenService = :()
rotationGoal = {Rotation = }
rotationInfo = TweenInfo.(, .EasingStyle.Linear, .EasingDirection.Out, .huge, , )
rotationTween = TweenService:(AnimatedIcon, rotationInfo, rotationGoal)
rotationTween:()
pulseUp = TweenService:(AnimatedIcon, TweenInfo.(, .EasingStyle.Quad, .EasingDirection.Out), {Size = .(, , , )})
pulseDown = TweenService:(AnimatedIcon, TweenInfo.(, .EasingStyle.Quad, .EasingDirection.Out), {Size = .(, , , )})
pulseUp:()
pulseUp.Completed:()
pulseDown:()
pulseDown.Completed:()
.()
.(animateIcon)()
UserInputService = :()
TweenService = :()
dragging =
dragStart = .(,)
startPos = .(,,,)
(input)
delta = input.Position - dragStart
newPos = .(startPos.X.Scale, startPos.X.Offset+delta.X, startPos.Y.Scale, startPos.Y.Offset+delta.Y)
TweenService:(MainFrame, TweenInfo.(,.EasingStyle.Quad,.EasingDirection.Out), {Position=newPos}):()
TopBar.InputBegan:((input)
input.UserInputType == .UserInputType.MouseButton1
dragging=
dragStart=input.Position
startPos=MainFrame.Position
TweenService:(TopBar, TweenInfo.(,.EasingStyle.Quad,.EasingDirection.Out), {BackgroundTransparency=}):()
input.Changed:(()
input.UserInputState == .UserInputState.End
dragging=
TweenService:(TopBar, TweenInfo.(,.EasingStyle.Quad,.EasingDirection.Out), {BackgroundTransparency=}):()
)
)
UserInputService.InputChanged:((input)
dragging input.UserInputType == .UserInputType.MouseMovement (input)
)
CloseButton.MouseButton1Click:(()
tw = TweenService:(MainFrame, TweenInfo.(,.EasingStyle.Back,.EasingDirection.In), {Position=.(,,-,),Size=.(,,,)})
tw:()
tw.Completed:()
LunarisObfuscator:()
)
(btn)
btn.MouseEnter:(() TweenService:(btn, TweenInfo.(,.EasingStyle.Quad,.EasingDirection.Out), {BackgroundTransparency=}):() )
btn.MouseLeave:(() TweenService:(btn, TweenInfo.(,.EasingStyle.Quad,.EasingDirection.Out), {BackgroundTransparency=}):() )
(ObfuscateButton)
(CopyButton)
(ClearButton)
(CloseButton)
(ChangelogButton)
(SaveButton)
AutoSaveEnabled =
SaveButton.MouseButton1Click:(()
AutoSaveEnabled = AutoSaveEnabled
AutoSaveEnabled
SaveButton.BackgroundColor3 = .(, , )
SaveButton.BackgroundTransparency =
SaveButton.BackgroundColor3 = .(, , )
SaveButton.BackgroundTransparency =
)
TweenService:(MainFrame, TweenInfo.(,.EasingStyle.Back,.EasingDirection.Out), {Position=.(,,,),Size=.(,,,)}):()
ChangelogFrame = .()
ChangelogTextLabel = .()
ChangelogCloseButton = .()
ChangelogFrame.Name=
ChangelogFrame.Parent=LunarisObfuscator
ChangelogFrame.BackgroundColor3=.(,,); ChangelogFrame.BackgroundTransparency=
ChangelogFrame.BorderSizePixel=; ChangelogFrame.Position=.(,,,)
ChangelogFrame.Size=.(,,,); ChangelogFrame.Visible=
CFCorner=.(); CFCorner.CornerRadius=.(,)
CFCorner.Parent=ChangelogFrame
ChangelogTextLabel.Name=; ChangelogTextLabel.Parent=ChangelogFrame
ChangelogTextLabel.BackgroundTransparency=
ChangelogTextLabel.Position=.(,,,)
ChangelogTextLabel.Size=.(,,,);
ChangelogTextLabel.Font=.Font.GothamBold
ChangelogTextLabel.Text=
ChangelogTextLabel.TextColor3=.(,,)
ChangelogTextLabel.TextSize=
ChangelogTextLabel.TextXAlignment=.TextXAlignment.Left
ChangelogTextLabel.TextYAlignment=.TextYAlignment.Top
ChangelogTextLabel.TextWrapped=
ChangelogCloseButton.Name=
ChangelogCloseButton.Parent=ChangelogFrame
ChangelogCloseButton.BackgroundColor3=.(,,); ChangelogCloseButton.BackgroundTransparency=
ChangelogCloseButton.BorderSizePixel=; ChangelogCloseButton.Position=.(,,,)
ChangelogCloseButton.Size=.(,,,); ChangelogCloseButton.Font=.Font.GothamBold
ChangelogCloseButton.Text=; ChangelogCloseButton.TextColor3=.(,,); ChangelogCloseButton.TextSize=
CCCorner=.(); CCCorner.CornerRadius=.(,)
CCCorner.Parent=ChangelogCloseButton
(ChangelogCloseButton)
ChangelogButton.MouseButton1Click:(()
ChangelogFrame.Visible=
TweenService:(ChangelogFrame, TweenInfo.(,.EasingStyle.Back,.EasingDirection.Out), {Position=.(,,,),Size=.(,,,)}):()
)
ChangelogCloseButton.MouseButton1Click:(()
tw=TweenService:(ChangelogFrame, TweenInfo.(,.EasingStyle.Back,.EasingDirection.In), {Position=.(,,,),Size=.(,,,)})
tw:(); tw.Completed:(); ChangelogFrame.Visible=
)
varCounter =
usedVars = {}
()
name =
temp = varCounter
rem = temp %
charCode = (rem < ) ( + rem) ( + rem - )
name = .(charCode) .. name
temp = .(temp / ) -
temp <
varCounter = varCounter +
.. name
(src)
toks = {}
len = #src
pos =
line =
col =
(n) .(src, pos+(n ))
(s,e) .(src, s, e)
(c) (c>= c<=) (c>= c<=) c==
(c) c>= c<=
(c) (c) (c)
(c) (c) (c>= c<=) (c>= c<=)
(c) c== c==
(n)
n = n
i = , n
c = .(src, pos)
pos = pos +
c == line = line + ; col = col = col +
KW = {
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,
}
(tType, v, r, sPos, sCol, sLine)
toks[#toks+] = {
raw = r v,
= tType,
index = sPos,
secondarytype = tType,
column = sCol,
length = pos - sPos,
line = sLine,
endindex = pos - ,
value = v
}
()
pos<=len ()~= ()~= ()
()
eq=; ()
()== eq=eq+; ()
()~= ; ()
()== () ()== (); ()== ()
cl=..string.(,eq)..
s2=.(src, cl, pos, )
s2 (..pos)
content = (pos, s2-)
i=, #content
c = .(content, i)
c == line = line + ; col = col = col +
pos = s2 + #cl
col = col + #cl
content
(q)
(); buf={}
pos<=len
c=()
c==q ();
c==
(); e=(); ()
e== buf[#buf+]=
e== buf[#buf+]=
e== buf[#buf+]=
e== buf[#buf+]=
e== buf[#buf+]=
e== buf[#buf+]=
e== buf[#buf+]=
e==
()==
(); hs=
()~= hs=hs..string.(()); ()
()
cp=(hs,)
cp< buf[#buf+]=.(cp)
cp< buf[#buf+]=.(+.(cp/),+cp%)
buf[#buf+]=.(+.(cp/),+.(cp%/),+cp%)
e>= e<=
ns=.(e)
()>= ()<= ns=ns..string.(()); ()
()>= ()<= ns=ns..string.(()); ()
buf[#buf+]=.((ns))
buf[#buf+]=.(e)
buf[#buf+]=.(c); ()
.(buf)
()
s=pos
()== (()== ()==)
()
pos<=len (()) ()
()== (); pos<=len (()) ()
()== ()== ()
()== ()== ()
pos<=len (()) ()
pos<=len (()) ()
()== ()~= ()
pos<=len (()) ()
()== ()== ()
()== ()== ()
pos<=len (()) ()
(s,pos-)
pos<=len
c=()
sP, sC, sL = pos, col, line
(c) ()
c== c==
r = .(c)
()
c== ()== r = r .. ; ()
(, r, r, sP, sC, sL)
c== ()==
()
()==
sv=pos; ()
eq2=; ()== eq2=eq2+; ()
()==
()
cl=..string.(,eq2)..
s2=.(src,cl,pos,)
s2 pos=s2+#cl pos=len+
pos=sv; ()
()
c== c==
q=c; s=(c)
(,s, (sP,pos-), sP, sC, sL)
c== (()== ()==)
()
ls=()
ls (,ls,(sP,pos-), sP, sC, sL) pos=sP; (,,, sP, sC, sL); ()
(c) (c== (()))
ns=(); (,ns, ns, sP, sC, sL)
(c)
pos<=len (()) ()
w=(sP,pos-)
KW[w] (,w, w, sP, sC, sL) (,w, w, sP, sC, sL)
c==
()== ()== (); (,, , sP, sC, sL)
()== (); (,, , sP, sC, sL)
(); (,, , sP, sC, sL)
c==
()== (); (,, , sP, sC, sL) (); (,, , sP, sC, sL)
c== ()== (); (,, , sP, sC, sL)
c==
()== (); (,, , sP, sC, sL) (); (,, , sP, sC, sL)
c==
()== (); (,, , sP, sC, sL) (); (,, , sP, sC, sL)
c==
()== (); (,, , sP, sC, sL) (); (,, , sP, sC, sL)
c== ()== (); (,, , sP, sC, sL)
ch=.(c)
(); (,ch, ch, sP, sC, sL)
(,, , pos, col, line)
toks
(toks)
scope = {{}}
globalRename = {}
PROTECTED = {
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,
}
nameMap = {}
(i)
toks[i] toks[i].type == i=i+
toks[i], i
()
i=
i<=#toks
t, nxt = (i)
t
i = nxt
t.type== t.value==
nj = i+
t2, j = (nj)
t2 t2.type== t2.value==
t3, k = (j+)
t3 t3.type== PROTECTED[t3.value]
nameMap[t3.value] nameMap[t3.value]=()
t2 t2.type==
t2 t2.type==
PROTECTED[t2.value] nameMap[t2.value]
nameMap[t2.value]=()
tComma, nk = (j+)
tComma tComma.type== tComma.value==
t2, j = (nk+)
t.type== t.value==
nj = i+
tj, j = (nj)
tj (tj.type== tj.value==)
tj, j = (j+)
tj, j = (j+)
tj (tj.type== tj.value==)
tj.type== PROTECTED[tj.value] nameMap[tj.value]
nameMap[tj.value]=()
tj, j = (j+)
(t.type== t.value==)
nj = i+
tj, j = (nj)
tj (tj.type== tj.value==) (tj.type== tj.value==)
tj.type== PROTECTED[tj.value] nameMap[tj.value]
nameMap[tj.value]=()
tComma, nk = (j+)
tComma tComma.type== tComma.value==
tj, j = (nk+)
i=i+
()
result = {}
_,t (toks)
t.type== nameMap[t.value]
newName = nameMap[t.value]
t.value = newName
t.raw = newName
t.length = #newName
result[#result+]=t
result[#result+]=t
result
()
used = {}
()
val
val = .(, ) used[val]
used[val] =
val
{
M_PUSH_REG=(), M_PUSH_K=(), M_PUSH_LIT=(),
M_MOVE_CONST_ID=(), M_DECRYPT_CONST=(), M_WRITE_REG=(), M_TAG_TAINT=(), M_MASK_WRITE=(),
M_FETCH_REG_ID=(),
M_POP_ALU_B=(), M_POP_ALU_A=(),
M_ALU_ADD=(), M_ALU_SUB=(), M_ALU_MUL=(), M_ALU_DIV=(), M_ALU_MOD=(), M_ALU_POW=(), M_ALU_IDIV=(), M_ALU_BAND=(),
M_ALU_BOR=(), M_ALU_BXOR=(), M_ALU_SHL=(), M_ALU_SHR=(), M_ALU_UNM=(), M_ALU_BNOT=(), M_ALU_NOT=(), M_ALU_LEN=(),
M_LOADBOOL=(), M_LOADNIL=(),
M_GETGLOBAL=(), M_SETGLOBAL=(), M_GETTABLE=(), M_SETTABLE=(), M_NEWTABLE=(), M_SELF=(),
M_CONCAT=(), M_JMP=(), M_EQ=(), M_LT=(), M_LE=(), M_TEST=(), M_CALL=(),
M_RETURN=(), M_FORPREP=(), M_FORLOOP=(), M_CLOSURE=(), M_HALT=(), M_NOP=(), M_EXEC_SUB=(), M_SECURE_ERASE=(),
M_GETUPVAL=(), M_SETUPVAL=(),
SUB_OP_DEC=(), SUB_OP_RET=()
}
(toks)
tp=
()
toks[tp] toks[tp].type == tp = tp +
toks[tp] {=, value=, raw=}
() ().type
() ().value
(n)
tmp = tp
c =
toks[tmp] toks[tmp].type == tmp = tmp +
c = c +
c >= n
tmp = tmp +
x = toks[tmp]
x x.type
(n)
tmp = tp
c =
toks[tmp] toks[tmp].type == tmp = tmp +
c = c +
c >= n
tmp = tmp +
x = toks[tmp]
x x.value
()
tp=tp+
toks[tp] toks[tp].type == tp = tp +
(t,v) v ().type==t ().value==v ().type==t
(t,v)
(t,v) (..t..(v ..v.. )....().type....(().value)..)
r=(); (); r
(t,v) (t,v) ();
parseExpr,parseStat,parseBlock,parseFB
BOPS={[]=,[]=,[]=,[]=,[]=,[]=,[]=,[]=,
[]=,[]=,[]=,[]=,[]=,[]=,[]=,[]=}
RASS={[]=,[]=}
ENDS={[]=,[]=,[]=,[]=,[]=}
(base)
(,)
(); f=().value
base = { =, base=base, identifier=f }
(,)
(); idx=(); (,)
base = { =, base=base, index=idx }
(,)
(); m=().value
(,)
args={}
(,)
args[#args+]=()
(,) args[#args+]=()
(,)
base = { =, base=base, method=m, arguments=args, isSelf= }
(,)
(); args={}
(,)
args[#args+]=()
(,) args[#args+]=()
(,)
base = { =, base=base, arguments=args, isSelf= }
()
sv=().value; ()
base = { =, base=base, arguments={{=, kind=, value=sv}}, isSelf= }
(,)
()
fields={}
(,)
() ()== ()==
k=().value; (); ()
fields[#fields+]={ key={=, kind=, value=k}, value=() }
(,)
(); k=(); (,); (,)
fields[#fields+]={ key=k, value=() }
fields[#fields+]={ key=, value=() }
(,) (,)
(,)
base = { =, base=base, arguments={{=, fields=fields}}, isSelf= }
base
()
t=()
t.type== (); { =, kind=, value=(t.value) }
t.type== (); { =, kind=, value=t.value }
t.type== t.value== (); { =, kind=, value= }
t.type== t.value== (); { =, kind=, value= }
t.type== t.value== (); { =, kind=, value= }
t.type== t.value== (); { = }
t.type== t.value== (); ()
t.type== t.value==
(); e=(); (,); (e)
t.type== t.value== (); { =, operator=, argument=() }
t.type== t.value== (); { =, operator=, argument=() }
t.type== t.value== (); { =, operator=, argument=() }
t.type== t.value== (); { =, operator=, argument=() }
t.type== t.value==
()
fields={}
(,)
() ()== ()==
k=().value; (); ()
fields[#fields+]={ key={=, kind=, value=k}, value=() }
(,)
(); k=(); (,); (,)
fields[#fields+]={ key=k, value=() }
fields[#fields+]={ key=, value=() }
(,) (,)
(,)
{ =, fields=fields }
t.type==
n=t.value; ()
({ =, name=n })
(..t.type....t.value..)
parseExpr = (mp)
mp=mp
node=()
op=().value
pr=BOPS[op]
pr pr<=mp
(op== op== op== op== op== op== op==) ()== ()==
()
np2=RASS[op] pr- pr
right=(np2)
node={ =, operator=op, left=node, right=right }
node
parseFB = ()
(,)
params={}; isva=
(,)
(,) isva=; ();
params[#params+]=().value; (,)
(,)
body=(); (,)
{ =, params=params, isVararg=isva, body=body }
parseStat = ()
t=()
t.type== t.value==
()
(,)
(); n=().value; fb=()
{ =, name=n, functionDef=fb }
names={().value}
(,) names[#names+]=().value
values={}
(,)
values[#values+]=()
(,) values[#values+]=()
{ =, names=names, values=values }
t.type== t.value==
(); n=().value; chain={n}
(,) (); chain[#chain+]=().value
isM=
(,) (); chain[#chain+]=().value; isM=
fb=()
{ =, chain=chain, isMethod=isM, functionDef=fb }
t.type== t.value==
(); args={}
ENDS[()] (,)
args[#args+]=()
(,) args[#args+]=()
(,)
{ =, arguments=args }
t.type== t.value==
(); clauses={}
clauses[#clauses+]={ condition=(), body=() }
(,)
(); clauses[#clauses+]={ condition=(), body=() }
elseBody=
(,) elseBody=()
(,)
{ =, clauses=clauses, elseBody=elseBody }
t.type== t.value==
(); cond=(); (,); body=(); (,)
{ =, condition=cond, body=body }
t.type== t.value==
(); body=(); (,); cond=()
{ =, body=body, condition=cond }
t.type== t.value==
(); vn=().value
(,)
start=(); (,); limit=(); step=
(,) step=()
(,); body=(); (,)
{ =, variable=vn, start=start, limit=limit, step=step, body=body }
names={vn}
(,) (,); () names[#names+]=().value
(,); iters={}
iters[#iters+]=()
(,) iters[#iters+]=()
(,); body=(); (,)
{ =, variables=names, iterators=iters, body=body }
t.type== t.value==
(); body=(); (,); { =, body=body }
t.type== t.value==
(); { = }
t.type== t.value==
(); { = }
t.type== (t.type== t.value==)
firstExpr = ()
isCompound =
cOp =
nxtVal = ().value
(nxtVal== nxtVal== nxtVal== nxtVal== nxtVal== nxtVal== nxtVal==) ()== ()==
isCompound =
cOp = nxtVal
(); ()
isCompound
rhs = { () }
(,) rhs[#rhs+] = ()
(,)
rhs[] = { =, operator=cOp, left=firstExpr, right=rhs[] }
{ =, lhs={firstExpr}, rhs=rhs }
(,) (,)
lhs = { firstExpr }
(,) lhs[#lhs+] = ()
(,)
rhs = { () }
(,) rhs[#rhs+] = ()
(,)
{ =, lhs=lhs, rhs=rhs }
(,)
{ =, expression=firstExpr }
t.type== t.value== ()
()
(,)
parseBlock = ()
block = {}
()~= (()== ENDS[()])
s=()
s block[#block+]=s
block
{ =, body=() }
(ast, OC)
(np, parent) {c={},k={},ki={},np=np ,mr=np ,sc={{}},lc=np ,pr={},va=,sub_c={},loopStack={},upvalues={},parent=parent}
(p, str)
lookup = ..str
p.ki[lookup] ~=
p.ki[lookup], p.k[p.ki[lookup]+].key
k_key = .(, ) + (#str * .(, ))
k_obj = {=, val=str, key=k_key}
i = #p.k
p.k[i+] = k_obj
p.ki[lookup] = i
i, k_key
(p,v)
key=(v)....(v)
p.ki[key]~= p.ki[key]
i=#p.k; p.k[i+]=v; p.ki[key]=i; i
(p,...) p.c[#p.c+]={...}; #p.c-
(p,i,t2) p.c[i+][]=t2
(p) r=p.lc; p.lc=r+; p.lc>p.mr p.mr=p.lc ; r
(p) p.lc=p.lc-
(p,n) r=(p); p.sc[#p.sc][#p.sc[#p.sc]+]={n=n,r=r}; r
(p,n)
s=#p.sc,,-
i=#p.sc[s],,-
p.sc[s][i].n==n p.sc[s][i].r
(p, name)
p.parent
r = (p.parent, name)
r
i, uv (p.upvalues)
uv.isLocal uv.index == r i -
.(p.upvalues, {isLocal = , index = r})
#p.upvalues -
ur = (p.parent, name)
ur
i, uv (p.upvalues)
uv.isLocal uv.index == ur i -
.(p.upvalues, {isLocal = , index = ur})
#p.upvalues -
(p) p.sc[#p.sc+]={}
(p) s=p.sc[#p.sc]; p.lc=p.lc-#s; p.sc[#p.sc]=
(p, reg) (p, OC.M_PUSH_REG, reg)
(p, k_idx) (p, OC.M_PUSH_K, k_idx)
(p, val) (p, OC.M_PUSH_LIT, val)
(p, target) i=(p, target); (p, OC.M_JMP); i
(p, dst, src)
(p, OC.M_FETCH_REG_ID, src)
(p, OC.M_WRITE_REG, dst)
(p, op, dst, src1, src2)
(p, OC.M_PUSH_REG, src1)
(p, OC.M_PUSH_REG, src2)
(p, OC.M_POP_ALU_B)
(p, OC.M_POP_ALU_A)
(p, op)
(p, OC.M_WRITE_REG, dst)
(p, op, dst, src)
(p, OC.M_PUSH_REG, src)
(p, op)
(p, OC.M_WRITE_REG, dst)
(p,op,dst,B,C)
(p, ); (p, B); (p, C); (p, op)
j1=(p, )
(p, ); (p, ); (p, OC.M_LOADBOOL, dst)
j2=(p, )
(p, j1, #p.c + )
(p, ); (p, ); (p, OC.M_LOADBOOL, dst)
(p, j2, #p.c + )
(p, dst, val)
(val) == val == .(val) val >= val <=
xkey = .(, )
enc = bit32.(.(val), xkey)
(p, enc)
(p, xkey)
(p, OC.M_POP_ALU_B)
(p, OC.M_POP_ALU_A)
(p, OC.M_ALU_BXOR)
(p, OC.M_WRITE_REG, dst)
mask = .(, )
enc_val = val - mask
k_idx = #p.k
p.k[k_idx + ] = enc_val
p.ki[ .. k_idx] = k_idx
(p, k_idx)
(p, mask)
(p, OC.M_POP_ALU_B)
(p, OC.M_POP_ALU_A)
(p, OC.M_ALU_ADD)
(p, OC.M_WRITE_REG, dst)
compileExpr, compileStat, compileBlock
compileExpr = (p, node, dst)
node.type ==
node.kind == (p, dst, node.value)
node.kind ==
strID, strKey = (p, node.value)
(p, strID); (p, OC.M_EXEC_SUB, dst, strKey)
node.kind == (p, node.value ); (p, ); (p, OC.M_LOADBOOL, dst)
node.kind == (p, dst); (p, dst); (p, OC.M_LOADNIL)
node.type ==
(p, dst); (p, dst); (p, OC.M_LOADNIL)
node.type ==
fp=(#node.params, p); fp.va=node.isVararg
(fp)
i, pn (node.params)
r = i -
fp.sc[#fp.sc][#fp.sc[#fp.sc]+] = {n = pn, r = r}
(fp, node.body)
(fp)
(fp, ); (fp, ); (fp, OC.M_RETURN)
pi=#p.pr; p.pr[pi+]=fp
(p, pi); (p, OC.M_CLOSURE, dst)
node.type ==
r=(p, node.name)
r dst~=r (p, dst, r)
u = (p, node.name)
u
(p, u)
(p, OC.M_GETUPVAL, dst)
strID, strKey = (p, node.name)
(p, strID); (p, OC.M_GETGLOBAL, dst, strKey)
node.type ==
(p, node.argument, dst)
node.operator == (p, OC.M_ALU_NOT, dst, dst)
node.operator == (p, OC.M_ALU_UNM, dst, dst)
node.operator == (p, OC.M_ALU_LEN, dst, dst)
node.operator == (p, OC.M_ALU_BNOT, dst, dst)
node.type ==
(p, OC.M_NEWTABLE, dst)
idx=
_, field (node.fields)
field.key
kr=(p); vr=(p)
(p, field.key, kr); (p, field.value, vr)
(p, dst); (p, kr); (p, vr); (p, OC.M_SETTABLE); (p); (p)
kr=(p); vr=(p)
(p, kr, idx); (p, field.value, vr)
(p, dst); (p, kr); (p, vr); (p, OC.M_SETTABLE); (p); (p);
idx=idx+
node.type ==
(p, node.left, dst)
rr=(p); (p, node.right, rr)
op=node.operator
op== (p, OC.M_ALU_ADD, dst, dst, rr)
op== (p, OC.M_ALU_SUB, dst, dst, rr)
op== (p, OC.M_ALU_MUL, dst, dst, rr)
op== (p, OC.M_ALU_DIV, dst, dst, rr)
op== (p, OC.M_ALU_MOD, dst, dst, rr)
op== (p, OC.M_ALU_POW, dst, dst, rr)
op== (p, dst); (p, rr); (p, OC.M_CONCAT, dst)
op== (p, OC.M_ALU_IDIV, dst, dst, rr)
op== (p, OC.M_ALU_BAND, dst, dst, rr)
op== (p, OC.M_ALU_BOR, dst, dst, rr)
op== (p, OC.M_ALU_BXOR, dst, dst, rr)
op== (p, OC.M_ALU_SHL, dst, dst, rr)
op== (p, OC.M_ALU_SHR, dst, dst, rr)
op== (p,OC.M_EQ,dst,dst,rr)
op==
(p, ); (p, dst); (p, rr); (p, OC.M_EQ); j=(p, )
(p, ); (p, ); (p, OC.M_LOADBOOL, dst); j2=(p, )
(p,j,#p.c + ); (p, ); (p, ); (p, OC.M_LOADBOOL, dst); (p,j2,#p.c + )
op== (p,OC.M_LT,dst,dst,rr)
op== (p,OC.M_LE,dst,dst,rr)
op== (p,OC.M_LT,dst,rr,dst)
op== (p,OC.M_LE,dst,rr,dst)
op==
(p, dst); (p, ); (p, OC.M_TEST); j=(p, )
(p, dst, rr); (p,j,#p.c + )
op==
(p, dst); (p, ); (p, OC.M_TEST); j=(p, )
(p, dst, rr); (p,j,#p.c + )
(p)
node.type ==
(p, node.base, dst)
strID, strKey = (p, node.identifier)
kr=(p); (p, strID); (p, OC.M_EXEC_SUB, kr, strKey)
(p, dst); (p, kr); (p, OC.M_GETTABLE, dst); (p)
node.type ==
(p, node.base, dst)
kr=(p); (p, node.index, kr)
(p, dst); (p, kr); (p, OC.M_GETTABLE, dst); (p)
node.type ==
node.isSelf
t_base = (p)
(p, node.base, t_base)
sk = (p)
c_base = (p)
self_reserved = (p)
na =
string_args = {}
_, arg (node.arguments)
ar = (p)
arg.type == arg.kind ==
.(string_args, {node = arg, reg = ar})
(p, arg, ar)
na = na +
strID, strKey = (p, node.method)
(p, strID)
(p, OC.M_EXEC_SUB, sk, strKey)
(p, t_base)
(p, sk)
(p, OC.M_SELF, c_base)
(p, OC.M_SECURE_ERASE, sk)
_, sArg (string_args)
(p, sArg.node, sArg.reg)
(p, c_base)
(p, na)
(p, )
(p, OC.M_CALL)
dst ~= c_base (p, dst, c_base)
_, sArg (string_args)
(p, OC.M_SECURE_ERASE, sArg.reg)
_ = , na + (p)
c_base = (p)
(p, node.base, c_base)
na =
string_args = {}
_, arg (node.arguments)
ar = (p)
arg.type == arg.kind ==
.(string_args, {node = arg, reg = ar})
(p, arg, ar)
na = na +
_, sArg (string_args)
(p, sArg.node, sArg.reg)
(p, c_base)
(p, na)
(p, )
(p, OC.M_CALL)
dst ~= c_base (p, dst, c_base)
_, sArg (string_args)
(p, OC.M_SECURE_ERASE, sArg.reg)
_ = , na + (p)
compileStat = (p, node)
node.type ==
rs={}
_, n (node.names)
rs[#rs+]=(p, n)
(p, rs[#rs]); (p, rs[#rs]); (p, OC.M_LOADNIL)
i, valNode (node.values)
rs[i]
(p, valNode, rs[i])
valNode.type == i == #node.values #rs > i
req_nrv = #rs - i +
b = #p.c, , -
p.c[b][] == OC.M_CALL
p.c[b-] p.c[b-][] == OC.M_PUSH_LIT
p.c[b-][] = req_nrv
c_base = p.c[b-][]
j = , req_nrv -
(p, rs[i + j], c_base + j)
node.type ==
r=(p, node.name)
(p, r); (p, r); (p, OC.M_LOADNIL)
(p, node.functionDef, r)
node.type ==
chain=node.chain
tmp=(p); (p, node.functionDef, tmp)
node.isMethod p.pr[#p.pr] p.pr[#p.pr].np = p.pr[#p.pr].np+
#chain==
r=(p, chain[])
r (p, r, tmp)
strID, strKey = (p, chain[])
(p, strID); (p, tmp); (p, OC.M_SETGLOBAL, strKey)
tr=(p); r=(p, chain[])
r (p, tr, r)
strID1, strKey1 = (p, chain[])
(p, strID1); (p, OC.M_GETGLOBAL, tr, strKey1)
i=,#chain-
strID_i, strKey_i = (p, chain[i])
kr=(p); (p, strID_i); (p, OC.M_EXEC_SUB, kr, strKey_i)
(p, tr); (p, kr); (p, OC.M_GETTABLE, tr); (p)
strID_l, strKey_l = (p, chain[#chain])
kr=(p); (p, strID_l); (p, OC.M_EXEC_SUB, kr, strKey_l)
(p, tr); (p, kr); (p, tmp); (p, OC.M_SETTABLE); (p); (p)
(p)
node.type ==
nb=#node.arguments
base=p.lc
nb >
i, arg (node.arguments)
r=(p); (p, arg, r)
(p, base); (p, nb); (p, OC.M_RETURN)
_=,nb (p)
(p, ); (p, ); (p, OC.M_RETURN)
node.type ==
done={}
_, clause (node.clauses)
cr=(p); (p, clause.condition, cr)
(p, cr); (p, ); (p, OC.M_TEST); (p)
jf=(p, ); (p); (p, clause.body); (p)
je=(p, ); done[#done+]=je; (p, jf, #p.c + )
node.elseBody
(p); (p, node.elseBody); (p)
_, j (done) (p, j, #p.c + )
node.type ==
top=#p.c;
cr=(p); (p, node.condition, cr)
(p, cr); (p, ); (p, OC.M_TEST); (p); jf=(p, )
p.loopStack = p.loopStack {}
.(p.loopStack, {breaks={}, continues={}})
(p); (p, node.body); (p)
lctx = .(p.loopStack)
_, cj (lctx.continues) (p, cj, top + )
(p, top + );
(p, jf, #p.c + )
_, bj (lctx.breaks) (p, bj, #p.c + )
node.type ==
top=#p.c; (p);
p.loopStack = p.loopStack {}
.(p.loopStack, {breaks={}, continues={}})
(p, node.body); (p)
lctx = .(p.loopStack)
contTarget = #p.c +
_, cj (lctx.continues) (p, cj, contTarget)
cr=(p); (p, node.condition, cr)
(p, cr);
(p, ); (p, OC.M_TEST); (p); (p, top + )
_, bj (lctx.breaks) (p, bj, #p.c + )
node.type ==
(p)
ir=(p,) lr=(p,) sr=(p,) vr=(p, node.variable)
(p, node.start, ir);
(p, node.limit, lr)
node.step (p, node.step, sr) (p, sr, )
p_ir1 = (p, ir);
pi2 = (p, );
(p, OC.M_FORPREP)
bodyStart = #p.c +
(p, vr, ir)
p.loopStack = p.loopStack {}
.(p.loopStack, {breaks={}, continues={}})
(p, node.body)
lctx = .(p.loopStack)
p_ir2 = (p, ir);
_, cj (lctx.continues) (p, cj, p_ir2)
li = (p, );
(p, OC.M_FORLOOP)
(p, pi2, p_ir2 + )
(p, li, bodyStart)
_, bj (lctx.breaks) (p, bj, #p.c + )
(p)
node.type ==
(p)
itr=(p,); str2=(p,);
ctl=(p,)
(p, node.iterators[] {=,kind=}, itr)
node.iterators[] node.iterators[].type == node.iterators[]
b = #p.c, , -
p.c[b][] == OC.M_CALL
p.c[b-] p.c[b-][] == OC.M_PUSH_LIT
p.c[b-][] =
c_base = p.c[b-][]
(p, str2, c_base + )
(p, ctl, c_base + )
node.iterators[] (p, node.iterators[], str2)
node.iterators[] (p, node.iterators[], ctl)
vrs={}
_, vname (node.variables) vrs[#vrs+]=(p, vname)
call_base = (p)
call_arg1 = (p)
call_arg2 = (p)
top=#p.c
(p, call_base, itr)
(p, call_arg1, str2)
(p, call_arg2, ctl)
(p, call_base)
(p, )
(p, #node.variables)
(p, OC.M_CALL)
(p, ctl, call_base)
i, vr (vrs)
(p, vr, call_base + i - )
nr=(p)
(p, nr)
(p, nr)
(p, OC.M_LOADNIL)
(p, )
(p, ctl)
(p, nr)
(p, OC.M_EQ)
(p)
jf=(p, )
p.loopStack = p.loopStack {}
.(p.loopStack, {breaks={}, continues={}})
(p, node.body)
lctx = .(p.loopStack)
_, cj (lctx.continues) (p, cj, top + )
(p, top + )
(p, jf, #p.c + )
_, bj (lctx.breaks) (p, bj, #p.c + )
(p)
node.type ==
(p); (p, node.body); (p)
node.type ==
j = (p, )
p.loopStack #p.loopStack >
.(p.loopStack[#p.loopStack].breaks, j)
node.type ==
j = (p, )
p.loopStack #p.loopStack >
.(p.loopStack[#p.loopStack].continues, j)
node.type ==
dr=(p); (p, node.expression, dr); (p)
node.type ==
compiledRhs={}
i, rhsNode (node.rhs)
rr=(p)
(p, rhsNode, rr)
compiledRhs[#compiledRhs+]=rr
rhsNode.type == i == #node.rhs #node.lhs > i
req_nrv = #node.lhs - i +
b = #p.c, , -
p.c[b][] == OC.M_CALL
p.c[b-] p.c[b-][] == OC.M_PUSH_LIT
p.c[b-][] = req_nrv
c_base = p.c[b-][]
j = , req_nrv -
evr = (p)
(p, evr, c_base + j)
compiledRhs[#compiledRhs+] = evr
i, lhsNode (node.lhs)
vr=compiledRhs[i]
vr
lhsNode.type ==
r=(p, lhsNode.name)
r
(p, r, vr)
u = (p, lhsNode.name)
u
(p, u)
(p, vr)
(p, OC.M_SETUPVAL)
strID, strKey = (p, lhsNode.name)
(p, strID); (p, vr);
(p, OC.M_SETGLOBAL, strKey)
lhsNode.type ==
tr=(p); (p, lhsNode.base, tr)
strID, strKey = (p, lhsNode.identifier)
kr=(p); (p, strID); (p, OC.M_EXEC_SUB, kr, strKey)
(p, tr); (p, kr); (p, vr); (p, OC.M_SETTABLE); (p); (p)
lhsNode.type ==
tr=(p); (p, lhsNode.base, tr)
kr=(p); (p, lhsNode.index, kr)
(p, tr); (p, kr); (p, vr); (p, OC.M_SETTABLE); (p); (p)
_=, #compiledRhs (p)
compileBlock = (p, block)
_, stat (block) (p, stat)
root=()
root.va=
(root)
(root, ast.body)
(root, OC.M_HALT)
root
(proto, OC)
superMap = {}
superCount =
usedOpcodes = {}
_, val pairs(OC) do usedOpcodes[val] = true end
local function fop()
local val
repeat val = math.random(1, 65535) until not usedOpcodes[val]
usedOpcodes[val] = true
return val
end
local reverseOC = {}
for k, v in pairs(OC) do reverseOC[v] = k end
local function getName(val)
return reverseOC[val]
end
local safeOpMap = {}
local function isSafeFast(op)
if safeOpMap[op] ~= nil then return safeOpMap[op] end
local opName = reverseOC[op]
if opName and string.sub(opName, 1, 8) == "M_SUPER_" then
safeOpMap[op] = false
return false
end
local safe = op ~= OC.M_JMP and op ~= OC.M_TEST and op ~= OC.M_EQ and
op ~= OC.M_LT and op ~= OC.M_LE and op ~= OC.M_FORPREP and
op ~= OC.M_FORLOOP and op ~= OC.M_CALL and op ~= OC.M_RETURN and
op ~= OC.M_HALT and op ~= OC.M_EXEC_SUB and
op ~= OC.M_GETGLOBAL and op ~= OC.M_SETGLOBAL and op ~= OC.M_LOADBOOL
safeOpMap[op] = safe
return safe
end
local function findAndApply(p)
local pairsCount = {}
local function count(p_inner)
for i = 1, #p_inner.c - 1 do
local op1 = p_inner.c[i][1]
local op2 = p_inner.c[i+1][1]
if isSafeFast(op1) and isSafeFast(op2) then
local key = (op1 * 256) + op2
pairsCount[key] = (pairsCount[key] or 0) + 1
end
end
for _, sp in ipairs(p_inner.pr) do count(sp) end
end
count(p)
local bestPair, maxCount = nil, 0
for k, c in pairs(pairsCount) do
if c > maxCount then maxCount = c; bestPair = k end
end
if maxCount >= 2 then
local o2 = bestPair % 256
local o1 = math.floor(bestPair / 256)
superCount = superCount + 1
local superName = "M_SUPER_" .. superCount
local superVal = fop()
OC[superName] = superVal
reverseOC[superVal] = superName
superMap[superName] = {getName(o1), getName(o2)}
local function apply(p_inner)
local _skip_next = false
for i = 1, #p_inner.c - 1 do
if _skip_next then
_skip_next = false
elseif p_inner.c[i][1] == o1 and p_inner.c[i+1][1] == o2 then
p_inner.c[i][1] = superVal
_skip_next = true
end
end
for _, sp in ipairs(p_inner.pr) do apply(sp) end
end
apply(p)
return true
end
return false
end
for iter = 1, 15 do
if not findAndApply(proto) then break end
end
return superMap
end
local function serialize(proto, OC, opMap, pk, mathProxy, stringChar, genMathCall, numKey)
local function sNum(v)
if v==math.floor(v) and v>=0 and v<=0xFFFF then
return "("..genMathCall(v, mathProxy)..")"
end
return tostring(v)
end
local function sK(v)
if type(v)=="number" then return sNum(v)
elseif type(v)=="boolean" then return tostring(v)
elseif v==nil then return "nil"
elseif type(v)=="table" and v.type=="enc_string" then
local nums={}
for i=1,#v.val do nums[i] = bit32.bxor(string.byte(v.val,i), v.key) end
return "{"..pk.dKey.."={"..table.concat(nums,",").."}}"
elseif type(v)=="string" then
if v == "" then return "''" end
local chunkSize = (#v > 500) and math.random(50, 100) or math.random(2, 4)
local chunks = {}
local i = 1
while i <= #v do
chunks[#chunks+1] = string.sub(v, i, i + chunkSize - 1)
i = i + chunkSize
end
local memKeys = {}
local usedKeys = {}
for _ = 1, #chunks do
local k
repeat k = math.random(10000, 99999) until not usedKeys[k]
usedKeys[k] = true
memKeys[#memKeys+1] = k
end
local insertOrder = {}
for idx = 1, #chunks do insertOrder[idx] = idx end
for idx = #insertOrder, 2, -1 do
local rand = math.random(idx)
insertOrder[idx], insertOrder[rand] = insertOrder[rand], insertOrder[idx]
end
local masterXor = math.random(1, 255)
local memInit = {}
for _, idx in ipairs(insertOrder) do
local chunk = chunks[idx]
local mKey = memKeys[idx]
local bytes = {}
for j = 1, #chunk do bytes[#bytes+1] = bit32.bxor(string.byte(chunk, j), masterXor) end
memInit[#memInit+1] = "["..mKey.."]={"..table.concat(bytes,",").."}"
end
local memVar, ptrVar = newVar(), newVar()
local genFunc, stateVar, kVar = newVar(), newVar(), newVar()
local chunkVar, jVar, sVar = newVar(), newVar(), newVar()
local encK = genMathCall(masterXor, mathProxy)
return "(function() local "..memVar.."={"..table.concat(memInit, ",").."}; local "..ptrVar.."={"..table.concat(memKeys, ",").."}; local _k="..encK.."; local function "..genFunc.."("..stateVar..") if "..stateVar..">#"..ptrVar.." then return '' end; local "..kVar.."="..ptrVar.."["..stateVar.."]; local "..chunkVar.."="..memVar.."["..kVar.."]; local "..sVar.."=''; for "..jVar.."=1,#"..chunkVar.." do "..sVar.."="..sVar.."..string.char(bit32.bxor("..chunkVar.."["..jVar.."],_k)); end; "..memVar.."["..kVar.."]=nil; local _ret="..sVar..".."..genFunc.."("..stateVar.."+1); "..sVar.."=nil; return _ret; end; return "..genFunc.."(1) end)()"
else return "nil" end
end
local function sProto(p)
local cp={}
local order={}
local expH = 0
local secret_seed = math.random(1000, 9999)
for i = 1, #p.c do
local poly_key = ( (i * i * 197) + (i * 83) + secret_seed ) % 4294967296
local ins = p.c[i]
local orig_op = ins[1]
if orig_op == OC.M_EXEC_SUB or orig_op == OC.M_GETGLOBAL then
local K_D = bit32.bxor(i, bit32.bxor(bit32.rshift(poly_key, 2), orig_op))
ins[3] = bit32.bxor(ins[3], K_D)
elseif orig_op == OC.M_SETGLOBAL then
local K_D = bit32.bxor(i, bit32.bxor(bit32.rshift(poly_key, 2), orig_op))
ins[2] = bit32.bxor(ins[2], K_D)
end
ins[1] = bit32.bxor(ins[1], poly_key)
if ins[2] then ins[2] = bit32.bxor(ins[2], poly_key) end
if ins[3] then ins[3] = bit32.bxor(ins[3], poly_key) end
for j=1, #ins do
expH = (expH + ins[j]) % 4294967296
end
end
local bcFingerprint = 0
for i = 1, #p.c do
local ins = p.c[i]
for j = 1, #ins do
bcFingerprint = bit32.bxor(bcFingerprint, ins[j] or 0)
bcFingerprint = (bcFingerprint * 16777619 + 1) % 4294967296
end
end
local constKey = ( (bcFingerprint * bcFingerprint * 197) + (bcFingerprint * 83) + secret_seed ) % 4294967296
local ec1v = bit32.bxor(256, constKey)
local ec2v = bit32.bxor(9, bit32.bxor(constKey, 0x11))
local ec3v = bit32.bxor(36, bit32.bxor(constKey, 0x22))
for i=1,#p.c do order[i]=i end
for i=#order,2,-1 do
local j=math.random(i)
order[i],order[j]=order[j],order[i]
end
local b92 = " !#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~"
local function toB92(num)
if num == 0 then return string.sub(b92, 1, 1) end
local res = ""
while num > 0 do
local rem = num % 92
res = string.sub(b92, rem + 1, rem + 1) .. res
num = math.floor(num / 92)
end
return res
end
for _,orig_idx in ipairs(order) do
local ins=p.c[orig_idx]
local ip={toB92(orig_idx), toB92(ins[1])}
if ins[2] then ip[#ip+1]=toB92(ins[2]) end
if ins[3] then ip[#ip+1]=toB92(ins[3]) end
cp[#cp+1]=table.concat(ip,"'")
end
local kp={}
for i=1, #p.k do
local kv = p.k[i]
local val_expr = sK(kv)
if i == 1 then
kp[#kp+1]="if _c_id == "..(i-1).." then return "..val_expr
else
kp[#kp+1]="elseif _c_id == "..(i-1).." then return "..val_expr
end
end
local pool_func = ""
if #kp > 0 then
pool_func = "function(_c_id) "..table.concat(kp, " ").." else return nil end end"
else
pool_func = "function(_c_id) return nil end"
end
local sub_p = {}
if not p.sub_c or #p.sub_c == 0 then
p.sub_c = { {OC.SUB_OP_DEC, 0}, {OC.SUB_OP_RET, 0} }
end
for _, ins in ipairs(p.sub_c) do
sub_p[#sub_p+1] = "{"..bit32.bxor(ins[1], secret_seed % 256)..","..bit32.bxor(ins[2] or 0, secret_seed % 256).."}"
end
local pp={}
for _,sp in ipairs(p.pr) do pp[#pp+1]=sProto(sp) end
local uv_p = {}
if p.upvalues then
for _, uv in ipairs(p.upvalues) do
uv_p[#uv_p+1] = "{"..(uv.isLocal and "1" or "0")..","..uv.index.."}"
end
end
local encoded_seed = bit32.bxor(secret_seed, expH % 65536)
local b92Decoder = "(function(s) local b=' !#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~' local m={} for i=1,92 do m[string.sub(b,i,i)]=i-1 end local function f(str) local num=0 for i=1,#str do num=num*92+m[string.sub(str,i,i)] end return num end local t={} for p in string.gmatch(s,'([^\"]+)') do local g=string.gmatch(p,\"([^']+)\") local idx=f(g()) local r={} for v in g do r[#r+1]=f(v) end t[idx]=r end return t end)"
local safe_payload = table.concat(cp, "\""):gsub("\"", "\\\"")
return "{"..pk.c.."="..b92Decoder.."(\""..safe_payload.."\"),sub_c={"..table.concat(sub_p,",").."},"..pk.k.."="..pool_func
..","..pk.np.."="..p.np..",upvalues={"..table.concat(uv_p,",").."},"..pk.va.."="..(p.va and 1 or 0)
..","..pk.pr.."={"..table.concat(pp,",").."},"..pk.mr.."="..(p.mr or 0)..","..pk.hash.."="..expH..","..pk.seed.."="..encoded_seed..","..pk.ec1.."="..ec1v..","..pk.ec2.."="..ec2v..","..pk.ec3.."="..ec3v.."}"
end
return sProto(proto)
end
local function buildVM(opVarNames, vmName, v, pk, OC, stringChar, numKey, superMap, mathProxy)
local L={}
local function A(s) L[#L+1]=s end
local function ov(n) return opVarNames[n] end
local rV = {
subVMName = newVar(),
opaqueTrue = newVar(),
pipelineLockVar = newVar(),
alu_a = newVar(),
alu_b = newVar(),
alu_id = newVar(),
alu_res = newVar(),
dispatch_next = newVar(),
has_returned = newVar(),
return_values = newVar(),
Central_Dispatcher = newVar(),
State_Variable = newVar(),
Opaque_Transition = newVar(),
sub_cache = newVar(),
encObj = newVar(),
sub_bc = newVar(),
c = newVar(),
s = newVar(),
_p = newVar(),
b = newVar(),
a = newVar(),
k = newVar(),
gk = newVar(),
t = newVar(),
v = newVar(),
ps = newVar(),
ci = newVar(),
nrv = newVar(),
na = newVar(),
dst = newVar(),
fn = newVar(),
a2 = newVar(),
ai = newVar(),
rv = newVar(),
ri = newVar(),
n = newVar(),
base = newVar(),
ir = newVar(),
idx = newVar(),
p_idx = newVar(),
x = newVar(),
mip = newVar(),
rt_seed = newVar(),
chain_key = newVar(),
env = newVar(),
math = newVar(),
bit = newVar(),
floor = newVar(),
cos = newVar(),
sin = newVar(),
pi = newVar(),
band = newVar(),
lshift = newVar(),
rshift = newVar(),
op_val = newVar(),
cff_state = newVar(),
realBc = newVar(),
realK = newVar(),
mt = newVar(),
self = newVar(),
key = newVar(),
val = newVar(),
crash = newVar(),
safe_iscc = newVar(),
safe_newcc = newVar(),
poly_seed = newVar(),
cff_st = newVar(),
max_pc = newVar(),
gm = newVar(),
tp = newVar(),
pc = newVar(),
isc = newVar(),
is_safe = newVar(),
fake_prop_pre = newVar(),
tof_pre = newVar(),
g_pre = newVar(),
v3_pre = newVar(),
env_probe_mt = newVar(),
mt_bc_pre = newVar(),
mt_h_pre = newVar(),
is_inst_pre = newVar(),
s_pre = newVar(),
e_pre = newVar(),
err_valid_pre = newVar(),
v3_valid_pre = newVar(),
s2_pre = newVar(),
r2_pre = newVar(),
rg = newVar(),
sf = newVar(),
poly_share = newVar(),
vmTrusted = newVar(),
clPr = newVar(),
clUvs = newVar(),
clIdx = newVar(),
clUv = newVar(),
clVal = newVar(),
clSet = newVar(),
clInner = newVar(),
clWrapped = newVar(),
upIdx = newVar(),
upVal = newVar(),
l4_cor = newVar(),
l4_cc = newVar(),
l4_cr = newVar(),
l4_cy = newVar(),
l4_np = newVar(),
l4_gmt = newVar(),
l4_pc = newVar(),
l4_ts = newVar(),
l4_sf = newVar(),
l4_trap = newVar(),
l4_thr = newVar(),
l4_frac = newVar(),
l4_pkey = newVar(),
l4_s = newVar(),
l4_r = newVar(),
bcFp = newVar(),
ckR = newVar(),
dc1 = newVar(),
dc2 = newVar(),
dc3 = newVar(),
passed = newVar(),
cM = newVar(),
cMem = newVar(),
cG = newVar(),
cE = newVar(),
cR = newVar(),
rcStore = newVar(),
rcKey = newVar(),
rcGet = newVar(),
rcSet = newVar(),
pushReg_idx = newVar(),
pushK_id = newVar(),
pushLit_val = newVar(),
writeReg_idx = newVar(),
fetchReg_idx = newVar(),
loadBool_idx = newVar(),
getGlobal_dst = newVar(),
getGlobal_kid = newVar(),
setGlobal_kid = newVar(),
getTable_dst = newVar(),
newTable_dst = newVar(),
self_dst = newVar(),
concat_dst = newVar(),
closure_dst = newVar(),
getUpval_dst = newVar(),
execSub_dst = newVar(),
execSub_kid = newVar()
}
v.dynState = newVar()
v.handlers = newVar()
v.res = newVar()
v.rk = newVar()
v.rks = newVar()
v.tmp = newVar()
v.top = newVar()
local function bStr(str)
if not str or str == "" then return "''" end
local chunkSize = (#str > 500) and math.random(50, 100) or math.random(2, 4)
local chunks = {}
local i = 1
while i <= #str do
chunks[#chunks+1] = string.sub(str, i, i + chunkSize - 1)
i = i + chunkSize
end
local memKeys = {}
local usedKeys = {}
for _ = 1, #chunks do
local k
repeat k = math.random(10000, 99999) until not usedKeys[k]
usedKeys[k] = true
memKeys[#memKeys+1] = k
end
local insertOrder = {}
for idx = 1, #chunks do insertOrder[idx] = idx end
for idx = #insertOrder, 2, -1 do
local rand = math.random(idx)
insertOrder[idx], insertOrder[rand] = insertOrder[rand], insertOrder[idx]
end
local masterXor = math.random(1, 255)
local memInit = {}
for _, idx in ipairs(insertOrder) do
local chunk = chunks[idx]
local mKey = memKeys[idx]
local bytes = {}
for j = 1, #chunk do bytes[#bytes+1] = bit32.bxor(string.byte(chunk, j), masterXor) end
memInit[#memInit+1] = "["..mKey.."]={"..table.concat(bytes,",").."}"
end
local memVar, ptrVar = newVar(), newVar()
local genFunc, stateVar, kVar = newVar(), newVar(), newVar()
local chunkVar, jVar, sVar = newVar(), newVar(), newVar()
return "(function() local "..memVar.."={"..table.concat(memInit, ",").."}; local "..ptrVar.."={"..table.concat(memKeys, ",").."}; local function "..genFunc.."("..stateVar..") if "..stateVar..">#"..ptrVar.." then return '' end; local "..kVar.."="..ptrVar.."["..stateVar.."]; local "..chunkVar.."="..memVar.."["..kVar.."]; local "..sVar.."=''; for "..jVar.."=1,#"..chunkVar.." do "..sVar.."="..sVar.."..string.char(bit32.bxor("..chunkVar.."["..jVar.."],"..masterXor..")); end; "..memVar.."["..kVar.."]=nil; local _ret="..sVar..".."..genFunc.."("..stateVar.."+1); "..sVar.."=nil; return _ret; end; return "..genFunc.."(1) end)()"
end
A(" local "..rV.env.." = getfenv and getfenv() or _ENV or _G")
A(" local "..rV.math.." = "..rV.env.."["..bStr("math").."]")
A(" local "..rV.bit.." = "..rV.env.."["..bStr("bit32").."] or "..rV.math.."")
A(" local "..rV.floor.." = "..rV.math.."["..bStr("floor").."]")
A(" local "..rV.cos.." = "..rV.math.."["..bStr("cos").."]")
A(" local "..rV.sin.." = "..rV.math.."["..bStr("sin").."]")
A(" local "..rV.pi.." = "..rV.math.."["..bStr("pi").."]")
A(" local "..rV.band.." = "..rV.bit.."["..bStr("band").."] or function(a,b) return a end")
A(" local "..rV.lshift.." = "..rV.bit.."["..bStr("lshift").."] or function(a,b) return a*(2^b) end")
A(" local "..rV.rshift.." = "..rV.bit.."["..bStr("rshift").."] or function(a,b) return "..rV.floor.."(a/(2^b)) end")
local function genCollatzCheck(varName)
local choice = math.random(1, 4)
if choice == 1 then
return "((("..varName.." * "..varName..") - "..varName..") % 2 == 0)"
elseif choice == 2 then
return "(math.abs(math.sin("..varName..")^2 + math.cos("..varName..")^2 - 1) < 0.05)"
elseif choice == 3 then
return "((math.floor("..varName.." * 0.5) * 2) <= "..varName..")"
else
return "(math.abs(("..varName.." * 0.333333) * 3 - "..varName..") < 0.05)"
end
end
local v_mba_t = {
x = newVar(), y = newVar(), mba = newVar(), dec = newVar()
}
A(" local function "..rV.opaqueTrue.."()")
A(" local "..v_mba_t.x.." = (("..v.dynState.." or 1) * 0.84147098) % 9999")
A(" local "..v_mba_t.y.." = math.floor("..v_mba_t.x..")")
A(" local "..v_mba_t.mba.." = (("..v_mba_t.y.." * "..v_mba_t.y..") - "..v_mba_t.y..") % 2")
A(" local "..v_mba_t.dec.." = math.abs(math.sin("..v_mba_t.x..")^2 + math.cos("..v_mba_t.x..")^2 - 1)")
A(" return ("..v_mba_t.mba.." == 0 and "..v_mba_t.dec.." < 0.05) and 1 or 0")
A(" end")
local sV = {
mem = newVar(),
spc = newVar(),
ds = newVar(),
hnd = newVar(),
sc = newVar(),
opv = newVar(),
raw = newVar(),
sop = newVar(),
res = newVar(),
mba_a = newVar(),
mba_s = newVar(),
sec_bc = newVar(),
p_key = newVar(),
a_key = newVar(),
rt_pc = newVar(),
rt_rk = newVar(),
rt_op = newVar(),
k_d = newVar(),
dx = newVar(),
c_state = newVar(),
rss = newVar(),
sub_h = newVar(),
ret = newVar(),
trap = newVar(),
nxt_rk = newVar()
}
A(" local "..rV.sub_cache.." = setmetatable({}, {__mode = 'kv'})")
A(" local function "..rV.subVMName.."("..rV.encObj..", "..sV.p_key..", "..sV.sec_bc..", "..sV.rt_pc..", "..sV.rt_rk..", "..sV.rt_op..")")
A(" if type("..rV.encObj..") ~= 'table' and not "..sV.sec_bc.." then return "..rV.encObj.." end")
A(" if not "..sV.sec_bc.." and "..rV.sub_cache.."["..rV.encObj.."] then return "..rV.sub_cache.."["..rV.encObj.."] end")
A(" local "..sV.mem.." = setmetatable({}, {")
A(" __index = function(t, k) return rawget(t, k) end,")
A(" __newindex = function(t, k, v) rawset(t, k, v) end,")
A(" __metatable = 'LOCKED_MEM'")
A(" })")
A(" local "..rV.sub_bc.." = "..sV.sec_bc.." or "..v.P..".sub_c")
A(" local "..sV.ds.." = 0")
A(" local "..sV.hnd.." = {}")
A(" local "..sV.sc.." = string.char")
A(" local "..sV.k_d.." = bit32.bxor("..sV.rt_pc.." or 0, bit32.bxor(bit32.rshift("..sV.rt_rk.." or 0, 2), "..sV.rt_op.." or 0))")
A(" local "..sV.a_key.." = bit32.bxor("..sV.p_key..", "..sV.k_d..")")
A(" local function "..sV.mba_a.."(a, b) return bit32.bxor(a, b) + bit32.lshift(bit32.band(a, b), 1) end")
A(" local function "..sV.mba_s.."(a, b) return bit32.bxor(a, bit32.bnot(b)) + bit32.lshift(bit32.band(a, bit32.bnot(b)), 1) + 1 end")
local sub_hBody1 = sV.ds.." = math.floor("..sV.mba_a.."("..sV.ds..", "..sV.sop.."[1]) % 256);"
local sub_dCheck1 = genCollatzCheck(sV.ds)
A(" "..sV.hnd.."["..ov("SUB_OP_DEC").."] = function("..sV.sop..") ")
A(" "..sub_hBody1)
A(" if "..rV.opaqueTrue.."() == 1 then")
A(" if "..sub_dCheck1.." then ")
A(" if type("..rV.encObj..") == 'table' and "..rV.encObj.."."..pk.dKey.." then")
A(" "..sV.mem.."[1] = ("..sV.mem.."[1] or '')")
A(" for "..rV.idx.."=1,#"..rV.encObj.."."..pk.dKey.." do ")
A(" local "..sV.dx.." = bit32.bxor("..rV.encObj.."."..pk.dKey.."["..rV.idx.."], "..sV.a_key..")")
A(" "..sV.mem.."[1] = "..sV.mem.."[1] .. "..sV.sc.."("..sV.dx..")")
A(" end")
A(" end")
A(" end")
A(" else")
A(" "..sV.p_key.." = bit32.bxor("..sV.p_key..", 0x1B)")
A(" end")
A(" end")
local sub_hBody2 = sV.ds.." = math.floor("..sV.mba_s.."("..sV.ds..", "..sV.sop.."[1]) % 256);"
local sub_dCheck2 = genCollatzCheck(sV.ds)
A(" "..sV.hnd.."["..ov("SUB_OP_RET").."] = function("..sV.sop..") ")
A(" "..sub_hBody2)
A(" if "..rV.opaqueTrue.."() == 1 then")
A(" if "..sub_dCheck2.." then ")
A(" local "..sV.res.." = "..sV.mem.."[1]; "..sV.mem.."[1] = nil")
A(" "..sV.mem.." = nil")
A(" return "..sV.res.."")
A(" end")
A(" end")
A(" end")
A(" "..sV.hnd.."[0xDEAD] = function("..sV.sop..") ")
A(" "..sV.mem.."[1] = "..sV.mba_s.."((bit32.bxor("..v.P.."."..pk.seed..", "..v.P.."."..pk.hash.." % 65536) % 256), "..sV.sop.."[2] or 0)")
A(" if "..sV.mem.."[1] ~= 0 then "..sV.p_key.." = bit32.bxor("..sV.p_key..", 0x2C) end")
A(" end")
A(" local "..rV.cff_state.." = 1")
A(" local "..sV.spc.." = 1")
A(" while true do")
A(" local "..sV.opv.." = "..rV.opaqueTrue.."()")
A(" local "..sV.c_state.." = "..rV.cff_state.." * "..sV.opv.."")
A(" if "..sV.c_state.." == 1 then")
A(" local "..sV.raw.." = "..rV.sub_bc.."["..sV.spc.." * "..sV.opv.."] or {0, 0}")
A(" local "..sV.rss.." = bit32.bxor("..v.P.."."..pk.seed..", "..v.P.."."..pk.hash.." % 65536) % 256")
A(" local "..sV.sop.." = {bit32.bxor("..sV.raw.."[1], "..sV.rss.."), bit32.bxor("..sV.raw.."[2] or 0, "..sV.rss..")}")
A(" local "..sV.sub_h.." = "..sV.hnd.."["..sV.sop.."[1]]")
A(" if "..sV.sub_h.." then")
A(" local "..sV.ret.." = "..sV.sub_h.."("..sV.sop..")")
A(" if "..sV.ret.." then return "..sV.ret.." end")
A(" else")
A(" local "..sV.trap.." = "..sV.hnd.."[0xDEAD]")
A(" if "..sV.trap.." then "..sV.trap.."("..sV.sop..") end")
A(" end")
A(" "..rV.cff_state.." = 2 * "..sV.opv.."")
A(" elseif "..sV.c_state.." == 2 then")
A(" "..sV.spc.." = "..sV.spc.." + "..sV.opv.."")
A(" if "..sV.spc.." > #"..rV.sub_bc.." then break end")
A(" "..rV.cff_state.." = 1 * "..sV.opv.."")
A(" else")
A(" break")
A(" end")
A(" end")
A(" end")
A("local function "..vmName.."("..v.P..","..v.E..","..v.a..","..v.U..")")
local randLockStr = string.char(math.random(97,122), math.random(97,122), math.random(97,122), math.random(97,122), math.random(97,122))
local rt_mulConst = math.random(100000000, 999999999)
local rt_modConst = math.random(0x100000, 0xFFFFFF)
A(" local "..rV.rt_seed.." = math.floor(os.clock() * "..rt_mulConst..") % "..rt_modConst.."")
A(" local "..rV.chain_key.." = bit32.bxor("..rV.rt_seed..", " .. math.random(0x1000, 0xFFFF) .. ")")
A(" local "..rV.l4_cor.." = "..rV.env.."["..bStr("coroutine").."]")
A(" local "..rV.l4_cc.." = "..rV.l4_cor.."["..bStr("create").."]")
A(" local "..rV.l4_cr.." = "..rV.l4_cor.."["..bStr("resume").."]")
A(" local "..rV.l4_cy.." = "..rV.l4_cor.."["..bStr("yield").."]")
A(" local "..rV.l4_np.." = "..rV.env.."["..bStr("newproxy").."]")
A(" local "..rV.l4_gmt.." = "..rV.env.."["..bStr("getmetatable").."]")
A(" local "..rV.l4_pc.." = "..rV.env.."["..bStr("pcall").."]")
A(" local "..rV.l4_ts.." = "..rV.env.."["..bStr("tostring").."]")
A(" local "..rV.l4_sf.." = "..rV.env.."["..bStr("string").."]["..bStr("find").."]")
A(" local "..rV.l4_frac.." = false")
A(" if "..rV.l4_np.." and "..rV.l4_cc.." and "..rV.l4_cr.." and "..rV.l4_cy.." then")
A(" local "..rV.l4_trap.." = "..rV.l4_np.."(true)")
A(" "..rV.l4_gmt.."("..rV.l4_trap..")["..bStr("__tostring").."] = function() "..rV.l4_cy.."() return "..bStr(" ").." end")
A(" local "..rV.l4_thr.." = "..rV.l4_cc.."(function()")
A(" local "..rV.l4_s..", "..rV.l4_r.." = "..rV.l4_pc.."("..rV.l4_ts..", "..rV.l4_trap..")")
A(" if not "..rV.l4_s.." and "..rV.l4_sf.."("..rV.l4_ts.."("..rV.l4_r.." or "..bStr(" ").."), "..bStr("yield")..") then")
A(" "..rV.l4_frac.." = true")
A(" end")
A(" end)")
A(" "..rV.l4_cr.."("..rV.l4_thr..")")
A(" "..rV.l4_trap.." = nil; "..rV.l4_thr.." = nil")
A(" end")
A(" if not "..rV.l4_frac.." then")
A(" local "..rV.l4_pkey.." = ("..v.P.."."..pk.hash.." % 254) + 1")
A(" "..rV.chain_key.." = bit32.bxor("..rV.chain_key..", "..rV.l4_pkey..")")
A(" "..rV.l4_pkey.." = nil")
A(" end")
A(" "..rV.l4_cor.."=nil; "..rV.l4_cc.."=nil; "..rV.l4_cr.."=nil; "..rV.l4_cy.."=nil")
A(" "..rV.l4_np.."=nil; "..rV.l4_gmt.."=nil; "..rV.l4_pc.."=nil; "..rV.l4_ts.."=nil; "..rV.l4_sf.."=nil; "..rV.l4_frac.."=nil")
A(" local "..rV.rcStore.."={}; local "..v.pr.."="..v.P.."."..pk.pr)
A(" local "..rV.rcKey.." = bit32.bxor("..rV.rt_seed..", "..rV.chain_key..")")
A(" setmetatable("..rV.rcStore..", {")
A(" __pairs = function() "..v.dynState.." = bit32.bxor("..v.dynState..", 0xDEAD); return function() end end,")
A(" __tostring = function() "..v.dynState.." = bit32.bxor("..v.dynState..", 0xDEAD); return 'Memory' end")
A(" })")
A(" local function "..rV.rcGet.."("..rV.key..") return "..rV.rcStore.."[bit32.bxor("..rV.key..", "..rV.rcKey..")] end")
A(" local function "..rV.rcSet.."("..rV.key..", "..rV.val..") "..rV.rcStore.."[bit32.bxor("..rV.key..", "..rV.rcKey..")] = "..rV.val.." end")
A(" local "..rV.realBc.."="..v.P.."."..pk.c)
A(" local "..rV.realK.."="..v.P.."."..pk.k)
A(" local function "..rV.crash.."() "..v.rk.." = bit32.bxor("..v.rk..", 0x5A); "..v.rks.." = bit32.bxor("..v.rks..", 0x5A) end")
A(" local "..rV.mt.." = {")
A(" __index = function("..rV.self..", "..rV.key..")")
A(" return "..rV.realBc.."["..rV.key.."]")
A(" end,")
A(" __newindex = function("..rV.self..", "..rV.key..", "..rV.val..") "..rV.crash.."() end,")
A(" __metatable = '"..randLockStr.."'")
A(" }")
A(" local "..v.bc.." = setmetatable({}, "..rV.mt..")")
A(" local function "..v.mk.."("..v.p..","..v.e..") return{"..pk.p.."="..v.p..","..pk.e.."="..v.e..","..pk.cl.."=true}end")
A(" if "..v.a.." then for "..rV.x.."=1, "..v.a..".n or 0 do "..rV.rcSet.."("..rV.x.."-1, "..v.a.."["..rV.x.."]) end end")
A(" local "..rV.pipelineLockVar.." = ("..rV.opaqueTrue.."() == 1)")
A(" local "..rV.vmTrusted.." = setmetatable({}, {__mode='k'})")
A(" local "..v.dynState.." = 0")
local tV3 = { e1 = newVar(), s1 = newVar(), r1 = newVar(), e2 = newVar(), ok = newVar(), fn = newVar() }
A(" local "..rV.safe_iscc.." = (function()")
A(" local "..tV3.e1.." = "..rV.env)
A(" return "..tV3.e1.."["..bStr("iscclosure").."] or function(f) local "..tV3.s1..", "..tV3.r1.." = pcall(function() return "..tV3.e1..".debug.info(f, 's') == '[C]' end) return "..tV3.s1.." and "..tV3.r1.." or false end")
A(" end)()")
A(" local "..rV.safe_iscc.." = function(f) return type(f) == " .. bStr("function") .. " end")
A(" local "..v.tmp.." = {}")
A(" local "..v.top.." = 0")
A(" local "..v.i..", "..v.op)
A(" local "..v.rk.." = 0")
A(" local "..rV.poly_seed.." = bit32.bxor("..v.P.."."..pk.seed..", "..v.P.."."..pk.hash.." % 65536)")
local cv = {
H = newVar(), i = newVar(), t = newVar(), j = newVar(),
tbO = newVar(), tbR = newVar(), hk = newVar(), ln = newVar(), m = newVar()
}
local maskKey = math.random(100000, 999999)
A(" do")
A(" local "..cv.H.." = 0")
A(" for "..cv.i.."=1, #"..rV.realBc.." do")
A(" local "..cv.t.." = "..v.bc.."["..cv.i.."]")
A(" if "..cv.t.." then")
A(" for "..cv.j.."=1, #"..cv.t.." do "..cv.H.." = ("..cv.H.." + "..cv.t.."["..cv.j.."]) % 4294967296 end")
A(" end")
A(" end")
local st_1 = math.random(1000, 9999)
local st_2 = math.random(1000, 9999)
local st_3 = math.random(1000, 9999)
local st_4 = math.random(1000, 9999)
local st_end = math.random(1000, 9999)
local cff_nodes = {
{ st = st_1, cd = cv.tbO..", "..cv.tbR.." = pcall(function() return "..rV.env.."["..bStr("debug").."]["..bStr("traceback").."]() end); "..rV.cff_st.." = "..st_2 },
{ st = st_2, cd = "if "..cv.tbO.." and type("..cv.tbR..") == "..bStr("string").." then "..rV.cff_st.." = "..st_3.." else "..rV.cff_st.." = "..st_end.." end" },
{ st = st_3, cd = "for "..cv.m.." in getfenv()["..bStr("string").."]["..bStr("gmatch").."]("..cv.tbR..", "..bStr("\n")..") do "..cv.ln.." = "..cv.ln.." + 1 end; "..rV.cff_st.." = "..st_4 },
{ st = st_4, cd = "if "..cv.ln.." > 150000 then "..cv.hk.." = true end; "..rV.cff_st.." = "..st_end }
}
for i = #cff_nodes, 2, -1 do
local j = math.random(i)
cff_nodes[i], cff_nodes[j] = cff_nodes[j], cff_nodes[i]
end
A(" local "..cv.hk.." = false")
A(" local "..cv.ln.." = 0")
A(" local "..cv.tbO..", "..cv.tbR)
A(" local "..rV.cff_st.." = "..st_1)
A(" while "..rV.cff_st.." ~= "..st_end.." do")
for i, node in ipairs(cff_nodes) do
if i == 1 then
A(" if "..rV.cff_st.." == "..node.st.." then")
else
A(" elseif "..rV.cff_st.." == "..node.st.." then")
end
A(" "..node.cd)
end
A(" end")
A(" end")
local tV1 = { encAct = newVar(), encExp = newVar() }
A(" local "..tV1.encAct.." = bit32.bxor("..cv.H..", "..maskKey..")")
A(" local "..tV1.encExp.." = bit32.bxor("..v.P.."."..pk.hash.." or 0, "..maskKey..")")
A(" if "..tV1.encAct.." ~= "..tV1.encExp.." or "..cv.hk.." then ")
A(" "..v.dynState.." = bit32.bxor("..v.dynState..", 0xDEADBEEF)")
A(" "..v.rk.." = bit32.bxor("..v.rk..", 0x1A2B3C); "..v.rks.." = bit32.bxor("..v.rks..", 0x1A2B3C)")
A(" "..rV.Central_Dispatcher.." = false")
A(" end")
A(" end")
local tV2 = { hkey = newVar(), h_raw = newVar(), xk = newVar() }
A(" local "..tV2.hkey.." = math.random(100, 9999)")
A(" local "..tV2.h_raw.." = {}")
A(" local "..v.handlers.." = setmetatable({}, {")
A(" __index = function(_, k)")
A(" if type(k) ~= 'number' then "..v.rk.." = bit32.bxor("..v.rk..", 0x3D); "..v.rks.." = bit32.bxor("..v.rks..", 0x3D) return function() end end")
A(" return "..tV2.h_raw.."[bit32.bxor(k, "..tV2.hkey..")] or function() end")
A(" end,")
A(" __newindex = function(_, k, v)")
A(" local "..tV2.xk.." = bit32.bxor(k, "..tV2.hkey..")")
A(" if "..tV2.h_raw.."["..tV2.xk.."] then "..v.rk.." = bit32.bxor("..v.rk..", 0x4E); "..v.rks.." = bit32.bxor("..v.rks..", 0x4E) return end")
A(" "..tV2.h_raw.."["..tV2.xk.."] = v")
A(" end,")
A(" __metatable = 'Locked'")
A(" })")
A(" local "..rV.alu_a..", "..rV.alu_b..", "..rV.alu_id..", "..rV.alu_res.."")
A(" local "..rV.dispatch_next.."")
A(" local "..rV.has_returned.." = false")
A(" local "..rV.return_values.." = {}")
A(" local "..rV.Central_Dispatcher.." = true")
A(" local "..rV.State_Variable.." = 1")
local mk1 = math.random(100000, 999999)
local mk2 = bit32.bxor(numKey, mk1)
local encNumKey = "bit32.bxor("..mk1..", "..mk2..")"
local zV = {
idx = newVar(),
s = newVar(),
len = newVar(),
z = newVar(),
i = newVar()
}
local opLogic = {
{ "M_SECURE_ERASE", "local "..zV.idx.."="..v.i.."[2]; "..zV.idx.."="..zV.idx.." and bit32.bxor("..zV.idx..","..v.rks..") or nil; if "..zV.idx.." and "..zV.idx..">2147483647 then "..zV.idx.."="..zV.idx.."-4294967296 end; if type("..rV.rcGet.."("..zV.idx.."))=='string' then local "..zV.s.."="..rV.rcGet.."("..zV.idx.."); local "..zV.len.."=#"..zV.s.."; for _erase_loop=1,4 do local "..zV.z.."={}; for "..zV.i.."=1,"..zV.len.." do "..zV.z.."["..zV.i.."]=string.char(math.random(0,255)) end; "..rV.rcSet.."("..zV.idx..", table.concat("..zV.z..")); end; end; "..rV.rcSet.."("..zV.idx..", nil);" },
{ "M_PUSH_REG", "local "..rV.pushReg_idx.."="..v.i.."[2]; "..rV.pushReg_idx.."="..rV.pushReg_idx.." and bit32.bxor("..rV.pushReg_idx..","..v.rks..") or nil; if "..rV.pushReg_idx.." and "..rV.pushReg_idx..">2147483647 then "..rV.pushReg_idx.."="..rV.pushReg_idx.."-4294967296 end; "..v.top.."="..v.top.."+1;"..v.tmp.."["..v.top.."]="..rV.rcGet.."("..rV.pushReg_idx..")" },
{ "M_PUSH_K", "local "..rV.pushK_id.."="..v.i.."[2]; "..rV.pushK_id.."="..rV.pushK_id.." and bit32.bxor("..rV.pushK_id..","..v.rks..") or nil; if "..rV.pushK_id.." and "..rV.pushK_id..">2147483647 then "..rV.pushK_id.."="..rV.pushK_id.."-4294967296 end; "..v.top.."="..v.top.."+1;"..v.tmp.."["..v.top.."]="..rV.realK.."("..rV.pushK_id..")" },
{ "M_PUSH_LIT", "local "..rV.pushLit_val.."="..v.i.."[2]; "..rV.pushLit_val.."="..rV.pushLit_val.." and bit32.bxor("..rV.pushLit_val..","..v.rks..") or nil; if "..rV.pushLit_val.." and "..rV.pushLit_val..">2147483647 then "..rV.pushLit_val.."="..rV.pushLit_val.."-4294967296 end; "..v.top.."="..v.top.."+1;"..v.tmp.."["..v.top.."]="..rV.pushLit_val.."" },
{ "M_WRITE_REG", "local "..rV.writeReg_idx.."="..v.i.."[2]; "..rV.writeReg_idx.."="..rV.writeReg_idx.." and bit32.bxor("..rV.writeReg_idx..","..v.rks..") or nil; if "..rV.writeReg_idx.." and "..rV.writeReg_idx..">2147483647 then "..rV.writeReg_idx.."="..rV.writeReg_idx.."-4294967296 end; "..rV.rcSet.."("..rV.writeReg_idx..", "..rV.alu_res..")" },
{ "M_FETCH_REG_ID", "local "..rV.fetchReg_idx.."="..v.i.."[2]; "..rV.fetchReg_idx.."="..rV.fetchReg_idx.." and bit32.bxor("..rV.fetchReg_idx..","..v.rks..") or nil; if "..rV.fetchReg_idx.." and "..rV.fetchReg_idx..">2147483647 then "..rV.fetchReg_idx.."="..rV.fetchReg_idx.."-4294967296 end; "..rV.alu_res.."="..rV.rcGet.."("..rV.fetchReg_idx..")" },
{ "M_POP_ALU_B", rV.alu_b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1" },
{ "M_POP_ALU_A", rV.alu_a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1" },
{ "M_ALU_ADD", "if type("..rV.alu_a..")=='number' and type("..rV.alu_b..")=='number' then local "..rV._p.."="..v.dynState.."%3;if "..rV._p.."==0 then "..rV.alu_res.."="..rV.alu_a.."+"..rV.alu_b.." elseif "..rV._p.."==1 then "..rV.alu_res.."=("..rV.alu_a.."*2+"..rV.alu_b.."*2)/2 else "..rV.alu_res.."=("..rV.alu_a.."+"..v.rk..")+("..rV.alu_b.."-"..v.rk..") end else "..rV.alu_res.."="..rV.alu_a.."+"..rV.alu_b.." end" },
{ "M_ALU_SUB", "if type("..rV.alu_a..")=='number' and type("..rV.alu_b..")=='number' then local "..rV._p.."="..v.dynState.."%3;if "..rV._p.."==0 then "..rV.alu_res.."="..rV.alu_a.."-"..rV.alu_b.." elseif "..rV._p.."==1 then "..rV.alu_res.."=("..rV.alu_a.."*2-"..rV.alu_b.."*2)/2 else "..rV.alu_res.."=("..rV.alu_a.."+"..v.rk..")-("..rV.alu_b.."+"..v.rk..") end else "..rV.alu_res.."="..rV.alu_a.."-"..rV.alu_b.." end" },
{ "M_ALU_MUL", "local "..rV._p.."="..v.dynState.."%2;if "..rV._p.."==0 then "..rV.alu_res.."="..rV.alu_a.."*"..rV.alu_b.." else "..rV.alu_res.."="..rV.alu_b.."*"..rV.alu_a.." end" },
{ "M_ALU_BXOR", "local "..rV._p.."="..v.dynState.."%3;if "..rV._p.."==0 then "..rV.alu_res.."=bit32.bxor("..rV.alu_a..","..rV.alu_b..") elseif "..rV._p.."==1 then "..rV.alu_res.."=bit32.bor("..rV.alu_a..","..rV.alu_b..")-bit32.band("..rV.alu_a..","..rV.alu_b..") else "..rV.alu_res.."=bit32.bnot(bit32.bxor(bit32.bnot("..rV.alu_a.."),"..rV.alu_b..")) end" },
{ "M_ALU_DIV", rV.alu_res.."="..rV.alu_b.."~=0 and "..rV.alu_a.."/"..rV.alu_b.." or 0" },
{ "M_ALU_MOD", rV.alu_res.."="..rV.alu_b.."~=0 and "..rV.alu_a.."%"..rV.alu_b.." or 0" },
{ "M_ALU_POW", rV.alu_res.."="..rV.alu_a.."^"..rV.alu_b.."" },
{ "M_ALU_IDIV", rV.alu_res.."="..rV.alu_b.."~=0 and math.floor("..rV.alu_a.."/"..rV.alu_b..") or 0" },
{ "M_ALU_BAND", "local "..rV._p.."="..v.dynState.."%2;if "..rV._p.."==0 then "..rV.alu_res.."=bit32.band("..rV.alu_a..","..rV.alu_b..") else "..rV.alu_res.."=bit32.bnot(bit32.bor(bit32.bnot("..rV.alu_a.."),bit32.bnot("..rV.alu_b.."))) end" },
{ "M_ALU_BOR", "local "..rV._p.."="..v.dynState.."%2;if "..rV._p.."==0 then "..rV.alu_res.."=bit32.bor("..rV.alu_a..","..rV.alu_b..") else "..rV.alu_res.."=bit32.bnot(bit32.band(bit32.bnot("..rV.alu_a.."),bit32.bnot("..rV.alu_b.."))) end" },
{ "M_ALU_SHL", rV.alu_res.."=bit32.lshift("..rV.alu_a..","..rV.alu_b..")" },
{ "M_ALU_SHR", rV.alu_res.."=bit32.rshift("..rV.alu_a..","..rV.alu_b..")" },
{ "M_ALU_UNM", rV.alu_a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;"..rV.alu_res.."=-"..rV.alu_a.."" },
{ "M_ALU_BNOT", rV.alu_a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;"..rV.alu_res.."=bit32.bnot("..rV.alu_a..")" },
{ "M_ALU_NOT", rV.alu_a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;"..rV.alu_res.."=not "..rV.alu_a.."" },
{ "M_ALU_LEN", rV.alu_a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;"..rV.alu_res.."=type("..rV.alu_a..")=='string' and #"..rV.alu_a.." or (type("..rV.alu_a..")=='table' and #"..rV.alu_a.." or 0)" },
{ "M_LOADBOOL", "local "..rV.c.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.loadBool_idx.."="..v.i.."[2]; "..rV.loadBool_idx.."="..rV.loadBool_idx.." and bit32.bxor("..rV.loadBool_idx..","..v.rks..") or nil; if "..rV.loadBool_idx.." and "..rV.loadBool_idx..">2147483647 then "..rV.loadBool_idx.."="..rV.loadBool_idx.."-4294967296 end; "..rV.rcSet.."("..rV.loadBool_idx..", ("..rV.b.."~=0));if "..rV.c.."~=0 then "..rV.dispatch_next.."="..rV.dispatch_next.."+2 end" },
{ "M_LOADNIL", "local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;for "..rV.x.."="..rV.a..","..rV.b.." do "..rV.rcSet.."("..rV.x..", nil) end" },
{ "M_GETGLOBAL", "local "..rV.k.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.getGlobal_dst.."="..v.i.."[2]; "..rV.getGlobal_dst.."="..rV.getGlobal_dst.." and bit32.bxor("..rV.getGlobal_dst..","..v.rks..") or nil; if "..rV.getGlobal_dst.." and "..rV.getGlobal_dst..">2147483647 then "..rV.getGlobal_dst.."="..rV.getGlobal_dst.."-4294967296 end; local "..rV.getGlobal_kid.."="..v.i.."[3]; "..rV.getGlobal_kid.."="..rV.getGlobal_kid.." and bit32.bxor("..rV.getGlobal_kid..","..v.rks..") or nil; if "..rV.getGlobal_kid.." and "..rV.getGlobal_kid..">2147483647 then "..rV.getGlobal_kid.."="..rV.getGlobal_kid.."-4294967296 end; "..rV.rcSet.."("..rV.getGlobal_dst..", "..v.E.."["..rV.subVMName.."("..rV.k..", "..rV.getGlobal_kid..", nil, "..rV.State_Variable..", "..v.rks..", "..v.op..")])" },
{ "M_SETGLOBAL", "local "..rV.s.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.gk.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.setGlobal_kid.."="..v.i.."[2]; "..rV.setGlobal_kid.."="..rV.setGlobal_kid.." and bit32.bxor("..rV.setGlobal_kid..","..v.rks..") or nil; if "..rV.setGlobal_kid.." and "..rV.setGlobal_kid..">2147483647 then "..rV.setGlobal_kid.."="..rV.setGlobal_kid.."-4294967296 end; "..v.E.."["..rV.subVMName.."("..rV.gk..", "..rV.setGlobal_kid..", nil, "..rV.State_Variable..", "..v.rks..", "..v.op..")]="..rV.s.."" },
{ "M_GETTABLE", "local "..rV.k.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.t.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1; local "..rV.getTable_dst.."="..v.i.."[2]; "..rV.getTable_dst.."="..rV.getTable_dst.." and bit32.bxor("..rV.getTable_dst..","..v.rks..") or nil; if "..rV.getTable_dst.." and "..rV.getTable_dst..">2147483647 then "..rV.getTable_dst.."="..rV.getTable_dst.."-4294967296 end; "..rV.rcSet.."("..rV.getTable_dst..", "..rV.t.."["..rV.k.."])" },
{ "M_SETTABLE", "local "..rV.v.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.k.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.t.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1; "..rV.t.."["..rV.k.."]="..rV.v.."" },
{ "M_NEWTABLE", "local "..rV.newTable_dst.."="..v.i.."[2]; "..rV.newTable_dst.."="..rV.newTable_dst.." and bit32.bxor("..rV.newTable_dst..","..v.rks..") or nil; if "..rV.newTable_dst.." and "..rV.newTable_dst..">2147483647 then "..rV.newTable_dst.."="..rV.newTable_dst.."-4294967296 end; "..rV.rcSet.."("..rV.newTable_dst..", {})" },
{ "M_SELF", "local "..rV.k.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.t.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.self_dst.."="..v.i.."[2]; "..rV.self_dst.."="..rV.self_dst.." and bit32.bxor("..rV.self_dst..","..v.rks..") or nil; if "..rV.self_dst.." and "..rV.self_dst..">2147483647 then "..rV.self_dst.."="..rV.self_dst.."-4294967296 end; "..rV.rcSet.."("..rV.self_dst.."+1, "..rV.t..");"..rV.rcSet.."("..rV.self_dst..", "..rV.t.."["..rV.k.."])" },
{ "M_CONCAT", "local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.ps.."={};for "..rV.ci.."="..rV.a..","..rV.b.." do "..rV.ps.."[#"..rV.ps.."+1]=tostring("..rV.rcGet.."("..rV.ci..")) end;local "..rV.concat_dst.."="..v.i.."[2]; "..rV.concat_dst.."="..rV.concat_dst.." and bit32.bxor("..rV.concat_dst..","..v.rks..") or nil; if "..rV.concat_dst.." and "..rV.concat_dst..">2147483647 then "..rV.concat_dst.."="..rV.concat_dst.."-4294967296 end; "..rV.rcSet.."("..rV.concat_dst..", table.concat("..rV.ps.."))" },
{ "M_JMP", rV.dispatch_next.."=(("..v.tmp.."["..v.top.."]) or ("..rV.dispatch_next.."));"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1" },
{ "M_EQ", "local "..rV.c.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;if("..rV.b.."=="..rV.c..")~=("..rV.a.."~=0)then "..rV.dispatch_next.."="..rV.dispatch_next.."+2 end" },
{ "M_LT", "local "..rV.c.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;if("..rV.b.."<"..rV.c..")~=("..rV.a.."~=0)then "..rV.dispatch_next.."="..rV.dispatch_next.."+2 end" },
{ "M_LE", "local "..rV.c.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;if("..rV.b.."<="..rV.c..")~=("..rV.a.."~=0)then "..rV.dispatch_next.."="..rV.dispatch_next.."+2 end" },
{ "M_TEST", "local "..rV.b.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.a.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;if(not not "..rV.a..")~=("..rV.b.."~=0)then "..rV.dispatch_next.."="..rV.dispatch_next.."+2 end" },
{ "M_CALL", "local "..rV.nrv.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.na.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.dst.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.fn.."="..rV.rcGet.."("..rV.dst..");local "..rV.a2.."={};for "..rV.ai.."=1,"..rV.na.." do "..rV.a2.."["..rV.ai.."]="..rV.rcGet.."("..rV.dst.."+"..rV.ai..") end;local "..rV.rv.."; if type("..rV.fn..")=="..bStr("table").." and rawget("..rV.fn..",'"..pk.cl.."') then "..rV.rv.." = {"..vmName.."("..rV.fn.."."..pk.p..","..rV.fn.."."..pk.e..","..rV.a2..")} else "..rV.rv.." = {"..rV.fn.."((unpack or table.unpack)("..rV.a2..", 1, "..rV.na.."))} end; for "..rV.ri.."=1,"..rV.nrv.." do "..rV.rcSet.."("..rV.dst.."+"..rV.ri.."-1, "..rV.rv.."["..rV.ri.."]) end" },
{ "M_RETURN", "local "..rV.n.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.base.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;"..rV.has_returned.."=true;if "..rV.n.."==0 then "..rV.return_values.."={}; "..rV.rcStore.."={}; return end;local "..rV.rv.."={};for "..rV.ri.."=0,"..rV.n.."-1 do "..rV.rv.."["..rV.ri.."+1]="..rV.rcGet.."("..rV.base.."+"..rV.ri..") end;"..rV.return_values.."="..rV.rv..";"..rV.rcStore.."={};return" },
{ "M_FORPREP", "local "..rV.t.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.ir.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;"..rV.rcSet.."("..rV.ir..", ("..rV.rcGet.."("..rV.ir..") or 0)-("..rV.rcGet.."("..rV.ir.."+2) or 1)); "..rV.dispatch_next.."="..rV.t },
{ "M_FORLOOP", "local "..rV.t.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.ir.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.idx.."="..rV.rcGet.."("..rV.ir..")+("..rV.rcGet.."("..rV.ir.."+2) or 1);"..rV.rcSet.."("..rV.ir..", "..rV.idx..");if "..rV.idx.."<="..rV.rcGet.."("..rV.ir.."+1) then "..rV.rcSet.."("..rV.ir.."+3, "..rV.idx..");"..rV.dispatch_next.."="..rV.t.." end" },
{ "M_CLOSURE", "local "..rV.p_idx.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1; local "..rV.clPr.."="..v.pr.."["..rV.p_idx.."+1]; local "..rV.clUvs.."={}; for "..rV.clIdx..","..rV.clUv.." in ipairs("..rV.clPr..".upvalues or {}) do if "..rV.clUv.."[1]==1 then "..rV.clUvs.."["..rV.clIdx.."]=function("..rV.clVal..","..rV.clSet..") if "..rV.clSet.." then "..rV.rcSet.."("..rV.clUv.."[2], "..rV.clVal..") else return "..rV.rcGet.."("..rV.clUv.."[2]) end end else "..rV.clUvs.."["..rV.clIdx.."]="..v.U.."["..rV.clUv.."[2]+1] end end; local "..rV.clInner.." = function(...) return "..vmName.."("..rV.clPr..","..v.E..",{n=select('#', ...), ...},"..rV.clUvs..") end; local "..rV.clWrapped.."; if "..rV.safe_newcc.." then "..rV.clWrapped.." = "..rV.safe_newcc.."("..rV.clInner..") else "..rV.clWrapped.." = "..rV.clInner.." end; "..rV.vmTrusted.."["..rV.clWrapped.."] = true; local "..rV.closure_dst.."="..v.i.."[2]; "..rV.closure_dst.."="..rV.closure_dst.." and bit32.bxor("..rV.closure_dst..","..v.rks..") or nil; if "..rV.closure_dst.." and "..rV.closure_dst..">2147483647 then "..rV.closure_dst.."="..rV.closure_dst.."-4294967296 end; "..rV.rcSet.."("..rV.closure_dst..", "..rV.clWrapped..")" },
{ "M_GETUPVAL", "local "..rV.upIdx.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1; local "..rV.getUpval_dst.."="..v.i.."[2]; "..rV.getUpval_dst.."="..rV.getUpval_dst.." and bit32.bxor("..rV.getUpval_dst..","..v.rks..") or nil; if "..rV.getUpval_dst.." and "..rV.getUpval_dst..">2147483647 then "..rV.getUpval_dst.."="..rV.getUpval_dst.."-4294967296 end; "..rV.rcSet.."("..rV.getUpval_dst..", "..v.U.."["..rV.upIdx.."+1]())" },
{ "M_SETUPVAL", "local "..rV.upVal.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1; local "..rV.upIdx.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1; "..v.U.."["..rV.upIdx.."+1]("..rV.upVal..", true)" },
{ "M_HALT", ""..rV.Central_Dispatcher.."=false; "..rV.rcStore.."={}" },
{ "M_NOP", "" },
{ "M_EXEC_SUB", "local "..rV.k.."="..v.tmp.."["..v.top.."];"..v.tmp.."["..v.top.."]=nil;"..v.top.."="..v.top.."-1;local "..rV.execSub_dst.."="..v.i.."[2]; "..rV.execSub_dst.."="..rV.execSub_dst.." and bit32.bxor("..rV.execSub_dst..","..v.rks..") or nil; if "..rV.execSub_dst.." and "..rV.execSub_dst..">2147483647 then "..rV.execSub_dst.."="..rV.execSub_dst.."-4294967296 end; local "..rV.execSub_kid.."="..v.i.."[3]; "..rV.execSub_kid.."="..rV.execSub_kid.." and bit32.bxor("..rV.execSub_kid..","..v.rks..") or nil; if "..rV.execSub_kid.." and "..rV.execSub_kid..">2147483647 then "..rV.execSub_kid.."="..rV.execSub_kid.."-4294967296 end; "..rV.rcSet.."("..rV.execSub_dst..", "..rV.subVMName.."("..rV.k..", "..rV.execSub_kid..", nil, "..rV.State_Variable..", "..v.rks..", "..v.op..")) " }
}
local function getLogicString(opName)
for _, def in ipairs(opLogic) do
if def[1] == opName then return def[2] end
end
return ""
end
for superName, ops in pairs(superMap) do
local logic1 = getLogicString(ops[1])
local logic2 = getLogicString(ops[2])
local v_nxt = "nxt_"..math.random(1000,9999)
local fake_path = v.dynState.." = bit32.bxor("..v.dynState..", 0xDEADBEEF);"
local combinedLogic = logic1 .. " " ..
"local "..v_nxt.." = " .. v.bc .. "[" .. rV.dispatch_next .. "]; " ..
"if "..v_nxt.." then " ..
"local "..sV.nxt_rk.." = ((("..rV.dispatch_next.." * "..rV.dispatch_next.." * 197) + ("..rV.dispatch_next.." * 83) + "..rV.poly_seed..") % 4294967296); " ..
"if ("..v.dynState.." % 256) == 0xDEAD then "..sV.nxt_rk.." = 0 end; " ..
v.dynState.." = bit32.bxor("..v.dynState..", "..v_nxt.."[1]); " ..
v.dynState.." = math.floor(("..v.dynState.." + ("..v_nxt.."[1] or 0)) % 256); " ..
v.i.." = "..v_nxt.."; " ..
v.rks.." = "..sV.nxt_rk.."; " ..
v.rk.." = "..v_nxt.."[2] or 0; " ..
"if "..rV.opaqueTrue.."() == 1 then " .. logic2 .. " else " .. fake_path .. " end " ..
rV.dispatch_next .. " = " .. rV.dispatch_next .. " + 1; " ..
"end"
opLogic[#opLogic+1] = { superName, combinedLogic }
end
for i = #opLogic, 2, -1 do
local j = math.random(i)
opLogic[i], opLogic[j] = opLogic[j], opLogic[i]
end
for _, opDef in ipairs(opLogic) do
local op = opDef[1]
local logic = opDef[2]
local jv = newVar()
local opq_val = math.random(10, 9999)
local junk_logic = "local "..jv.." = "..opq_val.."; if bit32.band("..jv..", bit32.bnot("..jv..")) ~= 0 then "..v.rk.." = bit32.bxor("..v.rk..", "..jv..") end; "
local mut_key = math.random(100, 999)
local v_tmp_d = newVar()
local dyn_mutation = "local "..v_tmp_d.." = bit32.bxor("..v.dynState..", "..mut_key..") + (bit32.band("..v.dynState..", "..mut_key..") * 2); "..v.dynState.." = "..v_tmp_d.." - "..mut_key.."; "
logic = junk_logic .. dyn_mutation .. logic
local hBody = v.dynState.." = math.floor(("..v.dynState.." + ("..v.i.."[1] or 0)) % 256);"
local dCheck = genCollatzCheck(v.dynState)
if op == "M_HALT" or op == "M_RETURN" then
hBody = hBody .. "if "..rV.pipelineLockVar.." or "..rV.opaqueTrue.."() then if "..rV.pipelineLockVar.." or " .. dCheck .. " then " .. logic .. " else return end else return end"
else
hBody = hBody .. "if "..rV.pipelineLockVar.." or "..rV.opaqueTrue.."() then if "..rV.pipelineLockVar.." or " .. dCheck .. " then " .. logic .. " else "..rV.dispatch_next.."="..rV.dispatch_next.."-"..math.random(1,10).." end else "..rV.dispatch_next.."="..rV.dispatch_next.."+"..math.random(1,10).." end"
end
A(" "..v.handlers.."["..ov(op).."] = function() " .. hBody .. " end")
end
A(" local "..rV.max_pc.." = 0")
A(" for k in pairs("..rV.realBc..") do if type(k) == 'number' and k > "..rV.max_pc.." then "..rV.max_pc.." = k end end")
A(" local "..rV.gm.." = "..rV.env.."["..bStr("getmetatable").."]")
A(" local "..rV.tp.." = "..rV.env.."["..bStr("type").."]")
A(" local "..rV.pc.." = "..rV.env.."["..bStr("pcall").."]")
A(" local "..rV.rg.." = "..rV.env.."["..bStr("rawget").."]")
A(" local "..rV.isc.." = function(f) return type(f) == " .. bStr("function") .. " end")
A(" local "..rV.tof_pre.." = "..rV.env.."["..bStr("typeof").."]")
A(" local "..rV.g_pre.." = "..rV.env.."["..bStr("game").."]")
A(" local "..rV.v3_pre.." = "..rV.env.."["..bStr("Vector3").."]")
A(" local "..rV.sf.." = "..rV.env.."["..bStr("string").."] and "..rV.env.."["..bStr("string").."]["..bStr("find").."] or function() return nil end")
A(" do")
A(" local "..rV.env_probe_mt.." = ("..rV.tp.."("..rV.gm..") == "..bStr("function")..") and "..rV.gm.."("..v.E..") or nil")
A(" if "..rV.tp.."("..rV.env_probe_mt..") == "..bStr("table").." and "..rV.rg.."("..rV.env_probe_mt..", "..bStr("__newindex")..") ~= nil then")
A(" "..v.dynState.." = bit32.bxor("..v.dynState..", "..rV.rt_seed..")")
A(" "..v.rk.." = bit32.bxor("..v.rk..", "..rV.chain_key.."); "..v.rks.." = bit32.bxor("..v.rks..", "..rV.chain_key..")")
A(" "..rV.Central_Dispatcher.." = false")
A(" end")
A(" end")
A(" local "..rV.mt_bc_pre.." = ("..rV.tp.."("..rV.gm..") == "..bStr("function")..") and "..rV.gm.."("..v.bc..") or "..bStr("nil").."")
A(" local "..rV.mt_h_pre.." = ("..rV.tp.."("..rV.gm..") == "..bStr("function")..") and "..rV.gm.."("..v.handlers..") or "..bStr("nil").."")
A(" local "..rV.is_inst_pre.." = ("..rV.tof_pre.." and "..rV.g_pre.." and "..rV.tof_pre.."("..rV.g_pre..") == "..bStr("Instance")..") and true or false")
A(" local "..rV.s_pre..", "..rV.e_pre.." = "..rV.pc.."(function() return "..rV.g_pre.."."..rV.fake_prop_pre.." end)")
A(" local "..rV.err_valid_pre.." = (not "..rV.s_pre.." and "..rV.tp.."("..rV.e_pre..") == "..bStr("string").." and "..rV.sf.."("..rV.e_pre..", "..bStr("valid member")..")) and true or false")
A(" local "..rV.v3_valid_pre.." = false")
A(" if "..rV.v3_pre.." and "..rV.v3_pre.."["..bStr("new").."] then")
A(" local "..rV.s2_pre..", "..rV.r2_pre.." = "..rV.pc.."(function() local _v1 = "..rV.v3_pre.."["..bStr("new").."](1,0,0); local _v2 = "..rV.v3_pre.."["..bStr("new").."](0,1,0); return _v1["..bStr("Cross").."](_v1, _v2)["..bStr("Z").."] end)")
A(" "..rV.v3_valid_pre.." = ("..rV.s2_pre.." and "..rV.r2_pre.." == 1)")
A(" end")
A(" local "..rV.bcFp.." = 0")
A(" for "..rV.ci.."=1,"..rV.max_pc.." do local "..rV.t.."="..rV.realBc.."["..rV.ci.."]; if "..rV.t.." then for "..rV.x.."=1,#"..rV.t.." do "..rV.bcFp.."=bit32.bxor("..rV.bcFp..","..rV.t.."["..rV.x.."] or 0); "..rV.bcFp.."=("..rV.bcFp.."*16777619+1)%4294967296 end end end")
A(" local "..rV.ckR.." = ( ("..rV.bcFp.." * "..rV.bcFp.." * 197) + ("..rV.bcFp.." * 83) + "..rV.poly_seed..") % 4294967296")
A(" local "..rV.dc1.." = bit32.bxor("..v.P.."."..pk.ec1..", "..rV.ckR..")")
A(" local "..rV.dc2.." = bit32.bxor("..v.P.."."..pk.ec2..", bit32.bxor("..rV.ckR..", 0x11))")
A(" local "..rV.dc3.." = bit32.bxor("..v.P.."."..pk.ec3..", bit32.bxor("..rV.ckR..", 0x22))")
A(" local "..rV.cM.." = (math.abs(math.log(100,10)-2) < 1e-6) and (math.sin(0) == 0) and (math.abs((123.456*math.pi)/math.pi - 123.456) < 1e-6)")
A(" local "..rV.cMem.." = "..rV.pc.."(function() local "..rV.fn.." = "..rV.g_pre..":GetService("..bStr("MemStorageService").."); local "..rV.s_pre.." = tostring(math.log(100,10)); "..rV.fn..":SetItem("..bStr("nv_chk")..", "..rV.s_pre.."); local "..rV.e_pre.." = tonumber("..rV.fn..":GetItem("..bStr("nv_chk")..")); if not ("..rV.e_pre.." and math.abs("..rV.e_pre.."-2)<1e-6) then error() end end)")
A(" local "..rV.cG.." = "..rV.pc.."(function() local "..rV.fn.." = "..rV.g_pre..":GetService("..bStr("HttpService").."):GenerateGUID(false); if not (type("..rV.fn..")=="..bStr("string").." and #"..rV.fn.."=="..rV.dc3.." and "..rV.fn..":sub("..rV.dc2..","..rV.dc2..")=="..bStr("-")..") then error() end end)")
A(" local "..rV.cE.." = "..rV.pc.."(function() if "..rV.env.."["..bStr("Enum").."]["..bStr("Material").."]["..bStr("Plastic").."].Value ~= "..rV.dc1.." then error() end end)")
A(" local "..rV.cR.." = "..rV.pc.."(function() local "..rV.fn.." = "..rV.g_pre..":GetService("..bStr("RunService").."); if not ("..rV.fn..":IsClient() ~= "..rV.fn..":IsServer()) then error() end if "..rV.tof_pre.."("..rV.fn..".Heartbeat) ~= "..bStr("RBXScriptSignal").." then error() end end)")
A(" local "..rV.passed.." = 0")
A(" "..rV.passed.." = "..rV.passed.." + (("..rV.mt_bc_pre.." == '"..randLockStr.."') and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + (("..rV.mt_h_pre.." == "..bStr("Locked")..") and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.isc.."("..rV.pc..") and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.is_inst_pre.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.err_valid_pre.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.v3_valid_pre.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.cM.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.cMem.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.cG.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.cE.." and 1 or 0)")
A(" "..rV.passed.." = "..rV.passed.." + ("..rV.cR.." and 1 or 0)")
A(" local "..rV.is_safe.." = ("..rV.passed.." >= 11) and 1 or 0")
A(" if ("..rV.is_safe.." + 0) == 0 then")
A(" "..v.dynState.." = bit32.bxor("..v.dynState..", bit32.bxor("..rV.rt_seed..", "..rV.chain_key.."))")
A(" "..v.rk.." = bit32.bxor("..v.rk..", bit32.bxor("..rV.chain_key..", "..rV.rt_seed.." + 1)); "..v.rks.." = bit32.bxor("..v.rks..", bit32.bxor("..rV.chain_key..", "..rV.rt_seed.." + 1))")
A(" "..rV.State_Variable.." = "..rV.max_pc.." + math.random(1000, 9999)")
A(" end")
A(" while "..rV.Central_Dispatcher.." do")
A(" if "..rV.State_Variable.." > "..rV.max_pc.." or "..rV.State_Variable.." < 1 then break end")
A(" local "..rV.op_val.." = "..rV.opaqueTrue.."()")
A(" if "..rV.op_val.." == 1 then")
A(" "..v.i.."="..v.bc.."["..rV.State_Variable.." * "..rV.op_val.."]")
A(" local "..rV.poly_share.." = ( ("..rV.State_Variable.." * "..rV.State_Variable.." * 197) + ("..rV.State_Variable.." * 83) + "..rV.poly_seed.." ) % 4294967296")
A(" if ("..v.dynState.." % 256) == 0xDEAD then "..rV.poly_share.." = 0 end")
A(" "..v.rks.." = "..rV.poly_share.."")
A(" "..v.dynState.." = bit32.bxor("..v.dynState..", "..v.i.."[1])")
A(" "..v.op.." = bit32.bxor("..v.i.."[1], "..v.rks..")")
A(" "..v.rk.." = "..v.i.."[2] or 0")
local pc_obfuscation = "bit32.bxor("..rV.State_Variable..", 1) + (bit32.band("..rV.State_Variable..", 1) * 2)"
A(" "..rV.dispatch_next.." = "..pc_obfuscation)
A(" "..v.handlers.."["..v.op.."]()")
A(" if "..rV.has_returned.." then return table.unpack("..rV.return_values..") end")
local dV = {
d1 = newVar(), d2 = newVar(),
df1_1 = newVar(), df2_1 = newVar(), df3_1 = newVar(),
df1_2 = newVar(), df2_2 = newVar(), df3_2 = newVar(),
mix = newVar(),
tp1 = newVar(), sf1 = newVar(), tp2 = newVar(), sf2 = newVar(),
oq = newVar(),
op1_1 = newVar(), op2_1 = newVar(), op1_2 = newVar(), op2_2 = newVar()
}
local st1_start = math.random(10000, 99999)
local st1_trap = math.random(10000, 99999)
local st1_calc = math.random(10000, 99999)
local st1_opaque = math.random(10000, 99999)
local st1_final = math.random(10000, 99999)
local st1_end = math.random(10000, 99999)
local st2_start = math.random(10000, 99999)
local st2_trap = math.random(10000, 99999)
local st2_calc = math.random(10000, 99999)
local st2_opaque = math.random(10000, 99999)
local st2_final = math.random(10000, 99999)
local st2_end = math.random(10000, 99999)
local xor_key = math.random(100, 999)
local base_start_trap_1 = bit32.bxor(st1_start, st1_trap)
local base_start_calc_1 = bit32.bxor(st1_start, st1_calc)
local base_trap_end_1 = bit32.bxor(st1_trap, st1_end)
local base_calc_opaque_1 = bit32.bxor(st1_calc, st1_opaque)
local base_opaque_trap_1 = bit32.bxor(st1_opaque, st1_trap)
local base_opaque_final_1 = bit32.bxor(st1_opaque, st1_final)
local base_final_end_1 = bit32.bxor(st1_final, st1_end)
local base_start_trap_2 = bit32.bxor(st2_start, st2_trap)
local base_start_calc_2 = bit32.bxor(st2_start, st2_calc)
local base_trap_end_2 = bit32.bxor(st2_trap, st2_end)
local base_calc_opaque_2 = bit32.bxor(st2_calc, st2_opaque)
local base_opaque_trap_2 = bit32.bxor(st2_opaque, st2_trap)
local base_opaque_final_2 = bit32.bxor(st2_opaque, st2_final)
local base_final_end_2 = bit32.bxor(st2_final, st2_end)
A(" local "..dV.mix.." = 0")
A(" local "..dV.df1_1.." = bit32.bxor("..base_start_trap_1..", "..dV.mix..")")
A(" local "..dV.df2_1.." = bit32.bxor("..base_start_calc_1..", "..dV.mix..")")
A(" local "..dV.df3_1.." = bit32.bxor("..base_trap_end_1..", "..dV.mix..")")
A(" local "..dV.df1_2.." = bit32.bxor("..base_start_trap_2..", "..dV.mix..")")
A(" local "..dV.df2_2.." = bit32.bxor("..base_start_calc_2..", "..dV.mix..")")
A(" local "..dV.df3_2.." = bit32.bxor("..base_trap_end_2..", "..dV.mix..")")
A(" local "..dV.tp1.." = (1 - "..rV.is_safe..") * bit32.bxor("..dV.df1_1..", "..dV.mix..");")
A(" local "..dV.sf1.." = "..rV.is_safe.." * bit32.bxor("..dV.df2_1..", "..dV.mix..");")
A(" local "..dV.tp2.." = (1 - "..rV.is_safe..") * bit32.bxor("..dV.df1_2..", "..dV.mix..");")
A(" local "..dV.sf2.." = "..rV.is_safe.." * bit32.bxor("..dV.df2_2..", "..dV.mix..");")
A(" local "..rV.Opaque_Transition.." = "..rV.dispatch_next.."; ")
A(" local "..dV.d1.." = "..st1_start.."; ")
A(" local "..dV.d2.." = "..st2_start.."; ")
A(" while bit32.bor(bit32.bxor("..dV.d1..", "..st1_end.."), bit32.bxor("..dV.d2..", "..st2_end..")) ~= 0 do ")
local cff_blocks = {
{
st1 = st1_start, st2 = st2_start,
cd = dV.d1.." = bit32.bxor("..dV.d1..", bit32.bor("..dV.tp1..", "..dV.sf1..")); "..dV.d2.." = bit32.bxor("..dV.d2..", bit32.bor("..dV.tp2..", "..dV.sf2..")); "
},
{
st1 = st1_trap, st2 = st2_trap,
cd = v.dynState.." = bit32.bxor("..v.dynState..", bit32.bxor("..rV.rt_seed..", "..rV.chain_key..")); "..v.rk.." = bit32.bxor("..v.rk..", bit32.bxor("..rV.chain_key..", "..rV.rt_seed..")); "..v.rks.." = bit32.bxor("..v.rks..", bit32.bxor("..rV.chain_key..", "..rV.rt_seed..")); "..rV.State_Variable.." = "..rV.max_pc.." + math.random(1000, 9999); "..dV.d1.." = bit32.bxor("..dV.d1..", bit32.bxor("..dV.df3_1..", "..dV.mix..")); "..dV.d2.." = bit32.bxor("..dV.d2..", bit32.bxor("..dV.df3_2..", "..dV.mix..")); "
},
{
st1 = st1_calc, st2 = st2_calc,
cd = rV.mip.." = bit32.bxor(bit32.bxor("..rV.Opaque_Transition..", "..xor_key.."), bit32.bxor("..v.dynState..", "..xor_key..")); "..dV.d1.." = bit32.bxor("..dV.d1..", bit32.bxor("..bit32.bxor(base_calc_opaque_1, 0x55AA)..", 0x55AA)); "..dV.d2.." = bit32.bxor("..dV.d2..", bit32.bxor("..bit32.bxor(base_calc_opaque_2, 0x55AA)..", 0x55AA)); "
},
{
st1 = st1_opaque, st2 = st2_opaque,
cd = "local "..dV.oq.." = 1; local "..dV.op1_1.." = bit32.bxor("..base_opaque_final_1..", "..v.dynState.."); local "..dV.op2_1.." = bit32.bxor("..base_opaque_trap_1..", "..v.dynState.."); local "..dV.op1_2.." = bit32.bxor("..base_opaque_final_2..", "..v.dynState.."); local "..dV.op2_2.." = bit32.bxor("..base_opaque_trap_2..", "..v.dynState.."); "..dV.d1.." = bit32.bxor("..dV.d1..", ("..dV.oq.." * bit32.bxor("..dV.op1_1..", "..v.dynState..")) + ((1 - "..dV.oq..") * bit32.bxor("..dV.op2_1..", "..v.dynState.."))); "..dV.d2.." = bit32.bxor("..dV.d2..", ("..dV.oq.." * bit32.bxor("..dV.op1_2..", "..v.dynState..")) + ((1 - "..dV.oq..") * bit32.bxor("..dV.op2_2..", "..v.dynState.."))); "
},
{
st1 = st1_final, st2 = st2_final,
cd = rV.State_Variable.." = bit32.bxor("..rV.mip..", "..v.dynState.."); "..dV.d1.." = bit32.bxor("..dV.d1..", bit32.bxor("..bit32.bxor(base_final_end_1, 0x1234)..", 0x1234)); "..dV.d2.." = bit32.bxor("..dV.d2..", bit32.bxor("..bit32.bxor(base_final_end_2, 0x1234)..", 0x1234)); "
}
}
local num_fakes = math.random(5, 12)
local prev_fake_1 = st1_trap
local prev_fake_2 = st2_trap
for i = 1, num_fakes do
local f_st1 = math.random(10000, 99999)
local f_st2 = math.random(10000, 99999)
local diff_f_1 = bit32.bxor(f_st1, prev_fake_1)
local diff_f_2 = bit32.bxor(f_st2, prev_fake_2)
local _rt_f_key = math.random(1024, 65535)
local dyn_diff_f_1 = bit32.bxor(diff_f_1, _rt_f_key)
local dyn_diff_f_2 = bit32.bxor(diff_f_2, _rt_f_key)
local fake_logic = rV.State_Variable.." = bit32.bxor("..v.dynState..", "..math.random(100, 999).."); "..dV.d1.." = bit32.bxor("..dV.d1..", bit32.bxor("..dyn_diff_f_1..", ".._rt_f_key..")); "..dV.d2.." = bit32.bxor("..dV.d2..", bit32.bxor("..dyn_diff_f_2..", ".._rt_f_key..")); "
local mod_m = math.random(3, 7)
local impossible_val = mod_m + math.random(1, 9)
local opq_condition = "(("..rV.chain_key.." % "..mod_m..") == "..impossible_val..")"
cff_blocks[#cff_blocks].cd = cff_blocks[#cff_blocks].cd .. "if "..opq_condition.." then "..dV.d1.." = bit32.bxor("..dV.d1..", "..bit32.bxor(st1_final, f_st1).."); "..dV.d2.." = bit32.bxor("..dV.d2..", "..bit32.bxor(st2_final, f_st2).."); end; "
cff_blocks[#cff_blocks+1] = { st1 = f_st1, st2 = f_st2, cd = fake_logic }
prev_fake_1 = f_st1
prev_fake_2 = f_st2
end
for i = #cff_blocks, 2, -1 do
local j = math.random(i)
cff_blocks[i], cff_blocks[j] = cff_blocks[j], cff_blocks[i]
end
for i, b in ipairs(cff_blocks) do
local opq_chk = "(bit32.bxor("..dV.d1..", "..b.st1..") + bit32.bxor("..dV.d2..", "..b.st2..")) == 0"
if i == 1 then
A(" if "..opq_chk.." then ")
else
A(" elseif "..opq_chk.." then ")
end
A(" "..b.cd)
end
A(" end; ")
A(" end; ")
A(" else")
A(" "..rV.State_Variable.." = "..rV.State_Variable.." + (math.random(1,2) == 1 and 0 or 1)")
A(" end")
A(" end")
A("end")
return table.concat(L, "\n")
end
local LoadFileEnabled = false
local CompiledScriptOutput = ""
LoadFileButton.MouseButton1Click:Connect(function()
LoadFileEnabled = not LoadFileEnabled
LoadFileButton.BackgroundColor3 = LoadFileEnabled
and Color3.fromRGB(0,170,0) or Color3.fromRGB(0,0,0)
end)
CopyButton.MouseButton1Click:Connect(function()
local textToCopy = (CompiledScriptOutput ~= "") and CompiledScriptOutput or OutputBox.Text
if textToCopy ~= "" then
setclipboard(textToCopy)
CopyButton.Text="COPIED!"
task.wait(1)
CopyButton.Text="COPY OUTPUT"
end
end)
ClearButton.MouseButton1Click:Connect(function()
InputBox.Text = ""
OutputBox.Text = ""
CompiledScriptOutput = ""
end)
ObfuscateButton.MouseButton1Click:Connect(function()
local src = InputBox.Text
if src=="" then
if LoadFileEnabled then
local ok,data=pcall(readfile, FileNameBox.Text)
if ok then src=data else OutputBox.Text="readfile error"; return end
else return end
end
OutputBox.Text="Compiling..."
local numKey = math.random(100000, 999999)
task.spawn(function()
usedVars = {}
local ok1, toks_or_err = pcall(function() return lex(src) end)
if not ok1 then OutputBox.Text="Lex error: "..tostring(toks_or_err); return end
local toks = renameVars(toks_or_err)
local OC = makeOpcodes()
local ok2a, ast_or_err = pcall(function() return parseAST(toks) end)
if not ok2a then OutputBox.Text="Parse error: "..tostring(ast_or_err); return end
local ast = ast_or_err
local v_enc_st_ = newVar()
local v_time_st_ = newVar()
local function applyASTFunctionEncryption(node)
if type(node) == "table" then
if node.type == "FunctionDefinition" then
local stateVar = v_enc_st_ .. tostring(math.random(1000, 9999))
local timeVar = v_time_st_ .. tostring(math.random(1000, 9999))
local osClockBase = {
type = "CallExpression",
base = {
type = "MemberExpression",
base = { type = "Identifier", name = "os" },
identifier = "clock"
},
arguments = {},
isSelf = false
}
local timeDef = {
type = "LocalDefinition",
names = {timeVar},
values = {osClockBase}
}
local stateDef = {
type = "LocalDefinition",
names = {stateVar},
values = {{
type = "BinaryExpression",
operator = "==",
left = {
type = "CallExpression",
base = { type = "Identifier", name = "type" },
arguments = {{ type = "Identifier", name = timeVar }},
isSelf = false
},
right = { type = "Literal", kind = "string", value = "number" }
}}
}
local condition = {
type = "BinaryExpression",
operator = "==",
left = { type = "Identifier", name = stateVar },
right = { type = "Literal", kind = "boolean", value = true }
}
local trapBody = {
{
type = "WhileStatement",
condition = { type = "Literal", kind = "boolean", value = true },
body = {}
}
}
local ifStat = {
type = "IfStatement",
clauses = { { condition = condition, body = node.body } },
elseBody = trapBody
}
node.body = { timeDef, stateDef, ifStat }
end
for k, v in pairs(node) do
if type(v) == "table" then
applyASTFunctionEncryption(v)
end
end
end
return node
end
ast = applyASTFunctionEncryption(ast)
local ok2b, proto_or_err = pcall(function() return compileAST(ast,OC) end)
if not ok2b then OutputBox.Text="Compile error: "..tostring(proto_or_err); return end
local proto = proto_or_err
local superMap = peepholeOptimize(proto, OC)
local mathProxy = newVar()
local stringChar = newVar()
local extremeMath = newVar()
local function genMathProxyCall(v, mp)
local a = math.random(2, 6)
local b = math.random(2, 8)
local c = math.random(2, 4)
local d = math.random(5, 15)
local ac = a^c
local ac_mod_d = ac % d
local bc = b * c
local s = ac_mod_d + bc - v
return "("..mp.."("..a..")^"..mp.."("..c..")%"..mp.."("..d..")+"..mp.."("..b..")*"..mp.."("..c..")-"..mp.."("..s.."))()"
end
local opVarDecls={}
local opVarNames={}
local opValMap={}
for name,val in pairs(OC) do
local vn=newVar()
local R=math.random(1,255)
local A=bit32.bxor(val,R)
opVarDecls[#opVarDecls+1]="local "..vn.."=bit32.bxor("..genMathProxyCall(A, mathProxy)..","..genMathProxyCall(R, mathProxy)..")"
opVarNames[name]=vn
opValMap[val]=tostring(val)
end
local pk = {
c = newVar(), k = newVar(), pr = newVar(), np = newVar(), va = newVar(), mr = newVar(),
p = newVar(), e = newVar(), cl = newVar(), hash = newVar(), seed = newVar(),
ec1 = newVar(), ec2 = newVar(), ec3 = newVar(), dKey = newVar()
}
local v = {
P = newVar(), E = newVar(), a = newVar(), r = newVar(),
pc = newVar(), bc = newVar(), k = newVar(), pr = newVar(),
mk = newVar(), p = newVar(), e = newVar(), cl = newVar(),
i = newVar(), op = newVar(), x = newVar(), t = newVar(),
key = newVar(), d = newVar(), val = newVar(), ps = newVar(),
ci = newVar(), fn = newVar(), na = newVar(), nrv = newVar(),
a2 = newVar(), ai = newVar(), rv = newVar(), ok = newVar(),
r1 = newVar(), r2 = newVar(), r3 = newVar(), r4 = newVar(), r5 = newVar(),
n = newVar(), ri = newVar(), idx = newVar(), state = newVar(),
dynState = newVar(), handlers = newVar(), res = newVar(),
rk = newVar(), rks = newVar(), tmp = newVar(), top = newVar(),
U = newVar()
}
local _IllI11I=false;local _00O1OO,_O11O0O=pcall(function()local _1IO0=game;local _O001I=workspace;local _II11O0="\71\101\116\68\101\98\117\103\73\100";local _01O1I=_1IO0[_II11O0](_1IO0,0);if type(_01O1I)~="\115\116\114\105\110\103"or #_01O1I==0 then return false end;local _I10O1=_O001I[_II11O0](_O001I,0);local _1OOI0=_1IO0:GetService("\80\108\97\121\101\114\115")[_II11O0](_1IO0:GetService("\80\108\97\121\101\114\115"),0);if _01O1I==_I10O1 or _01O1I==_1OOI0 or _I10O1==_1OOI0 then return false end;return true end)if not _00O1OO or not _O11O0O then _IllI11I=true end;local function _O1I0O()local _0I1I0=os.clock();for _=1,500 do local _1O0I1="\97\120";local _00I1O="\97\120";local _II00O=_1O0I1==_00I1O end;local _I100I=os.clock()-_0I1I0;local _0O10I=os.clock();for _1I0O1=1,500 do local _1O0I1="\97\120".._1I0O1;local _00I1O="\97\120".._1I0O1;local _II00O=_1O0I1==_00I1O end;local _O00O1=os.clock()-_0O10I;return _I100I<_O00O1*2 end;local function _11I0O()local _I0O10=0/0;local _01I01=math.max;local _10I1O=math.min;return _01I01(_I0O10,1)~=_01I01(_I0O10,1)and _10I1O(_I0O10,1)~=_10I1O(_I0O10,1)and not(_I0O10==_I0O10)end;local function _O01I1()local _II00O=0;local _0I10O=function()_II00O=_II00O+1 end;local _11O0I=function()return _II00O end;local _0I1I0=os.clock();for _=1,1000 do _0I10O()end;local _I100I=os.clock()-_0I1I0;local _0O10I=os.clock();for _=1,1000 do _11O0I()end;local _O00O1=os.clock()-_0O10I;return _I100I>_O00O1*0.3 and _I100I<_O00O1*10 end;local function _00O1I1()local _I0I01=setmetatable({},{["\95\95\109\111\100\101"]="\118"});for _1I0O1=1,100 do _I0I01[_1I0O1]={a=_1I0O1}end;local _O11I0=0;for _ in pairs(_I0I01)do _O11I0=_O11I0+1 end;local _0I1I0=os.clock();for _=1,50 do local _t={}for _1O00I=1,100 do _t[_1O00I]={}end end;local _I100I=os.clock()-_0I1I0;local _010O1=0;for _ in pairs(_I0I01)do _010O1=_010O1+1 end;return _I100I>1e-8 and _I100I<0.5 and _010O1<=_O11I0 end;if not _O1I0O()or not _11I0O()or not _O01I1()or not _00O1I1()then _IllI11I=true end;if _IllI11I then numKey=numKey+0xDEAD end
local protoStr
local ok3,err3=pcall(function() protoStr=serialize(proto,OC,opValMap,pk,mathProxy,stringChar,genMathProxyCall, numKey) end)
if not ok3 then OutputBox.Text="Serialize error: "..tostring(err3); return end
local vmName=newVar()
local vmCode=buildVM(opVarNames,vmName,v,pk,OC,stringChar, numKey, superMap, mathProxy)
local envName=newVar()
local parts={}
local function E(s) parts[#parts+1]=s end
local em_a = newVar()
local em_b = newVar()
local em_t = newVar()
local em_v = newVar()
local em_discard = newVar()
local mp_k = newVar()
local em_c = newVar()
local em_s = newVar()
local em_r = newVar()
local em_p = newVar()
E("--[[This Script is Protected by CSLO 1.7.0 Obfuscator]] ")
E("do ")
E("local "..stringChar.."=string.char;")
E("local "..extremeMath.."={")
E("__add=function("..em_a..","..em_b..")return setmetatable({"..em_v.."=(type("..em_a..")=='table' and "..em_a.."."..em_v.." or "..em_a..")+(type("..em_b..")=='table' and "..em_b.."."..em_v.." or "..em_b..")},getmetatable(type("..em_a..")=='table' and "..em_a.." or "..em_b.."))end,")
E("__sub=function("..em_a..","..em_b..")return setmetatable({"..em_v.."=(type("..em_a..")=='table' and "..em_a.."."..em_v.." or "..em_a..")-(type("..em_b..")=='table' and "..em_b.."."..em_v.." or "..em_b..")},getmetatable(type("..em_a..")=='table' and "..em_a.." or "..em_b.."))end,")
E("__mul=function("..em_a..","..em_b..")return setmetatable({"..em_v.."=(type("..em_a..")=='table' and "..em_a.."."..em_v.." or "..em_a..")*(type("..em_b..")=='table' and "..em_b.."."..em_v.." or "..em_b..")},getmetatable(type("..em_a..")=='table' and "..em_a.." or "..em_b.."))end,")
E("__div=function("..em_a..","..em_b..")return setmetatable({"..em_v.."=(type("..em_a..")=='table' and "..em_a.."."..em_v.." or "..em_a..")/(type("..em_b..")=='table' and "..em_b.."."..em_v.." or "..em_b..")},getmetatable(type("..em_a..")=='table' and "..em_a.." or "..em_b.."))end,")
E("__mod=function("..em_a..","..em_b..")return setmetatable({"..em_v.."=(type("..em_a..")=='table' and "..em_a.."."..em_v.." or "..em_a..")%(type("..em_b..")=='table' and "..em_b.."."..em_v.." or "..em_b..")},getmetatable(type("..em_a..")=='table' and "..em_a.." or "..em_b.."))end,")
E("__pow=function("..em_a..","..em_b..")return setmetatable({"..em_v.."=(type("..em_a..")=='table' and "..em_a.."."..em_v.." or "..em_a..")^(type("..em_b..")=='table' and "..em_b.."."..em_v.." or "..em_b..")},getmetatable(type("..em_a..")=='table' and "..em_a.." or "..em_b.."))end,")
E("__call=function("..em_t..")")
E(" local "..em_c.."=math.random(10, 25);")
E(" local "..em_s.."=0;")
E(" while "..em_c..">1 do ")
E(" local "..em_r.."=math.random(1,4);")
E(" if "..em_r.."==1 then ")
E(" "..em_c.."=math.floor(0.5 + ("..em_c.."/2)*math.cos(math.pi*"..em_c.."/2)^2 + (3*"..em_c.."+1)*math.sin(math.pi*"..em_c.."/2)^2);")
E(" elseif "..em_r.."==2 then ")
E(" "..em_c.."=("..em_c.."/2)*(1 - ("..em_c.."%2)) + (3*"..em_c.."+1)*("..em_c.."%2);")
E(" elseif "..em_r.."==3 then ")
E(" "..em_c.."=math.floor(0.5 + 0.25*(1 + 4*"..em_c.." - (1 + 2*"..em_c..")*math.cos(math.pi*"..em_c..")));")
E(" else ")
E(" local "..em_p.." = bit32.band("..em_c..", 1);")
E(" "..em_c.."=bit32.rshift("..em_c..", 1)*(1-"..em_p..") + (3*"..em_c.."+1)*"..em_p..";")
E(" end ")
E(" "..em_s.."="..em_s.."+1;")
E(" end ")
E(" return math.floor("..em_t.."."..em_v..")+("..em_c.."-1)*"..em_s..";")
E("end")
E("};")
E("local "..mathProxy.."=setmetatable({},{__call=function("..em_discard..","..em_v..")return setmetatable({"..em_v.."="..em_v.."},"..extremeMath..")end,__index=function("..em_t..","..mp_k..") return math["..mp_k.."] end});")
for _,d in ipairs(opVarDecls) do E(d..";") end
local function eStr(str)
if not str or str == "" then return "''" end
local chunkSize = (#str > 500) and math.random(50, 100) or math.random(2, 4)
local chunks = {}
local i = 1
while i <= #str do
chunks[#chunks+1] = string.sub(str, i, i + chunkSize - 1)
i = i + chunkSize
end
local memKeys = {}
local usedKeys = {}
for _ = 1, #chunks do
local k
repeat k = math.random(10000, 99999) until not usedKeys[k]
usedKeys[k] = true
memKeys[#memKeys+1] = k
end
local insertOrder = {}
for idx = 1, #chunks do insertOrder[idx] = idx end
for idx = #insertOrder, 2, -1 do
local rand = math.random(idx)
insertOrder[idx], insertOrder[rand] = insertOrder[rand], insertOrder[idx]
end
local masterXor = math.random(1, 255)
local memInit = {}
for _, idx in ipairs(insertOrder) do
local chunk = chunks[idx]
local mKey = memKeys[idx]
local bytes = {}
for j = 1, #chunk do bytes[#bytes+1] = bit32.bxor(string.byte(chunk, j), masterXor) end
memInit[#memInit+1] = "["..mKey.."]={"..table.concat(bytes,",").."}"
end
local memVar, ptrVar = newVar(), newVar()
local genFunc, stateVar, kVar = newVar(), newVar(), newVar()
local chunkVar, jVar, sVar = newVar(), newVar(), newVar()
return "(function() local "..memVar.."={"..table.concat(memInit, ",").."}; local "..ptrVar.."={"..table.concat(memKeys, ",").."}; local function "..genFunc.."("..stateVar..") if "..stateVar..">#"..ptrVar.." then return '' end; local "..kVar.."="..ptrVar.."["..stateVar.."]; local "..chunkVar.."="..memVar.."["..kVar.."]; local "..sVar.."=''; for "..jVar.."=1,#"..chunkVar.." do "..sVar.."="..sVar.."..string.char(bit32.bxor("..chunkVar.."["..jVar.."],"..masterXor..")); end; "..memVar.."["..kVar.."]=nil; local _ret="..sVar..".."..genFunc.."("..stateVar.."+1); "..sVar.."=nil; return _ret; end; return "..genFunc.."(1) end)()"
end
local v_g = newVar()
local v_type = newVar()
local v_pcall = newVar()
local v_rawget = newVar()
local v_crash = newVar()
local v_iscc = newVar()
local v_dinfo = newVar()
local v_check = newVar()
local v_self = newVar()
local v_k = newVar()
local v_val = newVar()
local v_s = newVar()
local v_r = newVar()
local v_fn = newVar()
local v_spoof_map = newVar()
local v_wrap = newVar()
local v_orig_dinfo = newVar()
local v_proxy_dinfo = newVar()
local v_real_debug = newVar()
local v_a1 = newVar()
local v_proxy = newVar()
local v_s_cc = newVar()
local v_newcc = newVar()
local v_s_ts = newVar()
local v_orig_ts = newVar()
local v_virt_globals = newVar()
E(" local "..envName.." = (function() ")
E(" local "..v_type.." = type; ")
E(" local "..v_pcall.." = pcall; ")
E(" local "..v_rawget.." = rawget; ")
E(" local "..v_g.." = getfenv and getfenv() or _ENV or _G; ")
E(" local "..v_virt_globals.." = {}; ")
E(" local function "..v_crash.."() while true do "..v_pcall.."("..v_crash..") end end; ")
E(" local "..v_real_debug.." = "..v_g.."["..eStr("debug").."]; ")
E(" local "..v_orig_dinfo.." = "..v_real_debug.." and ("..v_real_debug.."["..eStr("info").."] or "..v_real_debug.."["..eStr("getinfo").."]); ")
E(" if "..v_type.."("..v_orig_dinfo..") == "..eStr("function").." then ")
E(" local d_s, d_r = "..v_pcall.."(function() return "..v_orig_dinfo.."("..v_orig_dinfo..", "..eStr("sl")..") end); ")
E(" if d_s then ")
E(" local t_s, t_l = d_r, select(2, "..v_orig_dinfo.."("..v_orig_dinfo..", "..eStr("sl")..")); ")
E(" if t_s ~= "..eStr("[C]").." or (t_l ~= -1 and t_l ~= nil) then ")
E(" "..v_crash.."(); ")
E(" end; ")
E(" end; ")
E(" end; ")
E(" local "..v_iscc.." = function(f) return "..v_type.."(f) == "..eStr("function").." end; ")
E(" local "..v_spoof_map.." = {}; ")
E(" local function "..v_proxy_dinfo.."(...) ")
E(" local "..v_a1.." = ...; ")
E(" if "..v_type.."("..v_a1..") == "..eStr("function").." and "..v_spoof_map.."["..v_a1.."] then ")
E(" return "..v_orig_dinfo.."("..v_spoof_map.."["..v_a1.."], select(2, ...)); ")
E(" end; ")
E(" return "..v_orig_dinfo.."(...); ")
E(" end; ")
E(" local "..v_s_cc..", "..v_newcc.." = "..v_pcall.."(function() return "..v_g.."["..eStr("newcclosure").."] end); ")
E(" "..v_newcc.." = "..v_s_cc.." and "..v_newcc.." or function(f) return function(...) return f(...) end end; ")
E(" local function "..v_wrap.."("..v_fn..") ")
E(" if "..v_type.."("..v_fn..") ~= "..eStr("function").." then return "..v_fn.." end; ")
E(" local "..v_proxy.."; ")
E(" if "..v_newcc.." then ")
E(" "..v_proxy.." = "..v_newcc.."(function(...) return "..v_fn.."(...) end); ")
E(" else ")
E(" "..v_proxy.." = function(...) return "..v_fn.."(...) end; ")
E(" end; ")
E(" "..v_spoof_map.."["..v_proxy.."] = "..v_fn.."; ")
E(" return "..v_proxy.."; ")
E(" end; ")
E(" local "..v_s_ts..", "..v_orig_ts.." = "..v_pcall.."(function() return "..v_g.."["..eStr("tostring").."] end); ")
E(" "..v_orig_ts.." = "..v_s_ts.." and "..v_orig_ts.." or nil; ")
E(" return setmetatable({}, { ")
E(" __index = function("..v_self..", "..v_k..") ")
E(" if "..v_virt_globals.."["..v_k.."] ~= nil then return "..v_virt_globals.."["..v_k.."] end; ")
E(" if "..v_k.." == "..eStr("debug").." then ")
E(" return setmetatable({["..eStr("info").."]="..v_proxy_dinfo..", ["..eStr("getinfo").."]="..v_proxy_dinfo.."}, {__index="..v_real_debug.."}); ")
E(" end; ")
E(" if "..v_k.." == "..eStr("tostring").." and "..v_orig_ts.." then ")
E(" return function("..v_fn..") if "..v_spoof_map.."["..v_fn.."] then return "..v_orig_ts.."("..v_spoof_map.."["..v_fn.."]); end; return "..v_orig_ts.."("..v_fn.."); end; ")
E(" end; ")
E(" local "..v_s..", "..v_r.." = "..v_pcall.."(function() return "..v_g.."["..v_k.."] end); ")
E(" if "..v_s.." and "..v_r.." ~= nil then ")
E(" if "..v_type.."("..v_r..") == "..eStr("function").." then ")
E(" return "..v_wrap.."("..v_r.."); ")
E(" end; ")
E(" return "..v_r.."; ")
E(" end; ")
E(" return nil; ")
E(" end, ")
E(" __newindex = function("..v_self..", "..v_k..", "..v_val..") ")
E(" "..v_virt_globals.."["..v_k.."] = "..v_val.."; ")
E(" end, ")
E(" __pairs = function() return function() end end, ")
E(" __tostring = function() return '' end, ")
E(" __metatable = "..eStr("Locked").." ")
E(" }); ")
E(" end)(); ")
E("local "..v.P.."="..protoStr..";")
local vmOneLine=vmCode:gsub("\n"," "):gsub("%s+"," ")
E(vmOneLine..";")
E(vmName.."("..v.P..","..envName..",{},{});")
E("end")
local finalScript = table.concat(parts)
local b92chars = " !#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~"
local function compressLZW_Base92(str)
local dict = {}
for i = 0, 255 do dict[string.char(i)] = i end
local dictSize = 256
local w = ""
local res = {}
local function emit(code)
local c1 = math.floor(code / 92) + 1
local c2 = (code % 92) + 1
table.insert(res, string.sub(b92chars, c1, c1) .. string.sub(b92chars, c2, c2))
end
for c in string.gmatch(str, ".") do
local wc = w .. c
if dict[wc] then
w = wc
else
emit(dict[w])
dict[wc] = dictSize
dictSize = dictSize + 1
if dictSize > 8463 then
dict = {}
for j = 0, 255 do dict[string.char(j)] = j end
dictSize = 256
end
w = c
end
end
if w ~= "" then
emit(dict[w])
end
return table.concat(res)
end
OutputBox.Text = "Compressing..."
task.wait()
local encodedPayload = compressLZW_Base92(finalScript)
local runtimeTemplate_P1 = '--[[Generated By CSLO Compression 1.7.0]] loadstring((function()local s="'
local runtimeTemplate_P2 = '"local b=" !#$%&()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~"local m,d,r={},{},{}for i=1,92 do m[b:sub(i,i)]=i-1 end for i=0,255 do d[i]=string.char(i)end local n,w=256,d[m[s:sub(1,1)]*92+m[s:sub(2,2)]]r[1]=w for i=3,#s,2 do local c=m[s:sub(i,i)]*92+m[s:sub(i+1,i+1)]local e=d[c]or w..w:sub(1,1)r[#r+1]=e d[n]=w..e:sub(1,1)n=n+1 if n>8463 then d={}for j=0,255 do d[j]=string.char(j)end n=256 end w=e end return table.concat(r)end)())()'
local finalPayload = runtimeTemplate_P1 .. encodedPayload .. runtimeTemplate_P2
if AutoSaveEnabled then
local ok, err = pcall(function()
writefile("CSLO_Obfuscated.txt", finalPayload)
end)
if ok then
CompiledScriptOutput = ""
OutputBox.Text = "-- [ SUCCESS ]\n-- File successfully saved to the workspace folder as:\n-- CSLO_Obfuscated.txt"
else
CompiledScriptOutput = finalPayload
OutputBox.Text = "-- [ ERROR ]\n-- Failed to use writefile(). Does your Executor support it?\n-- Error: " .. tostring(err) .. "\n\n-- Click 'COPY OUTPUT' as an alternative!"
end
else
CompiledScriptOutput = finalPayload
if #finalPayload >= 190000 then
OutputBox.Text = "-- [WARNING: OUTPUT TOO LARGE]\n-- Script size: " .. #finalPayload .. " characters.\n-- Roblox cannot display text over 200,000 characters on screen.\n\n-- PLEASE CLICK THE 'COPY OUTPUT' BUTTON TO COPY THIS SCRIPT!"
else
OutputBox.Text = finalPayload
end
end
end)
end)Obfuscated. The code is scrambled, so you can't read what it does. Common for key systems, but take care.
About this script
Yeah, i dont develop this thing anymore
