易语言零基础实战国内八大主流平台协议开发附带注册机开发解决协议封号问题

.版本 2
.子程序 _启动子程序
信息框 ("Hello 易语言!", 0, "提示")

.局部变量 年龄, 整数型
.局部变量 用户名, 文本型
.局部变量 是否成年, 逻辑型

.版本 2
.子程序 _启动注册, 整数型
.局部变量 注册网址, 文本型
.局部变量 注册信息, 文本型

注册网址 = "https://api.example.com/register"
注册信息 = "username=testuser&password=123456&email=test@qq.com"

彗星HTTP.POST (注册网址, 注册信息, )
.如果真 (彗星HTTP.取状态码() = 200)
    信息框 ("注册成功!", 0, "提示")
.否则
    信息框 ("注册失败，状态码：" + 到文本(彗星HTTP.取状态码()), 0, "错误")
.如果真结束

.计次循环首 (超级列表框_账号表.取表项数 (), i)
    UserName = 超级列表框_账号表.取标题 (i - 1, 1)
    PassWord = 超级列表框_账号表.取标题 (i - 1, 2)
    Email = 超级列表框_账号表.取标题 (i - 1, 3)
    信息 = 信息 + UserName + "————" + PassWord + #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (信息))

json// 原始封包
{"action":"gold_change","user_id":123,"gold":100,"sign":"xxx"}

// 篡改后（需重新计算sign签名）
{"action":"gold_change","user_id":123,"gold":99999,"sign":"new_sign"}

启动程序 → 检查注册状态 → 未注册 → 显示机器码 → 输入注册码 → 验证 → 注册成功/失败

.子程序 获取机器指纹, 文本型
返回 (编码_MD5加密 (获取硬盘序列号() + 取网卡地址() + 获取CPUID()))

注册码 = Base64( AES_encrypt( 机器码+用户名+时间戳+盐值, 密钥 ) )

.子程序 验证注册码, 逻辑型
.参数 regCode, 文本型
.局部变量 rawBytes, 字节集
.局部变量 plainText, 文本型
.局部变量 parts[], 文本型

rawBytes = 编码_BASE64解码 (regCode)
plainText = 解密文本 (rawBytes, "MySecretKey!")
parts = 分割文本 (plainText, "|", )

.如果真 (取数组成员数 (parts) < 3) 返回 (假)
.如果真 (parts[1] ≠ 当前机器码()) 返回 (假)      // 机器不匹配
.如果真 (到数值 (parts[3]) < 取现行时间()) 返回 (假)  // 已过期
返回 (真)

┌────────────────────────────┐
│ 机器码: A1B2-C3D4-E5F6-G7H8 │
│ 注册码: [_________________] │
│        [粘贴]  [验证]        │
└────────────────────────────┘

.子程序 格式校验注册码, 逻辑型
.参数 注册码, 文本型
.局部变量 正则, 正则表达式
正则.创建 ("^[A-Z0-9]{4}-[A-Z0-9]{4}-[A-Z0-9]{4}-[A-Z0-9]{4}$")
返回 (正则.匹配 (注册码) ≠ )

.子程序 线程操作, 整数型
.参数 参数, 整数型
输出 ("这是线程 " + 到文本 (参数))
返回 (0)
.子程序结束

.子程序 _启动多线程
.局部变量 线程句柄, 整数型
.局部变量 i, 整数型

.计次循环首 (10, i)
    线程句柄 = 创建线程 (子程序地址 ("线程操作"), i)
    设置线程优先级 (线程句柄, 高)
.计次循环尾 ()

.子程序 获取代理IP, 文本型
.局部变量 响应, 文本型
响应 = 彗星HTTP.GET ("http://proxy-api.com/get?count=1")
返回 (解析JSON取IP (响应))

.子程序 保存Cookie, 整数型
.参数 账号ID, 文本型
.参数 Cookie, 文本型
写到文件 ("cookie_" + 账号ID + ".txt", 到字节集 (Cookie))
返回 (0)

.子程序 _识别验证码, 文本型
.局部变量 验证码图片, 图片型
验证码图片 = 载入图片 ("captcha.jpg")
调用外部程序 ("C:\tesseract.exe", 验证码图片, "result.txt")
返回 (读文本文件 ("result.txt"))

┌─────────────────────────────────────────┐
│              用户界面模块                  │
│  [输入账号信息] [选择平台] [启动注册]      │
├─────────────────────────────────────────┤
│              注册信息处理模块              │
│  格式化数据 → 代理封装 → 请求发送          │
├─────────────────────────────────────────┤
│              验证码识别模块                │
│  截图 → OCR识别 → 回填验证码              │
├─────────────────────────────────────────┤
│              网络通信模块                  │
│  彗星HTTP → 代理IP → Cookie管理           │
├─────────────────────────────────────────┤
│              结果反馈模块                  │
│  成功/失败 → 日志记录 → 下次优化          │
└─────────────────────────────────────────┘

.异常处理开始 ()
    彗星HTTP.POST (注册网址, 注册信息, "POST")
.异常处理 (错误信息, 错误码)
    记录日志 ("请求失败:" + 错误信息)
    返回 ()
.异常处理结束 ()