Cachopoly_Decrypt

function _Mzr(str)
  local res = ""
  local dtable = ";JH\021\n0/RMQ\016m&@,(Du8Csg\005\001\017I~9v\031\028\023b\f25x1.r[?\000eB'^\014-ho\020+qc3\022a\t\bl{\a<wt7O\\\030\018Y\024L)#y %XA4\019\rGS*zW!=k\002\015\v\006E}]\026V:\004FpdU`jZ>\003P\"$T\029N\025n_\027K6i|f"
  for i = 1, #str do
    local b = str:byte(i)
    if b > 0 and b <= 127 then
      res = res .. string.char(dtable:byte(b))
    else
      res = res .. string.char(b)
    end
  end
  return res
end

print(_Mzr("\017\018N2:\021BN,\021N\022,\02172:\127\127B\015N2,(X=}72,xNU=\0187\\A\018x\02172'@-\bo@-\boh\018(Nj},N-,(,72x\018x\022Nj,\021Nh}x:=N,(2:=\021BNj\018N\1273=\022,xj,NY,(B,f@-\bo@-\boQ[C\006@-\bo-[\028$@-\bo\020[#\006@-\bo\017[R$@-\bo@-\bo\017\018N\021\01872\021BN:xNj},\021,(NVB,==,Nj,xNV72=\018\021\021,=N\127\018(Nj:\021Nh}x:=,'N"))