local bit32 = require("bit32")

local S = {
  "\051\079\090\051\102\108\061\061",
  "\056\073\066\099\104\062\062",
  "\052\065\068\103\109\056\062\062",
  "\056\067\091\102\104\048\062\062",
  "\053\072\085\099\105\051\062\062",
  "\049\064\085\102\105\061\062\062",
  "\048\077\068\100\105\061\062\062",
  "\052\069\092\110\097\054\062\062",
  "\050\067\085\099\108\054\062\062",
  "\057\065\089\105\110\061\062\062",
  "\055\075\084\104\097\057\062\062",
  "\054\073\093\103\097\056\062\062",
  "\057\072\080\099\110\061\062\062",
  "\057\067\093\102\111\061\062\062",
  "\055\064\091\101\099\056\062\062",
  "\057\065\091\100\108\054\062\062",
  "\057\072\093\110\106\061\062\062",
  "\057\065\068\104\109\054\062\062",
  "\056\077\092\111\106\056\062\062",
  "\051\079\087\102\108\062\062"
}

local b = string.char
local O = table.concat
local E = string.len
local L = string.sub
local U = string.byte

local function deobfuscate(V, C, B)
  local e = {}
  local h = 1
  local t = 1
  while t <= E(B) do
    e[h] = t
    h = h + 1
    local v = 1
    while v <= E(B) do
      e[h] = v
      h = h + 1
      local T = 1
      while T <= E(V) do
        e[h] = T
        T = T + 1
        h = h + 1
      end
      v = v + 1
    end
    t = t + 1
  end
  e[h] = E(B)
  h = h + 1
  e[h] = E(B)
  h = h + 1
  local z = ""
  for n = 1, E(C) do
    z = z .. b(bit32.bxor(U(C, n), e[n]))
  end
  return z
end

-- Convertir les chaînes dans la table S en une seule chaîne
local V = O(S)

-- Chaîne obfusquée
local C = "\095\021\026\124\046\018\030\002\042\037\099\118\127\122\005\043\024\027\028\014\001\010\062\122\046\017\002\047\028\027\000\047\042\003\049"

-- Clef utilisée dans le script obfusqué
local B = "7352717c7e29"

-- Appel de la fonction de déobfuscation
local deobfuscated = deobfuscate(V, C, B)
print(deobfuscated)