用perl實(shí)現(xiàn) 圖片認(rèn)證碼識(shí)別

hitsubunnu

程序說(shuō)明

需要使用了兩個(gè)庫(kù)  1. Image::Magick 用來(lái)進(jìn)行圖片處理  2. imgseek 進(jìn)行圖片比較 求出相似度


程序因?yàn)槭褂玫?imgseek 所以只能在*nix下運(yùn)行


程序設(shè)計(jì)時(shí) 分兩個(gè)部分 1.建里特征圖片庫(kù)  2. 用隨即圖片與特征圖片庫(kù)進(jìn)行比較 求出相似度最高的值

這個(gè)程序僅僅是為了供大家研究參考    # 為了不惹麻煩 把測(cè)試網(wǎng)站刪除了  

一. 建立特征圖片庫(kù)

1. 下載 包含 0到9 共10個(gè)數(shù)字的圖片
  
    我這里是 手工下載了10張第一個(gè)數(shù)字不同的圖片

2. 對(duì)圖片進(jìn)行處理

    轉(zhuǎn)換成灰度圖 -> 2值化（我這里設(shè)定的闕值是20300）-> 把第一個(gè)數(shù)字切割下來(lái)

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值化  闕值需要自己手工調(diào)整
    
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;
    

復(fù)制代碼

  3. 提取出僅含有數(shù)字的區(qū)域 （即去掉四周的空白）

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;
    

復(fù)制代碼

   
  4.存入到 圖片庫(kù)里

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. }
    
19. 
    

復(fù)制代碼

二 隨即認(rèn)證碼 圖片識(shí)別

  1.隨機(jī)圖片下載加工

1.    
   
2. use List::Util qw(max min);
   
3. 
   
4. use Image::Magick;
   
5. use LWP::Simple;
   
6. 
   
7. my $url = '****';  # 為了不惹麻煩 把測(cè)試網(wǎng)站刪除了
   
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. }
    
52. 
    

復(fù)制代碼

   2. 識(shí)別

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. }
    
22. 
    

復(fù)制代碼

[ 本帖最后由 hitsubunnu 于 2009-2-3 17:27 編輯 ]

ynchnluiti

謝謝共享

cobrawgl

3qu

chenzq1604

非常不錯(cuò)，正需要著呢，謝謝了

iakuf

發(fā)現(xiàn)根本沒(méi)有 GetPixel 這個(gè)函數(shù)

li_000828

學(xué)習(xí)了�。。�

x9x9

記得以前在一個(gè)博客里看過(guò)這篇文章，在windows上沒(méi)做成功~

longbow0

謝謝分享，學(xué)習(xí)中

hitsubunnu

發(fā)現(xiàn)根本沒(méi)有 GetPixel 這個(gè)函數(shù)
iakuf 發(fā)表于 2010-11-26 13:33

檢查你的 Image::Magick 是否安裝正確

hitsubunnu

回復(fù) 7# x9x9

我寫(xiě)的很清楚 imgseek 不支持 win