易语言怎样实现验证码随机生成?
1、我想,既然易语言能取随机数,那么就请<随机数+字母>出马吧!
先创建一个子程序名称为“验证码_随机生成”返回值类型为“文本型”
新建2个变量,“验证码_整数型”与“验证码_合成型”各是整数型与文本型!
2、由于我是正在制作集合模块,所以有些格式不能通用,请大家谅解吧。
好了废话不多说,先写代码!!
3、我们先添加一个常量,如图看。
代码(复制即可):
.版本 2
.常量 随机字母, "<文本长度: 26>"
4、我们先写取随机大小写字母的代码,代码图片如下!
代码(复制即可):
.版本 2
.子程序 取随机大小写字母, 文本型
.参数 欲取出个数, 整数型, , 欲随机取出字母个数
.参数 字母大小写, 逻辑型, 可空, 真=大写 假=小写 留空=随机大小写
.局部变量 临时文本, 文本型
.局部变量 随机数, 整数型
置随机数种子 ()
.如果 (是否为空 (字母大小写) = 假)
.计次循环首 (欲取出个数, )
随机数 = 取随机数 (1, 26)
临时文本 = 临时文本 + 选择 (字母大小写 = 真, 到大写 (取文本中间 (#随机字母, 随机数, 1)), 到小写 (取文本中间 (#随机字母, 随机数, 1)))
.计次循环尾 ()
.否则
.计次循环首 (欲取出个数, )
随机数 = 取随机数 (1, 26)
临时文本 = 临时文本 + 选择 (随机数 % 2 = 1, 到大写 (取文本中间 (#随机字母, 随机数, 1)), 到小写 (取文本中间 (#随机字母, 随机数, 1)))
.计次循环尾 ()
.如果结束
返回 (临时文本)
5、写完取随机大小写字母的代码后我们就要开始写取随机数的代码。大家应该都知道吧,但是还是有些菜鸟不会,我还是写出来吧,恳请大神不要喷!
6、写完随机数代码我们就结合起来下,我们就开始写组合代码!如图看组合代码!!
代码(复制即可):
.版本 2
验证码_整数型 = 取随机数 (0, 9) + 取随机数 (0, 9)
验证码_合成型 = 到整数 (验证码_整数型) + 取随机大小写字母 (取随机数 (1, 3), ) + 到整数 (验证码_整数型)
返回 (验证码_合成型)
7、好了,我们代码都编写好了。我在把全部代码都写在下面,大家不懂的关注我,请求我吧!
全部代码:
一、随机字母代码(复制即可)
.版本 2
.子程序 取随机大小写字母, 文本型
.参数 欲取出个数, 整数型, , 欲随机取出字母个数
.参数 字母大小写, 逻辑型, 可空, 真=大写 假=小写 留空=随机大小写
.局部变量 临时文本, 文本型
.局部变量 随机数, 整数型
置随机数种子 ()
.如果 (是否为空 (字母大小写) = 假)
.计次循环首 (欲取出个数, )
随机数 = 取随机数 (1, 26)
临时文本 = 临时文本 + 选择 (字母大小写 = 真, 到大写 (取文本中间 (#随机字母, 随机数, 1)), 到小写 (取文本中间 (#随机字母, 随机数, 1)))
.计次循环尾 ()
.否则
.计次循环首 (欲取出个数, )
随机数 = 取随机数 (1, 26)
临时文本 = 临时文本 + 选择 (随机数 % 2 = 1, 到大写 (取文本中间 (#随机字母, 随机数, 1)), 到小写 (取文本中间 (#随机字母, 随机数, 1)))
.计次循环尾 ()
.如果结束
返回 (临时文本)
二、变量代码(复制即可)
.版本 2
.常量 随机字母, "<文本长度: 26>"
三、全部组合代码:
.版本 2
.子程序 验证码_随机生成, 文本型, 公开
.局部变量 验证码_整数型, 整数型
.局部变量 验证码_合成型, 文本型
验证码_整数型 = 取随机数 (0, 9) + 取随机数 (0, 9)
验证码_合成型 = 到整数 (验证码_整数型) + 取随机大小写字母 (取随机数 (1, 3), ) + 到整数 (验证码_整数型)
返回 (验证码_合成型)