路径字典收集脚本

2009-5-20 12:59 766 0

摘要: 一个好的渗透测试员,肯定有一本自己路径字典...在渗透测试时可以帮上不少忙但好的字典,均是自己平时慢慢收集攒起来的.因此才有了这个脚本的. 脚本会自动判断是否重复,不重复则写入放到快捷启动栏...

关键词： nbsp 脚本 Str 输入重复 Wscript Trim WriteLine 后缀 With

一个好的渗透测试员,肯定有一本自己路径字典...在渗透测试时可以帮上不少忙但好的字典,均是自己平时慢慢收集攒起来的.因此才有了这个脚本的. 脚本会自动判断是否重复,不重复则写入放到快捷启动栏,设置上图标...嘿嘿,很是方便呀这脚本陪了不少时间了,今天优化下,写上注释给喜欢VBS的朋友们 Str = Trim(InputBox(Wscript.ScriptName&"请输入：", "输入", "" ))'提示用户输入,并清除两边的空格If Str ="" Then Wscript.Quit'若用户输入为空则退出脚本Name=Replace(Wscript.ScriptFullName,"vbs","txt")'设置文件名与当前脚本名字相同,但后缀为TXTSet Fso=CreateObject("Scripting.FileSystemObject")With Fso.OpenTextFile(Name,1,False,-2)Do While .AtendoFline <> True data=Trim(.ReadLine) If LCase(Str) = LCase(data) Then Wscript.Quit '判断是否有重复,重复则退出脚本Loop.CloseEnd With With Fso.OpenTextFile(Name,8,True)If InStr(Str,".") = 0 Then .WriteLine Trim(Str) .WriteLine Trim(Str)&".asp"Else .WriteLine Trim(Str)End If.CloseEnd With '若不包含.则写入 str值和带 ASP后缀的STR值,否则只输入STR值 MsgBox StrSet Fso=Nothing 来源：http://hi.baidu.com/vbs_zone/blog/item/20213109ba26d0ca3bc76324.html

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