Распознавание капчи

[russian-stalker]

Доброго времени суток.
Я знаю, что тема уже изъезжена целиком и полностью, но вот я решил попробовать распознать капчу и у меня возникло несколько вопросов.
Насколько сильно нужно убирать шум? Например, какое из данных изображений будет легче всего разделить на цифры и потом распознать:
Оригинал
Более-менее лояльное уничтожение шума
Более сильное
Грубое уничтожение шума
Заранее благодарен.

[artemavd]

Думаю, что второй вариант.

[Ecosasha]

to russian-stalker
А распознавание как делаете: 1. по шаблону 2. нейоронные сети 3. векторное (скелетизация)?

Если по шаблону, то в целом, составляем процент совпавщих точек и так методом проб и ошибок выявляем какое изображение лучше.
Но все- таки думаю, можно еще как-то обработать данное изображение получше. Например, пройтись и удалить единичные, несвязаные точки.

[russian-stalker]

Сообщение от Ecosasha

to russian-stalker
А распознавание как делаете: 1. по шаблону 2. нейоронные сети 3. векторное (скелетизация)?

Если по шаблону, то в целом, составляем процент совпавщих точек и так методом проб и ошибок выявляем какое изображение лучше.
Но все- таки думаю, можно еще как-то обработать данное изображение получше. Например, пройтись и удалить единичные, несвязаные точки.

Пока планирую по шаблону.
Спасибо, а есть какие-нибудь статьи по этой теме?

[JTG]

Как-нибудь так

type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;

function ColorToRGB(Color: TColor): TRGB;
begin
  with Result do
  begin
    R := Lo(Color);
    G := Lo(Color shr 8);
    B := Lo((Color shr 8) shr 8);
  end;
end;

procedure Threshold(Bitmap: TBitmap; Value: Byte; Color1, Color2: TColor);
var x, y: Word;
    C1, C2: TRGB;
    Dest: pRGB;
begin
  Bitmap.PixelFormat := pf24Bit;
  C1 := ColorToRGB(Color1);
  C2 := ColorToRGB(Color2);
  for y := 0 to Bitmap.Height - 1 do
  begin
    Dest := Bitmap.ScanLine[y];
    for x := 0 to Bitmap.Width - 1 do
    begin
      if (Dest^.r + Dest^.g + Dest^.b) / 3 > Value then Dest^ := C1 else Dest^ := C2;
      Inc(Dest);
    end;
  end;
end;

procedure Smooth(Bitmap: TBitmap);
var x, y: Integer;
    p0, p1, p2: pByteArray;
begin
  Bitmap.PixelFormat := pf24bit;
  for y := 1 to Bitmap.Height - 2 do
  begin
    p0 := Bitmap.ScanLine[y-1];
    p1 := Bitmap.scanline[y];
    p2 := Bitmap.ScanLine[y+1];
    for x := 0 to Bitmap.Width - 1 do
    begin
      p1[x*3]   := (p0[x*3]   + p2[x*3]   + p1[(x-1)*3]   + p1[(x+1)*3]  ) shr 2;
      p1[x*3+1] := (p0[x*3+1] + p2[x*3+1] + p1[(x-1)*3+1] + p1[(x+1)*3+1]) shr 2;
      p1[x*3+2] := (p0[x*3+2] + p2[x*3+2] + p1[(x-1)*3+2] + p1[(x+1)*3+2]) shr 2;
    end;
  end;
end;

Smooth(Bitmap);
Smooth(Bitmap);
Threshold(Bitmap, 150, clWhite, clBlack);

[russian-stalker]

JTG
Спасибо. Первая функция почти совпала:

	function monochrome(&$img, $step)
	{
		$w = imagesx($img); 
		$h = imagesy($img); 
		for($x = 0; $x < $w; $x++) 
		{ 
			for($y = 0; $y < $h; $y++) 
			{ 	
				$rgb = imagecolorat($img, $x, $y); 
				$r = ($rgb >> 16) & 0xFF; 
				$g = ($rgb >> 8) & 0xFF; 
				$b = $rgb & 0xFF;  
				
				$c = 0;
				
				if (($r+$g+$b)/3>$step)
					$c = 255;
				$rgb = imagecolorallocate ($img, $c, $c, $c);
				imagesetpixel($img, $x, $y, $rgb);
			}
		}
	}

А вот за вторую - действительно спасибо

upd:
Поигрался с функциями, но максимум чего мне удалось добиться, так это:
вот.
Ну ладно, это можно будет ещё поэкспериментировать с константами, но вот теперь интересует: существует ли какой-нибудь алгоритм, по которому можно разбить изображение на буквы?

[Sparky]

не так давно в Хакере была статья с исходниками. если нужно поищу у себя и статью и исходники

[russian-stalker]

Сообщение от Sparky

не так давно в Хакере была статья с исходниками. если нужно поищу у себя и статью и исходники

Буду благодарен.

[MaTBeu]

Лучше всего будет делать векторно - скелетизацией. Повышаете контрастность - убираете бахрому (один-два пикселя рядом) и получаете нормальное изображение. Потом выделяете символы любым алгоритмом кластеризации. Если заранее известно количество символов на изображении - можно попробовать Метод k-внутригрупповых средних. Если неизвестно, построковое выделение. Ну или на крайний случай - ненаправленный волновой алгоритм (медленнее всего).

[Sparky]

вот ссылка на весь этот журнал http://www.xakep.ru/magazine/xa/135/xa_135.pdf
исходники которые были на диске прикрепила