黑客风云——风云网络
设为首页 加入收藏 我要投稿 网站地图
您现在的位置: 黑客风云 >> 黑客文章 >> 黑客进阶 >> 木马天地 >> 文章正文
[推荐]黑客风云专用版小马密码破解程序
        ★★★★★
黑客风云专用版小马密码破解程序
文章整理发布:黑客风云 文章来源:www.05112.com 更新时间:2006-11-20

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

文章录入:cainiaowang    责任编辑:cainiaowang 
【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
VIP 专 区
Copyright @2006 黑客风云 ●业务联系:QQ 联系怪人 联系奇人 Email:给怪人发邮件 给奇人发邮件
ICP备案:冀06009886