<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>黑客风云专用版小马密码破解</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<FORM METHOD=POST ACTION="123.asp">
请输入密码的个数,请不要太大!<br><INPUT TYPE="text" NAME="end">
<INPUT TYPE="submit" value="开始破解啦!">
</FORM>
<%
If request.Form.count<>0 Then
Dim n,en,m
en=CInt(request.Form("end"))
If en>100 Then
response.write("<script>alert(""老大!早说没有那么大了。你记"&en&"位的密码呀!"")</script>")
response.end
End if
For n=0 To en
Dim password,pass
pass=StrReverse("r'*+.22033")
password=Chr(Asc(Mid(pass,1,1))+n-11)
For m=2 To 10
password=password&Chr(Asc(Mid(pass,m,1))+n-(11-m))
Next
Dim ln
ln=10-n
If Right(password,ln)=left("zxcvbnm,./",ln) Then
response.write("密码是:"&Left(password,n))
Exit For
End If
Next
response.write "程序结束!"
End if
%>
</BODY>
</HTML>