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）-> 把第一个数字切割下来

1.    
   
2. use Image::Magick;
   
3. my $image = new Image::Magick;
   
4. 
   
5. for my $num qw(00 01 02 03 04 05 06 07 08 09){
   
6.         my $file = './image/'.$num.'.bmp';
   
7.         $image->Read($file);
   
8. }
   
9. 
   
10. $image->Quantize(colorspace=>'gray');                  #灰度图
    
11. $image->Threshold(threshold=>'20300',channel=>'All');  # 2值化  阙值需要自己手工调整
    
12. $image->Crop(width=>18, height=>25, x=>0, y=>0);       #切割图片
    
13. 
    
14. my $out = './image/I.bmp';
    
15. $image->Write($out);
    
16. 
    
17. $image = undef;
    
18. exit;

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

1.   
   
2. use List::Util qw(max min);
   
3. use Image::Magick;
   
4. 
   
5. for my $num (0..9){
   
6. 
   
7. my $image = new Image::Magick;
   
8. my $file = './image/I-'.$num.'.bmp';
   
9. $image->Read($file);
   
10. 
    
11. my ($w,$h)=$image -> Get('width','height');
    
12. 
    
13. my (@px_x,@px_y);
    
14. for my $x(0..$w){
    
15.         for my $y (0..$h){
    
16.                 my $px = $image -> GetPixel(x=>$x,y=>$y);
    
17.                 if($px == 0){
    
18.                         push @px_x,$x;
    
19.                         push @px_y,$y;
    
20.                 }
    
21.         }
    
22. }
    
23. 
    
24. my ($xmax,$xmin,$ymax,$ymin) = (max(@px_x),min(@px_x),max(@px_y),min(@px_y));
    
25. my $xw = $xmax-$xmin + 2;
    
26. my $yh = $ymax-$ymin + 2;
    
27. $xmin -= 1;
    
28. $ymin -= 1;
    
29. 
    
30. $image->Crop(width=>$xw, height=>$yh, x=>$xmin, y=>$ymin);
    
31. 
    
32. #$image->Magnify;
    
33. my $out = './flag/II-'.$num.'.bmp';
    
34. $image->Write($out);
    
35. 
    
36. $image = undef;
    
37. 
    
38. }
    
39. 
    
40. exit;

复制代码

   
  4.存入到 图片库里

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

二 随即认证码 图片识别

  1.随机图片下载加工

1.    
   
2. use List::Util qw(max min);
   
3. 
   
4. use Image::Magick;
   
5. use LWP::Simple;
   
6. 
   
7. my $url = '****';  # 为了不惹麻烦 把测试网站删除了
   
8. my $file = './cut/tmp.bmp';
   
9. getstore($url, $file);
   
10. 
    
11. for my $num (0..3){
    
12.         my $image = new Image::Magick;
    
13.         $image->Read($file);
    
14.         my ($w, $h,) = $image->Get('width', 'height');
    
15.         $w /= 4;
    
16.         my $xxx = $w * $num;
    
17.         
    
18.         $image->Quantize(colorspace=>'gray');
    
19.         $image->Threshold(threshold=>'20300',channel=>'All');
    
20.         $image->Crop(width=>$w, height=>$h, x=>$xxx, y=>0);
    
21.         
    
22.         $image->Write('./cut/t.bmp');
    
23.         $image = undef;
    
24.         
    
25.         my $img = new Image::Magick;
    
26.         $img->Read('./cut/t.bmp');
    
27.         my (@px_x,@px_y);
    
28.         for my $x(0..$w){
    
29.                 for my $y (0..$h){
    
30.                         my $px = $img -> GetPixel(x=>$x,y=>$y);
    
31.                         if($px == 0){
    
32.                                 push @px_x,$x;
    
33.                                 push @px_y,$y;
    
34.                         }
    
35.                 }
    
36.         }
    
37. 
    
38.         my ($xmax,$xmin,$ymax,$ymin) = (max(@px_x),min(@px_x),max(@px_y),min(@px_y));
    
39.         my $xw = $xmax-$xmin + 2;
    
40.         my $yh = $ymax-$ymin + 2;
    
41.         $xmin -= 1;
    
42.         $ymin -= 1;
    
43. 
    
44.         $img->Crop(width=>$xw, height=>$yh, x=>$xmin, y=>$ymin);
    
45.         
    
46.         
    
47.         my $out = './cut/'.$num.'.bmp';
    
48.         $img->Write($out);
    
49. 
    
50.         $img = undef;
    
51. }

   2. 识别

1.     
   
2. use Imager;
   
3. 
   
4. use Image::Seek qw(loaddb add_image query_id savedb remove_id);
   
5. 
   
6. loaddb("imgdata.db");
   
7. 
   
8. for my $num (0..3){
   
9. my $img = Imager->new();
   
10. my $file = './cut/'.$num.'.bmp'; 
    
11. 
    
12. $img->open(file => $file);
    
13. 
    
14. add_image($img,10);
    
15. savedb("imgdata.db");
    
16. 
    
17. my @results = query_id(10); # What looks like this photo?
    
18. remove_id(10); # Just remove id from database.
    
19. 
    
20.         print $results[1]->[0];
    
21. }