易语言生成验证码和验证图片

yuliuping · 发表于 2010-10-3 07:38:58

本帖最后由 yuliuping 于 2010-10-3 08:58 编辑

易语言生成验证码和验证图片

重点的是没有用模块..

不说那么多.

可以加在你软件的登录或者注册窗口.或者重要的操作之前要输入验证码.
这生成的验证码.支持 1=数字 2=字母 3=1+2混合型 4=中文
现在我把字母改成了全是大写字母.
如果要大小写都有就去  取验证码的子程序那里改一下
改成下面的.  自己去发现改了哪里. {:3_236:}
[e]
.版本 2
.子程序取验证码, 文本型, 公开
.参数位数, 整数型, , 验证码个数
.参数类型, 整数型, , 1=数字 2=字母 3=1+2混合型 4=中文
.局部变量局_验证码, 文本型
.局部变量局_in, 整数型
置随机数种子 ()
.计次循环首 (位数, )
.判断开始 (类型＝ 1)
      局_验证码＝局_验证码＋取一个数字 ()
.判断 (类型＝ 2)
      局_in ＝取随机数 (1, 2)
      .判断开始 (局_in ＝ 1)
         局_验证码＝局_验证码＋取一个小写字母 ()
         '局_验证码＝局_验证码＋取一个大写字母 ()
      .默认
         局_验证码＝局_验证码＋取一个大写字母 ()
      .判断结束
.判断 (类型＝ 3)
      局_in ＝取随机数 (1, 3)
      .判断开始 (局_in ＝ 1)
         局_验证码＝局_验证码＋取一个数字 ()
      .判断 (局_in ＝ 2)
         局_验证码＝局_验证码＋取一个小写字母 ()
         '局_验证码＝局_验证码＋取一个大写字母 ()
      .默认
         局_验证码＝局_验证码＋取一个大写字母 ()
      .判断结束
.默认
      局_验证码＝局_验证码＋取一个中文 ()
.判断结束
.计次循环尾 ()
返回 (局_验证码)
[/e]

源码:

验证码.rar (48.61 KB, 下载次数: 723)