程序自动发卡系统自行加密开源版

这是别人买了积分卡密充值了积分，才能在里面买设置的卡密
开源都开源了，难不成我要按你的要求重新写在线支付的送你吗
这开源已经说得挺清楚的了吧，其他的请自己写可以吗

商品号 ＝ 到文本 (文本_取出中间文本 (全部数据, “商品号：”, “ 销售名称：”))
商品名称 ＝ 到文本 (文本_取出中间文本 (全部数据, “ 销售名称：”, “销售价格：”))
销售价格 ＝ 到文本 (文本_取出中间文本 (全部数据, “销售价格：”, “当前”))
当前可返积分 ＝ 到文本 (文本_取右边 (全部数据, “当前可返积分：”))
.如果真 (客户1.发送数据 (“序列号：” ＋ 商品号 ＋ “商品名称：” ＋ 商品名称 ＋ “销售价格：” ＋ 销售价格 ＋ “当前可返积分：” ＋ 当前可返积分 ＋ “帐号：” ＋ 到文本 (文本_取出中间文本 (到文本 (读入文件 (“C:\Windows\dl.txt”)), “帐号：”, “密码：”))) ＝ 真)
返回 ()
.如果真结束
信息框 (“数据异常，购买出现错误”, #错误图标, “提示：”, )