Perl 图片验证码 识别分析

转自http://bbs.chinaunix.net/thread-1360950-1-1.html

感觉不错，学习学习。。

需要使用了两个库??1. Image::Magick 用来进行图片处理??2. imgseek 进行图片比较 求出相似度

程序因为使用到 imgseek 所以只能在*nix下运行

程序设计时 分两个部分 1.建里特征图片库??2. 用随即图片与特征图片库进行比较 求出相似度最高的值?
这个程序仅仅是为了供大家研究参考? ? # 为了不惹麻烦 把测试网站删除了??
一. 建立特征图片库?
1. 下载 包含 0到9 共10个数字的图片
??
? ? 我这里是 手工下载了10张第一个数字不同的图片?
2. 对图片进行处理?
? ? 转换成灰度图 -> 2值化（我这里设定的阙值是20300）-> 把第一个数字切割下来

??3. 提取出仅含有数字的区域 （即去掉四周的空白）
复制代码

1. use Imager;
   
2. use Image::Seek qw(loaddb add_image query_id savedb);
   
3. loaddb("imgdata.db");
   
4. ? ? ? ? my $img = Imager->new();
   
5. ? ? ? ? my $file = './flag/II-'.$num.'.bmp';?
   
6. ? ? ? ? $img->open(file => $file);
   
7. ? ? ? ? add_image($img,$num);
   
8. ? ? ? ? savedb("imgdata.db");
   
9. ? ? ? ??
   
10. ? ? ? ? $img = undef;
    
11. }

1. use LWP::Simple;
   
2. my $url = '****';??# 为了不惹麻烦 把测试网站删除了
   
3. my $file = './cut/tmp.bmp';
   
4. getstore($url,$file);
   
5. for my $num (0..3){
   
6. ? ? ? ? my $image = new Image::Magick;
   
7. ? ? ? ? my ($w,$h,) = $image->Get('width',serif; font-size:12px; line-height:1.8em"> ? ? ? ? $w /= 4;
   
8. ? ? ? ? my $xxx = $w * $num;
   
9. ? ? ? ? $image->Quantize(colorspace=>'gray');
   
10. ? ? ? ? $image->Threshold(threshold=>'20300',channel=>'All');
    
11. ? ? ? ? $image->Crop(width=>$w,height=>$h,x=>$xxx,y=>0);
    
12. ? ? ? ? $image->Write('./cut/t.bmp');
    
13. ? ? ? ? $image = undef;
    
14. ? ? ? ? my $img = new Image::Magick;
    
15. ? ? ? ? $img->Read('./cut/t.bmp');
    
16. ? ? ? ? my (@px_x,serif; font-size:12px; line-height:1.8em"> ? ? ? ? for my $x(0..$w){
    
17. ? ? ? ? ? ? ? ? for my $y (0..$h){
    
18. ? ? ? ? ? ? ? ? ? ? ? ? my $px = $img -> GetPixel(x=>$x,serif; font-size:12px; line-height:1.8em"> ? ? ? ? ? ? ? ? ? ? ? ? if($px == 0){
    
19. ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? push @px_x,serif; font-size:12px; line-height:1.8em"> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? push @px_y,serif; font-size:12px; line-height:1.8em"> ? ? ? ? ? ? ? ? ? ? ? ? }
    
20. ? ? ? ? my ($xmax,serif; font-size:12px; line-height:1.8em"> ? ? ? ? my $xw = $xmax-$xmin + 2;
    
21. ? ? ? ? my $yh = $ymax-$ymin + 2;
    
22. ? ? ? ? $xmin -= 1;
    
23. ? ? ? ? $ymin -= 1;
    
24. ? ? ? ? $img->Crop(width=>$xw,serif; font-size:12px; line-height:1.8em"> ? ? ? ? my $out = './cut/'.$num.'.bmp';
    
25. ? ? ? ? $img->Write($out);
    
26. ? ?2. 识别
    
    1. ? ??
       
    2. use Image::Seek qw(loaddb add_image query_id savedb remove_id);
       
    3. my $img = Imager->new();
       
    4. my $file = './cut/'.$num.'.bmp';?
       
    5. $img->open(file => $file);
       
    6. add_image($img,10);
       
    7. savedb("imgdata.db");
       
    8. my @results = query_id(10); # What looks like this photo?
       
    9. remove_id(10); # Just remove id from database.
       
    10. 
        
    11. ? ? ? ? print $results[1]->[0];
        
    12. }