[Comm] пакет(модуль) графического кода

Ср Янв 23 09:56:51 MSK 2008

Aleksander N.Gorohovski пишет:
> On Mon, 21 Jan 2008 12:14:15 +0200, Konstantin. A. Bylym wrote:
> 
>> Aleksander N.Gorohovski пишет:
>>
>>> Ну, а у вас получилось сотворить?
>>> или это теория.
>>> :)
>> Да ) Если потерпите до завтра, то принесу и отправлю (скрипт дома)
> Конечно.
> Спасибо. Интересно было бы посмотреть.
Сперва извинения. Позавчера у старшего сына и младшей дочки были ДР, так
что к компьютеру добраться не удалось.
Теперь --- обещанное:

$ cat ./captcha.php
<?php
$com = <<<END
convert -size 160x36 xc:transparent -mattecolor green -frame 2x2 -font
FreeSerif -pointsize 30 -fill navy\\
END;
$x = 2;
$nam = '';
srand(time());
for( $i = 0; $i < 6; $i++)
{
  $y = 30 + (rand()%6);
  $p = "";

  switch(rand(1,3))
  {
    case 1: $p = chr(rand(48,57));  break; //0-9
        case 2: $p = chr(rand(65,90));  break; //A-Z
        case 3: $p = chr(rand(97,122)); break; //a-z
  }
  $nam .= $p;
  $com .= "               -draw \"text $x,$y '$p'\"";
  $x += 22;
}
$pnam = md5($nam);
$com .= " tmp/tmp.png\n";
system($com);
system("convert -swirl 30 tmp/tmp.png tmp/".$pnam.".png");
//system("convert -wave 2x25 tmp/tmp.png tmp/".$pnam.".png");
?>
<html>
<head></head>
<body>
<p><img src="tmp/<?php print $pnam ?>.png">
</body>
</html>

За качество кода прошу извинить. Да и писалось оно практически на спор ;)

-- 
Если вы находите ошибки, исправить которые дело долгое и нудное, ничего не
делайте - просто внесите их в список особенностей.
--
wbr, Константин Былым