设为首页
收藏本站
用户名
Email
自动登录
找回密码
密码
登录
注册
快捷导航
平台
Portal
论坛
BBS
文库
项目
群组
Group
我的博客
Space
搜索
搜索
热搜:
shell
linux
mysql
本版
用户
LinuxSir.cn,穿越时空的Linuxsir!
»
论坛
›
编程开发讨论区 —— LinuxSir.cn
›
Perl | PHP | Python 脚本程序开发
›
用cgi写的登录检验码的问题
返回列表
查看:
1086
|
回复:
3
用cgi写的登录检验码的问题
[复制链接]
lhmwzy
lhmwzy
当前离线
积分
139
IP卡
狗仔卡
发表于 2004-1-11 19:32:46
|
显示全部楼层
|
阅读模式
如何加上干扰像素,如图所示的一样?
本帖子中包含更多资源
您需要
登录
才可以下载或查看,没有帐号?
注册
x
回复
使用道具
举报
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
georgek
georgek
当前离线
积分
2430
IP卡
狗仔卡
发表于 2004-1-11 19:59:48
|
显示全部楼层
imagemagick 有個AddNoise 的功能, 這個合用嗎?
http://www.imagemagick.org/www/perl.html#mani
回复
支持
反对
使用道具
举报
显身卡
lhmwzy
lhmwzy
当前离线
积分
139
IP卡
狗仔卡
楼主
|
发表于 2004-1-11 20:30:12
|
显示全部楼层
具体的说是用$image->Set('pixel[x,y]'=>'000099')这样的函数,使用一个循环,其中x,y分别为图像的宽和高,后面为(255,255,255)随机取一个颜色的数值。
可是我对perl编程不熟,不知道怎样实现。
回复
支持
反对
使用道具
举报
显身卡
home
home
当前离线
积分
1150
IP卡
狗仔卡
发表于 2004-1-11 22:27:20
|
显示全部楼层
随机数这样:
先用srand;种下种子NEXT。。。
srand;
$a=int(rand(2));
print " $a ";
int指输出是int形,要是没有int结果就是浮点数。
回复
支持
反对
使用道具
举报
显身卡
返回列表
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
注册
本版积分规则
发表回复
回帖后跳转到最后一页
Copyright © 2002-2023
LinuxSir.cn
(http://www.linuxsir.cn/) 版权所有 All Rights Reserved.
Powered by
RedflagLinux!
技术支持:
中科红旗
|
京ICP备19024520号
快速回复
返回顶部
返回列表