御剑1.4代码开源代码

		

	 

	期待了好久，1.5目前还在开发当中

	 

	御剑B太慢了- -

	 

	下面是1.4开源代码，用什么编写的就不用说了吧，明眼人一眼就看出来了

	 

	不明的看十遍他也不行- -....

	 

	主窗体=======================================================

	 

	Public Class BIN

	    '御剑1.4

	    '编写日期：2011-7-13

	    '作者：BY 御剑孤独QQ:343034656

	 

	    Delegate Sub WeiTuo(ByVal IP As String, ByVal url As String, ByVal title As String, ByVal Num As Int32, ByVal BZ As String)

	    Dim C_STOP As Boolean = False

	    Dim DDSM_STOP As Boolean = False

	    Dim PL_STOP As Boolean = False

	    Dim SQLstop As Boolean = False

	    Dim SQLSM As Boolean = False

	    Dim x, xx As Int32

	    Dim XXXOOO As Int32

	    Dim TB As New Object

	    Dim CD As String

	    Dim SS As Integer

	    Dim MM As Integer

	    Dim HH As Integer

	    Dim JM As Integer

	 

	    Private Sub BIN_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

	        On Error Resume Next

	        End

	    End Sub

	 

	    Private Sub FrmBIN_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

	        Panel9.Left = 689

	        Panel10.Left = 695

	        Control.CheckForIllegalCrossThreadCalls = False

	        ComboBox1.Items.Add("http://cn.bing.com   必应搜索引擎")

	        ComboBox1.Items.Add("http://www.114best.com  114 Beast")

	        ComboBox1.Items.Add("http://dns.aizhan.com      爱站网")

	        ComboBox1.Items.Add("http://www.zzsky.cn  中国站长天空")

	        ComboBox2.Items.Add("C段接口-必应搜索引擎")

	        ComboBox2.Items.Add("C段接口-3EST,情书API")

	        ComboBox3.Items.Add("----------------")

	        ComboBox3.Items.Add("常规编码")

	        ComboBox3.Items.Add("----------------")

	        ComboBox3.Items.Add("URL编码")

	        ComboBox3.Items.Add("----------------")

	        ComboBox3.Items.Add("注释方式")

	        ComboBox3.Items.Add("----------------")

	        ComboBox3.Items.Add("大小写变异")

	        ComboBox3.Items.Add("----------------")

	        ComboBox3.Items.Add("+号连接方式")

	        ComboBox3.Items.Add("----------------")

	        ComboBox4.Items.Add(5)

	        ComboBox4.Items.Add(10)

	        ComboBox4.Items.Add(20)

	        ComboBox4.Items.Add(50)

	        ComboBox4.Items.Add(100)

	        ListView1.View = View.Details

	        ListView1.Columns.Add("ID", 50, HorizontalAlignment.Left)

	        ListView1.Columns.Add("域名", 260, HorizontalAlignment.Left)

	        ListView1.Columns.Add("标题", 345, HorizontalAlignment.Left)

	        ListView1.GridLines = True

	        ListView1.FullRowSelect = True

	        ListView2.View = View.Details

	        ListView2.Columns.Add("ID", 50, HorizontalAlignment.Left)

	        ListView2.Columns.Add("存在页面", 535, HorizontalAlignment.Left)

	        ListView2.Columns.Add("响应状态", 70, HorizontalAlignment.Left)

	        ListView2.GridLines = True

	        ListView2.FullRowSelect = True

	        ListView3.View = View.Details

	        ListView3.Columns.Add("ID", 30, HorizontalAlignment.Left)

	        ListView3.Columns.Add("注射页面", 320, HorizontalAlignment.Left)

	        ListView3.Columns.Add("服务器类型", 130, HorizontalAlignment.Center)

	        ListView3.Columns.Add("数据库类型", 80, HorizontalAlignment.Center)

	        ListView3.Columns.Add("注入类型", 60, HorizontalAlignment.Center)

	        ListView3.Columns.Add("确认方式", 150, HorizontalAlignment.Center)

	        ListView3.GridLines = True

	        ListView3.FullRowSelect = True

	        ListView4.View = View.Details

	        ListView4.Columns.Add("ID", 50, HorizontalAlignment.Left)

	        ListView4.Columns.Add("存在页面", 330, HorizontalAlignment.Left)

	        ListView4.Columns.Add("响应状态", 80, HorizontalAlignment.Left)

	        ListView4.GridLines = True

	        ListView4.FullRowSelect = True

	        Dim S As New Threading.Thread(AddressOf loadini)

	        S.Start()

	        Me.WebBrowser1.Navigate("about:blank")

	        Me.WebBrowser2.Navigate("about:blank")

	        Me.WebBrowser3.Navigate("about:blank")

	    End Sub

	 

	    Private Sub loadini()

	        Dim dr As Boolean = False

	        If Dir(Application.StartupPath & "\表段.txt") <> "" Then

	            Dim temp As S

补充：综合编程 , 安全编程 ,

上一个：.NET的ConcurrentDictionary,线程安全集合类
下一个：读书笔记_键盘嗅探器(1)