易语言写的软件怎样加验证码

.版本 2

.子程序 生成验证码, 文本型, , 在指定画板上画出验证码并返回验证码
.参数 画板, 画板, , 要画验证码的画板
.参数 长度, 整数型, , 验证码的长度
.参数 类型, 整数型, 可空, 验证码的类型，1是数字，2是字母，3是数字+字母，其他是随机选择
.局部变量 验证码, 文本型
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 横, 整数型
.局部变量 随机数字, 文本型
.局部变量 随机字母, 文本型
.局部变量 随机数字加字母, 文本型

.如果真 (长度 ＞ 0)
画板.清除 (, , , )
画板.字体.字体大小 ＝ 取随机数 (20, 23)
置随机数种子 ()
.计次循环首 (长度, )
随机数字 ＝ 随机数字 ＋ 到文本 (取随机数 (0, 9))
.计次循环尾 ()
.计次循环首 (长度, )
随机字母 ＝ 随机字母 ＋ 选择 (取随机数 (1, 2) ＝ 1, 到大写 (字符 (取随机数 (97, 122))), 字符 (取随机数 (97, 122)))
.计次循环尾 ()
.计次循环首 (长度, )
随机数字加字母 ＝ 随机数字加字母 ＋ 选择 (取随机数 (1, 2) ＝ 1, 取文本中间 (随机数字, 取随机数 (1, 长度), 1), 取文本中间 (随机字母, 取随机数 (1, 长度), 1))
.计次循环尾 ()
验证码 ＝ 多项选择 (选择 (类型 ＞ 0 且 类型 ＜ 4, 类型, 取随机数 (1, 3)), 随机数字, 随机字母, 随机数字加字母)
.如果真结束
.计次循环首 (画板.宽度, 计次)
.如果真 (取随机数 (1, 3) ＝ 1)
.计次循环首 (画板.高度, 计次2)
.如果真