local function base85_decode(data)
    local b85chars = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!#$%&()*+-;<=>?@^_`{|}~"
    local b85len = #b85chars
    local function decode_char(c)
        for i = 1, b85len do
            if b85chars:sub(i,i) == c then
                return i - 1
            end
        end
        return nil
    end
    
    local function decode_block(block)
        local value = 0
        for i = 1, #block do
            value = value * b85len + decode_char(block:sub(i,i))
        end
        local bytes = {}
        for i = 1, 4 do
            table.insert(bytes, 1, value % 256)
            value = math.floor(value / 256)
        end
        return string.char(table.unpack(bytes))
    end
    
    local result = {}
    local i = 1
    while i <= #data do
        local block = data:sub(i, i+4)
        table.insert(result, decode_block(block))
        i = i + 5
    end
    return table.concat(result)
end

local function base64_decode(data)
    local b64chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
    local result = {}
    local i = 1
    while i <= #data do
        local n = 0
        local bits = 0
        
        for j = 0, 3 do
            local char = data:sub(i+j, i+j)
            if char ~= '=' then
                local pos = b64chars:find(char) - 1
                if pos then
                    n = n * 64 + pos
                    bits = bits + 6
                end
            end
        end
        
        local bytes = {}
        for j = 1, 3 do
            if bits >= 8 then
                table.insert(bytes, string.char((n >> (bits - 8)) & 0xFF))
                bits = bits - 8
            end
        end
        
        result[#result+1] = table.concat(bytes)
        i = i + 4
    end
    
    return table.concat(result)
end

local function decompress(data)
    return data
end

-- Código encriptado
local encrypted = "Oj9stW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^Ob$LuoK{Ls(=pWO+4CWK~jZWNuA$Su#0vLuoK{LsnXBV{T4xVlp%~Nk&b1O;a>@OjJorOj9sQR#-x7Sy)nRPiaC<Sy)MSO=?MYO=>}TPG@g)Oi^q`T1RX!VlzoLNkutMQdML^LuoK{Nk}y-W^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerW^OerPj_!iVn;b@Syy*wQ8GDoT5W7@NklMbT1Po;VOMx;OG8RUSy)nNSVnk6WLQoxVlpvfSVed-SyoPJV{L4AWJY*nRBcu>V=+#1VOLUYSVnkHT3BRyRWf*RT1Qr9Q8GDoT5W7@Ol^2ESyM@HLuYSvOjANcVlp)_V{JKeT2n$wVs27wV{J8dLv46=Su#d*Nk=hkV>3=@S~6BrWLH)(T2nzeNl0`#Lv46=Su#d*Nk>jGV{S@pVs27ST3AkcSyyCiQb$HGSyMqdNk=tsVnaboVn;b@Syy*wSu<97V{KM-WJPRsT1QqiNklMbO;K=jVlqx>Vnaf7T3AkcSyyCiS3^NLNknINO+j#TVlqx>Vnaf3V=!!WVOUadSyy;)Wo=e#NklMbT5U#iV=`4sVn;b@Syy*wVOUN{Vl!H7V{L48T6sY^Nk>{}Vn|MGLv46=Su#d*Nk>jGV{S@pVs27YV@FnOT0=oONkvX}Vr^P*T6r~8RYg`tQbsvXR540UQB`+KVn;b@Syy*wWHLr@WJXeOVpmpqNklMbO+!ITLv46=Su#d*Nk>{SVr@<^VOKeINkwFAWJOMMVOLglWJP#rVr^tGSyyCiOG9f*Nkc(rNk@2gSu#d*Nk~FyWJhRvNklMbWqC?XSy)zeSu$vBV{18gWJhdvVreyST4_mhNkd6>OldhySy)zeSu$vBV{18gWJhdvVreyST4_mhNkd6>OldfEOldhySy)zeSu$vBV{18gWJhdvVreyST4_mhNkd6>OldfEOldfEOldhySy)zeSu$vBV{18gWJhdvVreyST4_o-Luo;0Nkc+&Vlqx>Vnaf6Sywe~NklMbO+!ITNkc(rNk>|CV`)NWOhZC<Sy)nUNk?pTNk?pVSyya%V|i$ISy)nUV|i<5T1PlbNkc(rNkc(rNkc+&Vlqx>Vnaf0VOMx;NklMbVOKbHVlzT)Vrgi1Sy)nUOhZ9wV`)inLuo;0Nkc(rNkc(rVOLpaT5W7|T2n$WVMkVVLuo;0Nkc(rNkc(rNkc(rNk>|CV`)NjVOKS5Nk?pTNk>|6Vn<arVn=LsT3AhQOH)E?Vs~$6Nkc(rNkc(rNkc(rNkc(rNkc(rVn;b@Syy*wVpm2mSu$s5P*Xy4VOKS5Pi--1WJgYKOG8RcSywe~WLHLRT2yauN>@>GOH)a3Luo;0Nkc(rNkc(rNkc(rNkc(rNkc+#T4_RbSy)nPVM9VNVMkVVNk@2SVr^q*P*XxMVlp)`VpmFRV`*q~Sy)nPVMA*-Nk>|6Vn<arSu%KbV=`55OH^}bV{KM2WLQddNk@2SVr^q*T30n|Luo;0Nkc(rNkc(rNkc(rNk>+7T0w7TNkc(rNkc(rNkc(rNkc+yVOMx;Pi;<fVlz%`OG9f*Nkc(rNkc(rNkc+xVr@}NNkc(rNk>+7T0w7TNkc(rV{KM2WLQddNk@2SVr^qfT30n|LuYVvVlqx>Vnaf0WLGt6WJhdvVrfEiVlqZ+RBcu?WJNJ-V>3=@S~68{OHprUNkc(rVOLpaNis2PV>3=@S~6BrWLH)(T2nzeP*Xv7Nk~#}T30k@V{KM2WLQddNk>+7T0w7TNkc(rSu<97V{KM-WJNJ-V>3=@S~6BeSy)nNNklMbVpmprV=_i=T2@9eT3A+WS29j9V{S@pVs27OVr^1vWkxVdNkc(rNk>jGV{S@pVs27OVr^1vWkW$ZNkeFAWLQdhT30nNQ&%->T3BaiN>f2<VpmprV=_i=T2@9eT3A+WOH)B|Nkm0UNkc(rNk=hkV>3=@S~6ByNklMbPeeg?Lv2=dT0w71Vn;b@Syy*wT5eW#Su;{_Vlp&mRBcu>V=+#1VOLUYSTRa$Vr^1vV`*n_Luo;0Nkc+#T4_Q_T3AYUNklL?Nk=tsVnaeOVMkVVNk~d;WJp$dVrfEbVr@}NNkc(rNkMOCNkc(rOj9stQ&%-`Su$*BVn=K?Sz}LbcQ#ITLuo;0Nkc+#T4_RcVlz=^VOUN|Vr^_NVOK_TVOVf%T0=rGVMkVVLuo;0Nkc(rNkc(rVn;b@Syy*wVn;@GS}<%yNklMbQZiOBQ8IXNT30nNR7Xa2S~FH?S~68{OHprUNkc(rNkc(rNk=hkV>3=@S~6BrWLH)(T2nzeNkvX}Vr^P*T6r~eT3AkcSyyCiV=;7dSywe~Q&m!ANk=((NkvX}Vr^P*T6r~eT3AkcSyyCiV=;4gSW$0hNkc(rNkc(rNkMOCNkc(rNkc(rNk?pLNkdL_T3AkcSyyCiRajPRWLH&ZP-#JTNk~#}T30knNkc(rNkc(rNkc(rNkc(rSu<97V{KM-WJNJ-V>3=@S~6BeSy)nNNklMbVpmprV=_i=T2@9eT3A+WS9(TdLuo;0Nkc(rNkc(rNkc(rNk>jGV{S@pVs27OVr^1vWkW$ZNkmCYNkc(rNkc(rNkc(rNkc(rVpmprV=_i=T2^OgP*XuPO+-OUNkc(rNkc(rNkc(rNkc(rVOUN|Vr^_NVOK_TVOVf%T0=oONk~$8WLH&7Nkc(rNkc(rNkc+xVn|MGLuo;0Nkc(rNkc(rNkc(rNk~d;WJp$dVrOq>Nkc(rNkc(rNk>+7T0w7TNkc(rT30n|LuYSiNkc(rOj9stR83EMS~6^ESyMu5T2n$!Vl!5HT2n$$WNlV?Luo;0Nkc+&Vlqx>Vnaf7Vl!5HT2(nRT3AVEP*XxgVMkVKVK6avWLQpYQ&%)^VpmprV=_i=T2^OsNkvX}Vr^P*T6r~8R7Gq>QdUZ4RYf^eSTSpJNkvX}Vr^P*T6r~9QdVeHSTSTuQbtlqOhZCMVlp*tVOL{yRz+4>Rz^8VQdMk7Q$|s6Luo;0Nkc(PNkc(rNk?pLNk=huWLQpYR5My^V`)M#VMkVVLuo;0Nkc(rNkc(rVOUN{Vl!H7V{L48T6sY^Nk~$8WLH&7Nkc(rNkc(rNkc+vWLQdhT30nNRWm|tT31nLP*XxgVlp*tVOL{yRWU+FQdLrBQ$;yfQdUVzNkc(rNk>+5V=`4sNkc(rNkc(rNkc+#V=!oTWNlV?VOKS7NklMbT5U#iV=`4sNkc(rNkc(rNkc+vWLQdhT30nNRWm|tT31nLP*XxgVlp*tVOL{yRWU+FQdLrBRBJg?R8>YzLuo;0Nkc+xVr@}NNkc(rNkMOCNkc(rOj9stR83EMS~6^ESyMu5T2n$!Vl!HBVpmpmWJgFua5ztDVtGPrNk&p^Vpu|UNk>v_NkvwAV@FnbSy69iNkc(rVOLpaWHLr@WJXeOVpmpqNkn%!Nkl<sWJhRhVrOq>Nkc(rNkc(rNk=hkV>3=@S~6ByNklMbVpmprV=_i=T2^OgOjAN?WLQdhT30nNRWm|tT31m^Nkc(rNkc(rNkc(PNkc(rNkc(rNkc+#T4_RbT3AkcSyyCiS3^N^NkvX}Vr^P*T6r~9QdVeHSTSTuQbtlqNkn&NO+!L3VMkVVLuo;0Nkc(rNkc(rNkc(rNl0X9VOUaCVOKG1V`)J-NkvX}Vr^P*T6r~CQB`bJSTRycR8>`HOKCweO+jyGNkc(rNkc(rNkc(rNkc+&VlqZ+RBcu?WJNJ-V>3=@S~68{OHprUNkc(rNkc(rNk>+7T0w7TNkc(rT32{_T2XIjNkc(rNkc(rNl0X9VOUaCVOKG1V`)J-Nl0X9VOUaCVOKG1V`)KjNkm0wLuo;0Nkc+xVr@}NNkc(rNkMOCNkc(rOj9stRc%&vT1QrSVOVfzcQ$53Z!$PbNkc(rNk?pLNk>jGV{S@pVs27ST3AkcSyyCiQb$HGSyMu2Vr@}pWHLr@WJXeOVpmpqNkn%!Nkl<sWJhRhVrOq>Nkc(rNkc(rNk@2gSu#d*Nk~#`Wk^wHP*Xx`WLQdhT30nNR99AdV=_i=T2)eLWJg9~O;#{VNkc(rNkc(rNkc+&Vlqx>Vnae|VlsGkV`)J-Nk>jGV{S@pVs27ST3AkcSyyCiQb$HGSypp-SW$0hNkc(rNkc(rNkMOCNkc(rNkc(rNkcGnNkv9?Vn=LhSyMu2NkvX}V`pz?Nkc(rNkc(rNk?pLNk?pYQ%5;6T3AYOVr^q*WJhRhVrOq>Nkc(rNkc(rNkc(rNkc+bQ&viBVr^1vV{B4vWk^zHRWepER!3GeWJOMPVn;c7OGQq0Vr^P*T6r}@R4{l@Rctv)R54mcRcSSOOhZCMVlp*tVOL{yQ7}18R540sQ$;yfQdUWIT6uS8Q8GDoT5W7@OlwY1R7E*cSTJZ%R%=#MOl?VXNkmC8PE%`3Nkc(rNkc(rNkc+xVn|MGLuo;0Nkc(rNkc(rNkc(rNk&#mRc%&vT1QrSR!3GeWJWnuT3Aw5T3Bc>Q8GDmVlzo^Su#0uVlzr&O;#{-Nk>k0Vn;c7S9(fhOhZCyVlsGkV{CJJSW|arO=?v!OHprUNkc(rNkc(rNk>+7T0w7TNkc(rNkc(rNkMOCNkc(rNkc(rNkcGnNkv9?Vn=LhSyMuGNk&p=Vpm3WVMjP;T1Q1^Qf)bPWJgtJOGRu&Nkm0+Nk&p=Vpm3WVMjP;T1Q1^Q8GDoT5W7@OhZCcT30Y<RBcvnV{L3OVtIFGRWep|NkwchcQ!_IVOLIeOHprUNkc(rNkc(rNk&#mRc%&vT1QrSR!3GeWJWnuT3Av?Vlp)_OGHI;NkvX}Vr^P*T6r}`R4_GFSTRmYS8G*sNkl<&Nkl<#Luo;0Nkc(rNkc(rLuo;0Nkc(rNkc(rR#j|MT30n|T3AX|T3Bc>STRm)WJOADQ8GDmVlzo^O+$BQO+$BQO+$BQO+#yENkMOCNkc(rNkc(rNk&#mRc%&vT1QrSR!3GeWJWntT30n|T3AX|T3Bc>OGhzmV>3=@S~6ByOhZCMVlp*tVOL{yRWNu;Qbkr%STRCSRWUhQOhZC2T3Bc>OhZCMVlp*tVOL{yRz+4>Rz^8kQ&mz`Q$u%WQ8GDoT5W7@Ol(p{S4L81Q$<!vQZQ&$OhZ9<OHprUNkc(rT30n|Lv2=dT0w71QEp0bT1RATQf^jtSu;{_Vlp*CWJpqISu$sDNozTEQ&%-GT3AYLSyxVMRc%&vT1QrSNojXyRBcu>V=+#1VOLUYSTRa$Vr^1vV`*zW"

-- Decodificar
local decoded = base85_decode(encrypted)
local b64_decoded = base64_decode(decoded)

local code = b64_decoded

-- Executar
local chunk = load(b64_decoded)
if chunk then
    chunk()
else
    print("Erro ao carregar o script encriptado")
end
