[转载]扫描网页恶意代码的程序
文章作者：[email]demonalex@hackermail.com[/email](此程序需要字典)
[code]#!usr/bin/perl -w
#c:\find.pl
use LWP::Simple;
$url=$ARGV[0];
$dir=$ARGV[1];
$result=get $url;
open(CON,"<$dir");
do{
$bug=<CON>;
chop($bug);
if($result=~m/$bug/){
print"...havd $bug!\n";
}else{
print"...haven't $bug!\n";
}
}until(eof(CON));
close CON;
exit 1;[/code]
#此‘物’可以帮助你查找代码(加恶意代码字典可以查找恶意代码)
#格式:perl c:\find.pl url 字典文件
#需要LWP::Simple库
#url:[url]http://search.cpan.org/src/GAAS/libwww-perl-5.75/lib/LWP/Simple.pm[/url]
#有问题请email:demonalex@hackermail.com
页:
[1]