易语言软件授权文件生成器

别人想使用你的软件的，只有授权文件才能打开软件，授权文件可以现在软件的使用时间。

使用次数或者其他的授权方式都可以自己修改。

选中文本 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
.如果真 (密码框.内容 ＝ “”)
信息框 (“请输入一个有效数字”, #错误图标, “错误”)
密码框.获取焦点 ()
返回 ()
.如果真结束
.如果真 (到整数 (密码框.内容) ＞ 1500)
信息框 (“请输入一个小于1500的数字”, #错误图标, “错误”)
密码框.获取焦点 ()
返回 ()
.如果真结束
.如果真 (天框.内容 ＝ “”)
信息框 (“请输入一个有效数字”, #错误图标, “错误”)
天框.获取焦点 ()
返回 ()
.如果真结束
.如果真 (到整数 (天框.内容) ＞ 1 且 组合框2.取项目数值 (组合框2.现行选中项) ＝ 1)
信息框 (“试用天不能超过1天”, #错误图标, “错误”)
天框.获取焦点 ()
返回 ()
.如果真结束
.如果真 (到整数 (天框.内容) ＞ 3 且 组合框2.取项目数值 (组合框2.现行选中项) ＝ 2)
信息框 (“试用次数不能超过3次”, #错误图标, “错误”)
.如果真结束
试用 ＝ 天框.内容
密码 ＝ 密码框.内容
X5 ＝ X1.内容 ＋ “|” ＋ X2.内容 ＋ “|” ＋ X3.内容 ＋ “|5SnKey|6Date|7Bdcs|” ＋ #引号 ＋ 到文本 (组合框2.取项目数值 (组合框2.现行选中项)) ＋ #引号 ＋ “|” ＋ 试用 ＋ “|” ＋ 密码 ＋ #引号
调试输出 (X5)
.如果 (写到文件 (当前目录 ＋ “key.” ＋ 选中文本, 到字节集 (密码 ＋ “ ~”) ＋ 秘密 (到字节集 (X5), 密码, 1)) ＝ 真)
信息框 (“写入成功。[key.” ＋ 选中文本 ＋ “]”, 0, “成功。”)
写配置项 (取当前目录 () ＋ “\Config.ini”, “设置”, “授权文件”, “key.” ＋ 选中文本)