Luka免数据库无模块网络验证 2017年10-30开源

q2326205010

保存用户信息充值卡信息全文本配置保存
把server编译之后放在服务器运行即可！  在server的运行文件夹打开卡密生成器 生成卡密  生成之后即可看到生成的卡密  然后注册一下试试吧
测试全无问题 无报错   软件退出之后  记得要写上  退出在线（）

Luka无模块免数据库网络验证.rar

q2326205010

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _服务器1_数据到达
   
5. .局部变量 数据, 文本型
   
6. .局部变量 包头, 文本型
   
7. .局部变量 分割, 文本型, , "0"
   
8. .局部变量 账号, 文本型
   
9. .局部变量 密码, 文本型
   
10. .局部变量 充值卡, 文本型
    
11. .局部变量 密保信息, 文本型
    
12. .局部变量 用户数量, 整数型
    
13. .局部变量 到期时间, 日期时间型
    
14. .局部变量 新密码, 文本型
    
15. .局部变量 充值次数, 整数型
    
16. .局部变量 天卡次数, 整数型
    
17. .局部变量 月卡次数, 整数型
    
18. .局部变量 年卡次数, 整数型
    
19. .局部变量 充值次数E, 整数型
    
20. .局部变量 周卡次数, 整数型
    
21. .局部变量 系统当前时间, 日期时间型
    
22. .局部变量 G, 整数型
    
23. .局部变量 绑定机器码, 文本型
    
24. .局部变量 扣时前的时间, 文本型
    
25. .局部变量 扣时处理, 日期时间型
    
26. .局部变量 间隔, 双精度小数型
    
27. 
    
28. 数据 ＝ 取字节集数据 (服务器1.取回数据 (), #文本型, )
    
29. 分割 ＝ 分割文本 (数据, “[]”, )
    
30. .判断开始 (分割 [1] ＝ “注册”)
    
31.     调试输出 (分割 [1])
    
32.     账号 ＝ 分割 [2]
    
33.     密码 ＝ 分割 [3]
    
34.     充值卡 ＝ 分割 [4]
    
35.     密保信息 ＝ 分割 [5]
    
36.     .判断开始 (账号是否存在 (账号) ＝ 假)
    
37.         调试输出 (“账号不存在 允许注册”)
    
38.         .判断开始 (充值卡是否存在 (充值卡) ＝ 真)
    
39.             用户数量 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\用户数量.txt”, “user”, “用户数量”, ))
    
40.             用户数量 ＝ 用户数量 ＋ 1
    
41.             写配置项 (取运行目录 () ＋ “\用户数量.txt”, “user”, “用户数量”, 到文本 (用户数量))
    
42.             写配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, 到文本 (用户数量))
    
43.             写配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码1”, 充值卡)
    
44.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “账号”, 账号)
    
45.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “密码”, 密码)
    
46.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “密保信息”, 密保信息)
    
47.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “注册时间”, 到文本 (取现行时间 ()))
    
48.             写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “状态”, “已使用”)
    
49.             写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用日期”, 到文本 (取现行时间 ()))
    
50.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “绑定机器码”, 分割 [6])
    
51.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “不在线”)
    
52.             .判断开始 (取文本左边 (充值卡, 2) ＝ “TK”)
    
53.                 到期时间 ＝ 增减时间 (取现行时间 (), 5, 1)
    
54.                 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间))
    
55.             .默认
    
56. 
    
57.             .判断结束
    
58.             .判断开始 (取文本左边 (充值卡, 2) ＝ “ZK”)
    
59.                 到期时间 ＝ 增减时间 (取现行时间 (), 4, 1)
    
60.                 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间))
    
61.             .默认
    
62. 
    
63.             .判断结束
    
64.             .判断开始 (取文本左边 (充值卡, 2) ＝ “YK”)
    
65.                 到期时间 ＝ 增减时间 (取现行时间 (), 3, 1)
    
66.                 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间))
    
67.             .默认
    
68. 
    
69.             .判断结束
    
70.             .判断开始 (取文本左边 (充值卡, 2) ＝ “NK”)
    
71.                 到期时间 ＝ 增减时间 (取现行时间 (), 1, 1)
    
72.                 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间))
    
73.             .默认
    
74. 
    
75.             .判断结束
    
76. 
    
77.             返回信息 (3)
    
78.         .默认
    
79.             返回信息 (5)
    
80.         .判断结束
    
81. 
    
82.     .默认
    
83.         返回信息 (4)
    
84.     .判断结束
    
85. 
    
86. .默认
    
87. 
    
88. .判断结束
    
89. .判断开始 (分割 [1] ＝ “登录”)
    
90.     账号 ＝ 分割 [2]
    
91.     密码 ＝ 分割 [3]
    
92.     绑定机器码 ＝ 分割 [4]
    
93.     版本 ＝ 分割 [5]
    
94.     .判断开始 (密码是否正确 (账号, 密码) ＝ 真)
    
95.         .判断开始 (绑定验证 (账号, 绑定机器码) ＝ 真)
    
96. 
    
97.             .判断开始 (读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “软件维护”, ) ＝ “1”)
    
98.                 返回信息 (15)
    
99.             .默认
    
100. 
     
101.                 .判断开始 (读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “服务器版本”, ) ＝ 版本)
     
102.                     .判断开始 (读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, ) ＝ “不在线”)
     
103.                         ' 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “在线”)
     
104.                         ' 返回信息 (1)
     
105.                         间隔 ＝ 取时间间隔 (到时间 (读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, )), 取现行时间 (), #秒)
     
106.                         .判断开始 (间隔 ≥ 0)
     
107.                             返回信息 (1)
     
108.                             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “在线”)
     
109.                         .默认
     
110.                             返回信息 (6)
     
111.                         .判断结束
     
112. 
     
113.                     .默认
     
114.                         返回信息 (17)
     
115.                     .判断结束
     
116. 
     
117.                 .默认
     
118.                     返回信息 (16)
     
119.                 .判断结束
     
120. 
     
121.             .判断结束
     
122. 
     
123.         .默认
     
124.             返回信息 (12)
     
125.         .判断结束
     
126. 
     
127.     .默认
     
128.         返回信息 (2)
     
129.     .判断结束
     
130. 
     
131. .默认
     
132. 
     
133. .判断结束
     
134. .判断开始 (分割 [1] ＝ “充值”)
     
135.     账号 ＝ 分割 [2]
     
136.     充值卡 ＝ 分割 [3]
     
137.     .判断开始 (账号是否存在 (账号) ＝ 真)
     
138.         .判断开始 (充值卡是否存在 (充值卡) ＝ 真)
     
139.             充值前的时间 ＝ 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, )
     
140.             充值前的时间 ＝ 读配置项 (取运行目录 () ＋ “\用户信息.txt”, 充值前的时间, “注册时间”, )
     
141.             .计次循环首 (100, G)
     
142.                 .判断开始 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (G), ) ＝ “”)
     
143.                     写配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (G), 充值卡)
     
144.                     写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “状态”, “已使用”)
     
145.                     写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用人”, 账号)
     
146.                     写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用日期”, 到文本 (取现行时间 ()))
     
147.                     跳出循环 ()
     
148.                 .默认
     
149. 
     
150.                 .判断结束
     
151. 
     
152.             .计次循环尾 ()
     
153.             .计次循环首 (100, 充值次数E)
     
154.                 .判断开始 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ) ＝ “”)
     
155.                     跳出循环 ()
     
156.                 .默认
     
157.                     .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “TK”)
     
158.                         天卡次数 ＝ 天卡次数 ＋ 1
     
159.                     .默认
     
160. 
     
161.                     .判断结束
     
162.                     .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “ZK”)
     
163.                         周卡次数 ＝ 周卡次数 ＋ 1
     
164.                     .默认
     
165. 
     
166.                     .判断结束
     
167.                     .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “YK”)
     
168.                         月卡次数 ＝ 月卡次数 ＋ 1
     
169.                     .默认
     
170. 
     
171.                     .判断结束
     
172.                     .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “NK”)
     
173.                         年卡次数 ＝ 年卡次数 ＋ 1
     
174.                     .默认
     
175. 
     
176.                     .判断结束
     
177. 
     
178.                 .判断结束
     
179. 
     
180.             .计次循环尾 ()
     
181.             充值次数 ＝ 充值次数E － 1
     
182.             总天数 ＝ 天卡次数 × 1
     
183.             总天数 ＝ 总天数 ＋ 周卡次数 × 7
     
184.             总天数 ＝ 总天数 ＋ 月卡次数 × 30
     
185.             总天数 ＝ 总天数 ＋ 年卡次数 × 365
     
186.             ' 调试输出 (“充值总天数：” ＋ 到文本 (总天数))
     
187.             时间 ＝ 到时间 (读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “注册时间”, ))
     
188.             ' 调试输出 (“注册时间 ” ＋ 到文本 (时间))
     
189.             ' 调试输出 (“充值后时间：  ” ＋ 到文本 (增减时间 (时间, 5, 总天数)))
     
190.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, 到文本 (增减时间 (时间, 5, 总天数)))
     
191.             返回信息 (9)
     
192.         .默认
     
193.             返回信息 (10)
     
194.         .判断结束
     
195. 
     
196.     .默认
     
197.         返回信息 (10)
     
198.     .判断结束
     
199. 
     
200. .默认
     
201. 
     
202. .判断结束
     
203. .判断开始 (分割 [1] ＝ “修改密码”)
     
204.     账号 ＝ 分割 [2]
     
205.     密保信息 ＝ 分割 [3]
     
206.     新密码 ＝ 分割 [4]
     
207.     .判断开始 (密保是否正确 (账号, 密保信息) ＝ 真)
     
208.         写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “密码”, 新密码)
     
209.         返回信息 (8)
     
210.     .默认
     
211.         返回信息 (7)
     
212.     .判断结束
     
213. 
     
214. .默认
     
215. 
     
216. .判断结束
     
217. .判断开始 (分割 [1] ＝ “解绑”)
     
218.     账号 ＝ 分割 [2]
     
219.     密码 ＝ 分割 [3]
     
220.     绑定机器码 ＝ 分割 [4]
     
221.     .判断开始 (密码是否正确 (账号, 密码) ＝ 真)
     
222.         .判断开始 (绑定验证 (账号, 绑定机器码) ＝ 真)
     
223.             返回信息 (14)
     
224.         .默认
     
225.             写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “绑定机器码”, 绑定机器码)
     
226.             .判断开始 (读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “解绑扣时”, ) ＝ “0”)
     
227. 
     
228.             .默认
     
229. 
     
230.                 扣时前的时间 ＝ 读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, )
     
231.                 扣时处理 ＝ 增减时间 (到时间 (扣时前的时间), 6, 到整数 (“-” ＋ 读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “解绑扣时”, )))
     
232.                 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, 到文本 (扣时处理))
     
233.             .判断结束
     
234. 
     
235.             返回信息 (11)
     
236.         .判断结束
     
237. 
     
238.     .默认
     
239.         返回信息 (13)
     
240.     .判断结束
     
241. 
     
242. .默认
     
243. 
     
244. .判断结束
     
245. .判断开始 (分割 [1] ＝ “退出在线”)
     
246.     账号 ＝ 分割 [2]
     
247.     写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “不在线”)
     
248. .默认
     
249. 
     

复制代码

熊海帆

6666666666666666666666666666666

mood100

感谢修复BUG

mood100

安全么。收藏了

酷酷的我

感谢分享！

和你相约长城

感谢大神分享。

1431853291

666666666666666666

weihua2018

没有数据库你给我了服务器啊

weihua2018

怎么了 牛啊

YYK19

666666666666666666

打Xiao就挺坏