原创网络验证开源

q2326205010

会持续更新出  代理端  第三方制卡器  第三方控制端 卡密备注 等待
特点：纯源码 无资源文件 无调用函数 代码整洁易懂
已备注所有代码 全基础代码编程 开源不为别的 只为学习！

下载点我： Luka网络验证.rar (19.06 KB, 下载次数: 711)

2017-10-31 09:47 上传

点击文件名下载附件
下载积分: 精币 -2 枚

服务端处理代码如下：

1. .版本 2
   
2. 
   
3. .子程序 _服务器1_数据到达
   
4. .局部变量 数据, 文本型
   
5. .局部变量 包头, 文本型
   
6. .局部变量 分割, 文本型, , "0"
   
7. .局部变量 账号, 文本型
   
8. .局部变量 密码, 文本型
   
9. .局部变量 充值卡, 文本型
   
10. .局部变量 密保信息, 文本型
    
11. .局部变量 用户数量, 整数型
    
12. .局部变量 到期时间, 日期时间型
    
13. .局部变量 新密码, 文本型
    
14. .局部变量 充值次数, 整数型
    
15. .局部变量 天卡次数, 整数型
    
16. .局部变量 月卡次数, 整数型
    
17. .局部变量 年卡次数, 整数型
    
18. .局部变量 充值次数E, 整数型
    
19. .局部变量 周卡次数, 整数型
    
20. .局部变量 系统当前时间, 日期时间型
    
21. .局部变量 G, 整数型
    
22. .局部变量 绑定机器码, 文本型
    
23. .局部变量 扣时前的时间, 文本型
    
24. .局部变量 扣时处理, 日期时间型
    
25. .局部变量 间隔, 双精度小数型
    
26. 
    
27. 数据 ＝ 取字节集数据 (服务器1.取回数据 (), #文本型, ) ' 收到客户发来的数据请求
    
28. 分割 ＝ 分割文本 (数据, “[]”, ) ' 分割客户发来的数据请求
    
29. .判断开始 (分割 [1] ＝ “注册”) ' 判断分割1=注册
    
30. 账号 ＝ 分割 [2]
    
31. 密码 ＝ 分割 [3]
    
32. 充值卡 ＝ 分割 [4]
    
33. 密保信息 ＝ 分割 [5]
    
34. .判断开始 (账号是否存在 (账号) ＝ 假)
    
35. ' 账号不存在 符合注册要求其一
    
36. .判断开始 (充值卡是否存在 (充值卡) ＝ 真)
    
37. ' 充值卡存在而且有效 符合注册要求
    
38. 用户数量 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\用户数量.txt”, “user”, “用户数量”, ))
    
39. 用户数量 ＝ 用户数量 ＋ 1
    
40. 写配置项 (取运行目录 () ＋ “\用户数量.txt”, “user”, “用户数量”, 到文本 (用户数量)) ' 用户数量=用户数量+1
    
41. 写配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, 到文本 (用户数量)) ' 保存配置记录用户信息 一共2个配置 一个是记录位置 一个是记录信息
    
42. 写配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码1”, 充值卡) ' 保存该账号注册时的激活码
    
43. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “账号”, 账号) ' 用户数量为用户的ID 非用户名 读取用户信息时 读取配置项（用户信息.txt，到文本（用户数量），账号）
    
44. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “密码”, 密码) ' 保存用户密码
    
45. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “密保信息”, 密保信息) ' 保存密保信息
    
46. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “注册时间”, 到文本 (取现行时间 ())) ' 记录注册时间
    
47. 写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “状态”, “已使用”) ' 销毁充值卡 充值卡的记录方式也是和用户信息一样的 充值卡位置.txt保存充值卡序列 充值卡.txt 保存充值卡信息
    
48. 写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用日期”, 到文本 (取现行时间 ())) ' 记录充值卡被使用的日期
    
49. 写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用人”, 账号) ' 记录充值卡的使用人
    
50. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “绑定机器码”, 分割 [6]) ' 记录注册时的机器码
    
51. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “不在线”) ' 写入状态 不在线
    
52. ' 用户.txt的配置内容 用户信息.txt的配置内容 充值卡的配置也是同理
    
53. ' [a123456] 这里为账号 ←读取到的账号位置 [位置]
    
54. ' 位置=1 账号=a123456
    
55. ' 　 密码=a123456
    
56. ' 　 密保信息=123
    
57. ' 　 注册日期=2017年10月31日9点28分53秒
    
58. ' 　 到期时间=注册时间+注册时使用的充值卡的时间
    
59. 
    
60. .判断开始 (取文本左边 (充值卡, 2) ＝ “TK”)
    
61. 到期时间 ＝ 增减时间 (取现行时间 (), 5, 1) ' 到期时间= 加时间 单位：天 加一天
    
62. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间)) ' 判断充值卡数据的前2位 是否=TK 那么这张充值卡的标识就是天卡 然后给客户写入到期时间
    
63. .默认
    
64. 
    
65. .判断结束
    
66. .判断开始 (取文本左边 (充值卡, 2) ＝ “ZK”)
    
67. 到期时间 ＝ 增减时间 (取现行时间 (), 4, 1) ' 到期时间= 加时间 单位：周 加一周
    
68. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间)) ' 判断充值卡数据的前2位 是否=ZK 那么这张充值卡的标识就是周卡 然后给客户写入到期时间
    
69. .默认
    
70. 
    
71. .判断结束
    
72. .判断开始 (取文本左边 (充值卡, 2) ＝ “YK”)
    
73. 到期时间 ＝ 增减时间 (取现行时间 (), 3, 1) ' 到期时间= 加时间 单位：月 加一月
    
74. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间)) ' 判断充值卡数据的前2位 是否=YK 那么这张充值卡的标识就是月卡 然后给客户写入到期时间
    
75. .默认
    
76. 
    
77. .判断结束
    
78. .判断开始 (取文本左边 (充值卡, 2) ＝ “NK”)
    
79. 到期时间 ＝ 增减时间 (取现行时间 (), 1, 1) ' 到期时间= 加时间 单位：年 加一年
    
80. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 到文本 (用户数量), “到期时间”, 到文本 (到期时间)) ' 判断充值卡数据的前2位 是否=NK 那么这张充值卡的标识就是年卡 然后给客户写入到期时间
    
81. .默认
    
82. 
    
83. .判断结束
    
84. 
    
85. 返回信息 (3) ' 给客户返回信息 注册成功
    
86. .默认
    
87. 返回信息 (5) ' 给客户返回信息 充值卡不存在或者已被使用
    
88. .判断结束
    
89. 
    
90. .默认
    
91. 返回信息 (4) ' 给客户返回信息 用户名已存在
    
92. .判断结束
    
93. 
    
94. .默认
    
95. 
    
96. .判断结束
    
97. .判断开始 (分割 [1] ＝ “登录”) ' 判断分割的数据组1是否=登录
    
98. 账号 ＝ 分割 [2]
    
99. 密码 ＝ 分割 [3]
    
100. 绑定机器码 ＝ 分割 [4]
     
101. 版本 ＝ 分割 [5]
     
102. .判断开始 (密码是否正确 (账号, 密码) ＝ 真) ' 判断用户发送过来的密码是否正确
     
103. .判断开始 (绑定验证 (账号, 绑定机器码) ＝ 真) ' 判断用户的机器码是否与服务器记录的一直
     
104. 
     
105. .判断开始 (读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “软件维护”, ) ＝ “1”) ' 判断服务器设置 软件维护是否=1
     
106. 返回信息 (15) ' 给客户返回信息 软件正在维护中 请等待更新
     
107. .默认
     
108. 
     
109. .判断开始 (读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “服务器版本”, ) ＝ 版本) ' 判断客户版本是否与服务器版本一致
     
110. .判断开始 (读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, ) ＝ “不在线”) ' 判断服务器记录这个账号是不是不在线 不在线的话可以登录
     
111. 间隔 ＝ 取时间间隔 (到时间 (读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, )), 取现行时间 (), #秒) ' 判断这个账号是否到期
     
112. .判断开始 (间隔 ≥ 0) ' 判断这个账号是否到期
     
113. 返回信息 (1) ' 给客户返回信息 登录成功
     
114. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “在线”) ' 服务器记录这个账号在线 就不能在登录咯
     
115. .默认
     
116. 返回信息 (6) ' 给客户返回信息 该账号已到期
     
117. .判断结束
     
118. 
     
119. .默认
     
120. 返回信息 (17) ' 给客户返回信息 该账号目前在线 无法登陆
     
121. .判断结束
     
122. 
     
123. .默认
     
124. 返回信息 (16) ' 给客户返回信息 软件已更新
     
125. .判断结束
     
126. 
     
127. .判断结束
     
128. 
     
129. .默认
     
130. 返回信息 (12) ' 给客户返回信息 机器码不一致 解绑
     
131. .判断结束
     
132. 
     
133. .默认
     
134. 返回信息 (2) ' 给客户返回信息 密码不正确
     
135. .判断结束
     
136. 
     
137. .默认
     
138. 
     
139. .判断结束
     
140. .判断开始 (分割 [1] ＝ “充值”) ' 分割客户发来的数据 判断数组1是否=充值
     
141. 账号 ＝ 分割 [2]
     
142. 充值卡 ＝ 分割 [3]
     
143. .判断开始 (账号是否存在 (账号) ＝ 真) ' 判断账号是否存在 存在返回真 不存在返回假
     
144. .判断开始 (充值卡是否存在 (充值卡) ＝ 真) ' 判断充值卡是否存在并且有效 有效返回真
     
145. 充值前的时间 ＝ 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, )
     
146. 充值前的时间 ＝ 读配置项 (取运行目录 () ＋ “\用户信息.txt”, 充值前的时间, “注册时间”, ) ' 取账号注册时间的时间
     
147. .计次循环首 (100, G) ' 取出这个账号使用了多少张充值卡
     
148. .判断开始 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (G), ) ＝ “”)
     
149. 写配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (G), 充值卡)
     
150. 写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “状态”, “已使用”) ' 销毁充值卡 避免重复使用
     
151. 写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用人”, 账号) ' 记录这个充值卡的使用人
     
152. 写配置项 (取运行目录 () ＋ “\充值卡.txt”, 读配置项 (取运行目录 () ＋ “\充值卡位置.txt”, 充值卡, “位置”, ), “使用日期”, 到文本 (取现行时间 ())) ' 记录这个充值卡的使用日期
     
153. 跳出循环 ()
     
154. ' 取出这个账号使用了多少张充值卡 如果使用了20张充值卡 那么里面记录的是 激活码20 然后我们在这里写 激活码21 就是新使用的充值卡
     
155. .默认
     
156. 
     
157. .判断结束
     
158. 
     
159. .计次循环尾 ()
     
160. 
     
161. .计次循环首 (100, 充值次数E)
     
162. .判断开始 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ) ＝ “”) ' 读取当前被使用的激活码是否有内容 如果没内容 那么就是已经读取完成
     
163. 跳出循环 ()
     
164. .默认
     
165. .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “TK”) ' 读取这个账号使用的所有天卡
     
166. 天卡次数 ＝ 天卡次数 ＋ 1
     
167. .默认
     
168. 
     
169. .判断结束
     
170. .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “ZK”) ' 读取这个账号使用的所有周卡
     
171. 周卡次数 ＝ 周卡次数 ＋ 1
     
172. .默认
     
173. 
     
174. .判断结束
     
175. .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “YK”) ' 读取这个账号使用的所有月卡
     
176. 月卡次数 ＝ 月卡次数 ＋ 1
     
177. .默认
     
178. 
     
179. .判断结束
     
180. .判断开始 (取文本左边 (读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “激活码” ＋ 到文本 (充值次数E), ), 2) ＝ “NK”) ' 读取这个账号使用的所有年卡
     
181. 年卡次数 ＝ 年卡次数 ＋ 1
     
182. .默认
     
183. 
     
184. .判断结束
     
185. 
     
186. .判断结束
     
187. 
     
188. .计次循环尾 ()
     
189. 
     
190. 
     
191. 充值次数 ＝ 充值次数E － 1
     
192. 总天数 ＝ 天卡次数 × 1 ' 一张天卡就是*1天
     
193. 总天数 ＝ 总天数 ＋ 周卡次数 × 7 ' 一张周卡就是X7天
     
194. 总天数 ＝ 总天数 ＋ 月卡次数 × 30 ' 一张月卡就是X30天
     
195. 总天数 ＝ 总天数 ＋ 年卡次数 × 365 ' 一张年卡就是X365天
     
196. ' 总天数就是读取到的这个账号充值的总天数
     
197. 时间 ＝ 到时间 (读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “注册时间”, )) ' 读取这个账号的注册时间
     
198. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, 到文本 (增减时间 (时间, 5, 总天数)))
     
199. ' 写入到期时间 注册时间 + 充值的总天数 =到期时间
     
200. 返回信息 (9) ' 给客户返回信息 充值成功
     
201. .默认
     
202. 返回信息 (10) ' 给客户返回信息 充值卡不存在或者已被使用
     
203. .判断结束
     
204. 
     
205. .默认
     
206. 返回信息 (19) ' 给客户返回信息 要充值的账号不存在
     
207. .判断结束
     
208. 
     
209. .默认
     
210. 
     
211. .判断结束
     
212. .判断开始 (分割 [1] ＝ “修改密码”) ' 客户发来修改密码请求
     
213. 账号 ＝ 分割 [2]
     
214. 密保信息 ＝ 分割 [3]
     
215. 新密码 ＝ 分割 [4]
     
216. .判断开始 (密保是否正确 (账号, 密保信息) ＝ 真) ' 判断客户发来的密保是否正确
     
217. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “密码”, 新密码) ' 密保正确 写入新密码
     
218. 返回信息 (8) ' 给客户返回数据 修改密码成功
     
219. .默认
     
220. 返回信息 (7) ' 给客户返回数据 修改密码失败 密保不正确
     
221. .判断结束
     
222. 
     
223. .默认
     
224. 
     
225. .判断结束
     
226. .判断开始 (分割 [1] ＝ “解绑”) ' 客户发来解绑请求
     
227. 账号 ＝ 分割 [2]
     
228. 密码 ＝ 分割 [3]
     
229. 绑定机器码 ＝ 分割 [4]
     
230. .判断开始 (密码是否正确 (账号, 密码) ＝ 真) ' 判断密码是否正确
     
231. .判断开始 (绑定验证 (账号, 绑定机器码) ＝ 真) ' 判断客户发来的机器码是否与服务器记录的机器码一致
     
232. 返回信息 (14) ' 如果一致 给客户返回信息 机器码无变动 无需解绑
     
233. .默认
     
234. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “绑定机器码”, 绑定机器码) ' 写入新的机器码
     
235. .判断开始 (读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “解绑扣时”, ) ＝ “0”) ' 判断服务器设置的解绑扣时是否=0 如果=0就是不扣时
     
236. 
     
237. .默认
     
238. 
     
239. 扣时前的时间 ＝ 读配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, ) ' 取扣时前的时间
     
240. 扣时处理 ＝ 增减时间 (到时间 (扣时前的时间), 6, 到整数 (“-” ＋ 读配置项 (取运行目录 () ＋ “\设置.txt”, “config”, “解绑扣时”, ))) ' 计算扣时后的时间 到期时间 - 扣时时间 = 新的到期时间
     
241. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “到期时间”, 到文本 (扣时处理)) ' 写入计算好的到期时间
     
242. .判断结束
     
243. 
     
244. 返回信息 (11) ' 给客户返回信息 解绑成功
     
245. .判断结束
     
246. 
     
247. .默认
     
248. 返回信息 (13) ' 给客户返回信息 密码不正确
     
249. .判断结束
     
250. 
     
251. .默认
     
252. 
     
253. .判断结束
     
254. .判断开始 (分割 [1] ＝ “退出在线”) ' 客户发来退出在线请求
     
255. 账号 ＝ 分割 [2]
     
256. 写配置项 (取运行目录 () ＋ “\用户信息.txt”, 读配置项 (取运行目录 () ＋ “\用户.txt”, 账号, “位置”, ), “在线状态”, “不在线”) ' 写入退出在线
     

复制代码

q2326205010

以后会继续更新服务端功能

q2326205010

这个是我5年前写的  不要用了  学习一下倒是可以    几年前我的技术太次了  现在回看 想扇自己

wer1030

你好，能给有偿写一个卡密程序对接一个文本吗，不知道方便不，方便的话加一下我QQ363704625

你来我深情不拥

6666666666666666666666666666

jiji123

感谢分享  谢谢

xiazong123

学习了，下来看看

yunyuhan

楼主 有没有新版本 麻烦发个链接

酷酷的我

感谢分享  

1317407749

支持开源~！感谢分享

感谢无阻大哥

支持开源~！感谢分享

jy862792

大佬6666666666