用cgi写的登录检验码的问题

lhmwzy

如何加上干扰像素，如图所示的一样？

georgek

imagemagick 有個AddNoise 的功能, 這個合用嗎?
http://www.imagemagick.org/www/perl.html#mani

lhmwzy

具体的说是用$image->Set('pixel[x,y]'=>'000099')这样的函数，使用一个循环，其中x,y分别为图像的宽和高，后面为（255，255，255）随机取一个颜色的数值。

可是我对perl编程不熟，不知道怎样实现。

home

随机数这样：
先用srand;种下种子NEXT。。。

srand;
$a=int(rand(2));
print " $a ";

int指输出是int形，要是没有int结果就是浮点数。