.版本 2
.支持库 EThread
.支持库 mysql
.子程序 _登陆服务器_数据到达
.如果 (允许登录 ＝ 真)
登陆取回客户地址 ＝ 登陆服务器.取回客户 ()
登陆信息 ＝ 到文本 (登陆服务器.取回数据 ())
启动线程 (&_验证登陆, , )
.否则
登陆服务器.发送数据 (登陆服务器.取回客户 (), 鸟加密3 (“xx|服务器拒绝登录”, “gg11872aa”), )
日志框.加入文本 (到文本 (取现行时间 ()) ＋ “ ” ＋ “用户登录被拒绝” ＋ #换行符)
.如果结束
.子程序 _验证登陆
.局部变量 登陆数据, 文本型
.局部变量 分割数组, 文本型, , "0"
.局部变量 登陆客户, 文本型
.局部变量 分割账户, 文本型
.局部变量 分割密码, 文本型
.局部变量 记录句柄, 整数型
.局部变量 读出类容, 文本型
.局部变量 读出账号, 文本型
.局部变量 读出密码, 文本型
.局部变量 ID制作, 文本型
登陆数据 ＝ 鸟解密3 (登陆信息, “gg11872aa”)
输出调试文本 (登陆数据)
登陆客户 ＝ 登陆取回客户地址
分割数组 ＝ 分割文本 (登陆数据, “|”, )
分割账户 ＝ 分割数组 [1]
.如果 (取数组成员数 (分割数组) ≠ 2)
登陆服务器.发送数据 (登陆取回客户地址, 鸟加密3 (“xx|用户或密码不正确！”, “gg11872aa”), )
.否则
分割密码 ＝ 鸟加密3 (分割数组 [2], “gg11872aa”)
记录句柄 ＝ 查找记录 (数据库连接句柄, “yonghu”, “yonghu,mima”, “yonghu='” ＋ 分割账户 ＋ “' and mima='” ＋ 分割密码 ＋ “'”, “yonghu ASC”)
读字段值 (记录句柄, “yonghu”, 读出账号)
读字段值 (记录句柄, “mima”, 读出密码)
输出调试文本 (读出账号)
输出调试文本 (读出密码)
输出调试文本 (分割密码)
.如果 (读出账号 ＝ 分割账户 且 读出密码 ＝ 分割密码)
置随机数种子 (到整数 (到文本 (取分钟 (取现行时间 ()) ＋ 取秒 (取现行时间 ()))))
ID制作 ＝ 鸟解密3 (到文本 (取随机数 (2000, 3000)) ＋ 到文本 (取随机数 (1, 200)), “10086”)
登陆服务器.发送数据 (登陆取回客户地址, 鸟加密3 (“key|” ＋ ID制作, “gg11872aa”), )
更新记录 (数据库连接句柄, “yonghu”, “idkey='” ＋ ID制作 ＋ “'”, “yonghu='” ＋ 分割账户 ＋ “'”)
.否则
登陆服务器.发送数据 (登陆取回客户地址, 鸟加密3 (“xx|用户或密码不正确！”, “gg11872aa”), )
.如果结束
============华丽的分割线=============
我是菜鸟，这是以前做的，这只是验证登陆部分，用的是mysql数据库
加密、解密都是用别人的模块，不加密数据也行的....
附上一个登陆的代码...
===================================
.版本 2
.子程序 _登陆客户端_数据到达
.局部变量 服务器数据, 文本型
.局部变量 分割数据1, 文本型, , "0"
服务器数据 ＝ 鸟解密3 (到文本 (登陆客户端.取回数据 ()), “gg11872aa”)
分割数据1 ＝ 分割文本 (服务器数据, “|”, 2)
.判断开始 (分割数据1 [1] ＝ “key”)
IDkey ＝ 分割数据1 [2]
载入 (主窗口, , 假)
销毁 ()
.判断 (分割数据1 [1] ＝ “xx”)
信息框 (分割数据1 [2], #错误图标, “错误”)
.默认
信息框 (“登陆中接收到一个无法解析的数据”, #错误图标, “错误”)
追问方便给个QQ吗？传一份给我