频道栏目
首页 > 程序开发 > Web开发 > 其他 > 正文
修改的一个perl扫描脚本
2011-10-27 12:39:47           
收藏   我要投稿

#!/usr/bin/perl
##
#  By www.hkmjj.com  www.2cto.com
#  修改:mer4en7y
#  Team:90Sec
##
use HTTP::Request;
use LWP::UserAgent;
system('cls');
print "\n";
print "======目录扫描工具===============\n";
print "======修改:mer4en7y==============\n" ;
print "======Team:90sec=================\n";
print "======扫描结束后,查看fuck.txt===\n\n";
print "请输入网址:\n";
$site=<STDIN>;
chomp $site;
print "\n\n";
print "请输入网站脚本类型:\n";
print "e.g.: asp, php, cfm, any\n";
print "--> ";
$code=<STDIN>;
chomp($code);
if ( $site !~ /^http:/ ) {
$site = 'https://' . $site;
}
#视字典而定,如果前面有/就注释掉
#if ( $site !~ /\/$/ ) {
#$site = $site . '/';
#}
print "\n";
print "->网址: $site\n";
print "->脚本: $code\n";
print "->扫描正在进行中,请等待...\n\n\n";
if($code eq "php"){
 open(FILE,"php.list") || die $!;
 while(my $line=<FILE>){
  chomp;
$final=$site.$line;
my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
if($response->status_line =~ /200/ ||
$response->status_line =~ /403/){
print " \n[+] Found -> $final\n\n";
open fp,">>fuck.txt";
print fp "$final";
close(fp);
}
else{
print "[-] Not Found <- $final\n";
}
}
}

点击复制链接 与好友分享!回本站首页
相关TAG标签 脚本
上一篇:会话中的cookie与session
下一篇:perl 求和
相关文章
图文推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站