第十一天CM的注册机

zapline

.版本 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

好强啊 膜拜啊

zaffir

cm是啥玩意？

yuxinfei

好强啊 膜拜啊