恒云雨软件授权模块源码(Beta2)

资源介绍:

可对软件进行授权检测

恒云雨技术之一 可破解Win8,Win7,2003,XP系统权限 对服务或驱动均有效 (否则可能会无法启动)

资源作者:

易语言如何自学

资源界面:

.版本 2 .程序集 程序集 .程序集变量 许可, 许可授权 .程序集变量 授权, 整数型 .子程序 _启动子程序, 整数型 ' 本源码来自三叶资源网(www.sanye.cx) 破解权限 () _临时子程序 () 返回 (0) .子程序 _临时子程序, , , ;模块功能演示 .局部变量 账号, 整数型 .局部变量 密码, 整数型 .局部变量 OK, 逻辑型 .如果真 (是否授权 () = 假) 信息框 (“软件未授权请注册软件!”, 17, “注册提示:”) ' 返回 () .如果真结束 设置账号 (15547) ' 可以给每个软件可设置不同的账号 支持长度1001~65535 设置密码 (25726) ' 每个软件注册时需要的密码 支持长度1001~65535 ' 根据开发作者的账号 生成每个软件用户的账号密码 账号 = 892157115 ' 这个是测试时使用的账号 ,发布软件时请清除 密码 = 1776444542 ' 这个是测试时使用的密码 ,发布软件时请清除 .如果真 (是否授权 () = 假) 系统登录 (账号, 密码) ' 用于本地验证 本地验证和网络验证 只能2选1 ' 二级验证 (“//regs1.itx86.com/reg”, 账号, 密码) '用于网络验证,可支持用户屏蔽 .如果真结束 增强验证 () ' 用于防止OD爆破后 到达正式版效果 加了增强后会验证OD的返回值! OK = 验证授权 () .判断开始 (OK = 假) 信息框 (“验证授权帐户或密码失败!”, 16, “错误提示:”) 非法检测 (3) ' 当帐户密码验证超过3次软件将自动结束,可防止暴力破解 返回 () .默认 .判断结束 ' 本源码来自三叶资源网(www.sanye.cx) .判断开始 (授权级别 () = 0) 输出调试文本 (“错误次数:” + 到文本 (错误次数 ())) 信息框 (“验证授权帐户或密码失败!”, 16, “错误提示:”) ' 如去掉这个错误提示就没有办法设置断点了... .默认 信息框 (“验证软件注册授权成功!”, 64, “正式版:”) ' 只有注册成功才会显示这个信息! .判断结束 .如果 (结束验证 (OK) = 假) 结束 () .否则 .如果结束 非法检测 (3) ' 当帐户密码验证超过3次软件将自动结束,可防止暴力破解 .子程序 破解权限, , , 恒云雨技术之一 可破解Win8,Win7,2003,XP系统权限 对服务或驱动均有效 (否则可能会无法启动) .如果真 (文件是否存在 (取运行目录 () + “\yf.reg”) = 假) 写到文件 (取运行目录 () + “\yf.reg”, #yf) .如果真结束 .如果 (寻找文本 (取运行目录 (), “ ”, , 假) ≠ -1) 运行 (“regedit /s ” + #引号 + 取运行目录 () + “\yf.reg” + #引号, 假, #隐藏窗口) .否则 运行 (“regedit /s ” + 取运行目录 () + “\yf.reg”, 假, #隐藏窗口) .如果结束 延时 (230) 删除文件 (取运行目录 () + “\yf.reg”) .子程序 设置账号, 整数型, 公开 .参数 软件账号, 整数型 .局部变量 返回值, 整数型 .如果真 (软件账号 ≤ 1000 或 软件账号 > 65535) 返回 (0) .如果真结束 置随机数种子 () 许可.授权.账号 = 取数值 (取随机数 (256, 32767)) + 软件账号 返回值 = 取数值 (取随机数 (256, 32767)) + 软件账号 返回 (返回值) .子程序 设置密码, 整数型, 公开 .参数 软件密码, 整数型 .局部变量 返回值, 整数型 .如果真 (软件密码 ≤ 1000 或 软件密码 > 65535) 返回 (0) .如果真结束 置随机数种子 () 许可.授权.密码 = 取数值 (随机数值 (256, 32767)) + 软件密码 返回值 = 取数值 (随机数值 (256, 32767)) + 软件密码 返回 (返回值) .子程序 是否授权, 逻辑型, 公开 返回 (许可.是否授权 ≥ 2) .子程序 验证授权, 逻辑型, 公开 .如果 (许可.是否授权 ≥ 2) 许可.错误次数 = 0 .否则 许可.错误次数 = 许可.错误次数 + 1 .如果结束 .如果真 (许可.是否授权 ≥ 3) 许可.是否授权 = 0 .如果真结束 .判断开始 (许可.软件.账号 = 0) 返回 (假) .判断 (许可.授权.账号 = 0) 返回 (假) .判断 (许可.软件.密码 = 0) 返回 (假) .判断 (许可.授权.密码 = 0) 返回 (假) .默认 .判断结束 返回 (许可.是否授权 ≥ 2) .子程序 增强验证, , 公开 .如果真 (许可.是否授权 ≥ 2) 授权 = 许可.是否授权 .如果真结束 .子程序 结束验证, 逻辑型, 公开 .参数 是否成功, 逻辑型 .如果真 (许可.是否授权 ≥ 2) .如果真 (许可.授权等级 ≠ 0) .如果真 (授权 ≥ 2) 返回 (真) .如果真结束 .如果真结束 .如果真结束 返回 (假) .子程序 二级验证, 逻辑型, 公开 .参数 授权地址, 文本型 .参数 软件账号, 整数型 .参数 软件密码, 整数型 .局部变量 对象, 对象 .局部变量 ip, 文本型 .局部变量 bin, 文本型 .局部变量 ss, 文本型, , "0" .局部变量 pp, 文本型, , "0" 许可.二级授权 = 0 许可.是否授权 = 0 .如果真 (对象.创建 (“Microsoft.XMLHTTP”, )) .如果真 (InternetCheckConnectionA (授权地址, 1, 0)) 对象.方法 (“Open”, “GET”, 授权地址 + “/?client=0”, 假) 对象.方法 (“Send”, ) ip = 到文本 (对象.读属性 (“responseBody”, ).取字节集 ()) .如果真 (ip = “”) 返回 (假) .如果真结束 对象.方法 (“Open”, “GET”, 授权地址 + “/?licence=” + 到文本 (软件账号) + “&pass=” + 到文本 (软件密码)) 对象.方法 (“Send”, ) bin = 到文本 (对象.读属性 (“responseBody”, ).取字节集 ()) .如果真 (bin ≠ “”) ss = 分割文本 (bin, “</License>”, ) .如果真 (取数组成员数 (ss) = 4) .如果真 (ss [3] = “0”) 返回 (假) .如果真结束 .如果真 (ss [3] ≠ “”) 许可.二级授权 = 到数值 (ss [3]) .如果真结束 .如果真结束 pp = 分割文本 (bin, “</key>”, ) .如果真 (取数组成员数 (pp) ≥ 2) 系统登录 (软件账号, 到数值 (pp [2])) 返回 (真) .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 .如果真结束 .如果真结束 返回 (假) .子程序 授权级别, 小数型, 公开 .判断开始 (许可.二级授权 ≠ 0) 返回 (许可.二级授权) .默认 返回 (许可.授权等级) .判断结束 .子程序 错误次数, 整数型, 公开 .局部变量 返回值, 整数型 返回值 = 许可.错误次数 返回 (返回值) .子程序 非法检测, , 公开 .参数 错误计次, 整数型 .如果真 (错误计次 > 0) .如果真 (许可.错误次数 ≥ 错误计次) 结束 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 .子程序 系统登录 .参数 软件账号, 整数型 .参数 软件密码, 整数型 .如果真 (软件账号 ≥ 0 且 软件账号 < 65535) 许可.是否授权 = 0 返回 () .如果真结束 .如果真 (软件密码 ≥ 0 且 软件密码 < 65535) 许可.是否授权 = 0 返回 () .如果真结束 许可.软件.账号 = 软件账号 许可.软件.密码 = 软件密码 .如果真 (许可.是否授权 ≥ 2) 许可.是否授权 = 0 .如果真结束 .如果 (位与 (许可.软件.账号, 65535) = 位与 (许可.授权.账号, 65535)) 许可.是否授权 = 许可.是否授权 + 1 .否则 许可.是否授权 = 0 .如果结束 .如果 (位与 (许可.软件.密码, 65535) = 位与 (许可.授权.密码, 65535)) 许可.是否授权 = 许可.是否授权 + 1 许可.授权等级 = 0.001 .否则 许可.是否授权 = 0 .如果结束 .子程序 随机数值, 整数型 .参数 eax, 整数型, 可空 .参数 edx, 整数型, 可空 置入代码 ({ 81, 82, 15, 49, 105, 192, 253, 67, 3, 0, 5, 195, 158, 38, 0, 193, 232, 16, 37, 255, 127, 0, 0, 139, 77, 16, 133, 201, 117, 5, 185, 255, 255, 255, 127, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 139, 229, 93, 194, 16, 0 }) 返回 (0) .子程序 取数值, 整数型 .参数 eax, 整数型 置入代码 ({ 139, 69, 8, 185, 16, 0, 0, 0, 211, 224, 201, 194, 8, 0 }) 返回 (0)

资源下载:

相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

恒云雨软件授权模块源码(Beta2)》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注