网站 › 『编程语言区』 › 第十一天CM的注册机

zapline 发表于 2009-2-7 02:22

第十一天CM的注册机

.版本 2

.子程序 _按钮1_被单击
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 name, 文本型
.局部变量 pass, 文本型
.局部变量 long, 整数型
.局部变量 a, 文本型
.局部变量 n, 整数型
.局部变量 x, 整数型

文本1 ＝ “A1LSK2DJF4HGP3QWO5EIR6UTYZ8MXN7CBV9”
文本2 ＝ “SU7CSJKF09NCSDO9SDF09SDRLVK7809S4NF”
name ＝ 编辑框1.内容
pass ＝ “”
long ＝ 取文本长度 (name)
.变量循环首 (1, long, 1, n)
    a ＝ 取文本中间 (name, n, 1)
    .变量循环首 (1, 35, 1, x)
      .如果真 (a ＝ 取文本中间 (文本1, x, 1))
            pass ＝ pass ＋ 取文本中间 (文本2, x, 1)
            跳出循环 ()
      .如果真结束
    .变量循环尾 ()
.变量循环尾 ()
信息框 (“pass在编辑框中”, 0, )
编辑框1.内容 ＝ pass
没有做任何判断（包括长度，大小写兼容 等等）

[ 本帖最后由 zapline 于 2009-2-7 02:24 编辑 ]

tianxj 发表于 2009-2-8 00:26

好强啊:lol 膜拜啊

zaffir 发表于 2009-2-8 16:59

cm是啥玩意？

yuxinfei 发表于 2011-3-27 15:54

好强啊 膜拜啊{:1_908:}

查看完整版本: 第十一天CM的注册机