易语言自用注册码生成及注册码验证源码

易语言自用注册码生成及注册码验证源码 一、以下是获取注硬件信息生成注册码及判断注册文件 .版本 2 .支持库 eAPI .支持库 dp1 .子程序 是否注册, 逻辑型 .局部变量 cpu信息, CPU信息 .局部变量 bios信息, BIOS信息 .局部变量 机器码, 文本型 .局部变量 a, 文本型, , "0" .局部变量 b, 文本型, , "0" .局部变量 密码文件, 字节集 .局部变量 c, 字节集 .局部变量 今天, 日期时间型 .局部变量 年, 文本型 .局部变量 月, 文本型 .局部变量 日, 文本型 .局部变量 d, 文本型, , "0" 取CPU信息 (cpu信息) 取BIOS信息 (bios信息) a ＝ 分割文本 (cpu信息.序列号, “-”, ) b ＝ 分割文本 (bios信息.序列号, “-”, ) 机器码 ＝ 取数据摘要 (到字节集 (bios信息.序列号 ＋ cpu信息.序列号)) 密码文件 ＝ 读入文件 (取当前目录 () ＋ “\system.dll”) c ＝ 解密数据 (密码文件, “868”, #DES算法) .如果真 (机器码 ＝ 到文本 (c)) 返回 (真) .如果真结束 今天 ＝ 取现行时间 () 年 ＝ 到文本 (取年份 (今天)) 月 ＝ 到文本 (取月份 (今天)) 日 ＝ 到文本 (取日 (今天)) d ＝ 分割文本 (到文本 (c), “/”, ) ' 信息框 (年 ＋ 月 ＋ 日, 0, ) ' 信息框 (d [1] ＋ d [2] ＋ d [3], 0, ) .如果真 (取数组成员数 (d) ＝ 3) .如果真 (年 ＝ d [1]) .如果真 (月 ＝ d [2]) .如果真 (日 ≤ d [3]) 信息框 (“用户你好:” ＋ #换行符 ＋ “你是试用版本到:” ＋ d [1] ＋ “年” ＋ d [2] ＋ “月” ＋ d [3] ＋ “日” ＋ “结束使用。” ＋ #换行符 ＋ “Ctrl+V复制到作者QQ”, #信息图标, “友情提示”) 置剪辑板文本 (机器码) 返回 (真) .如果真结束 .如果真结束 .如果真结束 .如果真结束 置剪辑板文本 (机器码) 信息框 (“你是未经作者同意使用本软件机器码也复制”, 0, ) 返回 (假) 二、以下是注册机生成器源码 .版本 2 .支持库 dp1 .程序集 窗口程序集1 .程序集变量 a, 字节集 .子程序 生成密文 .局部变量 今天, 日期时间型 .局部变量 年, 文本型 .局部变量 月, 文本型 .局部变量 日, 文本型 .局部变量 b, 文本型 .如果真 (编辑框_天数. ＝ “”) .如果真 (信息框 (“有效天数如果为空时，默认365天使用时间！”, #是否钮 ＋ #警告图标, , ) ＝ #否钮) 返回 () .如果真结束 编辑框_天数.内容 ＝ “365” .如果真结束 今天 ＝ 取现行时间 () 今天 ＝ 增减时间 (今天, #日, 到数值 (编辑框_天数.内容)) 年 ＝ 到文本 (取年份 (今天)) 月 ＝ 到文本 (取月份 (今天)) 日 ＝ 到文本 (取日 (今天)) ' 信息框 (到文本 (到数值 (日) ＋ 到数值 (编辑框2.内容)), 0, ) b ＝ 年 ＋ “/” ＋ 月 ＋ “/” ＋ 日 a ＝ 加密数据 (到字节集 (编辑框_机器码.内容 ＋ “|” ＋ b), “868”, #DES算法) 写到文件 (取当前目录 () ＋ “\keypass.key”, a) 信息框 (“生成密钥文件成功！” ＋ 取当前目录 () ＋ “\keypass.key”, 0, , ) .子程序 _按钮_生成KEY_被单击 生成密文 ()