求易语言模仿游戏账号激活源代码
。支持图书馆电子线程
支持库mysql
子程序_登录服务器_数据到达
。If(允许登录=真)
登录以检索客户端地址=登录到服务器。检索客户端()
登录信息=到文本(登录服务器。检索数据())
启动线程(&；_验证登录，，)
否则。
登录到服务器。发送数据(登录到服务器。检索客户端()，波导加密3 ("XX |服务器拒绝登录"，" gg11872aa ")，)
日志框。添加文本(to text (take current time ())+""+"用户登录被拒绝"+#换行)
如果结束了
。子程序_验证登录
本地变量登录数据，文本类型
。局部变量分区数组，文本类型，“0”
。本地变量登录客户，文本类型。
。本地变量拆分帐户，文本类型
。本地变量分割密码，文本类型。
。局部变量记录句柄，整数类型。
。局部变量阅读类容量，文本类型。
。局部变量读取帐户，文本类型。
。本地变量读取密码，文本类型。
本地变量ID产品，文本类型
登录数据=鸟解密3(登录信息，“gg11872aa”)
输出调试文本(登录数据)
登录客户=登录以检索客户地址。
拆分数组=拆分文本(登录数据，" | "，)
拆分账户=拆分数组[1]
。If(取数组成员数(除数组)≠ 2)
登录到服务器。发送数据(登录检索客户地址，bird加密3 ("XX |用户或密码不正确！")，“gg11872aa”)，)
否则。
拆分密码= bird加密3(拆分数组[2]，“GG 11872 AA”)
记录句柄=搜索记录(数据库连接句柄，“胡勇”，“胡勇，米玛”，“胡勇= '“+拆分账户+”和米玛= '“+拆分密码+”'，“yonghusc”)。
读取字段值(记录句柄，“胡勇”，读取账号)
读取字段值(记录句柄，“mima”，读取密码)
输出调试文本(读取账号)
输出调试文本(读取密码)
输出调试文本(分割密码)
。If(读取帐户=拆分帐户，读取密码=拆分密码)
设置随机数种子(为整数(为文本(取分钟(取当前时间())+取秒(取当前时间())))
ID制作=鸟解密3 (to text(随机数(2000，3000))+to text(随机数(1，200))，“10086”)
登录到服务器。发送数据(登录检索客户地址，bird encryption 3(" key | "+ID making，" gg11872aa "))
更新记录(数据库连接句柄，“胡勇”，“idkey =“”+id making+“”，“胡勇=“”+拆分帐户+“”)
否则。
登录到服务器。发送数据(登录检索客户地址，bird加密3 ("XX |用户或密码不正确！")，“gg11872aa”)，)
如果结束了
= = = = = = = = =华丽的分割线= = = = = = = = = = = =
我是菜鸟，这是我之前做的，这只是验证登录部分，使用mysql数据库。
加密解密都是用别人的模块，数据不加密也能加密。....
附上登录代码。...
===================================
版本2
。子程序_登录客户端_数据到达
。本地变量服务器数据，文本类型
。局部变量分段数据1，文本类型，" 0 "
服务器数据= Bird解密3(转文字(登录客户端。检索数据())，“gg11872aa”)
拆分数据1 =拆分文本(服务器数据，" | "，2)
。判断开始(分割数据1 [1] = "key ")
Idkey =分割数据1 [2]
加载(主窗口，假)
销毁()
。判断(分割数据1 [1] = "xx ")
信息框(分区数据1 [2]，#错误图标，“错误”)
。默认
信息框(“无法解析登录期间收到的数据”，#错误图标，“错误”)